Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch Seite 363

Anhang
Übersetzen eines COBOL-DML-Programms
Der COBOL2000-Compiler erzeugt aus einem COBOL-DML-Programm ein Programm-
Modul und ein Subschema-Modul. Bei der Kompilierung des Anwenderprogramms muss
der COBOL-Compiler die COSSD-Datei der betroffenen Datenbank lesen.
Dazu gibt es folgende Möglichkeiten:
1. Die COSSD-Datei wird dem COBOL-Compiler explizit zugewiesen mit dem Kommando
/ADD-FILE-LINK
/
Dabei sind :catid: und $userid die Katalogkennung und Benutzerkennung, unter
der die COSSD-Datei katalogisiert ist. Ohne die Angabe :catid: bzw. $userid wird
der Dateiname nach den Standardregeln des BS2000 komplettiert.
Die COSSD-Datei muss unter dem im Kommando angegeben Namen katalogisiert
sein, da im Fehlerfall nicht nach einer COSSD-Datei an anderer Stelle gesucht wird.
Dieses Verfahren ist zwingend erforderlich, wenn in allen Katalogen, die lokal von der
Benutzerkennung aus zugreifbar sind, mehrere COSSD-Dateien mit dem entsprechen-
den Datenbanknamen existieren.
Beispiel für eine Kommandofolge:
/ADD-FILE-LINK UDSCOSSD,dbname.COSSD
/START-PROGRAM $COBOL2000
COMOPT MODULE=modulbibliothek
END Übersetzungseinheitdatei
2. Dem COBOL-Compiler wird der Datenbankname mitgeteilt mit dem Kommando
/SET-FILE-LINK
/
Die Angabe einer :catid: beim Kommando SET-FILE-LINK wird ignoriert. Der
COBOL-Compiler sucht dann eine COSSD-Datei mit dem Namen dbname.COSSD
in allen Katalogen, die lokal von derjenigen Benutzerkennung aus zugreifbar sind, die
beim Kommando SET-FILE-LINK explizit angegeben wurde oder vom BS2000 ergänzt
wurde. Dieses Verfahren kann nur verwendet werden, wenn im genannten Katalogum-
feld nur eine COSSD-Datei mit dem entsprechenden Datenbanknamen existiert.
Beispiel für eine Kommandofolge:
/SET-FILE-LINK DATABASE,dbname
/START-PROGRAM $COBOL2000
COMOPT MODULE=modulbibliothek
END Übersetzungseinheitdatei
U41113-J-Z125-6
LINK-NAME=UDSCOSSD, -
FILE-NAME=[:catid:][$userid.]dbname.COSSD
LINK-NAME=DATABASE, -
FILE-NAME=[:catid:][$userid.]dbname
Datenbankbedienung (UDS/SQL)
363