Description:
This routine gets a locator to an HDS
object referenced in a reference object and links it to the group $$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.
Invocation
CALL REF_GET( ELOC, MODE, LOC, STATUS )
Arguments
ELOC = CHARACTER
∗ (
DAT__SZLOC ) (Given)
A locator associated with the reference object
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 pointing to the object referenced.
STATUS = INTEGER (Given
and Returned)
Inherited global status.