
 TYPE
    fst$tape_attachment = RECORD
      CASE selector {input} : fst$tape_attachment_choices OF {input}
      = fsc$tape_block_count =
        {Not applicable to FSP$OPEN_FILE; for FSP$GET_TAPE_LABEL_ATTRIBUTES only
        tape_block_count: 0 .. 999999,
      = fsc$tape_block_type =
        tape_block_type: amt$block_type,
      = fsc$tape_buffer_offset =
        tape_buffer_offset: 0 .. amc$maximum_block,
      = fsc$tape_character_conversion =
        tape_character_conversion: boolean,
      = fsc$tape_character_set =
        tape_character_set: amt$internal_code,
      = fsc$tape_creation_date =
        tape_creation_date: ost$ordinal_date,
      = fsc$tape_expiration_date =
        tape_expiration_date: ost$ordinal_date,
      = fsc$tape_file_accessibility =
        tape_file_accessibility: string (1),
      = fsc$tape_file_identifier =
        {Identifies an ANSI file by name among others on the file set.}
        tape_file_identifier: string (17) {Left-justified, blank-filled} ,
      = fsc$tape_file_section_number =
        {Not applicable to FSP$OPEN_FILE; for FSP$GET_TAPE_LABEL_ATTRIBUTES only
        tape_file_section_number: 1 .. 9999,
      = fsc$tape_file_sequence_number =
        {Identifies an ANSI file by number among others on the file set.}
        tape_file_sequence_number: 1 .. 9999,
      = fsc$tape_file_set_identifier =
        {Unique identification of the files on a volume set}
        tape_file_set_identifier: string (6) {Left-justified, blank-filled} ,
      = fsc$tape_file_set_position =
        {Specifies the position on this file set.}
        tape_file_set_position: fst$tape_file_set_position,
      = fsc$tape_generation_number =
        tape_generation_number: 1 .. 9999,
      = fsc$tape_generation_version_num =
        tape_generation_version_num: 0 .. 99,
      = fsc$tape_header_labels =
        {Not applicable to FSP$OPEN_FILE}
        {Caller provides sequence; FSP$GET_TAPE_LABEL_ATTRIBUTES initializes it}
        tape_header_labels: ^SEQ(*),
      = fsc$tape_implementation_id =
        {Removable_media_operation privilege required by FSP$OPEN_FILE}
        {Tape_volume_initialization must also be specified.}
        tape_implementation_id: string(13),
      = fsc$tape_label_standard_version =
        {Removable_media_operation privilege required by FSP$OPEN_FILE}
        {Tape_volume_initialization must also be specified.}
        tape_label_standard_version: 0 .. 9,
      = fsc$tape_max_block_length =
        tape_max_block_length: amt$max_block_length,
      = fsc$tape_max_record_length =
        tape_max_record_length: amt$max_record_length,
      = fsc$tape_null_attachment_option =
        ,
      = fsc$tape_owner_identification =
        tape_owner_identification: string (14),
      = fsc$tape_padding_character =
        tape_padding_character: amt$padding_character,
      = fsc$tape_record_type =
        tape_record_type: amt$record_type,
      = fsc$tape_removable_media_group =
        tape_removable_media_group: string (13),
      = fsc$tape_rewrite_labels =
        tape_rewrite_labels: boolean,
      = fsc$tape_trailer_labels =
        {Not applicable to FSP$OPEN_FILE}
        {Caller provides sequence; FSP$GET_TAPE_LABEL_ATTRIBUTES initializes it}
        tape_trailer_labels: ^SEQ(*),
      = fsc$tape_volume_accessibility =
        tape_volume_accessibility: string (1),
      = fsc$tape_volume_initialization =
        {Removable_media_operation privilege required.}
        tape_volume_initialization: ^fst$tape_volume_initialization,
      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$tape_attachment_choices
*copyc fst$tape_file_set_position
*copyc fst$tape_volume_initialization
*copyc ost$date





