Page 3 of 3

Re: Sort Card required for DFSORT V1R10

PostPosted: Wed Nov 28, 2012 5:59 am
by skolusu
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)         
//*

Re: Sort Card required for DFSORT V1R10

PostPosted: Thu Nov 29, 2012 10:54 am
by Prasanna G
Thanks Kolusu.. It worked as expected..