This creates a reference to a data object in the database. The argument can be either an HDS locator or any character string reference. If the string is a valid HDS locator then a reference is constructed to point to the relevant object, otherwise the string is assumed to be a reference itself and is stored as supplied. The picture identifier signifies which picture to put the reference into. If this identifier is negative then the current picture is used. If a reference already exists for the given picture then an error is returned.

CALL AGI_PTREF( DATREF, PICID, STATUS )

DATREF = CHARACTER $\ast$ ( $\ast$ ) (Given)

PICID = INTEGER (Given)

STATUS = INTEGER (Given and Returned)