
  PROCEDURE [XREF] bap$merge_tape_attributes
    (    default_creation_attributes: ^fst$file_cycle_attributes;
         mandated_creation_attributes: ^fst$file_cycle_attributes;
     VAR merged_tape_attributes {input, output} :
          fst$tape_attachment_information;
     VAR static_label_attributes {input, output} :
        bat$static_label_attributes);

?? PUSH (LISTEXT := ON) ??
*copyc bat$static_label_attributes
*copyc fst$file_cycle_attributes
*copyc fst$tape_attachment_information
?? POP ??
