Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch Seite 299

Programmverknüpfungen
b) Umwandeln der Objektmodule in einzelne Bindelademodule
/START-PROGRAM $BINDER
...
//START-LLM-CREATION INTERNAL-NAME=MAINPROG
//INCLUDE-MODULES LIB=BENUTZER-PROGRAMME,ELEM=MAINPROG
//SAVE-LLM LIB=MODULE.LLM
...
//START-LLM-CREATION INTERNAL-NAME=UPROG1
//INCLUDE-MODULES LIB=BENUTZER-PROGRAMME,ELEM=UPROG1
//SAVE-LLM LIB=MODULE.LLM,ENTRY-POINT=UPROG1
...
//START-LLM-CREATION INTERNAL-NAME=UNTER2
//INCLUDE-MODULES LIB=BENUTZER-PROGRAMME,ELEM=UPROG2
//SAVE-LLM LIB=MODULE.LLM,ENTRY-POINT=UPROG2
...
//START-LLM-CREATION INTERNAL-NAME=UPROG3
//INCLUDE-MODULES LIB=BENUTZER-PROGRAMME,ELEM=UPROG3
//SAVE-LLM LIB=MODULE.LLM
//END
...
/ADD-FILE-LINK BLSLIB00,$.SYSLNK.CRTE —————————————————————————————————— (5)
/ADD-FILE-LINK COBOBJCT,MODULE.LLM ————————————————————————————————————— (6)
/START-PROGRAM *MODULE(LIB=MODULE.LLM,ELEM=MAINPROG,-
/RUN-MODE=ADVANCED(ALT-LIB=YES,UNRES-EXT=DELAY,-
/LOAD-INFO=REFERENCES))
(1)
(2)
(3)
(4)
(5)
U41113-J-Z125-6
Erzeugen eines LLM namens MAINPROG; der Name des LLM ist frei wählbar. Ein-
binden des Objektmoduls MAINPROG aus der Bibliothek
BENUTZER-PROGRAMME. Da im SAVE-LLM-Kommando der Elementname
weggelassen ist, gilt als Elementname die Angabe aus dem START-LLM-CREATI-
ON-Kommando, nämlich MAINPROG.
Erzeugen eines LLM namens UPROG1. Einbinden des Objektmoduls UPROG1
aus der Bibliothek BENUTZER-PROGRAMME. Mit ENTRY-POINT=UPROG1 ist
dieser LLM als Unterprogramm definiert.
Erzeugen eines LLM namens UNTER2. Einbinden des Objektmoduls UPROG2
aus der Bibliothek BENUTZER-PROGRAMME. Mit ENTRY-POINT=UPROG2 ist
dieser LLM als Unterprogramm definiert.
Erzeugen eines LLM namens UPROG3. Einbinden des Objektmoduls UPROG3
aus der Bibliothek BENUTZER-PROGRAMME. Da im SAVE-LLM-Kommando kein
ENTRY-POINT angegeben ist, kann UPROG3 sowohl als Unterprogramm als auch
als Hauptprogramm verwendet werden.
Zuweisen der Laufzeitbibliothek
Binden und Laden von Unterprogrammen
———————————————— (7)
——————
(1)
———————
(2)
———————
(3)
———————
(4)
299