1-70 COBOLCSprache, die Aktualisierten Juni 1999 Abbildet 1 * INITIALISIEREN Sie Kostenzähler-epv SATZ PRIVAT Im Kostenzähler-epv ZUR NULL STELLEN Sie HINZUFÜGEN Im Kostenzähler-epv Ein ZUR EINTRAGUNG "APP-Bedienstet-fügen Sie" Hinzu ... * INITIALISIEREN Sie Kostenzähler-vepv STELLEN Sie Unterseite-epv Im Kostenzähler-vepv Ein ZUR ADRESSE Der Unterseite-epv STELLEN Sie Kostenzähler-epv Im Kostenzähler-vepv Ein ZUR ADRESSE Des Kostenzählers-epv ... * INITIALISIEREN Sie Mein-Unterseite SATZ PRIVAT In der Mein-Unterseite ZUR NULL STELLEN Sie VEPV In der Mein-Unterseite Ein ZUR ADRESSE Des Kostenzählers-vepv ... * INITIALISIEREN Sie Mein-Bediensteten STELLEN Sie UNTERSEITE Im Mein-Bediensteten Ein ZUR ADRESSE Der Mein-Unterseite STELLEN Sie WERT Im Mein-Bediensteten Ein BIS 0 Bevor sie diesen Bediensteten registriert oder aktiviert, benennt die Anwendung: ANRUF "VERWENDENDER Poa-Kostenzähler-init" Mein-Bediensteter Ein-corba-Klima Wenn die Anwendung eine spezielle Zerstörungsfunktion für Meinbediensteten erfordert, stellt sie ein Wert des PortableServer-ServantBase-epv "beenden" Mitglied irgendein vor oder nach Benennen des POA-Kostenzählers-init(): STELLEN Sie BEENDEN In der Unterseite-epv Ein ZUR EINTRAGUNG "C$mein-finalizerfunktionell" Merken Sie, daß, wenn die Anwendung statisch "initialisierte," Mitglied beenden Sie, bevor Sie benennen die Bedienstetinitialisierungsfunktion, ausdrückliche Anweisung zu "beenden" Mitglied wie gezeigt hier nicht notwendig, da die Funktion PortableServer-ServantBaseInit() wird sie nicht ändern, wenn sie Nichtnull ist. 1,25,8 MethodencUnterzeichnungen Mit dem POA haben Implementierungsmethoden Unterzeichnungen, die zu den Stummeln identisch sind außer dem ersten Argument. Wenn die folgende Schnittstelle in OMG IDL definiert wird: // IDL Schnittstelle example4 { langes op5(in langes arg6); }; Ein COBOLPROGRAMM für den Betrieb op5 muß die folgende Unterzeichnung haben: