oracle pl/sql 程序块，游标，生成测试数据

pl/sql 程序块，在此做了一个小例子，所有的关键步骤都有注释，

有兴趣的读者，可以自行设计出更加灵活的程序

第一个小例子

declare
  -- Local variables here
   myemp rm_ftprate_res%ROWTYPE; --myemp 定义为表名为rm_ftprate_res的一行数据ROWTYPE
   cursor c_job   ---通过一定条件限定的表名为rm_ftprate_res的数据集。游标c_job可以操作这些数据
       is
       select *
       from rm_ftprate_res
       where rate_type = 0 and year_month = '2016-01' and pk_dept='1003F610000000002W63' and pk_coa='0001F610000000009B2I';
       s char(7); --s是表rm_ftprate_res第一列year_month
       d char(10); --d是表rm_ftprate_res第二列data_date
begin
  -- Test statements here
  for myemp in c_job loop
   s:=concat(substr(myemp.year_month,1,4),'-02'); --substr(myemp.year_month,1,4)取第一列的年，然后和-02结合生成二月份的数据
   d:=concat(concat(substr(myemp.data_date,1,4),'-02'),substr(myemp.data_date,8,10));--和s处理一样，多加了哪一天
   if myemp.data_date < '2016-01-30' then --前提是这张表里已经有了一月份的数据，为了防止循环超过2月29好，所以在这里做了判断
   ---select to_char(last_day(to_date('2016-02','yyyy-mm')),'dd') from dual;第三个例子有实现，可以获取某年某月的天数
   ---select add_months(to_date('2016-01-01','yyyy-mm-dd'),1) FROM dual;第三个例子有实现，多了这两个sql你可以自己写出更灵活的程序块
   insert into  rm_ftprate_res ---插入二月份的数据，利用dbms_random.value(0.1,0.9)生成 0.1到0.9之间的随机数，这两列是利率

values(s,d,'0001AA1000000002UUXN','1001AA10000000029WAX','0001F61000000000KN4O','0001AA1000000002UU5V',dbms_random.value(0.1,0.9),dbms_random.value(0.1,0.9),'0',null,null,null,null,null,'2016-09-18 09:15:53',0);---dbms_random.value(0.1,0.9) 0.1到0.9之间的随机数
  end if;
  end loop;
  commit;
end;

 第二个小例子

declare
  -- Local variables here
   myemp rm_ftprate_res%ROWTYPE;
    i integer;
       s char(7);
       d char(10);
begin
  -- Test statements here
  for i in 4..12 loop ---生成4月到12月的数据
    if i<10 then
   s:=concat(concat('2016','-0'),i);---10月之前多个0
   ELSE s:=concat(concat('2016','-'),i);
   END IF;
  
   insert into  rm_ftprate_res--生成月份数据时，天数列就不需要了

values(s,null,'0001AA1000000002UUXN','1001AA10000000029WAX','0001F61000000000KN4O','0001AA1000000002UU5V',dbms_random.value(0.1,0.9),dbms_random.value(0.1,0.9),'1',null,null,null,null,null,'2016-09-18 09:15:53',0);
 
  end loop;
  commit;
end;

第三个小例子

declare
  -- Local variables here
   myemp cfe_alm_res_pmt%ROWTYPE; --myemp 定义为表名为cfe_alm_res_pmt的一行数据ROWTYPE
   cursor c_job   ---通过一定条件限定的表名为cfe_alm_res_pmt的数据集。游标c_job可以操作这些数据
       is
       select * from cfe_alm_res_pmt where acct_no = '11043-1001-69300';
     s varchar2(100);
      AMORT_DATE char(10);
      AS_OF_DATE char(10);
begin
  -- Test statements here
  for myemp in c_job loop
    s:=concat('20',substr(myemp.acct_no,3,16));--修改11043-1001-69300为20043-1001-69300
 
 AMORT_DATE:=to_char(add_months(to_date(myemp.Pmt_dt,'yyyy-mm-dd'),-1),'yyyy-mm-dd');--日期减一个月
  AS_OF_DATE:=to_char(add_months(to_date(myemp.data_date,'yyyy-mm-dd'),-1),'yyyy-mm-dd');--日期减一个月

   insert into  LN_PAY_PLAN
   values(s,AMORT_DATE,myemp.prin_pmt,myemp.int_pmt,AS_OF_DATE,null,null);--其他值直接取
 
 
  end loop;
  commit;
end;