oracle 索引表下标使用VARCHAR2类型判断主叫号码

为了提高号段匹配速度，提高匹配效率，使用索引表下标VARCHR2类型匹配电话号是非常方便快捷的。下面是我工作中使用的方法，希望大家共同探讨。

CREATE OR REPLACE PROCEDURE PC_HAOR_DEAL_SECT IS ---------------------------------------------------------------------------------------------- -- Copyright(c) 2007 : 黑龙江省通信公司支撑共享中心.郝锐.版权所有 ---------------------------------------------------------------------------------------------- -- Program Name      : 去除相同地区重复号段0-9情况 ---------------------------------------------------------------------------------------------- -- This VerSion      : 1.10.00 -- Creator By        : HR    Time:2007/08/02 -- Modify by         :         Time: -- Modify by         :         Time: -- Last Modify by    : -- Last Modify cause : --                   : --                   : --******************************************************************************************-- /*TYPE RD IS RECORD (    TEL_SECT JFJS_HR_UNC_SECT.TEL_SECT%TYPE,    AREA_CODE JFJS_HR_UNC_SECT.AREA_CODE%TYPE    ); */ TYPE T_SECT IS TABLE OF NUMBER INDEX BY VARCHAR2(16); T_TAB T_SECT; --操作内存表

KEY INTEGER; V_BOUND VARCHAR2(16); V_L VARCHAR2(16); V_AREA_CODE NUMBER;

BEGIN      --提取号段到内存表    FOR RE IN (SELECT DISTINCT TEL_SECT,AREA_CODE               FROM JFJS_HR_UNC_SECT               ORDER BY TEL_SECT)    LOOP      T_TAB(RE.TEL_SECT):=RE.AREA_CODE;    END LOOP;

    --处理重复号段操作 处理有上级号段------------------------------------------    V_L:=T_TAB.FIRST;    WHILE V_L IS NOT NULL LOOP      IF T_TAB.EXISTS(SUBSTR(V_L,1,LENGTH(V_L)-1))      OR T_TAB.EXISTS(SUBSTR(V_L,1,LENGTH(V_L)-2))      OR T_TAB.EXISTS(SUBSTR(V_L,1,LENGTH(V_L)-3))      OR T_TAB.EXISTS(SUBSTR(V_L,1,LENGTH(V_L)-4))      OR T_TAB.EXISTS(SUBSTR(V_L,1,LENGTH(V_L)-5))      OR T_TAB.EXISTS(SUBSTR(V_L,1,LENGTH(V_L)-6))      THEN      --如果存在上一级号段则删除当前下一级的号段           T_TAB.DELETE(V_L);      END IF;      V_L:=T_TAB.NEXT(V_L);    end loop;

   --处理没有上级号段重复地址尾号段是0-9的情况--------------------------------- for h in 0..4 loop --处理添加缩位号段后重新满足重复号段的情况    V_L:=T_TAB.FIRST;    WHILE V_L IS NOT NULL LOOP     --保存area_code 值      V_AREA_CODE :=T_TAB(V_L);      --判断号段是否满足重复条件      KEY :=0;        FOR I IN 0..9 LOOP      BEGIN          IF (  T_TAB.EXISTS(SUBSTR(V_L,1,LENGTH(V_L)-1)||TO_CHAR(I)) )             AND             ( V_AREA_CODE=T_TAB(SUBSTR(V_L,1,LENGTH(V_L)-1)||TO_CHAR(I))  )          THEN          KEY :=KEY +1;          END IF;      END;      END LOOP;      --如果满足重复条件,全部删除      IF KEY =10 THEN         FOR J IN 0..9 LOOP         T_TAB.DELETE(SUBSTR(V_L,1,LENGTH(V_L)-1)||TO_CHAR(J)) ;         END LOOP;         --缩位追加         T_TAB(SUBSTR(V_L,1,LENGTH(V_L)-1)):=V_AREA_CODE ;      END IF;

   V_L:=T_TAB.NEXT(v_l);      END LOOP;    end loop;      --替换源表数据    DELETE  FROM tmp_haor ;    COMMIT;       V_BOUND:=T_TAB.FIRST;    WHILE V_BOUND IS NOT NULL LOOP      INSERT INTO tmp_haor(AREA_CODE,TEL_SECT)      VALUES(T_TAB(V_BOUND),V_BOUND);      COMMIT;      V_BOUND:=T_TAB.NEXT(V_BOUND);    END LOOP;    END ; /