
  PROCEDURE [INLINE] osp$copy_local_status_to_status
    (VAR local_status { input } : ost$status;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

    IF local_status.normal THEN
      status.normal := TRUE;
    ELSE
      status := local_status;
    IFEND;
  PROCEND osp$copy_local_status_to_status;

*copy osh$copy_local_status_to_status

*copyc ost$status
?? POP ??
