
  PROCEDURE [XREF] osp$format_message ALIAS 'ospfmsg'
    (    message_status: ost$status;
         message_level: ost$format_message_level;
         max_message_line: ost$max_status_message_line;
     VAR message: ost$status_message;
     VAR status: ost$status);

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