
  TYPE
    pft$cycle_entry = record
      internal_cycle_name: pft$internal_name,
      case entry_type: pft$cycle_entry_types of
      = pfc$free_cycle_entry =
        ,
      = pfc$normal_cycle_entry, pfc$purged_cycle_entry =
        cycle_number: fst$cycle_number,
        cycle_statistics: pft$cycle_statistics,
        expiration_date_time: ost$date_time,
        attach_status: pft$attach_status,
        cycle_damage_symptoms: fst$cycle_damage_symptoms,
        fmd_locator: pft$fmd_locator,
        global_file_name: dmt$global_file_name,
        file_label_locator: pft$file_label_locator,
        archive_list_locator: pft$archive_list_locator,
        data_residence: pft$data_residence,
        first_mainframe_usage_entry: pft$mainframe_usage_entry,
        mainframe_usage_list_locator: pft$mainframe_list_locator,
        data_modification_date_time: ost$date_time,
        device_information: pft$cycle_device_information,
        shared_queue_info: pft$shared_queue_info,
        retrieve_option: pft$retrieve_option,
        site_backup_option: pft$site_backup_option,
        site_archive_option: pft$site_archive_option,
        site_release_option: pft$site_release_option,
        reserved_cycle_entry_space: array [1 .. 34] of boolean,
      casend,
    recend;

*copyc dmt$global_file_name
*copyc fst$cycle_damage_symptoms
*copyc fst$cycle_number
*copyc ost$date_time
*copyc pft$archive_list_locator
*copyc pft$attach_status
*copyc pft$cycle_device_information
*copyc pft$cycle_entry_types
*copyc pft$cycle_statistics
*copyc pft$data_residence
*copyc pft$file_label_locator
*copyc pft$fmd_locator
*copyc pft$internal_name
*copyc pft$mainframe_list_locator
*copyc pft$mainframe_usage_entry
*copyc pft$retrieve_option
*copyc pft$shared_queue_info
*copyc pft$site_archive_option
*copyc pft$site_backup_option
*copyc pft$site_release_option
