{
{ BAI$UPDATE_EOI
{
{ This code update eoi in all write access procedures.
{ Caller must set record_info.current_byte_address.

  CASE file_instance^.instance_attributes.static_label.file_organization OF
  = amc$byte_addressable =
    IF record_info.current_byte_address >
          file_instance^.global_file_information^.eoi_byte_address THEN
      file_instance^.global_file_information^.eoi_byte_address :=
            record_info.current_byte_address;
    IFEND;
  = amc$sequential =
    IF record_info.current_byte_address <
          file_instance^.global_file_information^.eoi_byte_address THEN
      mmp$set_segment_length (file_instance^.file_pva, bac$minimum_open_ring,
            record_info.current_byte_address, status);
    IFEND;
    file_instance^.global_file_information^.eoi_byte_address :=
          record_info.current_byte_address;
  ELSE
    amp$set_file_instance_abnormal (file_identifier,
          ame$unrecovered_read_error, call_block.operation,
          ' bai$update_eoi error', status);
  CASEND;
  file_instance^.previous_get_at_eoi := FALSE;

{ end of BAI$UPDATE_EOI
{
