The LDA defined with an ext. PF for having fields common to programs
where used. Feel free to add additional fields (addfield1, addfield2).
Do an IN at start, change desired fields, do an OUT before calling the NextPgm,
do an IN after return from NextPgm.
d MYLDA e ds extname(MYLDA) dtaara(*lda) d addfield1 501 501 d addfield2 502 503 0
addfield1 = 'X';
addfield2 = 10; out MYLDA;
DFOO DS D BAR 1 10 C *ENTRY PLIST C PARM NEWVAL 10 C *DTAARA DEFINE *LDA FOO C CLEAR BAR C BAR DSPLY C IN FOO C BAR DSPLY C MOVE NEWVAL BAR C OUT FOO C CLEAR BAR C BAR DSPLY C SETON LR