Re: Sort Card required for DFSORT V1R10
Posted: Wed Nov 28, 2012 5:59 am
use the following control cards. This will handle upto 99 headers and trailers.
//SYSIN DD *
SORT FIELDS=(1,2,BI,A)
OUTREC IFTHEN=(WHEN=(1,2,BI,EQ,0),OVERLAY=(40:SEQNUM,2,ZD)),
IFTHEN=(WHEN=(1,2,BI,NE,0),OVERLAY=(35:SEQNUM,4,BI),HIT=NEXT),
IFTHEN=(WHEN=(1,2,BI,EQ,999),
OVERLAY=(11:35,4,BI,SUB,+1,BI,LENGTH=4,42:SEQNUM,2,ZD))
OUTFIL OMIT=(40,2,ZD,GT,1,OR,42,2,ZD,GT,1),BUILD=(1,34)
//*
SORT FIELDS=(1,2,BI,A)
OUTREC IFTHEN=(WHEN=(1,2,BI,EQ,0),OVERLAY=(40:SEQNUM,2,ZD)),
IFTHEN=(WHEN=(1,2,BI,NE,0),OVERLAY=(35:SEQNUM,4,BI),HIT=NEXT),
IFTHEN=(WHEN=(1,2,BI,EQ,999),
OVERLAY=(11:35,4,BI,SUB,+1,BI,LENGTH=4,42:SEQNUM,2,ZD))
OUTFIL OMIT=(40,2,ZD,GT,1,OR,42,2,ZD,GT,1),BUILD=(1,34)
//*