Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch Seite 204

Sequenzielle Dateien
Beispiel 9-6
Erzeugen einer zeilensequenziellen Datei in einem Bibliothekselement
Einträge in der COBOL-Übersetzungseinheit:
...
FILE-CONTROL.
SELECT AFILE ASSIGN TO "LIBELEM"
ORGANIZATION IS LINE SEQUENTIAL
...
PROCEDURE DIVISION.
...
OPEN OUTPUT AFILE.
...
Zuweisung von Bibliothek und Element vor Aufruf des Programms:
/SET-VAR SYSIOL-LIBELEM='*LIBRARY-ELEMENT(CUST.LIB,MEYER,S)'
i
204
1. Das SET-VARIABLE-Kommando kann in eine BS2000-Prozedur eingefügt wer-
den, sofern es sich dabei um eine strukturierte SDF-P-Prozedur handelt. Die
Gestaltung einer strukturierten Prozedur ist im Benutzerhandbuch zu SDF-P
[26] beschrieben.
2. Die Angaben im SET-VARIABLE-Kommando innerhalb der 'Hochkommata'
sind ausnahmslos in Groß-Buchstaben zu schreiben.
Dateiverarbeitung
U41113-J-Z125-6