
  TYPE
    pft$auditable_permit = record
      group: pft$group,
      permit_selections: pft$permit_selections,
      case normal_status: boolean of
      = FALSE =
        condition: ost$status_condition_code,
      = TRUE =
        ,
      casend,
    recend;

*copyc ost$status_condition_code
*copyc pft$group
*copyc pft$permit_selections
