COBOL, das Den Spezifischen COBOLCBediener Der Art Abbildet Juni 1999 Abbildet 1-69 1 Die Adresse eines Bediensteten wird zur initfunktion geführt, bevor der Bedienstete ist mit dem POA in jeder Hinsicht aktiviert werden oder registriert werden dürfen. Die Resultate des Ausfallens zu initialisieren Sie richtig einen Bediensteten über die passende initfunktion, bevor Sie sie registrieren oder erlaubend, daß sie seiend Sie Implementierung-spezifisch, aber könnte Gedächtnis umfassen aktiviert wird Zugriffsfehler, die abbrechen konnten die Anwendung. 1,25,7 AnwendungscBedienstete Es wird erwartet, daß Anwendungen ihre eigenen Bedienstetstrukturen verursachen, damit sie können fügen Sie ihre eigenen Bedienstet-spezifischen Datenmitglieder Speichergegenstandzustand hinzu. Für den Kostenzähler das Beispiel, das oben, ein Anwendungsbediensteter gezeigt wurde, würde vermutlich ein Datenmitglied haben verwendete, den Gegenwert zu speichern: 01 APPSERVANT IST TYPEDEF. UNTERSEITE 03 SCHREIBEN Sie Pao-Kostenzähler. WERT 03 SCHREIBEN Sie Corba-langes. Die Anwendung konnte die folgende Implementierung des Counter::add enthalten Betrieb: KENNZEICHNUNGSTEIL. PROGRAMM Identifikation APP-Bedienstet-fügen Hinzu. ... GESTÄNGECAbschnitt. 01 A-appservanttype APPSERVANT. ... PROZEDURTEILCVerwenden A-appservant Ein-corba-lang A-corba-env Ein-corba-lang-ATR FÜGEN Sie Ein-corba-langes WERT IN A-appservant Hinzu VERSCHIEBEN Sie WERT IN A-appservant AUF Ein-corba-lang-ATR NEHMEN SIE PROGRAMM HERAUS Die Anwendung könnte den Bediensteten dynamisch initialisieren, wie folgt: KAPUTEL "ARBEITSSPEICHER". Unterseite-epv 01 SCHREIBEN Sie Portableserver-servantbase-epv. Kostenzähler-epv 01 SCHREIBEN Sie Poa-Kostenzähler-epv. Kostenzähler-vepv 01 SCHREIBEN Sie Poa-Kostenzähler-vepv. Mein-Unterseite 01 SCHREIBEN Sie Poa-Kostenzähler. Mein-Bediensteter 01 SCHREIBEN SIE APPSERVANT. ... * 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 AUF EINTRAGUNG "Mein-fallenSie" Zurück ...