KFK2666.pdf

-452-
Beispiel
Erläuterung
Beispiel
11-10
CLAUSE END;
PUT LIST('SUBSYSTEM SUB1: END OF TRANSLATION');
EXEC PUT LIST('SUBSYSTEM SUB1: END OF EXECUTION' );;
EXEC;
CLOSE FILE (#F1);
FREE #01;
END EXEC;
END CLAUSE;
Wenn das Subsystem SUB1 durch: 'END SUB1;' abgeschlossen
wird, wird die End-Clause aktiv. Sowohl zur Übersetzungszeit
als auch zur Ausführungszeit wird eine Meldung ausgegeben.
Der File #F1 wird geschlossen, die Datenstruktur
H01 wird freigegeben. Folgende PL/1-Anweisungen werden
durch obige End-Clause erzeugt:
PUT LIST('SUBSYSTEM SUB1: END oF EXECUTION');
CLOSE FILE('*F1);
FREE #01;
Die ENO-Subsystem-Anweisung kann eine LEAVE-OPTION enthalten:
END SUB LEAVE .... ;
Die ENO-CLAUSE arbeitet das LEAVE ab:
CLAUSE END;
IF IO('LEAVE') THEN 00;
END;
END CLAUSE;