IBM I Iseries - 无法删除存储过程中的索引

Question

嘿我正在尝试重新创建一个包含大约900万条记录的表，当我这样做时，我想首先在表上删除/暂停索引，然后重新创建/启动它们。

我们正在运行IBMI 7.3。

我已经创建了下面的存储过程来执行此操作。但是一旦它命中Drop索引语句，它就会“崩溃/停止”，但不会出错。

任何人都知道如何做到这一点？

CREATE PROCEDURE YXDB.GENERATE_SEARCH_DATA()
LANGUAGE SQL MODIFIES SQL DATA
SET OPTION DBGVIEW=*SOURCE,COMMIT=*NONE,OUTPUT=*PRINT
P1: BEGIN
    DECLARE is_there_index INT;
    DECLARE zero_index INT;
    DECLARE first_index INT;
    DECLARE next_index INT;
    DECLARE pre_phonetic_string varchar(100);
    DECLARE post_phonetic_string varchar(100);
    DECLARE search_string_actionable varchar(100);

    DECLARE END_TABLE INT DEFAULT 0;
    DECLARE ADDRESS_KEY INT;
    DECLARE ADDRESS_INFO VARCHAR(500);
    DECLARE ACTIVE INT;

    DECLARE C1 CURSOR FOR
           select distinct faadrnr,
            info, 
            (case 
                WHEN FKRELTYP like 'FFADRESSE%' AND FKKNTNR = 0
                THEN (select 1 from dual)
                WHEN FKRELTYP like 'SMOLEVADR%' AND FKPRDREF = 0
                THEN (ifnull((select 0 from somstp where sostat = 9 and sokunr = fkkntnr), ifnull((select 0 from frnkkop where (fkstatus in (2,9) or fklukdat <> '01.01.0001') and frnkkop.fkkntnr = alldata.fkkntnr),1)))
                WHEN FKRELTYP like 'SMOLEVADR%' AND FKPRDREF <> 0
                THEN (ifnull((select 0 from lsmstp where lsstat = 9 and lskunr = fkkntnr and lslvnr=fkprdref), ifnull((select 0 from frnkkop where (fkstatus in (2,9) or fklukdat <> '01.01.0001') and frnkkop.fkkntnr = alldata.fkkntnr),1)))
                WHEN FKRELTYP like 'TNKLEVADR%' 
                THEN (ifnull((select 0 from tkmstp where tkvol < 2 and tkknnr = fkkntnr and tknr = fkprdref), ifnull((select 0 from frnkkop where (fkstatus in (2,9) or fklukdat <> '01.01.0001') and frnkkop.fkkntnr = alldata.fkkntnr),1)))
                WHEN (FKRELTYP like 'FAKTURAADR%' OR FKRELTYP like 'PDFFAKTURA%' OR FKRELTYP like 'KONTOUDTOG%' OR FKRELTYP like'PRISMED%' OR FKRELTYP like  'FFADRESSE%' OR FKRELTYP like 'KKLEVADR%' OR FKRELTYP like 'KKFADRESSE%') and fkkntnr <> 0
                THEN (ifnull((select 0 from frnkkop where (fkstatus in (2,9) or fklukdat <> '01.01.0001') and frnkkop.fkkntnr = alldata.fkkntnr),1)) END
            ) active
        from (
            select TRIM(TRIM(FANAVN1) ||' ' || TRIM(FANAVN2) ||' ' || TRIM(FAADR1) ||' ' || TRIM(FAADR2) ||' ' || TRIM(FASTED) ||' ' || TRIM(FAPOSNUM) ||' ' || TRIM(zipcodes.PNBYNAVN)) AS INFO, FKRELTYP, FKPRDREF, FKKNTNR, faadrnr
            from NHODATA.FRNADRP adresses 
            join NHODATA.POSNUMP zipcodes on zipcodes.PNLANDEKOD= adresses.FALANKOD AND adresses.FAPOSNUM = zipcodes.PNPOSTNUM 
            join FRNKONP stakeholderTypes on stakeholderTypes.FKKONIDN = adresses.FAADRNR and TRIM(FKRELTYP) in ('FFADRESSE','SMOLEVADR','TNKLEVADR','FAKTURAADR','KONTOUDTOG','KKLEVADR','KKFADRESSE','PDFFAKTURA')
          ) allData;
        DECLARE CONTINUE HANDLER FOR NOT FOUND
        SET END_TABLE = 1;
      DECLARE EXIT HANDLER FOR SQLEXCEPTION
        SET END_TABLE = 1;


        -------- DELETE TEMP DATA
        DELETE FROM YXDB.SEARCH_ACTIVE_TEMP_TABLE;
        DELETE FROM YXDB.SEARCH_QUERY_TEMP_TABLE;
        ------------GENERATE DATA
        OPEN C1;
        FETCH C1 INTO ADDRESS_KEY, ADDRESS_INFO, ACTIVE;
            WHILE END_TABLE = 0 DO
                SET first_index = 1;
                SET zero_index = 1;
                SET first_index = LOCATE(' ',ADDRESS_INFO,1);

                SET ADDRESS_INFO = TRIM(REPLACE(ADDRESS_INFO,'/',''));

               --// INSERTING DATA - removed for stackoverflow \\ --
                FETCH C1 INTO ADDRESS_KEY, ADDRESS_INFO, ACTIVE;
            END WHILE;
        CLOSE C1;
        -------- DELETE BLANKS
        delete from yxdb.search_query_temp_table where search_word = '';
        delete from yxdb.search_active_temp_table where search_word = '';  
        -------- DROP INDEX
        DROP INDEX yxdb.SQD_SEARCH_WORD_EVI;
        DROP INDEX yxdb.SQD_FAADRNR_I;
        DROP INDEX yxdb.SAD_SEARCH_WORD_EVI;
        DROP INDEX yxdb.SAD_FAADRNR_I;
        -------- DELETE DATA
        DELETE FROM YXDB.SEARCH_ACTIVE_DATA;
        DELETE FROM YXDB.SEARCH_QUERY_DATA;
        -------- COPY TEMP DATA TO DATA
        INSERT INTO YXDB.SEARCH_ACTIVE_DATA (select distinct * from yxdb.search_active_temp_table);
        INSERT INTO YXDB.SEARCH_QUERY_DATA (select distinct * from yxdb.search_query_temp_table);
        -------- RE-CREATE INDEXs
        CREATE ENCODED VECTOR INDEX SQD_SEARCH_WORD_EVI
           ON yxdb.SEARCH_QUERY_DATA ( SEARCH_WORD ) ;
        CREATE INDEX SQD_FAADRNR_I
            ON yxdb.SEARCH_QUERY_DATA (FAADRNR);
        CREATE ENCODED VECTOR INDEX yxdb.SAD_SEARCH_WORD_EVI
           ON yxdb.SEARCH_ACTIVE_DATA ( SEARCH_WORD );
        CREATE INDEX yxdb.SAD_FAADRNR_I
            ON yxdb.SEARCH_ACTIVE_DATA (FAADRNR); 
     END P1;

Answer 1

PL / SQL终止的原因是您正在使用EXIT处理程序。当您尝试删除并且尚未存在的索引时，您的EXIT处理程序将启动。然后它将在退出处理程序中运行代码，然后退出程序。

我建议你在这种特殊情况下使用另一个继续处理程序，在你放弃索引之前你不关心索引是否存在。如果您决定这样做，那么请记住在循环开始之前SET END_TABLE = 0，否则它可能由continue处理程序设置，您将永远不会进入循环。