1-46 COBOLCSprache, die Aktualisierten Juni 1999 Abbildet 1 03 M ABBILDUNG S9(05) BINÄR. RESULTAT 03 ABBILDUNG S9(10) BINÄR. Der COBOLCODE zum Zugänglich machen dieser Parameterliste würde sein, wie folgt: Foo-Stab-Implementierung. ANRUF "COAGET" Foo-Stab-args VERWENDEND ANZEIGE "N =" N BEWEGUNG N BIS M BEWEGUNG 216 RESULTIEREN ANRUF "COAPUT" Foo-Stab-args VERWENDEND. Dieses bringt den Wert von n zurück zurück zu dem Klienten im m Argument und sendet auch Resultatsrückseite als der wörtliche Wert 216. 1,20,4 COAINIT Zusammenfassung Initialisiert eine COBOLGEGENSTANDIMPLEMENTIERUNG. COAINIT(IN < PIC X > Bediener-Kennzeichnung, IN nicht unterzeichnetem langem Bediener-Kennzeichnung-Länge) Beschreibung COAINIT wird verwendet, um das ORB mitzuteilen, daß ein Bediener bereit ist Anträge, zu empfangen zu beginnen. Der Bedienerbezeichner wird in diesen Anruf, zusammen mit seiner Länge geführt. Merken Sie, daß der Bedienerbezeichner Schachtel-empfindlich ist. Wenn keine vorhergehende Schnittstelle mit einem ORBREG-Anruf registriert worden ist, das COAINIT Anruf wirft eine CORBA-Ausnahme auf. Beispiel Bediener-Kennzeichnung 01 WERT "Beispiel" PIC X(7). Bediener-Kennzeichnung-lth 01 PIC 9(9) BINÄR. . . . PROZEDURTEIL. . . . VERSCHIEBEN Sie LÄNGE VON Bediener-Kennzeichnung AUF Bediener-Kennzeichnung-lth BENENNEN SIE "VERWENDENDES COAINIT" Bediener-Kennzeichnung Bediener-Kennzeichnung-lth