September 2002 PL/I, das Spezifikation Abbildet: HÜLSE-FunktionscZusammenfassung 2-63 2 Ausnahmen PODSTAT stellt ein EXCEPTION_NUMBER (im Ausnahmepuffer POD_STATUS_INFORMATION ) zu ungleich null, wenn es eine geworfene Ausnahme gibt. POD_STATUS_INFORMATION wird im CORBA mit.einschließen Akte definiert: /* EXCEPTION_TEXT ist ein Zeiger zum Text der Ausnahme. STRGET muß verwendet werden, um diesen Text zu extrahieren. */ DCL POD_STATUS_PTR PTR; DCL 1 POD_STATUS_INFORMATIONBASED(POD_STATUS_PTR), 3 EXCEPTION_NUMBER ÖRTLICH FESTGELEGTES BIN(31), 3 COMPLETION_STATUS ÖRTLICH FESTGELEGTES BIN(15), FÜLLER 3 CHAR(2), 3 EXCEPTION_TEXT PTR; DCL COMPLETION_STATUS_YES ÖRTLICH FESTGELEGTES BIN(1) INIT(0); DCL COMPLETION_STATUS_NO ÖRTLICH FESTGELEGTES BIN(1) INIT(1); DCL COMPLETION_STATUS_MAYBE ÖRTLICH FESTGELEGTES BIN(2) INIT(2); Beispiel %INCLUDE CORBA; ... ALLOC POD_STATUS_INFORMATION SET(POD_STATUS_PTR); ANRUF PODSTAT(POD_STATUS_PTR); ANRUF PODREG(GRID_INTERFACE); WENN CHECK_ERRORS('PODREG ') ^ = COMPLETION_STATUS_YES DANN ZURÜCKGEHEN; 2,16,25 SEQALOC Zusammenfassung SEQALOC(PTR, /* HERAUS: Reihenfolgenctrl-Daten*/ ÖRTLICH FESTGELEGTES BIN(31), /* IN: folgendes Längenzuerst*/ CHAR(*), /* IN: Reihenfolgentypecode*/ ÖRTLICH FESTGELEGTES BIN(31)); IN: folgendes typecode len */ // teilt Ablage für eine unbegrenzte Reihenfolge zu Beschreibung SEQALOC wird verwendet, Ausgangsablage für eine unbegrenzte Reihenfolge zuzuteilen. Sie muß sein benannt vor SEQSET kann zum ersten Mal benannt werden. Die Länge geliefert worden an Funktion ist die Initiale Reihenfolgengröße erbeten. Merken Sie, daß das typecode an lieferte SEQALOC muß sein Reihenfolge typecode.