
  FUNCTION [INLINE] bai$partial_record_exists: boolean;

?? PUSH (LISTEXT := ON) ??

{ The purpose of this request is to determine if there remains any
{ partial records in the data management buffer.

*copy bah$inline_proc_documentation

    bai$partial_record_exists := (gfi^.positioning_info.record_info.
          file_position = amc$mid_record) AND
          (tape_descriptor^.put_tape_block_buffer <> NIL);

  FUNCEND bai$partial_record_exists;

*copyc bat$task_file_table
?? POP ??


