Plsql 如何在此脚本上添加异常

问: 显示其收费的所有医生 预约时间低于最低要求。 如果存在，则显示一条消息，要求这些医生 将每次预约的费用增加30%。 否则，请在异常中提供消息 处理程序将此结果通知用户。 允许用户输入每小时的最低费用 约会 例外情况不起作用

ACCEPT minchg PROMPT 'Enter the minimum charge per appointment: RM '

DECLARE
ex_min := chgperappt > &minchg EXCEPTION;
v_id    doctor.doc_id%TYPE;
v_name  doctor.doc_name%TYPE;
v_chg   doctor.chgperappt%TYPE;

CURSOR doc_chg IS
SELECT doc_id, doc_name, chgperappt
FROM doctor
WHERE chgperappt < &minchg;

BEGIN

OPEN doc_chg;

LOOP
FETCH doc_chg INTO v_id, v_name, v_chg;
EXIT WHEN doc_chg%NOTFOUND;

DBMS_OUTPUT.PUT_LINE ('Dr. '||v_name||' ('||v_id||') is charging RM '|| v_chg);
DBMS_OUTPUT.PUT_LINE ('Please increase the charge per appointment by 30% --> RM '||v_chg*1.3);

EXCEPTION
    WHEN ex_min  THEN`enter code here` 
    DBMS_OUTPUT.PUT_LINE ('All charge per appointment met the minimum criteria.') ;

END LOOP;


CLOSE doc_chg;

END;
/

ACCEPT minchg提示符“输入每次约会的最低费用：RM”
声明
ex_min:=chgperappt>&minchg异常；
v_id医生。医生id%类型；
v_name医生。医生名称%TYPE；
v_chg doctor.chgperappt%类型；
游标doc_chg为
选择文档id、文档名称、chgperappt
来自医生
其中chgperappt<&minchg；
开始
打开doc_chg；
环
将doc_chg提取到v_id、v_name、v_chg中；
当找不到文档目录%1时退出；
DBMS|u OUTPUT.PUT|LINE（'Dr.| | v| u name | | |'）（'v| u id | | |'）正在充电RM'| | v|chg）；
DBMS|u OUTPUT.PUT|u LINE（'请将每次约会的费用增加30%-->RM'| v|u chg*1.3）；
例外情况
当ex_min时，则“在此处输入代码”
DBMS_OUTPUT.PUT_LINE（'每次约会的所有费用都符合最低标准'）；
端环；
关闭doc_chg；
结束；
/

---

您能提供帮助吗？

创建用户定义的异常并对其进行处理的基本模板如下所示： （不是完整的代码示例，而是一个片段）

下面是一个链接，指向一个逐步完成该过程的。希望有帮助

DECLARE

ex_min EXCEPTION;

BEGIN
    // open cursor, etc.
    IF chgperappt > &minchg THEN
       RAISE ex_min;
    END IF;

    // other code to execute if no exception is raised.

EXCEPTION
    WHEN ex_min  THEN
    // add you code here for exception handling case

END;