Description:
This
routine gets a locator to a component of a specified structure or, if the component is
a reference object, it gets a locator to the object referenced. Any locator obtained in this
way should be annulled, when finished with, by REF_ANNUL so that the top-level
object will also be closed if the locator was obtained via a reference.
Invocation
CALL
REF_FIND( ELOC, CNAME, MODE, LOC, STATUS )
Arguments
ELOC = CHARACTER
(
) (Given)
The locator of a structure.
CNAME = CHARACTER
(
)
(Given)
The name of the component of the specified structure.
MODE = CHARACTER
(
) (Given)
Mode of access required to the object. (’READ’, ’WRITE’ or ’UPDATE’). This is specified so that the
container file of any referenced object can be opened in the correct mode.
LOC = CHARACTER
(
DAT__SZLOC ) (Returned)
A locator associated with the object found.
STATUS = INTEGER (given
and Returned)
Inherited global status.