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)
*FASTPROC
OUTREC FIELDS=(1,40,40X,41,40)