create or replace package body myTest  is

PROCEDURE execute(v_day IN VARCHAR2) as
  begin
    DM_FEE_call(v_day);
    DM_FEE_KA(v_day);
  end;

end myTest ;

创建job，每天定时执行
/**每天11：45执行*/
begin
  sys.dbms_job.submit(job => :job,
                      what => 'myTest.execute();',
                      next_date => to_date('24-12-2008 11:45:00', 'dd-mm-yyyy hh24:mi:ss'),
                      interval => 'TRUNC(SYSDATE+1)+(11*60+45)/(24*60)');
  commit;
end;
/

创建job，每隔一分钟定时执行，每隔一份中执行时，时间会有延迟，一般要63秒左右才能定时执行一次，目前没有好的解决方法。
/**每隔一分钟定时执行*/
begin
  sys.dbms_job.change(job => 21,
                      what => 'myTest.execute();',
                      next_date => to_date('24-12-2008 16:45:11', 'dd-mm-yyyy hh24:mi:ss'),
                      interval => 'SYSDATE+1/(24*60)');
  commit;
end;
/

create or replace package myPackage0136 is

  -- Author  : 李助新
  -- Created : 2008-7-28 14:10:10

 function get_3avg_profit(m_sale_man in varchar2,m_bill_date IN VARCHAR2) return NUMBER;
 function get_6avg_profit(m_sale_man in varchar2,m_bill_date IN VARCHAR2) return NUMBER;

-- Purpose : 创建表 tableName
procedure myPro0136(tableName in varchar2) ;

-- Purpose :删除表tableName
procedure  dropTable(tableName in varchar2);

-- Purpose : 判断表tableName是否存在 
function  tableIsExist(tableName in varchar2)  return boolean;

-- Purpose :根据员工编号，返回员工的兴趣
function myfunction0136(empId in varchar2) return varchar2;

-- Purpose :将最后结果插入到表 tableName中
procedure  insertToTable(tableName in varchar2);

-- Purpose : 完成整个处理过程
procedure  dataManage ;

end myPackage0136;
/
create or replace package body myPackage0136 IS

/*
   函数名：get_3avg_profit
   作  者：李助新
   参数：传入员工编号，月份
   功  能：根据员工编号，月份求出前三个月平均利润
   返回值：返回前半年平均利润
  */
  FUNCTION GET_3AVG_PROFIT(M_SALE_MAN IN VARCHAR2, M_BILL_DATE IN VARCHAR2)
    RETURN NUMBER IS
    AVG1_PROFIT NUMBER;
    CURSOR CUR IS
      SELECT AVF3_PROFIT
        FROM (SELECT SALE_MAN,
                     BILL_DATE,
                     PROFIT,
                     TRUNC((LAG(PROFIT, 2, 0)
                            OVER(PARTITION BY SALE_MAN ORDER BY BILL_DATE) +
                            LAG(PROFIT, 1, 0)
                            OVER(PARTITION BY SALE_MAN ORDER BY BILL_DATE) +
                            LAG(PROFIT, 0, 0)
                            OVER(PARTITION BY SALE_MAN ORDER BY BILL_DATE)) / 3,
                           2) AVF3_PROFIT
                FROM (SELECT SALE_MAN,
                             BILL_DATE,
                             SUM(PROFIT) PROFIT,
                             ROW_NUMBER() OVER(PARTITION BY BILL_DATE ORDER BY SUM(PROFIT)) RW
                        FROM (SELECT C.BILL_ID_D,
                                     C.BILL_CODE,
                                     C.GOOD_NUMS,
                                     C.COST_PRICE,
                                     C.PROFIT PROFIT,
                                     D.SALE_MAN SALE_MAN,
                                     TO_CHAR(D.BILL_DATE, 'yyyy-mm') BILL_DATE
                                FROM (SELECT A.BILL_ID_D BILL_ID_D,
                                             A.BILL_CODE BILL_CODE,
                                             A.GOOD_NUMS GOOD_NUMS,
                                             A.PRICE * A.GOOD_NUMS PRICE,
                                             B.COST_PRICE * A.GOOD_NUMS COST_PRICE,
                                             (A.PRICE - B.COST_PRICE) *
                                             A.GOOD_NUMS PROFIT
                                        FROM DSS_INFO_SALE_BILL_D A,
                                             DSS_INFO_GOOD        B
                                       WHERE A.GOOD_ID = B.GOOD_ID) C,
                                     DSS_INFO_SALE_BILL D
                               WHERE C.BILL_CODE = D.BILL_CODE AND D.SALE_MAN = M_SALE_MAN)
                       GROUP BY SALE_MAN, BILL_DATE
                       ORDER BY BILL_DATE))
                       WHERE  BILL_DATE = M_BILL_DATE;
    R_EMP CUR%ROWTYPE;
  BEGIN
 
    OPEN CUR;
    FETCH CUR
      INTO R_EMP;
    AVG1_PROFIT := R_EMP.AVF3_PROFIT;
    CLOSE CUR;
    RETURN AVG1_PROFIT;
  END GET_3AVG_PROFIT;

  /*
   函数名：get_6avg_profit
   作  者：李助新
   参数：传入员工编号，月份
   功  能：根据员工编号，月份求出前半年平均利润
   返回值：返回前半年平均利润
  */
  FUNCTION GET_6AVG_PROFIT(M_SALE_MAN IN VARCHAR2, M_BILL_DATE IN VARCHAR2)
    RETURN NUMBER IS
    AVG1_PROFIT NUMBER;
    CURSOR CUR IS
      SELECT AVF6_PROFIT
        FROM (SELECT SALE_MAN,
                     BILL_DATE,
                     PROFIT,
                     TRUNC((LAG(PROFIT, 5, 0)
                            OVER(PARTITION BY SALE_MAN ORDER BY BILL_DATE) +
                            LAG(PROFIT, 4, 0)
                            OVER(PARTITION BY SALE_MAN ORDER BY BILL_DATE) +
                            LAG(PROFIT, 3, 0)
                            OVER(PARTITION BY SALE_MAN ORDER BY BILL_DATE) +
                            LAG(PROFIT, 2, 0)
                            OVER(PARTITION BY SALE_MAN ORDER BY BILL_DATE) +
                            LAG(PROFIT, 1, 0)
                            OVER(PARTITION BY SALE_MAN ORDER BY BILL_DATE) +
                            LAG(PROFIT, 0, 0)
                            OVER(PARTITION BY SALE_MAN ORDER BY BILL_DATE)) / 6,
                           2) AVF6_PROFIT
                FROM (SELECT SALE_MAN,
                             BILL_DATE,
                             SUM(PROFIT) PROFIT,
                             ROW_NUMBER() OVER(PARTITION BY BILL_DATE ORDER BY SUM(PROFIT)) RW
                        FROM (SELECT C.BILL_ID_D,
                                     C.BILL_CODE,
                                     C.GOOD_NUMS,
                                     C.COST_PRICE,
                                     C.PROFIT PROFIT,
                                     D.SALE_MAN SALE_MAN,
                                     TO_CHAR(D.BILL_DATE, 'yyyy-mm') BILL_DATE
                                FROM (SELECT A.BILL_ID_D BILL_ID_D,
                                             A.BILL_CODE BILL_CODE,
                                             A.GOOD_NUMS GOOD_NUMS,
                                             A.PRICE * A.GOOD_NUMS PRICE,
                                             B.COST_PRICE * A.GOOD_NUMS COST_PRICE,
                                             (A.PRICE - B.COST_PRICE) *
                                             A.GOOD_NUMS PROFIT
                                        FROM DSS_INFO_SALE_BILL_D A,
                                             DSS_INFO_GOOD        B
                                       WHERE A.GOOD_ID = B.GOOD_ID) C,
                                     DSS_INFO_SALE_BILL D
                               WHERE C.BILL_CODE = D.BILL_CODE AND D.SALE_MAN = M_SALE_MAN )
                       GROUP BY SALE_MAN, BILL_DATE
                       ORDER BY BILL_DATE))
                       WHERE  BILL_DATE = M_BILL_DATE;
    R_EMP CUR%ROWTYPE;
  BEGIN
   OPEN CUR;
    FETCH CUR
     INTO R_EMP;
     AVG1_PROFIT := R_EMP.AVF6_PROFIT;
    CLOSE CUR;
    RETURN AVG1_PROFIT;
  END GET_6AVG_PROFIT;
 
 
 
  /*过程名：myPro0136
 功能：  创建一张临时表
*/
procedure myPro0136(tableName in varchar2) is
sql_str long;
begin
  sql_str :='create table '||tableName||' (
   EMP_ID  varchar(32),
   EMP_NAME VARCHAR2(32),
   GENDER    CHAR(1),
   ADDRESS   VARCHAR2(64),
   PHONE     NUMBER,
   DEGREE_ID VARCHAR2(16),
   DEP_ID    VARCHAR2(20),
   INTEREST  VARCHAR2(100)
  )';
  Execute Immediate sql_str;
  commit; 
end myPro0136;

/*函数名：tableIsExist
  参数：tableName，传入一张表的名称
 功能：判断该表是否存在，如果存在就返回true
        否则返回false
  返回类型：boolean
*/
function tableIsExist(tableName in varchar2)return boolean
is
 Result boolean;
 i INTEGER;
 begin
  SELECT COUNT(*)  
                  INTO   i  
                  FROM   user_tables  
                WHERE   table_name = UPPER(tableName);
    if i = 1
    then
     Result :=true;
     else
     Result:=false;
     end if;        
  return(Result);
end tableIsExist;

/*过程名：dropTable
  参数：tableName，传入一张表的名称
 功能：删除tableName表
*/
procedure dropTable(tableName in varchar2)
is
 sql_str long;
 begin
  sql_str :='drop table '||tableName;
  Execute Immediate sql_str;
  commit;        
end dropTable;

/*函数名：myFunction0136
 功能：  根据员工编号查找员工的兴趣，以字符串的形式返回
  返回类型：varchar2
*/
function myFunction0136(empId in varchar2) return varchar2
is
  Result varchar2(50);
  temp varchar2(16);
  sql_str long;
  cur sys_refcursor;
begin
  sql_str :='select interest_desc from code_interest0136 where emp_id ='|| empId ;
  open cur for sql_str;
  loop
    fetch cur into temp;
    Result := Result || temp||',';
    exit when cur%notfound;
  end loop;
  close cur; 
  Result := substr(Result,1,length(Result)-1);   
  return (Result);
end myFunction0136;

/*过程名：insertToTable
  参数：tableName，传入一张表的名称
 功能：将结果集插入到表tableName中
*/
procedure  insertToTable(tableName in varchar2)
is
sql_str long;
begin
 sql_str := 'insert into '|| tableName ||' (EMP_ID,EMP_NAME,GENDER,ADDRESS,
 PHONE,DEGREE_ID,DEP_ID,INTEREST)'
 ||'( select a.EMP_ID,a.EMP_NAME,a.GENDER,a.ADDRESS,a.PHONE,a.DEGREE_ID,a.DEP_ID,
 myPackage0136.myFunction0136(a.emp_id) from info_emp0136 a )';
 dbms_output.put_line(sql_str);
 execute immediate sql_str;
 commit;
end insertToTable;

/*过程名：dataManage
 功能：实现整个处理过程
*/
procedure  dataManage
is
begin
--如果存在表info_employer就先删除，然后创建表
 if myPackage0136.tableIsExist('info_employer')
 then
    myPackage0136.dropTable('info_employer');
 end if;
    myPackage0136.myPro0136('info_employer');  
    myPackage0136.insertToTable('info_employer');
 --异常处理
   exception
    when others then
    dbms_output.put_line('error');
end dataManage;

end myPackage0136;
/

1)基本赋值
declare
  i varchar(16);
begin
  SELECT COUNT(*)
      INTO i
   FROM t_info_log
    WHERE visit_id ='12156';
   DBMS_OUTPUT.PUT_LINE (
       'hahaa' ||
        i ||
        'hun');
end;
功能:将sql查询结果放入 i中。

2)检测数据库中的表是否存在
select count(*)
into i
from user_tables
where table_name = upper('test2_01');
i=1时,test2_01存在,i=0时,不存在。

3)sql动态执行
 if i = 1 then
        str := 'drop table test2_01 ';
        execute immediate str;
end if;
动态sql和静态sql的主要区别是，静态sql会检查表是否存在，动态sql不会检测。

4)游标的使用
a)
procedure myProcedure(empId in varchar2)
is
  sql_str long;
  temp  varchar2(32);
  cur sys_refcursor;
begin
  sql_str :='select interest_desc from code_interest0136 where emp_id ='|| empId ;
  open cur for sql_str;
  loop
    fetch cur into temp;
    dbms_output.put_line(temp);
    exit when cur%notfound;
  end loop;
  close cur; 
end myProcedure;

b)
cursor cur is select id from info_user;
loop
  open cur;
  fetch cur into my_id;
    //处理.............
  exit when cur%notfound;
end loop;

5)记录RECORD的使用
create or replace procedure table0136 is
TYPE tableRecord IS RECORD (
a1 number,
a2 varchar2(32)
);
v_ret tableRecord;
cursor cur is select * from aa_1;
a varchar2(20);

begin
open cur;
loop
fetch cur into v_ret;
DBMS_OUTPUT.put_line(v_ret.a1||'    '||v_ret.a2);
exit when cur%NOTFOUND;
end loop;
end table0136;