KFK2666.pdf

- 194-- 6-34
Beispiel
DCL GI PTR PTR;
ENTER SUB1;
END SUB2;
)1)
ENTER GIPSY; }
END GIPSY LEAVE(GI PTR);
ENTER GIPSY
END GIPSY;
END SUB1;
ENTER SUB2;
Erläuterung
1) Sprache von SUB1 ist gültig
2)
2) SUB1 nicht unterbrochen aber Sprache von GIPSY ist gültig, GIPSY
wird verlassen ohne es abzuschließen (durch LEAVE).
3) Sprache von SUB1 ist gültig
4) GIPSY wird weitergeführt, Sprache von GIPSY ist gültig, dann
wird GIPSY Abgeschlossen.
5) Sprache von SUB1 ist gültig, danach wird SUB1 abgeschlossen
6) SUB2 wird aufgerufen, Sprache von SUB2 ist gültig bis zum Ab­
schluß durch die END-Anweisung