
  TYPE
    fst$status_reporting_procedure = ^procedure
           (    condition: ost$status_condition;
                text: string ( * );
            VAR status: ost$status);

*copyc ost$status


