Hallo zusammen,

in vielen unserer Programme haben wir die Mimik(siehe Beispiel) eingebaut, dass bei laufendem Debugger ein Unterprogramm interaktiv und nicht im Batch aufgerufen wird.


PGM

DCL VAR(&DEBUG) TYPE(*LGL) VALUE('1')

CHGDBG
MONMSG MSGID(CPF0000) EXEC(CHGVAR VAR(&DEBUG) +
VALUE('0'))

IF COND(&DEBUG) THEN(CALL PGM(MYPGM))
ELSE CMD(SBMJOB CMD(CALL PGM(MYPGM)))

ENDPGM


Dies hat zum einen den Charme, das Programm nicht im Batch zu debuggen und zum anderen keine Jobqueue zu blockieren.

Im Greenscreen funktioniert dies einwandfrei, mit dem Debugger des Rdi leider nicht.

Zwar kann ich mit einem Serviceeingangpunkt das Programm im Batch debuggen, aber die Jobqueue wird trotzdem blockiert.

Gibt es im CL die Möglichkeit festzustellen, dass das Programm gerade durch den Rdi-Debugger gedebugged wird?

Gruß Stefan