KPG1_AGREF

Obtains a name of or a locator to an object referenced in the graphics database

Description:

This routine determines whether a given picture in the AGI graphics database has an object associated with it by reference. If it has, the name of the object or a locator to the object is returned with the desired access mode.

Invocation

CALL KPG1_AGREF( PICID, ACCESS, THERE, NAME, STATUS )

Arguments

PICID = INTEGER (Given)
The identifier of the picture with which a data object may be associated by reference.
ACCESS = CHARACTER ∗ ( ∗ ) (Given)
Access mode to the object: ’ READ’ , ’ WRITE’ or ’ UPDATE’ .
THERE = LOGICAL (Returned)
If true the picture has an associated object and the returned name is meaningful.
NAME = CHARACTER ∗ ( ∗ ) (Returned)
The name of the data object referenced by picture PICID, or a locator to that object. It should be ignored if THERE is .FALSE.. The value should be tested to see if it a locator or a name. If it is a locator, it should be annulled by REF_ANNUL. A reasonable number of characters should be allowed to accommodate a name including its path and section.
STATUS = INTEGER (Given and Returned)
The global status.

Notes:

The code is a little convoluted because of a bug in AGI_GTREF which means that a long name cannot be passed to it, if the reference is via a locator.