SCANENV

Portability Subroutine: Scans the environment for the value of an environment variable.

Module

USE IFPORT

CALL SCANENV (envname,envtext,envvalue)

envname

(Input) Character*(*). Contains the name of an environment variable you need to find the value for.

envtext

(Output) Character*(*). Set to the full text of the environment variable if found, or to ' ' if nothing is found.

envvalue

(Output) Character*(*). Set to the value associated with the environment variable if found or to ' ' if nothing is found.

SCANENV scans for an environment variable that matches envname and returns the value or string it is set to.