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

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s

This site uses Akismet to reduce spam. Learn how your comment data is processed.