Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch Seite 328

Verarbeiten von POSIX-Dateien
Beispiel 14-7
für gemischte Dateiverarbeitung
COBOL-Übersetzungseinheit:
...
FILE-CONTROL.
SELECT POSFILE ASSIGN TO "CUST1"
SELECT BS2FILE ASSIGN TO "CUST2"
...
Zuweisung der POSIX-Datei vor Aufruf des Programms:
/SET-VAR SYSIOL-CUST1='*POSIX(/USERIDXY/customers/cust1)'
Zuweisung der BS2000-Datei vor Aufruf des Programms:
/ADD-FILE-LINK CUST2,CUST.FILE
328
COBOL2000 und POSIX
U41113-J-Z125-6