KFK2666.pdf

-46-
Beispiel
3-20
xSUBSYSTEM SSS;
xMODUL ABC;
xPROCESS PLR;
ABC: PROC (FILEX);
DCL FILEX FILE;
DCL UVW ENTRY (FILE) EXTERNAl REGENT;
CAll UVW (FILEX);
END ABC,
xPROCESS REGENT; REGENT(NOINIT.SUB=SSS);
UVW: PROC(F);
DCl F FILE;
ENTER DABAl;
DCl XYZ ENTRY (FILE) EXT;
CALL XYZ(F);
END DABAL;
END UVW;
xPRDCESS PL/1;
XYZ: PROC (FILE);
DCl FILE FILE;
END XYZ;