Hallo,

verstehe ich Dich richtig, Du hast folgende Situation:

1. Programm PGM1 --> Call PGM2
2. Programm PGM2 --> Call PGM3
:
: Programm PGMN
--> Mittlere Katastrophe und Ende

Am einfachsten ist dies durch das Senden einer Message mit Message-Type *ESCAPE an das 1. Programm zu realisieren.
(CL-Befehl SNDPGMMSG oder API QMHSNDPM)

Die *ESCAPE-Message bewirkt, dass alle Programme und Prozeduren im Call Stack bis zu dem Programm, das die *ESCAPE-Message empfängt sofort beendet werden.

Das 1. Programm empfängt die Nachricht
und beendet sich dann.
(CALL mit (E)-Extender oder mittlere Bezugszahl)

Birgitta