LOC

 LOC (arg)

 Class:  Inquiry function - Generic

 Returns the internal address of a storage item.

 The argument can be a variable, an array or record field reference,
 a procedure, or a constant; it can be of any data type.  It must
 not be the name of an internal procedure or statement function.  If
 it is a pointer, it must be defined and associated with a target.

 The result is of type INTEGER*8.  The value of the result
 represents the address of the data object or, in the case of
 pointers, the address of its associated target.  If the argument is
 not valid, the result is undefined.

 On Open VMS systems, in the case of global symbolic constants, LOC
 returns the value of the constant rather than an address.

 The LOC intrinsic serves the same purpose as the %LOC built-in
 function.

 This function cannot be passed as an actual argument.