KPG1_DEBUG

Determines whether the specified package should report debug diagnostics

Description:

This routine returns a logical flag indicating if a specified applications package should report debug diagnostics. This is the case if the environment variable <PACK >_DEBUG is defined (the value assigned to the environment variable is immaterial).

Invocation

CALL KPG1_DEBUG( VERB, PACK, STATUS )

Arguments

DEBUG = LOGICAL (Returned)
Should the package run in debug mode? Returned .FALSE, if an error has already occurred, or if this routine should fail for any reason.
PACK = CHARACTER ∗ ( ∗ ) (Given)
The name of the package (e.g. " KAPPA" , " POLPACK" ).
STATUS = INTEGER (Given and Returned)
The global status.

Notes: