{ This code does checking for gets at or past eoi_byte_address.
{ Caller must set record_info.current_byte_address.

  IF record_info.current_byte_address >=
        file_instance^.global_file_information^.eoi_byte_address THEN
    at_eoi := TRUE;
    IF record_info.current_byte_address >
          file_instance^.global_file_information^.eoi_byte_address THEN
      amp$set_file_instance_abnormal (file_identifier, ame$input_after_eoi,
            call_block.operation, '', status);
    ELSEIF (record_info.file_position = amc$eoi)
{ } AND (file_instance^.previous_get_at_eoi) THEN
      amp$set_file_instance_abnormal (file_identifier, ame$input_after_eoi,
            call_block.operation, '', status);
    IFEND;
    record_info.file_position := amc$eoi;
    file_instance^.previous_get_at_eoi := TRUE;
  ELSE
    at_eoi := FALSE;
    file_instance^.previous_get_at_eoi := FALSE;
  IFEND;

