Removes the current message from the screen message area.
PROCEDURE CLEAR_MESSAGE;
Built-in Type restricted procedure
Enter Query Mode yes
/*
** Built-in: CLEAR_MESSAGE
** Example: Clear the message from the message line.
*/
BEGIN
Message('Working...',No_Acknowledge);
SELECT current_tax
INTO :Emp.Tax_Rate
FROM tax_table
WHERE state_abbrev = :Emp.State;
Clear_Message;
END;