Discards the top-most error on the error stack.
PROCEDURE Tool_Err.Pop;
/*
** Loop through each message in the stack,
** print it, then clear the top most error.
*/
BEGIN
. . .
EXCEPTION
WHEN OTHERS THEN
FOR i IN 1..Tool_Err.Nerrors LOOP
TEXT_IO.PUT_LINE(TOOL_ERR.MESSAGE);
TOOL_ERR.POP;
END LOOP;
. . .
END;