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.