Oracle中存储过程产生16位卡号和1-13密码

--===================卡号GGC0000000000001---16位--密码1-13位create sequence ggcard_seq minvalue 1 maxvalue 9999999999999 start with 1 increment by 1 ;

create or replace procedure ggcard_proc (beginNum number,endNum number)istype tempNum_table is table of number index by binary_integer;type tempStr_table is table of varchar2(20) index by binary_integer;type cardPwd_table is table of varchar2(18) index by binary_integer; zeroStr constant varchar(13):='0000000000000'; tempNum tempNum_table; tempStr tempStr_table; cardPwd cardPwd_table;begin   for i in beginNum..endNum   loop     select round(dbms_random.value (1,10000000000000)) into cardPwd(i) from dual;---随机密码     select ggcard_seq.nextval into tempNum(i) from dual;     if length(to_char(tempNum(i)))<13 then           tempStr(i):=substr(zeroStr,0,13-length(to_char(tempNum(i))));     else         tempStr(i):=to_char(tempNum(i));     end if;       tempStr(i):='GGC'||tempStr(i)||tempNum(i);  -- dbms_output.put_line(cardPwd(i)||'--'||tempStr(i));   end loop;   FORALL i in beginNum..endNum    insert into GGCardInfo(GGCardID,GGCardPWD,Stauts) values(tempStr(i),cardPwd(i),1);  -- commit;end;