September 2002 PL/I, das Spezifikation Abbildet: HÜLSE-FunktionscZusammenfassung 2-61 2 WENN CHECK_ERRORS('OBJ2STR ') ^ = COMPLETION_STATUS_YES DANN ZURÜCKGEHEN; SETZEN SIE FILE(IORFILE) LIST(IORREC); SCHLIESSEN SIE FILE(IORFILE); 2,16,22 PODREQ Zusammenfassung PODREQ(1, 3 PTR,/* IN: Antraginfo-Puffer*/ PTR 3, PTR 3, PTR 3); // liefert gegenwärtiges Antraginfo Beschreibung PODREQ stellt Informationen über den gegenwärtigen Anforderungantrag zur Verfügung, der über zugänglich ist nach Struktur die im CORBA definiert wird, schließen Sie Akte mit ein. DCL 1 REQUEST_INFO STIMMTE ÜBEREIN, 3 INTERFACE_NAME PTR, 3 OPERATION_NAME PTR, ZIEL 3 PTR; Die ersten drei Datenelemente sind unbegrenzte CORBA-Zeichenfolgen. Diese können sein kopiert in CHAR(n) Puffer über das STRGET Funktion. Das ZIEL ist ein PL-/igegenstand Hinweis für diese Betriebsanforderung. Das REQUEST_INFO Struktur enthält die folgenden Informationen nach einem Anruf zu PODREQ . INTERFACE_NAME Der Name der Schnittstelle OPERATION_NAME Der Name des Betriebes gerade benannt ZIEL Der Gegenstandhinweis (Ziel) PODREQ muß einmal pro Betriebsanforderung genau benannt werden. PODREQ muß benannt werden nach einem Antrag ist zu einem Bediener geschickt worden und bevor alle mögliche Anrufe gebildet werden, um zugänglich zu machen die Parameterinhalte. Beispiel %INCLUDE CORBA; ... ANRUF PODREQ(REQUEST_INFO); WENN CHECK_ERRORS('PODREQ ') ^ = COMPLETION_STATUS_YES DANN ZURÜCKGEHEN; ANRUF STRGET(OPERATION_NAME, BETRIEB, OPERATION_LENGTH);