2-44 PL-/icSprache, die Spezifikation, v1.0 Abbildet September 2002 2 /* Registerschnittstelle: Klienten*/ Anruf podregi(addr(client_interface),/* von CLIENTX-Akten*/ client_obj); wenn check_errors('podregi ') ^ = completion_status_yes dann zurückgehen; Anruf obj2str(client_obj, iorrec, iorrec_len); wenn check_errors('objget ') ^ = completion_status_yes dann zurückgehen; /* schreiben Sie den IOR zu einer Akte, Implementierung vergessenes hier aus */ ... /* Bediener ist jetzt bereit, Antrag*/ anzunehmen Anrufpodinit(server_name, server_name_len); wenn check_errors('podinit ') ^ = completion_status_yes dann zurückgehen; freies pod_status_information; ENDE CLIENTV; 2,16,2,2 BedienercAbfertigung Die Bedienerabfertigung wird wie folgt aufgestellt. Das folgende ist in einem alleinstehendem PL-/imodul aber benennt das Modul der Bedienerbetriebs-Implementierung PL/I. 1. Erklären Sie einen Eingang für DISPTCH . Dieses läßt die HÜLSE mit dem Bediener verbinden programmieren Sie und seien Sie der Ausgangspunkt, wenn ein Bediener von einem Klienten hervorgerufen wird, folgend seinem PODINIT Anruf. 2. Erklären Sie das Modul der Bedienerimplementierung PL/I als externe Eintragung. 3. Benennen Sie PODREQ überschreiten in das REQUEST_INFO . Wenn ein Bediener durch a hervorgerufen wird Klient, die Anforderungantraginformationen wird von dieser Funktion zurückgeholt. 4. Holen Sie den Schnittstellennamen und Betriebsnamen über Anrufe zu STRGET zurück . 5. Benennen Sie das der Betriebs-Implementierung PL/I des Bedieners Modul und in die Schnittstelle überschreiten und Betriebsnamen. Das folgende Beispielcodesegment beschreibt die oben genannten Schritte. ALIGNZ: PROC; /* folgende Leitungsfreigabe die HÜLSE, in dieses Verfahrens*/ zu verbinden DISPTCH: EINTRAGUNG; dclbetrieb char(256); dcloperation_length regelte bin(31); /* das folgende ist, wo die OPIMPLEMENTIERUNGEN gehaltenes sind */ entry(char(*) des dcl CLIENTI Ext., char(*)); /* das Folgen umfaßt werden beschrieben in ' Gegenstandanforderung' oben */ %include CORBA; %include CLIENTT; %include CLIENTR;