KPG1_ENV0x

Reads a numerical value from an environment variable

Description:

This routine reads a numerical value from a specified environment variable. No error occurs if the environment variable is not defined, or has a non-numeric value, and the supplied value is returned unchanged.

Invocation

CALL KPG1_ENV0x( VARNAM, VALUE, STATUS )

Arguments

VARNAM = CHARACTER ∗ ( ∗ ) (Given)
The environment variable to check.
VALUE = ? (Returned)
The numerical value.
STATUS = INTEGER (Given and Returned)
The global status.