
  PROCEDURE [INLINE] fmp$adjust_file_set_pos_values
    (VAR tape_attachment: fst$tape_attachment_information);

?? PUSH (LISTEXT := ON) ??
    IF tape_attachment.file_set_position_source = fsc$tape_label_attr_command THEN
      CASE tape_attachment.file_set_position.position OF
      = fsc$tape_file_identifier_pos =
        IF fsc$fsp_file_identifier IN tape_attachment.supplied_file_set_pos_fields THEN
          IF tape_attachment.file_identifier_source = fsc$tape_label_attr_default THEN
            tape_attachment.file_identifier := tape_attachment.file_set_position.
                  file_identifier;
          IFEND;
        ELSE
          tape_attachment.file_set_position.file_identifier := tape_attachment.
                file_identifier;
        IFEND;
        IF fsc$fsp_generation_number IN tape_attachment.supplied_file_set_pos_fields THEN
          IF tape_attachment.generation_number_source = fsc$tape_label_attr_default THEN
            tape_attachment.generation_number := tape_attachment.file_set_position.
                  generation_number;
          IFEND;
        ELSE
          tape_attachment.file_set_position.generation_number := tape_attachment.
                generation_number;
        IFEND;
      = fsc$tape_file_sequence_pos =
        IF NOT (fsc$fsp_file_sequence_number IN tape_attachment.supplied_file_set_pos_fields) THEN
          tape_attachment.file_set_position.file_sequence_number := tape_attachment.
                file_sequence_number;
        IFEND;
      ELSE
      CASEND;
    IFEND;

  PROCEND fmp$adjust_file_set_pos_values;

*copyc fst$tape_attachment_information
?? POP ??
