
  PROCEDURE [INLINE] syp$core_hang_if_system_jrt_set
    (    test_number: 0 .. 255);

?? PUSH (LISTEXT := ON) ??

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

    IF test_number IN syv$test_jr_system THEN
      STRINGREP (display_string, display_length,
            ' CORE Hanging for system jrt ', test_number);
      ofp$display_status_msg_helper (display_string (1, display_length),
            local_status);
      REPEAT
        syp$wait (1000);
        #SPOIL (syv$test_jr_system);
      UNTIL NOT (test_number IN syv$test_jr_system);
    IFEND;
  PROCEND syp$core_hang_if_system_jrt_set;
*copyc dfc$test_jr_constants
*copyc ofp$display_status_msg_helper
*copyc syp$wait
*copyc syv$test_jr_system
?? POP ??
