/*START OF RxGetEnv-------------------------------------Version-01.00-*/
/*:RxGetEnv() function - returns the value of an environment variable */
/* Example: path = RxGetEnv('PATH')                                   */
/*--------------------------------------------------------------------*/
RxGetEnv: PROCEDURE EXPOSE gbl. __environment.
PARSE UPPER SOURCE src +3 . _type .
  SELECT
  WHEN src = 'NT ' THEN
    RETURN VALUE(ARG(1),,'DOSENVIRONMENT')
  WHEN src = 'WIN' THEN
    RETURN VALUE(ARG(1),,'ENVIRONMENT')
  WHEN src = 'TSO' THEN
    DO
    IF SYMBOL('__environment.0') = 'VAR' THEN
      DO i = 1 to __environment.0
      PARSE VAR __environment.i name "=" value
      IF TRANSLATE(name) = TRANSLATE(ARG(1))
      THEN RETURN value
      END i
    RETURN ''
    END
  OTHERWISE
    SAY 'Unsupported environment 2:' src
  END
RETURN ''
/*END OF RxGetEnv-----------------------------------------------------*/