--表
create table RANDOM_NUMBER_TEMP
(
  ROW_NUM    NUMBER default 0 not null,
  RANDOM_NUM VARCHAR2(30) not null
 
)
--type
type number_array_t is table of number index by binary_integer;
--实现生成唯一随机数
PROCEDURE INIT_RANDOM_NUMBRE(P_QUANTITY  IN NUMBER,   --生成数量
                             P_LEN       IN NUMBER, --随机数长度                            
                             STATUS      OUT VARCHAR2,
                             REEOR_MES   OUT VARCHAR2         
   )IS   
    number_array       number_array_t;
    v_number_array_len number ;
    v_random_index     number;
    new_number_array   number_array_t;
    new_num_arr_index  integer :=1;
    
    V_ROW_NUM          integer  := 0;
    V_MAX_INDEX        NUMBER;
    V_EMPTY_COUNT      NUMBER := 0 ;  --检测到空值的次数
    --n                  integer  :=1 ; --测试用的，统计重至number_array数组次数
    tag_number         NUMBER := 0.25; --允许检测到空值的比例
    V_MAC_EMPTY_COUNT  number := 100; --允许检测到空值的次数的最大值
    
   BEGIN   
        STATUS := CONST_TRUE;
         v_number_array_len := POWER(10,P_LEN);
        --生成条数大于随机数数量最大值。
        if P_QUANTITY>v_number_array_len then
            v_number_array_len := P_QUANTITY;
          -- return ‘N‘;
        end if;
        for k in 0..v_number_array_len-1 loop
           number_array(k+1) := k;
        end loop;
        
        V_MAX_INDEX := number_array.count;
        V_MAC_EMPTY_COUNT :=CEIL(V_MAX_INDEX * tag_number);                                
        loop 
            exit when V_ROW_NUM = P_QUANTITY or number_array.count = 0;--V_ROW_NUM 从0开始
            v_random_index := round(dbms_random.value(0.5,V_MAX_INDEX));         
            
             IF number_array.EXISTS( v_random_index) THEN   
                   V_ROW_NUM := V_ROW_NUM + 1;    
                   INSERT INTO sfc.random_number_temp(ROW_NUM, random_num) VALUES(V_ROW_NUM,LPAD(to_char(number_array(v_random_index)),P_LEN,‘0‘));                    
                   number_array.DELETE( v_random_index); 
            ELSE
                V_EMPTY_COUNT := V_EMPTY_COUNT +1;
                IF V_EMPTY_COUNT > V_MAC_EMPTY_COUNT THEN
                   if number_array.count <=V_MAX_INDEX then
                     new_num_arr_index :=1;
                     for t in 1..V_MAX_INDEX loop
                           if number_array.EXISTS(t) then
                              new_number_array(new_num_arr_index) := number_array(t);
                              new_num_arr_index := new_num_arr_index + 1;
                           end if;  
                      end loop;      
                    end if;
                  number_array := new_number_array;    
                  new_number_array.delete(); --清空数组              
                  V_MAX_INDEX := number_array.count;
                  V_MAC_EMPTY_COUNT :=CEIL(V_MAX_INDEX * tag_number);--重至取空次数
                  --n := n+1;  
                  V_EMPTY_COUNT := 0;                      
                 END IF; 
            END IF;
        end loop;  
       COMMIT;
    EXCEPTION
      WHEN OTHERS THEN
        STATUS := CONST_FALSE;
        REEOR_MES := SQLCODE || ‘::‘ || SUBSTR(SQLERRM, 1, 500);  
   END;