
  TYPE
    pft$share_selector = record
      case option: pft$share_selector_options of
      = pfc$default_share_option =
        ,
      = pfc$specific_share_option =
        share_selections: pft$share_selections,
      casend,
    recend;

*copyc pft$share_selector_options
*copyc pft$share_selections
