/*
** Built-in: SET_ALERT_PROPERTY
** Example: Places the error message into a user-defined alert **
named 'My_Error_Alert' and displays the alert.
** Trigger: On-Error
*/

DECLARE
   err_txt     VARCHAR2 (80) := Error_Text;
   al_id       Alert;
   al_button   Number;
BEGIN
   al_id      := Find_Alert ('My_Error_Alert');
   Set_Alert_Property (al_id, alert_message_text, err_txt);
   al_button  := Show_Alert (al_id);
END;