KFK2666.pdf

5-19 -145-
Erst zur Ausführungszeit des generierten Programms
werden die zwischen EXEC und END EXEC stehenden An­
weisungen aktiv. Soll nur eine Anweisung erzeugt
werden, kann sie auch zwischen "EXEC" und"," stehen:
EXEC PUT LIST('BEISPIEL')SKIP;;
Dabei ist zu beachten, daß sowohl das Semikolon für
die EXEC-Anweisung als auch das für die zu generie­
rende Anweisung stehen muß. Mit Hilfe der Kurzform
der EXEC-Anweisung lassen sich auch Teile von Anwei­
sungen generieren: "EXEC MULT (A, B), " erzeugt den
Teil einer PL/1-Anweisung "MULT(A,B)" (ohne Semikolon).
In einer EXEC-Gruppe kannen beliebige PL/1-Anweisun­
gen stehen. Es ist darauf zu achten, daß das erzeugte
Programm auf jeden Fall syntaktisch richtig wird.
Labels vor Anweisungen sind problematisch, da bei
mehrmaliger Anwendung der gleichen POL-Anweisung
das Label mehrfach deklariert wäre. Man kann entwe-
der jedesmal ein neues Label.mit Hilfe einer Makro­
zeit-Variablen generieren oder die Gruppe von Anwei­
sungen, die das Label enthält, zwischen BEGIN, oder
END; setzen.
Werden durch eine POL-Anweisung mehrere PL/1-Anwei­
sungen erzeugt, so ist es erforderlich, sie als 00­
Gruppe zu generieren.
Beispiel:
Die POL-Anweisung "DRUCKE ALLES;" soll die Anweisungs­
folge "PUT EDIT (HEADLINE) (SKIP,A); CALL PRINT(3);
erzeugen. Wenn der POL-Programmierer nun schreibt:
"IF X> 0 THEN DRUCKE ALLES," und die erzeugten PL/1­
Anweisungen stehen nicht zwischen 00 und END, ergeben
sich Resultate, die der POL-Programmierer nicht er­
wartet (im Beispiel würde also die zweite Anweisung
CALL PRINT(3), nicht in der THEN-Clau8e stehen. Falls
erforderlich, kann auch "BEGIN," und "END," die er­
zeugten Anweisungen umschließen. Dies ist immer dann
natig, wenn DECLARE-Anweisungen generiert werden,
um doppelte Deklarationen zu vermeiden.