Modellbasierte Entwicklung einer COBOL-Anwendung

Implementierungsmodell 69
zu beachten, dass aus der Schreibweise der Rolle dzDaten in COBOL die Schreibweise
dz-daten wird.
Listing 4-3 Quelltext aus der Moduldatei KG2110.COB
IDENTIFICATION DIVISION.
PROGRAM-ID. KG2110.
...
LINKAGE SECTION.
01 DZ-DATEN-BETEILIGTE-PARTEI-RECORD.
COPY "CKL2111.CPY" REPLACING ==A:== BY ==DZ-DATEN-==.
...
Abbildung der Schnittstelle. Um eine Schnittstelle in Quelltext abzubilden, wird
der Nutzer der Schnittstelle vom Anbieter der Schnittstelle getrennt. Im Fallbeispiel
ist das Modul KL2111 BeteiligteParteiBearbeiter Anbieter der Schnittstelle
BeteiligteParteiBearbeiter und das Modul KG2110 BeteiligteParteiVerwalter Nutzer
der Schnittstelle. Der Name der Schnittstelle wurde im Quelltext auf bpbearbeiter
gekürzt; an kennzeichnet die Felder des Anbieters; nu kennzeichnet die
Felder des Nutzers.
Listing 4-4 zeigt den Quelltext des Anbieters der Schnittstelle. Zuerst werden in der
linkage section die Argumente definiert. Der Zeiger an-args-pointer zeigt auf die
Datenstruktur der Argumente der aufgerufenen Operation. Welche Operation ausgeführt
werden soll, steht im Feld an-bp-bearbeiter-operation. Die Datenstruktur
an-bp-bearbeiter-lese-args definiert die Argumente, die für die Operation lese
übergeben werden. In der using-Klausel werden die Parameter, die zur Laufzeit die
Argumente enthalten, spezifiziert. Mit dem evaluate-Block wird dann abhängig von
der aufgerufenen Operation die richtige Datenstruktur über das Argument gelegt.
Listing 4-5 zeigt den Quelltext des Nutzers der Schnittstelle. Hier ist die Definition
der Argumente in der working-storage section. In der procedure division wird
zuerst die Operation spezifiziert, welche das Modul aufrufen möchte, dann der Zeiger
der Argumente auf die Datenstruktur gesetzt, welche die Argumente enthält. Schließlich
kann das Modul mit den Argumenten aufgerufen werden.