September 2002 PL/I, das Spezifikation Abbildet: HÜLSE-FunktionscZusammenfassung 2-43 2 Jedes Teil ist in einem unterschiedlichen PL-/imodul. Schritt 2 benennt die Implementierung innen Schritt 3. Allgemeiner Code für jede Schnittstelle (zum Beispiel, der Schnittstellenbetrieb Strukturen) werden innen mit.einschließen die Akten gespeichert, die zu allen drei PL-/imodulen zugänglich sind oben beschrieben. Schritt 1 ist das Bedienermainline; alle drei Module sind kompiliert in ein PL-/iprogramm. Die Implementierung jedes Schrittes wird ausführlicher unten beschrieben. 2,16,2,1 Initialisierung des Bedieners Die folgenden Schritte werden angefordert, wenn ein Bediener angestellt wird. Die folgenden Schritte sind gespeichert in einem alleinstehenden PL-/imodul. 1. Anruf PODSTAT das POD_STATUS_INFORMATION registrieren . Dieses ermöglicht Wiederherstellung der Statusangaben des ORBs für jeden Anruf zum ORB. 2. Anruf ORBARGS ein globales ORB für den Bediener initialisieren. Diese Funktion arbeitet innen eine ähnliche Art und Weise zum CORBA ORB_init Anruf und muß nach PODSTAT benannt werden . 3. Anruf PODREGI für jede zu registrierende Schnittstelle, überschreiten in die Adresse von jedem schließen Sie Beschreibungsstruktur und einen Zeiger an, um auf den zurückgebrachten IOR zu zeigen. 4. Benennen Sie OBJ2STR in jeden Gegenstandhinweis und in eine Zeichenfolge überschreiten, um zu schreiben Ior-Zeichenkette heraus zu. 5. Schreiben Sie jeden IOR aus. 6. Benennen Sie PODINIT das ORB informieren, daß der Bediener jetzt bereit ist, Anträge anzunehmen. Der folgende Beispielcode, umreißen die Schritte oben und basiert nach der Schnittstelle beschrieben im Beispiel unter Gegenstandanforderung. CLIENTV: PROC(IN_ORB_ARG_STRING) OPTIONS(MAIN NOEXECOPS); in_orb_arg_string dcl char(80) verändernd; orb_arg_string dcl char(80) init(in_orb_arg_string); dclorb_name char(20) init('my_orb '); ... dclclient_obj PTR; /* das Folgen umfaßt werden beschrieben in ' Gegenstandanforderung' oben */ %include CORBA; %include CLIENTM; %include CLIENTX; %include CLIENTR; allocpod_status_informationset(pod_status_ptr); Anrufpodstat(pod_status_ptr); wenn check_errors('podstat ') ^ = completion_status_yes dann zurückgehen; orbargs(orb_arg_string Anruf, length(orb_arg_string), orb_name, length(orb_name)); * AnrufORB_init,/ wenn check_errors('orbargs ') ^ = completion_status_yes dann zurückgehen;