The VMSSTATUS function returns the underlying OpenVMS condition code  when
  control is transferred to a BASIC error handler.

  Example

  HANDLER global_handler
        final_status% = VMSSTATUS
  END HANDLER