{
{ BAI$GET_POSITIONING_INFO
{
{ Obtain current positioning information.

  IF file_instance^.private_read_information = NIL THEN
    record_info := file_instance^.global_file_information^.positioning_info.
          record_info;
    block_info := file_instance^.global_file_information^.positioning_info.
          block_info;
  ELSE
    record_info := file_instance^.private_read_information^.positioning_info.
          record_info;
    block_info := file_instance^.private_read_information^.positioning_info.
          block_info;
  IFEND;

{ end of BAI$GET_POSITIONING_INFO
{
