Compiler- Und Betriebssysteminformationen - Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch

Compiler- und Betriebssysteminformationen

8.5 Compiler- und Betriebssysteminformationen
COBOL-Programme können auf Informationen des Compilers und des Betriebssystems
zugreifen. Dazu gehören Informationen über
– die Übersetzung der Übersetzungseinheit
– die seit dem LOGON verbrauchte CPU-Zeit
– die Task, in der das Programm abläuft, und
– die Datenstation, von der aus das Programm aufgerufen wurde.
Den Zugriff auf diese Informationen unterstützt COBOL2000 durch folgende Sprachmittel:
Die Vereinbarung programminterner Merknamen für die einzelnen Informationsarten im
●
SPECIAL-NAMES-Paragrafen der ENVIRONMENT DIVISION:
Über diese Merknamen kann die ACCEPT-Anweisung der PROCEDURE DIVISION
auf die jeweilige Information zugreifen (siehe unten). Es können Merknamen vereinbart
werden für Informationen über
–
–
–
–
–
Die ACCEPT-Anweisung in der PROCEDURE DIVISION:
●
ACCEPT...FROM merkname
bringt die (im SPECIAL-NAMES-Paragrafen) mit merkname verknüpften Informationen
in das angegebene Empfangsfeld.
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 Leerzei-
chen aufgefüllt; ist es kürzer, wird der Wert bei der Übertragung rechts auf die Feldlän-
ge abgeschnitten. Dies gilt nicht für CPU-TIME: Dort wird immer eine adäquate nume-
rische Übertragung durchgeführt.
In welcher Länge (und ggf. mit welcher Struktur) das Empfangsfeld zu vereinbaren ist,
hängt von der Art der Information ab, die es aufnehmen soll. Die Formate der einzelnen
Informationstypen können der Zusammenstellung im folgenden Abschnitt entnommen
werden.
172
die Übersetzung mit COMPILER-INFO IS merkname
die verbrauchte CPU-Zeit mit CPU-TIME IS merkname
den Prozess mit PROCESS-INFO IS merkname
die Datenstation mit TERMINAL-INFO IS merkname
das Datum mit DATE-ISO4 IS merkname (mit Jahrhundert)
Schnittstelle COBOL-Programm – BS2000
U41113-J-Z125-6