Schnittstelle COBOL-Programm – BS2000
8.4 Zugriff auf eine Umgebungsvariable
Auf eine Umgebungsvariable kann mit ACCEPT- bzw. DISPLAY-Anweisungen zugegriffen
werden.
Der Name der Umgebungsvariablen wird mit Format 4 der DISPLAY-Anweisung festgelegt.
Um auf den Inhalt der Umgebungsvariablen zuzugreifen, benötigt man Format 5 der
ACCEPT-Anweisung.
Auf Systemebene muss die Umgebungsvariable mit einer S-Variablen eingerichtet werden.
Beispiel 8-5
Zugriff auf eine Umgebungsvariable
/SET-VAR TSTENV='AAAA BBB CC D'
/START-PROGRAM ...
Programmausschnitt:
IDENTIFICATION DIVISION.
...
SPECIAL-NAMES.
ENVIRONMENT-NAME IS ENV-NAME
ENVIRONMENT-VALUE IS ENV-VAR
TERMINAL IS T
...
WORKING-STORAGE SECTION.
01
A
...
PROCEDURE DIVISION.
...
DISPLAY "TSTENV" UPON ENV-NAME
ACCEPT A FROM ENV-VAR
ON EXCEPTION DISPLAY "ACCESS TO VARIABLE 'TSTENV' FAILED!" UPON T
NOT ON EXCEPTION DISPLAY "VALUE IS:" A UPON T
END-ACCEPT
Die Ausnahmebedingung tritt bei jedem fehlerhaften Zugriff ein. Ursachen für einen fehler-
haften Zugriff können z.B. sein:
–
fehlendes SET-VAR-Kommando
–
Inhalt der Variablen ist länger als das Empfangsfeld
U41113-J-Z125-6
PIC X(15).
END-DISPLAY
END-DISPLAY
Umgebungsvariable
171