//JS001 EXEC PGM=SORT
//*
//SYSOUT DD SYSOUT=*
//*
//SORTIN DD *
-190000
200
-200
/*
//SORTOUT DD DSN=TEMP.TLM.FTBDATE.OUT,
// DISP=(NEW,CATLG),
// SPACE=(CYL,(1,1),RLSE),UNIT=TSTDA
//*
//SYSIN DD *
OPTION COPY
OUTREC OVERLAY=(15:1,7,FS,EDIT=(STTTTTTT),SIGNS=(+,-))
Read more: http://ibmmainframes.com/about50634.html#ixzz5Xx8ppiID
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB)
//SORTOUT DD DSN=... output file (FB)
//SYSIN DD *
INREC OVERLAY=(139:139,8,UFF,TO=ZD,LENGTH=8)
SORT FIELDS=(01,9,CH,A)
SUM FIELDS=(139,8,ZD)
OUTREC OVERLAY=(139:139,8,ZD,EDIT=(TTTTT.TT))
Read more: http://ibmmainframes.com/about33926.html#ixzz5XxBsibCw