  TYPE
    rat$correction_package = array [1 .. *] of rat$correction_element,

    rat$correction_element = record
      name: ost$name,
      size: rat$corrector_size,
      user_info: amt$user_info,
      class: rat$file_class,
      format: rat$file_format,
      correction_package: REL (rat$correction) ^SEQ ( * ),
      psr_info: REL (rat$correction) ^array [1 .. *] of rat$psr_ident,
      number_of_psrs: rat$psr_index,
    recend;

  TYPE
    rat$psr_ident = string (8),
    rat$element_index = 0 .. rac$max_correction_p_elements,
    rat$correction = SEQ ( * ),
    rat$psr_index = 0 .. rac$max_psrs;

*copyc rac$correction_constants
*copyc ost$name
*copyc rat$corrector_size
*copyc osd$virtual_address
*copyc amt$access_level
*copyc amt$attribute_source
*copyc amt$average_record_length
*copyc amt$block_type
*copyc amt$collate_table
*copyc amt$collation_value
*copyc amt$data_padding
*copyc amt$error_exit_procedure
*copyc amt$error_limit
*copyc amt$estimated_record_count
*copyc amt$file_access_selections
*copyc amt$file_attribute_keys
*copyc amt$file_attributes
*copyc amt$file_byte_address
*copyc amt$file_identifier
*copyc amt$file_length
*copyc amt$file_limit
*copyc amt$file_organization
*copyc amt$file_position
*copyc amt$forced_write
*copyc amt$global_file_position
*copyc amt$index_padding
*copyc amt$internal_code
*copyc amt$key_length
*copyc amt$key_position
*copyc amt$key_type
*copyc amt$label_exit_procedure
*copyc amt$label_options
*copyc amt$label_type
*copyc amt$local_file_name
*copyc amc$mau_length
*copyc amt$max_block_length
*copyc amt$max_record_length
*copyc amt$message_control
*copyc amt$min_block_length
*copyc amt$min_record_length
*copyc amt$padding_character
*copyc amt$record_limit
*copyc amt$record_type
*copyc amt$records_per_block
*copyc amt$return_option
*copyc amt$user_info
*copyc amt$vertical_print_density
*copyc ost$status
*copyc rat$file_class
*copyc rat$file_format
