/* SAMPEDIT - Sample source edit exec */
 
/* Input File - USERINP - the USER INPUT file created by  */
/*              the DRCTCOMP exec or the USER DIRECT file */
/*              created by the DRECTEXP exec              */
 
/* input files */
USERINP='USER INPUT A'
 
/* output files */
OUTFILE='MOD INPUT A'
 
'EXECIO 1 DISKW 'OUTFILE' 0 F 80 (STRING *'
 
'pipe < 'USERINP,
'| specs 1-72 1',
'| pad 80',
'| block 80 fixed',
'| nlocate /SYSAFFIN/ ',
'| >> 'OUTFILE
 
Exit