Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
sasidarauthur,
Use the following DFSORT JCL which will give you the desired results
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=your input FB 80 lrecl file,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
INCLUDE COND=(80,1,CH,EQ,C'Y',OR,(1,3,SS,EQ,C'HDR,TRL'))
SORT FIELDS=COPY
INREC IFOUTLEN=80,
IFTHEN=(WHEN=GROUP,BEGIN=(1,3,CH,EQ,C'HDR'),PUSH=(81:SEQ=5)),
IFTHEN=(WHEN=(1,3,CH,EQ,C'TRL'),
OVERLAY=(10:81,5,ZD,SUB,+2,M11,LENGTH=5))
/* |
|
|