LogBatchMessage ( ErrorMessage.Text ) ;
CloseMessageFile;
Status := Success
end { if }
end { else }
end
{ else the message code is not valid }
else begin
{ notify the user that an interanl error has been detected }
PrintlnteractiveMessage ( 'Internal Error; Invalid error code' ,
'in RecordErrorMessage()' }
end
end; { RecordErrorMessage () }