Page 1 of 1

keep the header and removes the intermediate headers

PostPosted: Mon Mar 30, 2015 3:04 pm
by David2k8
//JObname JOB REGION=0M,CLASS=A,MSGCLASS=Z,
// NOTIFY=&SYSUID
//STEP1 EXEC PGM=SORT
//SORTIN DD DSN=INPutfile,DISP=SHR
//SYSOUT DD SYSOUT=*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=(1,6,CH,EQ,C'tittlename'),
OVERLAY=(586:SEQNUM,1,ZD))
OUTFIL INCLUDE=(586,1,ZD,EQ,1,OR,586,1,CH,EQ,C' '),
BUILD=(1,585)
/*