
  PROCEDURE [INLINE] iip$check_if_status (VAR status: ost$status);

    status.normal := TRUE;

    IF jmv$terminal_io_disabled THEN
      osp$set_status_abnormal ('JM', jme$job_is_in_termination, '',status);
      RETURN;
    IFEND;

    IF NOT pmp$ts_task_io_enabled () THEN
      osp$set_status_abnormal (ifc$interactive_facility_id,
            ife$pause_break_received, '', status);
    IFEND;

    IF iiv$job_suspended THEN
      osp$set_status_abnormal (ifc$interactive_facility_id,
            ife$connection_break_disconnect, '', status);
      RETURN;
    IFEND;

  PROCEND iip$check_if_status;
?? PUSH (LISTEXT := OFF) ??
*copyc OST$STATUS
*copyc IIV$INTERACTIVE_TERMINATED
*copyc IIV$INT_TASK_OPEN_FILE_COUNT
*copyc jmv$terminal_io_disabled
*copyc ift$title_for_error_codes
*copyc jme$queued_file_conditions
*copyc ife$error_codes
*copyc OSP$SET_STATUS_ABNORMAL
*copyc pmp$ts_task_io_enabled
?? POP ??
