
  TYPE
    fst$tape_file_set_position = record
      case position: fst$tape_file_set_pos_choices of
      = fsc$tape_beginning_of_set =
        ,
      = fsc$tape_current_file =
        ,
      = fsc$tape_end_of_set =
        ,
      = fsc$tape_file_identifier_pos =
        file_identifier: string (17) {Left-justified, blank-filled} ,
        generation_number: 1 .. 9999,
      = fsc$tape_file_sequence_pos =
        file_sequence_number: 1 .. 9999,
      = fsc$tape_next_file =
        ,
      casend,
    recend;

*copyc fst$tape_file_set_pos_choices
