Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch Seite 31

... zum ablauffähigen Programm
Beispiel 2-5
Eingabe mehrerer COPY-Elemente aus verschiedenen Bibliotheken
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG1.
...
COPY A1.
COPY B1.
COPY D1.
...
Zuweisung und Verknüpfung:
/ASSIGN-SYSDTA BEISPIEL2
/ADD-FILE-LINK COBLIB,A
/ADD-FILE-LINK COBLIB1,B
/ADD-FILE-LINK COBLIB3,D
Compileraufruf
Die Übersetzungseinheit BEISPIEL2 enthält folgende COPY-Anweisungen:
(1)
(2)
(3)
(4)
U41113-J-Z125-6
————————————————————————————————————————————————
—————————————————————————————————————————————————————— (4)
A1, B1, D1 sind die Namen der COPY-Elemente, unter denen sie in den katalogi-
sierten Bibliotheken A, B, D gespeichert sind.
SYSDTA wird der katalogisierten Datei BEISPIEL2 zugewiesen. Von dort erhält der
Compiler die Übersetzungseinheit, in der drei COPY-Anweisungen stehen.
Die Bibliotheken A, B und D werden zugewiesen und mit den Standard-Linknamen
verknüpft. Dabei muss der Standard-Linkname COBLIB stets zugewiesen werden,
während die Verknüpfung mit COBLIB1 bis COBLIB9 in Anzahl und Reihenfolge
beliebig ist.
Nach dem Aufruf durchsucht der Compiler COBLIB, COBLIB1 und COBLIB3 in die-
ser Reihenfolge nach den in den COPY-Anweisungen genannten Elementen.
————————————————————————————————————————————— (2)
—————————————————————————————————————————— (3)
Quelldaten-Eingabe
(1)
31