34 lines
1.0 KiB
COBOL
34 lines
1.0 KiB
COBOL
*
|
|
* Command line paramaters
|
|
* cmd: ACCEPT CMDLINE-PARM FROM COMMAND-LINE
|
|
*
|
|
* CMDLINE-ERROR:
|
|
* Returns zero of non zero depending if an error has occurs.
|
|
*
|
|
* CMDLINE-ARGC-NUMBER:
|
|
* Number of cmd line arguments. Equivalent to argc in C program, main(argc, argv).
|
|
*
|
|
* CMDLINE-ARGC-MAX-NUMBER:
|
|
* Max number of command line arguments.
|
|
*
|
|
* CMDLINE-ARGV-MAX-LENGTH:
|
|
* Max length of command line argument string.
|
|
*
|
|
* CMDLINE-ARGV:
|
|
* Command line argument string(s).
|
|
*
|
|
01 CMDLINE-PARM.
|
|
05 CMDLINE-ERROR PIC 9(04) VALUE 0.
|
|
05 FILLER PIC X(01) VALUE ' '.
|
|
05 CMDLINE-ARGC-NUMBER PIC 9(04) VALUE 0.
|
|
05 FILLER PIC X(01) VALUE ' '.
|
|
05 CMDLINE-ARGC-MAX-NUMBER PIC 9(04) VALUE 255.
|
|
05 FILLER PIC X(01) VALUE ' '.
|
|
05 CMDLINE-ARGV-MAX-LENGTH PIC 9(04) VALUE 50.
|
|
05 FILLER PIC X(01) VALUE ' '.
|
|
05 CMDLINE-VALUES.
|
|
07 CMDLINE-ARG OCCURS 255 TIMES.
|
|
09 CMDLINE-ARGV PIC X(50).
|
|
* 09 CMDLINE-ARGV PIC X(255).
|
|
*
|