
{Define the identifier that defines the caller of a program.

  TYPE
    ost$caller_identifier = packed record
      undefined: 0 .. 3,
      global_key: ost$key_lock_value,
      undefined2: 0 .. 3,
      local_key: ost$key_lock_value,
      ring: ost$ring,
      segnum: ost$segment,
    recend;

*copyc OSD$VIRTUAL_ADDRESS
