
  TYPE
    pft$permit_entry = record
      case entry_type: pft$permit_entry_types of
      = pfc$free_permit_entry =
        ,
      = pfc$normal_permit_entry =
        group: pft$group,
        usage_permissions: pft$permit_selections,
        share_requirements: pft$share_requirements,
        application_info: pft$application_info,
      casend,
    recend;

*copyc pft$application_info
*copyc pft$group
*copyc pft$permit_index
*copyc pft$permit_entry_types
*copyc pft$permit_selections
*copyc pft$share_requirements
