
  TYPE
    pft$retrieval_status = record
      retrieval_date_time: ost$date_time,
      case normal: boolean of
      = TRUE =
        ,
      = FALSE =
        condition: ost$status_condition_code,
      casend,
    recend;

*copyc ost$date_time
*copyc ost$status_condition_code
