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;