Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch Seite 156

Systemdateien
–
Die Anweisungen ACCEPT, DISPLAY und STOP literal der PROCEDURE DIVISION:
●
Sie greifen auf Systemdateien bzw. auf den Bedienplatz zu, wobei im einzelnen gilt:
–
–
156
für die Ausgabedateien
SYSOUT mit TERMINAL IS merkname
SYSLST mit PRINTER IS merkname
SYSLSTnn mit PRINTERnn IS merkname (nn = 01...99)
SYSOPT mit SYSOPT IS merkname
ACCEPT...FROM merkname
liest aus der (im SPECIAL-NAMES-Paragrafen) mit merkname verknüpften
Eingabedatei.
Die Daten werden dabei linksbündig in der Länge des Empfangsfeldes der
ACCEPT-Anweisung übertragen:
Ist das Feld länger als der zu übertragende Wert, wird es am rechten Ende mit Leer-
zeichen aufgefüllt; ist es kürzer, wird der Wert bei der Übertragung rechts auf die
Feldlänge abgeschnitten.
Hat die Eingabedatei das Satzformat F (Sätze fester Länge, siehe
temdateien: Primärzuweisungen, Umweisungen, Satzformate" auf Seite
gilt außerdem:
Ist die Länge des Empfangsfeldes der ACCEPT-Anweisung größer als die logische
Satzlänge der Systemdatei, werden automatisch Daten nachgefordert, d.h. weitere
Leseoperationen (Makroaufrufe) veranlasst.
Erkennt das Programm beim Lesen der Systemdatei das Dateiende, gibt es die
Meldung COB9121 bzw. COB9122 aus.
Abhängig vom COMOPT-Operanden CONTINUE-AFTER-MESSAGE bzw.
ERROR-REACTION in der RUNTIME-OPTIONS-Option (SDF) wird der
Programmablauf anschließend fortgesetzt (Voreinstellung) oder beendet.
Bei Fortsetzung des Programmablaufs wird im Empfangsfeld auf den ersten zwei
Positionen die Zeichenfolge „/*" abgelegt (bzw. „/", wenn das Empfangsfeld nur
1 Zeichen lang ist) und mit der auf ACCEPT folgenden Anweisung fortgefahren.
ACCEPT (ohne FROM-Angabe)
liest standardmäßig aus der Systemeingabedatei SYSIPT.
Mit COMOPT REDIRECT-ACCEPT-DISPLAY=YES bzw.
ACCEPT-DISPLAY-ASSGN=*TERMINAL in der SDF-Option RUNTIME-OPTIONS
kann auf die Systemdatei SYSDTA umgewiesen werden.
Schnittstelle COBOL-Programm – BS2000
Abschnitt „Sys-
158), so
U41113-J-Z125-6