
 TYPE
    fst$tape_attachment_information = RECORD

      block_type: amt$block_type,
      block_type_source: fst$tape_attach_info_source,
      buffer_offset: 0 .. amc$maximum_block,
      buffer_offset_source: fst$tape_attach_info_source,
      character_conversion: boolean,
      character_conversion_source: fst$tape_attach_info_source,
      character_set: amt$internal_code,
      character_set_source: fst$tape_attach_info_source,
      creation_date: ost$ordinal_date,
      creation_date_source: fst$tape_attach_info_source,
      expiration_date: ost$ordinal_date,
      expiration_date_source: fst$tape_attach_info_source,
      file_accessibility: string (1),
      file_accessibility_source: fst$tape_attach_info_source,
      file_identifier: string (17) {Left-justified, blank-filled} ,
      file_identifier_source: fst$tape_attach_info_source,
      file_section_number: 1 .. 9999,
      file_section_number_source: fst$tape_attach_info_source,
      file_sequence_number: 1 .. 9999,
      file_sequence_number_source: fst$tape_attach_info_source,
      file_set_identifier: string (6) {Left-justified, blank-filled} ,
      file_set_identifier_source: fst$tape_attach_info_source,
      file_set_position: fst$tape_file_set_position,
      file_set_position_source: fst$tape_attach_info_source,
      generation_number: 1 .. 9999,
      generation_number_source: fst$tape_attach_info_source,
      generation_version_number: 0 .. 99,
      generation_version_num_source: fst$tape_attach_info_source,
      label_standard_version: string(1),
      label_standard_version_source: fst$tape_attach_info_source,
      max_block_length: amt$max_block_length,
      max_block_length_source: fst$tape_attach_info_source,
      max_record_length: amt$max_record_length,
      max_record_length_source: fst$tape_attach_info_source,
      owner_identifier: string(14),
      owner_identifier_source: fst$tape_attach_info_source,
      padding_character: amt$padding_character,
      padding_character_source: fst$tape_attach_info_source,
      record_type: amt$record_type,
      record_type_source: fst$tape_attach_info_source,
      removable_media_group: string (13),
      removable_media_group_source: fst$tape_attach_info_source,
      rewrite_labels: boolean,
      rewrite_labels_source: fst$tape_attach_info_source,
      supplied_file_set_pos_fields: fst$supplied_file_set_positions,
      system_code: string(13),
      system_code_source: fst$tape_attach_info_source,
      volume_accessibility: string (1),
      volume_accessibility_source: fst$tape_attach_info_source,
      CASE volume_initialization: boolean OF
        = TRUE =
          tape_volume_initialization: fst$tape_volume_initialization,
        = FALSE =,
      CASEND,
    RECEND;

*copyc amt$block_type
*copyc amt$internal_code
*copyc amc$maximum_block
*copyc amt$max_block_length
*copyc amt$max_record_length
*copyc amt$padding_character
*copyc amt$record_type
*copyc fst$supplied_file_set_positions
*copyc fst$tape_attachment_choices
*copyc fst$tape_attach_info_source
*copyc fst$tape_file_set_position
*copyc fst$tape_volume_initialization
*copyc ost$date


