36 lines
1.0 KiB
COBOL
36 lines
1.0 KiB
COBOL
*
|
|
* Get environment variable paramaters
|
|
* cmd: ACCEPT ENVAR-PARM FROM ENVIRONMENT-VARIABLES
|
|
*
|
|
* ENVAR-ERROR:
|
|
* Returns zero of non zero depending if an error has occured.
|
|
* Return codes:
|
|
* 0 = no errors detected ( environment variable found )
|
|
* 1 = no environment variable found
|
|
* 2 = environment variable found, but length > ENVAR-VAR-MAX-LENGTH.
|
|
* 100 = misc. run time errors
|
|
*
|
|
* ENVAR-NAME-MAX-LENGTH:
|
|
* Max length of environment name.
|
|
*
|
|
* ENVAR-VAR-MAX-LENGTH:
|
|
* Max length of environment variable.
|
|
*
|
|
* ENVAR-NAME:
|
|
* Environment name string.
|
|
*
|
|
* ENVAR-VAR:
|
|
* Environment variable string.
|
|
*
|
|
01 ENVAR-PARM.
|
|
05 ENVAR-ERROR PIC 9(04) VALUE 0.
|
|
05 FILLER PIC X(01) VALUE ' '.
|
|
05 ENVAR-NAME-MAX-LENGTH PIC 9(04) VALUE 50.
|
|
05 FILLER PIC X(01) VALUE ' '.
|
|
05 ENVAR-VAR-MAX-LENGTH PIC 9(04) VALUE 255.
|
|
05 FILLER PIC X(01) VALUE ' '.
|
|
05 ENVAR-VALUES.
|
|
07 ENVAR-NAME PIC X(50).
|
|
07 ENVAR-VARIABLE PIC X(255).
|
|
*
|