
  TYPE
    pft$attach_status = record
      attach_count: pft$usage_count,
      usage_counts: array [pft$usage_options] of pft$usage_count,
      prevent_usage_counts: array [pft$share_options] of pft$usage_count,
    recend;

*copyc pft$share_options
*copyc pft$usage_count
*copyc pft$usage_options
