KFK2666.pdf

-88- 4-26
Im ersten Fall ist lediglich beim Aufruf der aktuell zu Uberge­
bende Deskriptor beim AJfruf in die Argumentenliste einzutragen.
Beispiel
Erläuterung
DCL X DESCRIPTOR;
DEFINE ----;
SUB: PRDC (N,D) RETURNS (CHAR(B));
END SUB;
DCL N BIN FIXED, DOESCRIPTOR;
PUT SKIP LIST (SUB(1,X));
PUT SKIP LIST (SUB(6,X(2,1,7));
An die Funktionsprozedur wird zunächst die ganze DOS X Ubergeben;
die zurückgelieferte Zeichenkette wird gedruckt. Dann geschieht
dasselbe mit der TOS auf die der Deskriptor XC2,1,7) zeigt.
Falls jedoch die zu rufende Prozedur als EXTERNAL REGENT oder
DYNAMIC deklariert ist, muß die ENTRY-Deklaration die Parameter­
liste gUltig vereinbaren.
Beispiel
DCL SUB ENTRY EXT REGENT RETURNS (CHAR(B));
DCL TEXT CHAR(B);
TEXT = SUB (000000000000011B, X(2,1,7));
Erläuterung
Das Weglassen der sogenannten parameter-descriptor-list ist wie
in PL/1 zwar zulässig, es wird jedoch dringend davon abgeraten,
da dann evtl. erforderliche Datenkonversionen beim Aufruf nicht
ausgeführt werden und Fehler schlecht zu finden sind.