
  PROCEDURE [INLINE] osp$set_status_condition
    (    condition: ost$status_condition_code;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
    status.normal := FALSE;
    status.condition := condition;
    status.text.size := 0;
  PROCEND osp$set_status_condition;

*copy osh$set_status_condition

*copyc ost$status
*copyc ost$status_condition_code
?? POP ??
