Modellbasierte Entwicklung einer COBOL-Anwendung
Modellbasierte Entwicklung einer COBOL-Anwendung
Modellbasierte Entwicklung einer COBOL-Anwendung
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
68 Das Fallbeispiel »Kundenmappe«<br />
Module. Aus dem Modul KL2111 BeteiligteParteiBearbeiter wird im Implementierungsmodell<br />
die Datei KL2111.COB. Listing 4-2 zeigt, welcher Quelltext aus der<br />
Komposition zwischen dem Modul und der Copystrecke im Designmodell entstanden<br />
ist. Zusätzlich wird der Quelltext dargestellt, der aus der Assoziation zwischen dem<br />
Modul und der indizierten Datei abgeleitet werden kann.<br />
Die Komposition zur Copystrecke BeteiligteParteiRecord bedeutet, dass die Datenstruktur<br />
im Arbeitsspeicher des Moduls liegt. Deshalb wird die Datenstruktur in der<br />
working-storage section definiert. Da es sich bei der Datenstruktur um eine Copystrecke<br />
handelt, wird die copy-Anweisung verwendet. Es sollte darauf geachtet<br />
werden, dass mit Hilfe der replacing-Klausel die Rolle der Datenstruktur vor die<br />
Felder gesetzt wird. Das ist besonders hilfreich, wenn ein Modul mehrmals dieselbe<br />
Datenstruktur verwendet.<br />
Listing 4-2 Quelltext aus der Moduldatei KL2111.COB<br />
IDENTIFICATION DIVISION.<br />
PROGRAM-ID. KL2111.<br />
...<br />
INPUT-OUTPUT SECTION.<br />
FILE-CONTROL.<br />
SELECT BP-DATEI<br />
ASSIGN TO "beteiligtepartei.dat"<br />
ORGANIZATION IS INDEXED<br />
RECORD KEY IS FD-BETEILIGTE-PARTEI-NUMMER<br />
...<br />
DATA DIVISION.<br />
FILE SECTION.<br />
FD BP-DATEI<br />
LABEL RECORDS ARE STANDARD.<br />
01 FD-BETEILIGTE-PARTEI-RECORD.<br />
COPY "CKL2111.CPY" REPLACING ==A:== BY ==FD-==.<br />
WORKING-STORAGE SECTION.<br />
01 DATEN-BETEILIGTE-PARTEI-RECORD.<br />
COPY "CKL2111.CPY" REPLACING ==A:== BY ==DATEN-==.<br />
...<br />
Aus dem Modul KG2110 BeteiligteParteiVerwalter wird im Implementierungsmodell<br />
die Datei KG2110.COB. Listing 4-3 zeigt, welcher Quelltext aus der Assoziation zwischen<br />
dem Modul und der Copystrecke im Designmodell entstanden ist.<br />
Die Assoziation zu der Copystrecke BeteiligteParteiRecord bedeutet, dass auf diese<br />
Datenstruktur durch eine Referenz zugegriffen wird. Diese Referenz kann entweder<br />
ein Zeiger in der working-storage section sein, oder ein Parameter in der procedure<br />
division using-Kausel. In jedem Fall muss die Datenstruktur in der linkage<br />
section definiert werden. Auch hier wird die copy-Anweisung verwendet. Es ist