oracle存储过程

create or replace procedure SIGSERVCONNNUM_PRO is
SERV_ID NUMBER(12);
LATN_ID NUMBER(9);
CONN_NUM NUMBER(8);
ACCT_NO VARCHAR2(100);
NEW_CUST_TYPE VARCHAR2(1);
ACCT_NO_TYPE VARCHAR2(1);

I NUMBER(10);
create_num number(10);

begin
create_num := 1000000;
LATN_ID := 1001;
NEW_CUST_TYPE :='0';
ACCT_NO_TYPE :='a';

I :=0;

WHILE I < create_num LOOP

ACCT_NO := 'GX_' || to_char(I);
CONN_NUM := I mod 20;
SERV_ID := 4 + I;




if (I mod 5) = 0 then
LATN_ID := 1001;
NEW_CUST_TYPE :='1';
ACCT_NO_TYPE :='a';
end if;
if (I mod 5) = 1 then
LATN_ID := 1002;
NEW_CUST_TYPE :='2';
ACCT_NO_TYPE :='b';
end if;
if (I mod 5) = 2 then
LATN_ID := 1003;
NEW_CUST_TYPE :='3';
ACCT_NO_TYPE :='C';
end if;
if (I mod 5) = 3 then
LATN_ID := 1004;
NEW_CUST_TYPE :='4';
ACCT_NO_TYPE :='d';
end if;
if (I mod 5) = 4 then
LATN_ID := 1005;
NEW_CUST_TYPE :='5';
ACCT_NO_TYPE :='e';
end if;




INSERT INTO SIG_SERV_CONN_NUM
VALUES
(
SERV_ID,
LATN_ID,
CONN_NUM,
ACCT_NO,
NEW_CUST_TYPE,
ACCT_NO_TYPE
);


I := I + 1;
END LOOP;
COMMIT;
end SIGSERVCONNNUM_PRO;