
      PROCEDURE [XREF] iop$set_status_abnormal (
             condition: ost$status_condition;
             text: string (* <= osc$max_string_size);
         VAR status: ost$status);

??PUSH (LISTEXT:=ON)??
*copyc ost$status
??POP??
