{ Save current record 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.record_info :=
          record_info;
  ELSE
    file_instance^.private_read_information^.positioning_info.record_info :=
          record_info;
  IFEND;



