Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
Debasis Misra,
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
1CNCLABC123
2DCHGBCD456
3CNCLABC456
4DCHGBCD123
//SORTOUT DD SYSOUT=*
//SYSIN DD *
INCLUDE COND=(2,4,SS,EQ,C'CNCL,DCHG')
SORT FIELDS=COPY
INREC IFOUTLEN=7,
IFTHEN=(WHEN=(2,4,CH,EQ,C'CNCL'),BUILD=(2,7)),
IFTHEN=(WHEN=(2,4,CH,EQ,C'DCHG'),BUILD=(2,4,9,3))
//* |
|
|