oracle 存储过程实例—循环赋值

create or replace procedure insertvod is


  vodnum   int;           
  insertnum int;           
  vodna varchar2(128);     




begin
  select max(vodid+1) into vodnum from iptv_vod;          /*赋值*/
  insertnum := vodnum + 1850;/*赋值*/
  begin
  while vodnum < insertnum loop
    begin
      vodna := 'vodtest'||vodnum;        /*循环赋值*/


      insert into vod_areas values (vodnum, 164);


      insert into iptv_vod
      values
        (vodnum,
         vodna,
         vodna,
         '0,1,2',
         0,
         109,
         0,
         -1,
         1,
         3,
         '4',
         vodna,
         'uk,ch,jp',
         '20091101',
         3,
         1,
         '20091109101010',
         null,
         'CMS',
         '20121203050358',
         '20991212121212',
         1,
         'Davie;Carl2;Mike3',
         'Edgar;Andy2;Iped3',
         null,
         null,
         '3',
         'S;D;T;H',
         null,
         '1901',
         10010,
         null,
         null,
         null,
         'TR',
         '1,2,3,4,5',
         'Violence',
         0,
         '1');


insert into vod_attribute
values
  (vodnum, 'TINT', 5, 1, null);


insert into vod_langinfo
values
  (vodnum, 'EN', vodna, vodna, null, 'movie');


insert into vod_service
values (vodnum, 'Service001');


insert into content_poster 
values (vodnum, 1, 3, 1, '0,1,2', 1, '../../images/universal/film/poster/1.jpg');


insert into vodhuaweimdn
values (vodna, vodna, vodnum, 1, '0,1,2', '20091109101010', '20190909101010', 2,


'http://10.10.10.102:80/88888888/16/20121206/mission4/index.m3u8', null, 10, null, 11, '12', null, 10, null, null, null, null,


'rtsp://10.168.69.171/zgbq.mpg', null, '0', 'provision60030', 0, 0, 2, 1, 0, 0, '101011', '090901', 2, 'webtv|iPad|iPhone|WAP', 0, 1, 0, null,


null, 0, 0);


insert into program_subject
values (vodnum, '1002', 10, 1, null);


insert into program_subject
values (vodnum, '1001', 10, 1, null);


insert into program_subject
values (vodnum, '2001', 10, 1, null);


      commit;


      vodnum := vodnum + 1;


    end;
  end loop;/*循环结束*/
  end;


end insertvod;