
  PROCEDURE [XREF] dpp$put_critical_message
    (    message: string ( * <= osc$max_string_size);
     VAR status: ost$status);

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