Hallo Peter,

ich verfahre in solchen Fällen so:

----------------------------

PGM_A:
CALL PGM_B PARM MODUS " "
...
...
SETON LR
CALL PGM_B PARM MODUS "E"

----------------------------

PGM_B:
kein USROPN
*ENTRY PLIST, PARM MODUS
...
...
MODUS IFEQ "E"
SETON LR
ELSE
RETRN
ENDIF

Achtung: *INZSR würde in PGM_B nur einmal ausgeführt,
ansonsten bleibt alles offen, d.h. Sätze MÜSSEN immer durch Update, Setgt oder Unlck freigegeben werden

Gruß,
Robert