GET ENV VAR

This subroutine retrieves the contents of an environment variable. Two arguments are expected to be passed to the subroutine:

Desired environment variable (alpha field, maximum length 132)

Buffer for returned value (alpha field, maximum length 2048 or 2K)

Must be PASS'ed shared.

Returns contents of specified environment variable.

The subroutine can be invoked via SUBR or GOSUB.

The following example retrieves the contents of the PATH environment variable and stores it in a work field.

        SET      --- TEMP 132                   =      PATH
        SET      --- TEMP 2K=
        *
       PASS      --- TEMP 132                   FIELDSHARE? N
       PASS      --- TEMP 2K                    FIELD   SHARE? Y
       SUBR      --- GET ENV VAR                DETACHED END? N  FAIL 0
       *
       SET       CSY WORK PATH ENV VAR          =      --- TEMP 2K