Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch Seite 208

Sequenzielle Dateien
Damit beliebige sedezimale Werte (und damit auch nicht abdruckbare Vorschubsteuerzei-
chen) in der COBOL-Übersetzungseinheit angesprochen werden können, gestattet es der
SPECIAL-NAMES-Paragraf der ENVIRONMENT DIVISION, ihnen symbolische Namen
zuzuordnen (siehe Handbuch „COBOL2000-Sprachbeschreibung" [1]). Das folgende Bei-
spiel veranschaulicht, wie auf diese Weise Vorschubsteuerzeichen definiert werden kön-
nen.
Beispiel 9-7
Versorgung des Steuerbytes mit einem sedezimalen Steuerzeichen
Der sedezimale Wert 0A soll in das Steuerbyte eines Drucksatzes übertragen werden, was
einen Vorschub von 10 Zeilen nach dem Drucken bewirkt.
IDENTIFICATION DIVISION.
...
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT DRUCKDATEI ASSIGN TO "AUSGABE".
CONFIGURATION SECTION.
...
SPECIAL-NAMES.
...
SYMBOLIC CHARACTERS HEX-0A IS 11. —————————————————————————————————— (1)
...
DATA DIVISION.
FILE SECTION.
FD DRUCKER-DATEI
...
01 DRUCK-SATZ.
02 STEUERBYTE
02 DRUCK-ZEILE
...
PROCEDURE DIVISION.
...
MOVE "INHALT" TO DRUCK-ZEILE.
MOVE HEX-0A TO STEUERBYTE. ————————————————————————————————————————— (2)
WRITE DRUCK-SATZ.
...
(1)
(2)
208
Dem elften Zeichen des EBCDI-Codes - es entspricht dem sedezimalen Wert 0A -
wird der symbolische Name HEX-0A zugeordnet.
Die MOVE-Anweisung bezieht sich auf diesen symbolischen Namen, um den
sedezimalen Wert 0A in das Steuerbyte zu übertragen.
PIC X.
PIC X(132).
Dateiverarbeitung
U41113-J-Z125-6