DAT_TYPE - Enquire object type

Description:

Enquire the type of an object.

Invocation:

CALL DAT_TYPE( LOC, TYPE, STATUS )

Arguments:

LOC = CHARACTER * ( DAT__SZLOC ) (Given)

Object locator.

TYPE = CHARACTER * ( DAT__SZTYP ) (Returned)

Data type.

STATUS = INTEGER (Given and Returned)

The global status.