?? RIGHT := 110 ??
?? TITLE := 'NOS/VE : Basic Access Methods : Store/Fetch Tape Label Attributes' ??
MODULE bam$store_fetch_tape_label_attr;
?? RIGHT := 110 ??

?? NEWTITLE := 'Global Declarations Referenced by This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc fst$attachment_options
*copyc fst$tape_attachment_information
*copyc ost$status
?? POP ??
*copyc fmp$fetch_tape_attachment_info
*copyc fmp$fetch_tape_label_attributes
*copyc fmp$store_tape_attachment
*copyc fmp$store_tape_label_attributes
?? OLDTITLE ??
?? NEWTITLE := '[xdcl, #gate] BAP$STORE_TAPE_LABEL_ATTRIBUTES', EJECT ??

  PROCEDURE [XDCL, #GATE] bap$store_tape_label_attributes (
        evaluated_file_reference: fst$evaluated_file_reference;
        tape_attachments: fst$attachment_options;
        supplied_file_set_pos_fields: fst$supplied_file_set_positions;
        tape_attachment_info_source: fst$tape_attach_info_source;
    VAR status: ost$status);

    status.normal := TRUE;
    fmp$store_tape_label_attributes (evaluated_file_reference, tape_attachments,
           supplied_file_set_pos_fields, tape_attachment_info_source, status);

  PROCEND bap$store_tape_label_attributes;
?? OLDTITLE ??
?? NEWTITLE := '[xdcl, #gate] BAP$FETCH_TAPE_LABEL_ATTRIBUTES', EJECT ??

  PROCEDURE [XDCL, #GATE] bap$fetch_tape_label_attributes (
        evaluated_file_reference: fst$evaluated_file_reference;
    VAR tape_attachments: fst$tape_attachment_information;
    VAR status: ost$status);

    status.normal := TRUE;
    fmp$fetch_tape_label_attributes (evaluated_file_reference, tape_attachments, status);

  PROCEND bap$fetch_tape_label_attributes;
?? OLDTITLE ??
?? NEWTITLE := '[xdcl, #gate] BAP$FETCH_TAPE_ATTACHMENT_INFO', EJECT ??

  PROCEDURE [XDCL, #GATE] bap$fetch_tape_attachment_info (
        evaluated_file_reference: fst$evaluated_file_reference;
    VAR tape_attachments: fst$tape_attachment_information;
    VAR status: ost$status);

    status.normal := TRUE;
    fmp$fetch_tape_attachment_info (evaluated_file_reference, tape_attachments, status);

  PROCEND bap$fetch_tape_attachment_info;
?? OLDTITLE ??
?? NEWTITLE := '[xdcl, #gate] BAP$STORE_TAPE_ATTACHMENT', EJECT ??

  PROCEDURE [XDCL, #GATE] bap$store_tape_attachment (
        tape_attachments: fst$attachment_options;
        tape_attachment_info_source: fst$tape_attach_info_source;
        tape_attachment_info: ^fst$tape_attachment_information;
    VAR status: ost$status);

    status.normal := TRUE;
    fmp$store_tape_attachment (tape_attachments, tape_attachment_info_source, tape_attachment_info, status);

  PROCEND bap$store_tape_attachment;
?? OLDTITLE ??
MODEND bam$store_fetch_tape_label_attr;
