Sprachfunktionale Erweiterungen - Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch

COBOL2000 und POSIX

14.5.2 Sprachfunktionale Erweiterungen

Zugriff auf Kommandozeile
Bei Ablauf in POSIX kann vom Programm aus mittels ACCEPT-/DISPLAY-Anweisungen in
Verbindung mit den Sondernamen ARGUMENT-NUMBER und ARGUMENT-VALUE auf
die Kommandozeile zugegriffen werden (siehe Handbuch „COBOL2000-Sprachbeschrei-
bung" [1]).
Beispiel 14-6
IDENTIFICATION DIVISION.
...
SPECIAL-NAMES.
...
WORKING-STORAGE SECTION.
01
01
01
...
PROCEDURE DIVISION.
...
...
...
Programmaufruf
a.out AAAA BBB CC D
Ablaufprotokoll
no. of command arguments=4
cmd argument-1 <AAAA >
cmd argument-2 <BBB
cmd argument-3 <CC
cmd argument-4 <D
argument-2 :BBB
U41113-J-Z125-6
ARGUMENT-NUMBER IS NO-OF-CMD-ARGUMENTS
ARGUMENT-VALUE
I PIC 99
J PIC 99
A PIC X(5) VALUE ALL "x".
ACCEPT I FROM NO-OF-CMD-ARGUMENTS
DISPLAY "no. of command arguments=" I
PERFORM VARYING J FROM 1 BY 1 UNTIL J > I
ACCEPT A FROM CMD-ARGUMENT
DISPLAY "cmd argument-" J " <" A ">"
END-PERFORM
DISPLAY 2 UPON NO-OF-CMD-ARGUMENTS
ACCEPT A FROM CMD-ARGUMENT
DISPLAY "argument-2" " :" A ":"
>
>
>
:
Unterschiede zu COBOL2000 im BS2000
IS CMD-ARGUMENT
VALUE 0.
VALUE 0.
323