Writing to source file using a program-described file

FSRCBODY O F 92 DISK USROPN F EXTFILE('QTEMP/SRCBODY') F EXTMBR('DFT') D srcDs ds 92 D seq 6a inz('000000') D date 6a inz('000000') D srcdta 80a ... C EVAL SRCDTA = 'Sch...' C WRITE SRCBODY srcDs

[report a broken link by clicking here]