 PROCEDURE [INLINE] syp$hang_if_job_jrt_set (test_number: 0 .. 255);
?? PUSH (LISTEXT := ON) ??

    VAR
      local_status: ost$status,
      display_string: string (ofc$max_display_message),
      display_length: integer;

    IF test_number IN syv$test_jr_job THEN
      STRINGREP (display_string, display_length, ' Hanging for job jrt ',
            test_number);
      ofp$display_status_message (display_string (1, display_length),
            local_status);
      REPEAT
        pmp$wait (1000, 1000);
        #SPOIL (syv$test_jr_job);
      UNTIL NOT (test_number IN syv$test_jr_job);
    IFEND;
  PROCEND syp$hang_if_job_jrt_set;

*copyc syc$test_jr_constants
*copyc dfc$test_jr_constants
*copyc ofp$display_status_message
*copyc pmp$wait
*copyc syv$test_jr_job
?? POP ??
