
  TYPE
    pft$purge_cycle_options = record
      enforce_password_validation: boolean,
      enforce_ring_validation: boolean,
      case preserve_cycle_entry: boolean of
      = TRUE =
        preserve_archive_info: boolean,
        preserve_file_label: boolean,
        preserve_modification_date_time: boolean,
      = FALSE =
        ,
      casend,
    recend;
