KFK2666.pdf

-228-
8eispiele
6-68
1) siehe 8eispiele zu REGENT(NOINIT)
2) xSU8SYSTEM SU81;
xMOOULE SPLOT;
xPROCESS REGENT;
SPLOT : PRO C(x, y , z ) RE GE NT (SU8 =SU81 ) ;
DCL (x,y,z) ... ;
ENTER GIPSY REENTER(GI PTR);
Plot Anweisungen mit GIPSY
END GIPSY LEAVE(GI_PTR);
END SPLOT;
3) MAIN: PROC OPTIONS(MAIN) REGENT;
ENTER SU82;
DCL PP ENTRY(PTR, .... )EXT;
CALL PP(QQ, ... );
END SU82;
END MAIN;
xPROCESS;
PP: PROC(QQ, ... )REGENT(SU8=SU82);
END PP;
Erläuterung
Sub2-Anweisungen
8eispiel 2) zeigt die Erzeugung eines Moduls Subsystem SUB, der
mit Hilfe von GIPSY Zeichenausgabe erzeugt.
Beispiel 3) zeigt die 8enutzung einer externen POL-Prozedur PP,
die aus dem Hauptprogramm MAIN aufgerufen wird. Da sie im Subsystem
SU82 aufgerufen wird, muß sie auch den Parameter SU8=SU82 besitzen.