
  FUNCTION [INLINE] bai$label_type: amt$file_label_type;

?? PUSH (LISTEXT := ON) ??

{ The purpose of this request is to return the label type of the file
{ associated with the file instance.

*copy bah$inline_proc_documentation

    bai$label_type := tape_descriptor^.file_label_type;

  FUNCEND bai$label_type;

*copyc bat$task_file_table
*copyc amt$file_label_type
?? POP ??

