is this valid

[JebusRocks]

Hello all

I have a 88 level variable called X that is assigned the values 1 thru 9
I am wondering is the following IF statement a valid one?

IF X = 1 THRU 4 THEN
do something

I am wondering if the word thru is valid in this context?

Thanks in advance for any replies

 

[Crox]

try something like this:

EVALUATE X WHEN 1 THRU 4 do something ....

Regards,

Crox

 

[3gm]

No, I'm afraid it's not valid (at least not on any compiler I'm familiar with). You can use an abbreviated relational condition:

IF X>0 AND <5

You can also use:

EVALUATE X
  WHEN 1 THRU 4
...
END-EVALUATE

Regards.

Glenn

 

[3gm]

OOPS! Just realized you mentioned an 88-level. The THRU keyword is valid on the 88-level itself, but not on the IF. E.g.:

01  WS-SOME-VALUE    PIC 9.
    88  X            VALUE IS 1 THRU 4.
...
IF X 
   do something

Glenn

 

[JebusRocks]

thanks for the quick replies!!

 

[slade]

Hi Jebus,

Hope you're still there. If you need X as "1 thru 9" for other uses in the pgm, just define another 88 as
"Y VALUE 1 thru 4" and test for Y as Glenn suggested for X.

Regards, Jack.

"A problem well stated is a problem half solved" -- Charles F. Kettering