  PROCEDURE [INLINE] rmp$log_debug_status
    (    status: ost$status);

    VAR
      ignore_status: ost$status;

    IF (NOT status.normal) AND rmv$tape_debug_mode THEN
      osp$generate_log_message ($pmt$ascii_logset [pmc$job_log],
            status, ignore_status);
    IFEND;
  PROCEND rmp$log_debug_status;

?? PUSH (LISTEXT := ON) ??
*copyc osp$generate_log_message
*copyc rmv$tape_debug_mode
?? POP ??
