?? RIGHT := 110 ??
?? NEWTITLE := 'NOS/VE File System : Tape Label Attributes Retrieval' ??
MODULE fsm$get_tape_label_attributes;

{ PURPOSE:
{   This module contains the 2DD interface for getting the tape label
{   attributes.

?? NEWTITLE := 'Global Declarations Referenced by This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc fst$attachment_options
*copyc fst$file_reference
*copyc fst$tape_attribute_source
*copyc fst$tla_returned_attributes
*copyc ost$status
?? POP ??
*copyc clp$evaluate_file_reference
*copyc bap$get_tape_label_attributes

?? TITLE := 'fsp$get_tape_label_attributes', EJECT ??
*copy fsh$get_tape_label_attributes

  PROCEDURE [XDCL, #GATE] fsp$get_tape_label_attributes
    (    file: fst$file_reference;
         source: fst$tape_attribute_source;
     VAR attributes {input, output} : fst$attachment_options;
     VAR returned_attributes: fst$tla_returned_attributes;
     VAR status: ost$status);

    VAR
      evaluated_file_reference: fst$evaluated_file_reference;

    clp$evaluate_file_reference (file, $clt$file_ref_parsing_options [], {resolve_cycle_number} FALSE,
          evaluated_file_reference, status);
    IF status.normal THEN
      bap$get_tape_label_attributes (evaluated_file_reference, source, attributes, returned_attributes,
            status);
    IFEND;

  PROCEND fsp$get_tape_label_attributes;
MODEND fsm$get_tape_label_attributes;
