GETENV

 

Portability Subroutine: Returns the value of an environment variable.

Module

USE IFPORT

Syntax

CALL GETENV (ename,evalue)

ename

(Input) Character*(*). Environment variable to search for.

evalue

(Output) Character*(*). Value found for ename. Blank if ename is not found.

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

Example

use IFPORT

character*40 libname

CALL GETENV ("LIB",libname)

TYPE *, "The LIB variable points to ",libname

See Also