LPG_CREPL

Create a new NDF placeholder via the parameter system

Description:

This routine should be called in place of NDF_CREPL within applications that process lists of NDFs.

On the first invocation of the application, a group of names for some new NDFs will be obtained from the environment using the specified parameter. The first name will be used to create an NDF placeholder with the requested attributes, and an identifier for the placeholder will be returned. If more than one name 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 another placeholder with the next name in the group supplied on the first invocation.

If a modification element is included in the group expression supplied for the parameter on the first invocation of the application, the placeholder are based on the names of the first group of existing data files (NDFs or catalogues) to be accessed by the application.

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

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_CREPL( PARAM, PLACE, STATUS )

Arguments

PARAM = CHARACTER ∗ ( ∗ ) (Given)
Name of the parameter.
PLACE = INTEGER (Returned)
NDF placeholder identifying the nominated position in the data system.
STATUS = INTEGER (Given and Returned)
The global status.