
  PROCEDURE [XREF] iip$xt_write_trace_status
    (    working_storage_area: string ( * );
         trace_status: ost$status);

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

