Processing math: 100%

LPG_PROP

Propagate NDF information to create a new NDF via the parameter system

Description:

This routine should be called in place of NDF_PROP within applications that process groups 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 by propagation from INDF1, and an identifier for the new NDF 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 a new NDF 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 new NDF names 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 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_PROP( INDF1, CLIST, PARAM, INDF2, STATUS )

Arguments

INDF1 = INTEGER (Given)
Identifier for an existing NDF (or NDF section) to act as a template.
CLIST = CHARACTER ( ) (Given)
A comma-separated list of the NDF components which are to be propagated to the new data structure. By default, the HISTORY, LABEL and TITLE components and all extensions are propagated. See the "Component Propagation" section in the documentation for routine NDF_PROP within SUN/33 for further details.
PARAM = CHARACTER ( ) (Given)
Name of the parameter for the new NDF.
INDF2 = INTEGER (Returned)
Identifier for the new NDF.
STATUS = INTEGER (Given and Returned)
The global status.