Example 1

This shows a DFSORT procedure that copies records, inserting 40 bytes of blanks, following by 40 bytes of the input file, beginning from position 41.
*FASTPROC
 OUTREC FIELDS=(1,40,40X,41,40)