KFK2666.pdf

-58-
Beispiel
Erläuterung
xSUBSYSTEM SSS;
xMODUL M;
xPROC ESS ;
M: PROC(Z);
DCL Z BANK;
3-32
DCL SUB(PTR) ENTRY REGENT,
CALL SUB(ADDR(Z));
END M;
xPROCESS REGENT;
SUB: PROC(P)REGENT(NOINIT,SUB=SSS);
DCL P POINTER;
ENTER DABAL;
DCL B BANK BASEO(P);
END DABAL;
END SUB;
Im Modul M des Subsystems SSS wird ein Unterprogramm aufgerufen,
in dem die Fähigkeiten des REGENT-Subsystems DABAL benutzt werden.