Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch Seite 175

Schnittstelle COBOL-Programm – BS2000
Beispiel 8-6
Datenstrukturen für die Übernahme von Compiler- und Betriebssystem-Informatio-
nen durch die ACCEPT-Anweisung
*
01
*
01
*
01
*
01
*
01
U41113-J-Z125-6
COMPILER-INFORMATION.
02 COMPILER-NAME
02 COMPILER-VERSION
02 UEBERSETZUNGS-DATUM
02 UEBERSETZUNGS-ZEIT
02 PROGRAMM-NAME
CPU-ZEIT-IN-SEKUNDEN
PROZESS-INFORMATION.
02 PROZESS-ART
88 BATCH-PROZESS
88 DIALOG-PROZESS
02 PROZESS-FOLGENUMMER
02 BENUTZERKENNUNG
02 ABRECHNUNGSNUMMER
02 PRIVILEGIERUNGSKENNZEICHEN
88 SYSTEMVERWALTER
88 BENUTZER
02 BETRIEBSSYSTEMVERSION
02 PROZESSORNAME
02 SYSTEMVERWALTER-PRIVILEGIEN
TERMINAL-INFORMATION.
02 STATIONS-NAME
02 ZEICHEN-PRO-ZEILE
02 ZEILEN-PRO-SCHIRM
02 ZEICHEN-PRO-SCHIRM
02 GERAETE-TYP
AKTUELLES-DATUM.
05 JAHR
05 FILLER
05 MONAT
05 FILLER
05 TAG
05 TAG-DES-JAHRES
05 FILLER
Compiler- und Betriebssysteminformationen
PIC X(10).
PIC X(10).
PIC X(10).
PIC X(8).
PIC X(30).
PIC 9(6)V9(4).
PIC X.
PIC X(4).
PIC X(8).
PIC X(8).
PIC X.
PIC X(10).
PIC X(8).
PIC X(80).
PIC X(8).
PIC 9(5).
PIC 9(5).
PIC 9(5).
PIC X(4).
PIC X(4).
PIC X.
PIC X(2).
PIC X.
PIC X(2).
PIC X(3).
PIC X.
VALUE "B".
VALUE "D".
VALUE "S".
VALUE "U".
175