* 
* 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). 
*