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-Sprachbeschreibung“ [1]).

Beispiel 14-6

IDENTIFICATION DIVISION.
...
SPECIAL-NAMES.
  ARGUMENT-NUMBER IS NO-OF-CMD-ARGUMENTS
  ARGUMENT-VALUE IS CMD-ARGUMENT
...
WORKING-STORAGE SECTION.
01 I PIC 99 VALUE 0.
01 J PIC 99 VALUE 0.
01 A PIC X(5) VALUE ALL "x".
...
PROCEDURE DIVISION.
...
  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 ":"
...

Programmaufruf

a.out AAAA BBB CC D

Ablaufprotokoll

no. of command arguments=4
cmdargument-1<AAAA >
cmdargument-2<BBB  >
cmdargument-3<CC   >
cmdargument-4<D    >
argument-2:BBB  :