ErrorCode:ErrorCode_t;
var Status:Status_t
);
{This routine outputs an error message based on an error code
Supplied by the calling routine. The way it outputs the message
depends on the current processing state, whict it retrieves
on its own. It returns a variable indicating success or failure. }
var
ProcessingMehod: ProcessingMethod_t;
ErrorMessage: Message_t;
FileStatus: Status_t;
begin
{set the default status}
Status:=Failure;
{look up the message based on the error code }
LookupErrorMessage(ErrorCode,ErrorMessage);
{if the error code is valid}
if (ErrorMessage.ValidCode) then begin
{determine the processing method}
ProcessingMethod := CurrentProcessingMehod;
{if doing interaction processing}
if (ProcessingMethod = Interactive) then begin
{print the error message interactively and declare success }
PrintInteractiveMessage(ErrorMessage.Text);
Status := Success
end
{else doing batch processing}
else if (ProcessingMethod = Batch) then begin
{if the batch message file opens properly}
FileStatus := OpenMessageFile;
If (FileStatus = Success) then begin
{log the error message to the batch file,close the file,
and declare success}