  PROCEDURE [INLINE] ifp$invoke_pause_utility (VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

    VAR
      ignore_status: ost$status;

     status.normal := TRUE;

{ ignore pause breaks if the maximum number of pause utility invokations is
{ currently pending - simply pretend as though a RESC was done.

    IF NOT jmp$system_job () THEN
      IF ifv$pause_utility_count = ifc$pause_utility_count_maximum THEN
        clp$put_job_output (' Pause break ignored - the nested pause break lim'
          CAT 'it has been exceeded', ignore_status);
        status.normal := TRUE;
        RETURN;
      IFEND;
    IFEND;

    ifp$start_pause_utility (status);

    IF NOT status.normal THEN

{ raise terminate condition within the task

      pmp$log ('terminate command causing terminate condition', ignore_status);
      pmp$dispose_interactive_cond (ifc$terminate_break);
      status.normal := TRUE;
    ELSE

      pmp$log ('resume after break', ignore_status);
    IFEND;
  PROCEND ifp$invoke_pause_utility;

*copyc clp$put_job_output
*copyc ife$error_codes
*copyc ifp$start_pause_utility
*copyc ifv$pause_utility_count
*copyc jmp$system_job
*copyc ost$status
*copyc pmp$dispose_interactive_cond
*copyc pmp$log


?? POP ??
