2.Code
DECLARE
/* Declaring a variable for
later use. */
chk_button number;
BEGIN
/* Changing the title and
Alert_message_text properties of the Alert object named USER_ALERT. */
set_alert_property('USER_ALERT', title, 'Delete record');
set_alert_property('USER_ALERT', Alert_message_text, 'Current master entry will be
lost permanently. Do you want to proceed?');
chk_button := show_alert('USER_ALERT');
/* Checking if the user
chooses to delete the record. */
if chk_button = alert_button1 then
/* Calling
an In-built command to delete the current record. */
delete_record;
/* Making
the changes to the base table permanent. */
COMMIT;
end if;
END;
3.Output
