Loading

IBM SORT – Add a trailer record with Record Count

//STEP010 EXEC PGM=SORT
//SORTIN DD DISP=SHR,DSN=my.file
//SORTOUT DD DISP=(,CATLG,DELETE),
//DSN=new.file,
//LIKE=my.file
//SYSIN DD *
 SORT FIELDS=COPY
 OUTFIL REMOVECC,
 TRAILER1=(C'COUNT:',COUNT-1=(EDIT=(TTTTTTTT)))
/*

Related Posts




blog comments powered by Disqus

There's 0 Comment So Far

Share your thoughts, leave a comment!