SORT- Sort file excluding header and trailer:

SORT code is given below:


//STEP001 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=X.Y, DISP=SHR
//SORTOUT DD DSN=X1.Y1,DISP=SHR
//SYSIN DD*
  INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:C'1')),
               IFTHEN=(WHEN=(1,4,CH,EQ,C'HDER'),OVERLAY=(81:C'0')),
               IFTHEN=(WHEN=(1,4,CH,EQ,C'TRAL'),OVERLAY=(81:C'9')),
               SORT FIELDS=(81,1,CH,A,1,06,CH,A)
               OUTREC FIELDS=(1,80)
/*


Sample Input file data is shown below:

The file contains the data with records having header and trailer

HDER
100400ABGD07A
8000000DFFI0KA
9000000NB0374A
7000000AS1240A
TRAL


Output of above job is as below:

HDER
100400ABGD07A
7000000AS1240A
8000000DFFI0KA 
9000000NB0374A
TRAL