create or replace package comm_pkg is
std_comm number := 0.10;                  ---  变量
procedure reset_comm(new_comm number);   ---  存储过程
end comm_pkg;
/


create or replace package body comm_pkg is
       function validate(comm number) return boolean is      ---- 包体  内部校验 function
                 max_comm employees.commission_pct%type;
       begin
                 select max(commission_pct) into max_comm from employees;
                 return (comm between 0.0 and max_comm);
       end validate;
        
        procedure reset_comm(new_comm number) is             ---- 已在 包头 声明 的 存储过程
        begin
                  if validate(new_comm) then
                  std_comm:=new_comm;
                  else raise_application_error(-20210,'bad commission');
        end reset_comm;
end comm_pkg;
/

 execute hr.comm_pkg.reset_comm(0.15);


阅读更多
个人分类: Oracle
想对作者说点什么? 我来说一句

差异包资源包

2015年01月14日 11.24MB 下载

.spring包,aspects.jar包

2010年11月30日 11.97MB 下载

JSTL包和standrad包

2018年01月29日 363KB 下载

没有更多推荐了,返回首页

不良信息举报

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭