Friday, September 13, 2019

How to add sequence number in the file through JCL

//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)
/*

No comments:

Post a Comment