{
{ BAI$SAVE_POSITIONING_INFO
{
{ Save current position information.  This update is done only after operation
{ has completed successfully.

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

{ end of BAI$SAVE_POSITIONING_INFO
{
