MVSFORUMS.com

[edkir98]

Is there a limit for the number of "IFTHEN=(WHEN=" statement conditions that can be used with INREC?
This is because I tried the execute the following SORT statement and only the first three conditions were executed.

[Frank Yaeger]

Since you aren't using HIT=NEXT, once an IFTHEN clause is satisfied for a record, the subsequent IFTHEN clauses will NOT be executed for that record. So if postions 20-22 are blank, the other IFTHEN clauses will not be executed. If you want all of the IFTHEN clauses to be executed, you need to add HIT=NEXT to the first three clauses.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

[kolusu]

edkir98,

There is a limit to IFTHEN depending on the length and format of the field but your case is different. The reason it did not work is because one of the previous IFTHEN is satisfied.

IFTHEN in sort works just like Evaluate verb in COBOL. If you want to evaluate every IFTHEN then use the parm HIT=NEXT on the IFTHEN which will make sort to look for the next ifthen.

[edkir98]

Kolusu,

Thanks for your help. But am still not clear.

Please see this JCL that I used

[Frank Yaeger]

Chennai,

HIT=NEXT doesn't make any difference in this case because the four conditions are mutually exclusive. If 1,4 = '1111', it can't be '2222' or '3333' or '4444'. If 1,4 = '2222', it can't be any of the others, etc. So HIT=NEXT has no effect in this case. Only one condition can be satisfied and only one OVERLAY can be performed whether or not HIT=NEXT is specified. What did you expect HIT=NEXT to do in this case?

HIT=NEXT does make a difference when you're testing different conditions, e.g. consider these IFTHEN statements:

IFTHEN=(WHEN=(1,4,CH,EQ,C'AAAA'),OVERLAY=(25:C'A')),
IFTHEN=(WHEN=(21,2,CH,EQ,C'BB'),OVERLAY=(28:C'B'))

If 1,4 = 'AAAA', we will not execute the second IFTHEN condition because we don't have HIT=NEXT. So we won't test for 21,2 = 'BB'.

But with:

IFTHEN=(WHEN=(1,4,CH,EQ,C'AAAA'),OVERLAY=(25:C'A'),HIT=NEXT),
IFTHEN=(WHEN=(21,2,CH,EQ,C'BB'),OVERLAY=(28:C'B'))

If 1,4 = 'AAAA', we will still execute the second IFTHEN condition because we have HIT=NEXT. So we will test for 21,2 = 'BB'.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

[kolusu]

edkir98,

The reason HIT=NEXT did not make an difference is because u are validating the same field on all the IFTHEN and at any given point only 1 IFTHEN is true.

try running the following JCL and see the difference HIT=NEXT makes

[edkir98]

Thanks very much Kolusu and Frank...Its clear now..
_________________
Thanks