LPG_ASSOC

Obtain an identifier for an existing NDF via the parameter system

Description:

This routine should be called in place of NDF_ASSOC within applications that process groups of NDFs.

On the first invocation of the application, a group of names of existing NDFs will be obtained from the environment using the specified parameter, and an NDF identifier for the first one will be returned. If more than one NDF was supplied for the parameter then the application may be invoked again (see LPG_AGAIN), in which case this routine will return an identifier for the next NDF in the group supplied on the first invocation.

If an application attempts to get a new NDF by cancelling the parameter (PAR_CANCL), the returned NDF is NOT the next one in the group, but is obtained by prompting the user for a single NDF.

The monolith routine should arrange to invoke the application repeatedly until one or more of its NDF parameters have been exhausted (i.e. all its values used). See LPG_AGAIN.

Invocation

CALL LPG_ASSOC( PARAM, MODE, INDF, STATUS )

Arguments

PARAM = CHARACTER ( ) (Given)
Name of the parameter.
MODE = CHARACTER ( ) (Given)
Type of NDF access required: ’READ’, ’UPDATE’ or ’WRITE’.
INDF = INTEGER (Returned)
NDF identifier.
STATUS = INTEGER (Given and Returned)
The global status.