2-60 PL-/icSprache, die Spezifikation, v1.0 Abbildet September 2002 2 Sie müssen die Adresse der Struktur führen, die durch das genplidienstprogramm für erzeugt wird Schnittstelle in der Frage. Sie können nicht die Struktur wegen der Größe von direkt führen strukturieren Sie, das für PODREG würde erklärt werden müssen als externe Eintragungsfunktion. Das Format für diesen Namen ist < interface_name>_INTERFACE . Beispiel %INCLUDE GRIDX; %INCLUDE CORBA; /* ALLGEMEINES SETUPCInformations*/ ... ANRUF PODREG(ADDR(GRID_INTERFACE)); WENN CHECK_ERRORS('PODREG ') ^ = COMPLETION_STATUS_YES DANN ZURÜCKGEHEN; 2,16,21 PODREGI Zusammenfassung PODREGI(PTR-,/* IN: Schnittstellenbeschreibungs*/ PTR);/* AUS: Gegenstandbezugs*/ // beschreibt eine Schnittstelle zum PL-/iadapter und bringt einen IOR zurück Beschreibung Diese Funktion ist PODREG sehr ähnlich aber bringt auch einen IOR zurück. Dieses kann innen verwendet werden Zusammenhang mit PODSRVR und OBJ2STR die IOR-Zeichenkette zurückholen, die dann kann seien zu einer Akte ausgeschrieben Sie und werden vom Klienten gelesen Sie, um mit IIOP in Verbindung zu stehen. Obacht muß seien zum Durchlauf in einer großen genug Zeichenkette genommen Sie, um den IOR zurückzuholen (eine Länge von 1024 ist genügend). Diese Funktion ist nur in der Reihe vorhanden Modus. Beispiel DCL IORFILE AKTENCStrom; DCL IOR_NAME PTR; DCL IORREC CHAR(1024) INIT(' '); DCL IORREC_LEN ÖRTLICH FESTGELEGTES BIN(31) INIT(1024); DCL SERVER_NAME CHAR(4) INIT('grid '); DCL SERVER_NAME_LEN REGELTE BIN(31) INIT(4); DCL SERVER_OBJ PTR; %INCLUDE GRIDX; ANRUF PODSRVR(SERVER_NAME, server_name_len); WENN CHECK_ERRORS('PODSRVR ') ^ = COMPLETION_STATUS_YES DANN ZURÜCKGEHEN; ANRUF PODREGI(ADDR(GRID_INTERFACE), server_obj); WENN CHECK_ERRORS('PODREGI ') ^ = COMPLETION_STATUS_YES DANN ZURÜCKGEHEN; ÖFFNEN SIE FILE(IORFILE)-OUTPUT; BENENNEN Sie OBJ2STR(SERVER_OBJ, ior_name); BENENNEN Sie STRGET(IOR_NAME, iorrrec, iorrec_len);