Nah dran, aber:

*INLR "verläßt" nicht das Programm sondert nimmt es nach dem Verlassen aus dem Stapel (HSP)

Die grobe Logik sieht so aus:

DOU *INKC = *ON
EXFMT FM01
ENDDO

EVAL *INLR = *ON

Gruß,
Robert


Ergänzung: sehe gerade, dass jemand schneller war ;-)
Beachte:
Falls es nach dem *INLR noch ausführbare Anweisungen gibt,
werden diese ausgeführt.