Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
Harry07,
Try the following DFSORT JCL
Code: |
//STEP0100 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
HEADER 1
AAA
BBB
CCC
DDD
666666 2
EEE
FFF
GGG
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OMIT COND=(1,6,CH,EQ,C'666666')
SORT FIELDS=COPY
/* |
|
|