KFK2666.pdf

-376-
Beispiel
10-30
DCL VSUB ENTRY DYNAMIC VARIABLE
INI'l' (MODUL) ;
DCL FELD SUB(4) ENTRY(BIN FLOAT(21) (X,X))
RETURNS (CHAR (12)) DYNAIvlIC
nUT ( (4) SUB);
A : PROC (PROG) ;
DCL PROG ENrrRY (CHAH. p.)) DYNAMIC;
DCL PROGl EN'l'RY (CHAR (k)) DYNAI'HC VARIABLE;
PROGl = PROG;
END A;
DCL 1 STRUCT BASED(P),
2 ENT ENTRY VARIABLE DYNAMIC,
2 NEXT POINTER;