Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
carlmgu,
Assuming your input lrecl=30 and recfm=FB, the following DFSORT JCL will give you the desired results
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
CR01YYYYYYYYYY0220120413ZZZZZ
DE01AAAA000BBBBBBBBBBBBBBBBBB
CR01YYYYYYYYYY0220120413ZZZZZ
DE01AAAA028BBBBBBBBBBBBBBBBBB
DD01AAAA028BBBBBBBBBBBBBBBBBB
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,2,CH,EQ,C'CR'),
PUSH=(31:1,30),RECORDS=2),
IFTHEN=(WHEN=(1,2,CH,EQ,C'DE',AND,9,3,CH,EQ,C'000'),
OVERLAY=(47:C'19000101'))
OUTFIL IFOUTLEN=30,OMIT=(1,2,CH,EQ,C'CR'),
IFTHEN=(WHEN=(1,2,CH,EQ,C'DE'),BUILD=(31,30,/,1,30))
//* |
|
|