37 lines
1.2 KiB
COBOL
37 lines
1.2 KiB
COBOL
* Note:
|
|
* Since 'DEPENDING ON' clause is currently not supported,
|
|
* this copybook will not work. Use CMDLine1.cpy.
|
|
*
|
|
* 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 255.
|
|
05 FILLER PIC X(01) VALUE ' '.
|
|
05 CMDLINE-VALUES.
|
|
07 CMDLINE-ARG
|
|
OCCURS 1 TO 255 TIMES DEPENDING ON CMDLINE-ARGC-NUMBER.
|
|
09 CMDLINE-ARGV PIC X(255).
|
|
*
|