
  TYPE
    avt$template_file_record_header = record
      case kind: avt$template_file_record_kind of
      = avc$data_record =
        description_record_index: 1 .. avc$maximum_desc_record_count,
        value_directory_pointer: REL (avt$template_file_record)
              ^avt$value_directory,
      = avc$description_record =
        name: ost$name,
        field_directory_pointer: REL (avt$template_file_record)
              ^avt$field_directory,
      = avc$index_record =
        keys_in_use: avt$template_index_key_count,
        previous_index_record: avt$template_file_record_ptr,
        next_index_record: avt$template_file_record_ptr,
        { avt$template_file_index follows header}
      casend,
    recend;

*copyc avc$maximum_desc_record_count
*copyc avt$field_directory
*copyc avt$template_file_index
*copyc avt$template_file_record
*copyc avt$template_file_record_kind
*copyc avt$template_file_record_ptr
*copyc avt$template_index_key_count
*copyc avt$value_directory
*copyc ost$name
