September 2002 PL/I, das Spezifikation Abbildet: HÜLSE-FunktionscZusammenfassung 2-45 2 Anrufpodreq(request_info); wenn check_errors('podreq ') ^ = completion_status_yes dann zurückgehen; /* holen Sie den Schnittstellennamen von Antraginformationszurück */ benennen Sie strget(interface_name, schließen Sie an, interface_length); wenn check_errors('strget ') ^ = completion_status_yes dann zurückgehen; /* holen Sie den Betriebsnamen von Antraginformationszurück */ benennen Sie strget(operation_name, Betrieb, operation_length); wenn check_errors('strget ') ^ = completion_status_yes dann zurückgehen; /* benennen Sie das Implementierungsmodul, um den Bedienercode für */ durchzuführen /* das zurückgeholte Attribut/Betriebs*/ Anruf ALIGNI(interface, operation); ENDE ALIGNZ; 2,16,2,3 BedienercBetriebs-ImplementierungscModul Dieser Abschnitt enthält die für jedes Attribut und Betrieb an durchzuführenden Tätigkeiten das interface(s) dazugehörig mit dem Bediener. Der Betriebsname und -schnittstelle werden geführt durch im Bedienerabfertigungsmodul. Die folgenden Schritte werden angefordert, um jedes durchzuführen Betrieb. 1. Verwenden ein AUSERWÄHLTES Klausel mit den Attribut-/Betriebs- und Schnittstellennamen, benennen verwenden Sie Attribut/BetriebsVor-verfahren, nachdem Sie PODGET benannt haben mit passende Argumentstruktur für das Attribut/den Betrieb. Dieses füllt IN und INOUT Werte der dazugehörigen Struktur. 2. Nachdem der Anruf durchführt, benennen Sie PODPUT Betrieb zum Marshal aus dem HERAUS und Rückkehr Werte. Das folgende Beispielcodesegment (basiert auf dem IDL gezeigt im Beispiel für ' Gegenstandanforderung ' oben) zeigt die oben genannten Schritte. CLIENTI: PROC(INTERFACE, operation); dclschnittstellenchar(*); dclbetriebschar(*); %include CORBA; %include CLIENTR; ... select(interface); when('client '); select(operation); wenn (get_client_my_client_attribute);