gylbharat
Active Member
Joined: 31 Jul 2009 Posts: 565 Location: Bangalore
|
|
|
|
Hi,
Can any one please let me know the usage of WHEN=ANY clause in the IFTHEN statement?
From the Manual --> WHEN=ANY: Used after multiple WHEN=(logexp) clauses to apply additional operation to the records if they satisfied the criteria for any of the preceding WHEN=(logexp) clauses.
I tried using when=any but the output was not as expected.
MY JCL
Code: |
//STEP002 EXEC PGM=SORT,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD *
AA 01
AA 02
AA 03
AA 04
AA 05
AA 06
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=INIT,OVERLAY=(50:SEQNUM,2,ZD)),
IFTHEN=(WHEN=(4,2,ZD,EQ,+02),
OVERLAY=(10:C'REC TYPE 2')),
IFTHEN=(WHEN=(4,2,ZD,EQ,+03),
OVERLAY=(10:C'REC TYPE 3')),
IFTHEN=(WHEN=ANY,
OVERLAY=(40:C'XXX')),
IFTHEN=(WHEN=NONE,
OVERLAY=(10:C'NO VALID REC'))
/*
|
OUTPUT:
Code: |
AA 01 NO VALID REC 01
AA 02 REC TYPE 2 02
AA 03 REC TYPE 3 03
AA 04 NO VALID REC 04
AA 05 NO VALID REC 05
AA 06 NO VALID REC 06
|
Can any one please give a sample jcl with a example of showing when=any? |
|