{
{ dmt$dfl_change
{

  TYPE
    dmt$dfl_change = record
      dfl_index: dmt$device_file_list_index,
      case kind: dmt$dfl_change_kind of

      = dmc$dfl_create =
        create_block: dmt$dl_create_block,

      = dmc$dfl_return_dfl =
        return_dfl_block: dmt$dl_return_dfl_block,

      = dmc$dfl_first_dau =
        first_dau_block: dmt$dfl_first_dau_block,

      = dmc$dfl_release_dfl =
        release_dfl_block: dmt$dl_release_dfl_block,

      = dmc$dfl_attach_file, dmc$dfl_detach_file =
        attach_file_block: dmt$dl_attach_file_block,

      = dmc$dfl_update_file_length =
        file_length_block: dmt$dl_file_length_block,

      = dmc$dfl_update_fmd_length =
        fmd_length_block: dmt$dl_fmd_length_block,

      = dmc$dfl_file_damaged =
        file_damaged_block: dmt$dl_file_damaged_block,
      casend,
    recend,

    dmt$dfl_changes = array [1 .. *] of dmt$dfl_change,

    dmt$dfl_change_kind = (dmc$dfl_create, dmc$dfl_return_dfl,
      dmc$dfl_first_dau, dmc$dfl_release_dfl, dmc$dfl_attach_file,
      dmc$dfl_detach_file, dmc$dfl_update_file_length,
      dmc$dfl_update_fmd_length, dmc$dfl_file_damaged, dmc$dfl_halt),

    dmt$dfl_change_abort = (dmc$dfl_no_action, dmc$dfl_halt_before_change,
      dmc$dfl_halt_after_change),

    dmt$dfl_first_dau_block = record
      global_file_name: dmt$global_file_name,
      dfl_index: dmt$device_file_list_index,
      dau_address: dmt$dau_address,
    recend,

    dmt$dfl_change_index = 0 .. 7fffffff(16);

  TYPE
    dmt$dfl_change_errors = record
      error_count: ALIGNED [0 MOD 8] integer {compare swap},
      error_list: array [1 .. 32] of dmt$dfl_change_error,
    recend,

    dmt$dfl_change_error = record
      time: integer,
      avt_index: dmt$active_volume_table_index,
      recovery_logging: boolean,
      dfl_change: dmt$dfl_change,
      dfl_entry: dmt$ms_device_file_list_entry,
    recend;
?? PUSH (LISTEXT :=ON) ??
*copyc dmt$active_volume_table_index
*copyc dmt$device_allocation_unit
*copyc dmt$device_file_list_index
*copyc dmt$device_log_entries
*copyc dmt$ms_device_file_list_entry
?? POP ??
