KFK2666.pdf

Beispiel
5-25 - 151 --
Nach der POL-Anweisung LISTE; sollen alle folgenden Anweisungen
bis LISTENO; durch ein Unterprogl'amm LOOKLIST bearbeitet werden.
Prefixe und Labels sollen unverändert bleiben. Zuweisungen sollen
ebenfalls unverändert ausgegeben werden.
Definition:
STA 'LISTE';
SKIP (';');
ANW:
END;
GoTo ANW;
ENDE
END STATEMENT;
Ix übergehe Semikolon xl
CALL QQNEW STATEMENT; Ix hole neue Anweisung xl
DCL (P,L) CHAR(250) VARYING; Ix Platz für Prefixe u.Labels xl
CALL PL PREFIXES(P)'; Ix hole Prefixe xl
CALL PL_LABELS(L); Ix hole Labels xl
IF P "THEN EXEC P; Ix Prefixe in den Output xl
IF L =' 'THEN EXEC L; Ix Labels in den Output xl
IF rL ASSTEST THEN EXEC THIS_STATEMENT; Ix Zuweisung unverändert
ausgeben xl
ELSE Do;
Ix Verarbeite Anweisung xl
IF IDENTIFIER('LISTEND') THEN GoTo ENDE; Ix letzte Anweisung? xl
CALL LOOKLIST;
5.4 Datenstruktur-Definition
Ix nächste Anweisung xl
Datenstrukturen in Form von PL/1-Datendeklarationen, die in einem
Subsystem während dessen Ausführung benötigt werden, können bei der
Subsystemerstellung einmal definiert werden. Sie können danach bei
jeder Subsystemanwendung benutzt werden. Datenstrukturen, die zur
Übersetzungszeit der Subsystemsprache (zur Makrozeit) zum Zweck der
Sprachübersetzung (z.B. zur Kommunikation zwischen Anweisungstreibern)
verwendet werden, heißen Makrozeit-Datenstrukturerl. Datenstrukturen,
die zur Ausführungszeit des Subsystems benutzt werden, werden hier
Subsystem-Datenstrukturen genannt.