//SORTA EXEC PGM=SORT
//SORTIN DD DSN=TEST.RATNESH.SEQ.INPUT,
// DISP=SHR
//SORTOUT DD DSN=TEST.RATNESH.SEQ.OUTPUT,
// DISP=(NEW,CTALG,DELETE),
// UNIT=SYSDA,
// RECFM=FB
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=D
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(1:SEQNUM,4,ZD,5:1,5)
/*
//SORTIN DD DSN=TEST.RATNESH.SEQ.INPUT,
// DISP=SHR
//SORTOUT DD DSN=TEST.RATNESH.SEQ.OUTPUT,
// DISP=(NEW,CTALG,DELETE),
// UNIT=SYSDA,
// RECFM=FB
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=D
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(1:SEQNUM,4,ZD,5:1,5)
/*
No comments:
Post a Comment