  PROCEDURE [INLINE] rmp$log_debug_message
    (    message: string ( * ));

    VAR
      ignore_status: ost$status;

    IF rmv$tape_debug_mode THEN
      pmp$log_ascii (message, $pmt$ascii_logset [pmc$job_log],
            pmc$msg_origin_system, ignore_status);
    IFEND;

  PROCEND rmp$log_debug_message;

?? PUSH (LISTEXT := ON) ??
*copyc pmp$log_ascii
*copyc rmv$tape_debug_mode
?? POP ??
