COBOL, das Den Spezifischen COBOLCBediener Der Art Abbildet Juni 1999 Abbildet 1-75 1 ... Ende-Programm. KENNZEICHNUNGSTEIL. PROGRAMM Identifikation Mein-my-prim-intf-intf. ... PROZEDURTEILCVerwenden Ein-portableserver-Bediensteter A-portableserver-objectid A-portableserver-poa Ein-corba-Klima Ein-corba-repositoryid-ATR ... Ende-Programm. /* Anwendungsspezifisches DSI-BEDIENSTET-ART*/ 01 MYDSISERVANT IST TYPEDEF. 03 BASETYPE Poa-dynamicimpl. .... < ANDERE SPEZIFISCHE DATENELEMENTE DER ANWENDUNG > .... Unterseite-epv 01 SCHREIBEN Sie Portableserver-servantbase-epv. 01 Dynamicimpl-epv SCHREIBEN Sie Portableserver-dynamicimpl-epv. 01 Dynamicimpl-vepv ART Portableserver-dynamicimpl-vepv. Mein-Bediensteter 01 SCHREIBEN SIE MYDSISERVANT. ... * INITIALISIEREN Sie Unterseite-epv SATZ PRIVAT In der Unterseite-epv ZUR NULL. STELLEN Sie BEENDEN In der Unterseite-epv Ein ZUR NULL. GESETZT FallenSie In der Unterseite-epv Zurück ZUR NULL. ... * INITIALISIEREN Sie Dynamicimpl-epv SATZ PRIVAT IN Dynamicimpl-epv ZUR NULL. STELLEN Sie HERVORRUFEN IN Dynamicimpl-epv Ein ZUR EINTRAGUNG "Mein-rufen Sie" Hervor. STELLEN Sie Primär-Schnittstelle IN Dynamicimpl-epv Ein ZUR EINTRAGUNG "Mein-my-prim-intf-intf". ... * INITIALISIEREN Sie Dynamicimpl-vepv STELLEN Sie Unterseite-epv IN Dynamicimpl-vepv Ein ZUR ADRESSE Der Unterseite-epv. STELLEN Sie Portableserver-dynamicimpl-epv IN Dynamicimpl-vepv Ein ZUR ADRESSE VON Dynamicimpl-epv. ... * INITIALISIEREN Sie Mein-Bediensteten SATZ PRIVAT IN DER UNTERSEITE Im Mein-Bediensteten ZUR NULL. STELLEN Sie VEPV IN DER UNTERSEITE Im Mein-Bediensteten Ein. ZUR ADRESSE VON Dynamicimpl-vepv. ....