message box

PROCEDURE message_box (msg_txt VARCHAR2)
IS
al_id alert;
al_button NUMBER;
BEGIN
al_id := FIND_ALERT ('MSGBOX');
SET_ALERT_PROPERTY (al_id, alert_message_text, msg_txt);
al_button := SHOW_ALERT (al_id);
END;