Store an HDS locator in an ADI object. If the null HDS locator is
passed, then the output is the null ADI object, NOT an wrapped up
copy of the null locator.
Arguments
LOC = CHARACTER*(DAT__SZLOC) (given)
HDS locator
ID = INTEGER (returned)
ADI identifier
STATUS = INTEGER (given and returned)
The global status.