如何回滚请求<复制系统初始的数据>所处理的数据

一、    问题提出

请求名称：复制系统初始的数据

参数：空

问题：

今天早上财务实施人员新配置了一个OU，然后在跑复制系统初始的数据报表的时候，不小心，不输入参数就直接跑。

报表先是报错。





接下来的问题更加严重了。因为这个请求会做很多塞数据的动作，导致一些设定表格数据重复了。

就是说，原来的业务实体已经存在设定的数据，因为跑这个报表的时候，没有限制业务实体就运行，所以，所有的业务实体的数据都会重新塞一次到相关的表格。

特别是表格：AR_SYSTEM_PARAMETERS_ALL，当OU数据重复的时候，标准的销售订单，应收应付参数设置等的地方，打开都会报一个异常的错误。





二、    解决问题的处理过程

核心问题点：如何回滚？

这里提出一个有效的解决办法。

1.      首先，必须要了解[复制系统初始的数据]这个请求究竟是做一个什么样的动作，就是要了解它的代码。



里面主要是调用ad_morg.replicate_seed_data过程来处理数据。

而过程ad_morg.replicate_seed_data主要是将一堆表格的数据，从默认的OU（-3113或者）复制数据到目标的业务实体(如果没有输入目标的业务实体，则所有的业务实体都会塞)。



所以，只要确定2个问题点：

它会将什么表格，里面的什么数据，塞到新的业务实体里面。就可以做一个完整的回滚动作。



2.      确定该报表自动运行的SQL语句。

我这里用一个办法，将上面的过程所自动执行的Insert的SQL语句塞到一个表格里面。然后就可以慢慢分析了。

注意：下面的步骤必须到最新的测试环境做。

1)        新建临时表格。

create table XYG.xyg_ad_morg_temp(seq number,statement CLOB,parmeter varchar2(4000));

CREATE SYNONYM APPS.xyg_ad_morg_temp FOR XYG.xyg_ad_morg_temp;

2)        新建一个包xyg_ad_morg。

包xyg_ad_morg和ad_morg一模一样的。注意必须要取消自动执行的动态SQL语句还有COMMIT的语句。

下面是代码：



主要是增加：



还有修改：



等等。



3)        接着，执行下面的代码，自动产生数据到临时表。

declare

  X_org_id number;

begin

  xyg_ad_morg.g_table_seq := 0;

  dbms_output.enable(1000000);

  X_org_id := null;--to_number('&1');

  xyg_ad_morg.replicate_seed_data(X_org_id,NULL,NULL);



exception

  when others then

    raise;

end;



跑完之后，查询：

SELECT * FROM xyg_ad_morg_temp ORDER BY SEQ;







3.      接下来的是重点了，自己编写一道程序，自动验证究竟有多少数据会重复塞到现有的OU里面：

DECLARE

    L_DEBUG_MODE BOOLEAN := TRUE;

    L_SELECT_STATEMENT varchar2(32767);

    L_DEAL_TABLE   VARCHAR2(240);

    ---

    l_sum_row      number;

    l_sql          VARCHAR(32767);

    l_cursor       NUMBER;

    l_stat         NUMBER;

    ---

    CURSOR CUR_AD_MORG IS

    SELECT * FROM xyg_ad_morg_temp ORDER BY SEQ;

BEGIN

   dbms_output.enable(1000000);

    FOR REC_AD_MORG IN CUR_AD_MORG LOOP

        l_sum_row := 0;

        ---抓出要处理的表格

        L_DEAL_TABLE := SUBSTR(REC_AD_MORG.STATEMENT

                              ,INSTR(UPPER(REC_AD_MORG.STATEMENT),' ',1,2)+1

                              ,INSTR(UPPER(REC_AD_MORG.STATEMENT),' ',1,3)-INSTR(UPPER(REC_AD_MORG.STATEMENT),' ',1,2)-1);

        ----组合SQL语句：

        L_SELECT_STATEMENT := 'SELECT COUNT(*) '||SUBSTR(REC_AD_MORG.STATEMENT,INSTR(UPPER(REC_AD_MORG.STATEMENT),' FROM ',1));

        /*

        IF L_DEBUG_MODE THEN

           DBMS_OUTPUT.PUT_LINE(SUBSTRB(L_SELECT_STATEMENT,1,240));

        END IF;

        */

        l_sql := L_SELECT_STATEMENT;

        

       --dbms_output.put_line(l_sql);

       --打开游标；

       l_cursor := dbms_sql.open_cursor;

       --解析动态SQL语句； dbms_sql.native

       dbms_sql.parse(l_cursor, l_sql, 1);

      


       --绑定变量

       IF REC_AD_MORG.PARMETER LIKE '%-3113%' THEN

          dbms_sql.bind_variable(l_cursor, ':X_source_org_id', -3113);

       ELSE

          dbms_sql.bind_variable(l_cursor, ':X_target_org_id', '');

          dbms_sql.bind_variable(l_cursor, ':X_source_org_id', -3114);

       END IF;

      


        --定义列

       dbms_sql.define_column(l_cursor, 1, l_sum_row);

       --执行动态SQL语句。

       l_stat := dbms_sql.execute(l_cursor);                  




       LOOP

         --fetch_rows在结果集中移动游标，如果未抵达末尾，返回1。

          EXIT WHEN dbms_sql.fetch_rows(l_cursor) <= 0;


          --将当前行的查询结果写入上面定义的列中。

          dbms_sql.column_value(l_cursor, 1, l_sum_row);

       END LOOP;

      


       --关闭游标。

       dbms_sql.close_cursor(l_cursor);

      


       ---输出我们想要的结果：

       IF l_sum_row > 0 THEN

        dbms_output.put_line('SEQ:'||REC_AD_MORG.SEQ||'
表格:'||L_DEAL_TABLE||'
自动塞记录行数:'||l_sum_row);

       END IF;

    END LOOP;

END;



4.      下面的是日志记录：

SEQ:1 表格:AP_1096_DATA_ALL
自动塞记录行数:40

SEQ:5 表格:AP_TOLERANCES_ALL
自动塞记录行数:40

SEQ:17 表格:AR_SYSTEM_PARAMETERS_ALL
自动塞记录行数:40

SEQ:49 表格:CN_OBJECTS_ALL
自动塞记录行数:3

SEQ:51 表格:CN_PERIOD_TYPES_ALL
自动塞记录行数:120

SEQ:73 表格:CN_TABLE_MAP_OBJECTS_ALL
自动塞记录行数:560

SEQ:107 表格:OE_PAYMENT_TYPES_ALL
自动塞记录行数:240

SEQ:109 表格:OE_PAYMENT_TYPES_TL
自动塞记录行数:480

SEQ:137 表格:OZF_CLAIM_DEF_RULES_ALL
自动塞记录行数:560

SEQ:141 表格:PO_CHANGE_ORDER_TOLERANCES_ALL
自动塞记录行数:2680

SEQ:143 表格:CN_CW_WORKBENCH_ITEMS_ALL_B
自动塞记录行数:320

SEQ:145 表格:CN_CW_WORKBENCH_ITEMS_ALL_TL
自动塞记录行数:640

SEQ:147 表格:CN_CW_SETUP_TASKS_ALL_B
自动塞记录行数:600

SEQ:149 表格:CN_CW_SETUP_TASKS_ALL_TL
自动塞记录行数:1200

还好表格也不多。处理起来应该还是挺方便的。



5.      最后根据上面的日志的信息，逐个表格处理。

建议处理步骤：

1 首先要根据SQL语句，参数，确认一下是否真的有重复塞对应的表。

   
如果查询出来的没有数据，则标识一下这个表是没有塞新的数据。

2 如果查询出来的有数据，则要先备份一下基础数据表（表名+BAK），备份表要建立在XYG下面。

   
然后再根据多出来的数据，来清掉。

   
例如：

    AP_1096_DATA_ALL

   
对应的备份表应该是：XYG.XYG_AP_1096_DATA_ALL_BAK

   
如果名字过长，则适当用简称。但是XYG.XYG---BAK是必须要的关键字。

4 必须要查看对应表格是否有触发器。

3 备份后，然后再清理掉重复的数据。必须要注意，是重复的才处理！还有，业务实体
ID是-3113和-3114的不可以动。

(END)

今天和Oracle的工程师沟通上了。他们给的处理办法和我处理的结果几乎一样（都是针对这些表格来做数据的重复删除）。

而且这个文档，貌似在Oracle Meterlink上面是查询不到的（被保密，所以文档ID我就不说明了）。所以顺便贴一下，仅供交流用！

-----------

Applies to:

Oracle Payables - Version: 12.0.6 to 12.0.6

Oracle Receivables - Version: 12.0.6 to 12.0.6

Oracle Incentive Compensation - Version: 10.7

Goal

During system upgrade, running Replicate Seed Data Concurrent Program to populate the


Installed modules with Seeded values cause the following data issue:



Missing records in table AR_MEMO_LINES_ALL_TL and duplicated records in the following


tables:



AR_SYSTEM_PARAMETERS_ALL



AP_1096_DATA_ALL

AP_TOLERANCES_ALL



CN_CW_SETUP_TASKS_ALL_TL

CN_CW_SETUP_TASKS_ALL_B



The folloiwng errors show up when trying to enter the system options in AR(Account


Receivable):

ORA-01422: exact fetch returns more than requested number of rows



--------------------------------------------------------------

FRM-40735: POST-QUERY trigger raised unhandled exception ORA-01422.



Pressing OK. Trying to choose OU with following errors:



APP-AR-294467: System options already define for this OU.You can only

view or update this option.



When trying to Query system options with following errors:

ORA-01422: exact fetch returns more than requested number of rows

Solution

Account Receivable data fix

===================



1. AR_SYSTEM_PARAMETERS_ALL: Log an itar and provide the output of the following query.



SELECT ROWID, org_id, b.* FROM AR_SYSTEM_PARAMETERS_ALL b

WHERE org_id in (select org_id from AR_SYSTEM_PARAMETERS_ALL

group by org_id having count(*) > 1)

and 1 <= (SELECT Count(*)

FROM AR_SYSTEM_PARAMETERS_ALL a

WHERE a.org_id = b.org_id

AND a.ROWID < b.ROWID)

order by b.org_id;



2. AR_MEMO_LINES_ALL_TL: Run the following script to insert the missing records.

INSERT INTO AR_MEMO_LINES_ALL_TL

(MEMO_LINE_ID,

NAME,

DESCRIPTION,

LANGUAGE,

SOURCE_LANG,

LAST_UPDATE_DATE,

CREATION_DATE,

CREATED_BY,

LAST_UPDATED_BY,

LAST_UPDATE_LOGIN,

ORG_ID)

SELECT /*+ ordered no_expand parallel(a) */

MEMO_LINE_ID,

NAME,

DESCRIPTION,

LANGUAGE,

SOURCE_LANG,

LAST_UPDATE_DATE,

CREATION_DATE,

CREATED_BY,

LAST_UPDATED_BY,

LAST_UPDATE_LOGIN,

V.ORGANIZATION_ID

FROM AR_MEMO_LINES_ALL_TL A,

(SELECT /*+ no_merge */

ORGANIZATION_ID

FROM FND_PRODUCT_GROUPS, HR_OPERATING_UNITS

WHERE PRODUCT_GROUP_ID = 1

AND MULTI_ORG_FLAG = 'Y'

UNION

SELECT NULL

FROM DUAL

WHERE NOT EXISTS (SELECT NULL

FROM FND_PRODUCT_GROUPS

WHERE MULTI_ORG_FLAG = 'Y')) V

WHERE NVL(a.ORG_ID, -99) = NVL(-3113, -99)

AND NOT (a.ORG_ID = -3114 AND V.ORGANIZATION_ID IS NOT NULL)

AND (A.MEMO_LINE_ID,A.LANGUAGE, NVL(V.ORGANIZATION_ID, -99)) NOT IN

(SELECT /*+ hash_aj parallel(b) */

MEMO_LINE_ID, LANGUAGE, NVL(ORG_ID, -99)

FROM AR_MEMO_LINES_ALL_TL B

WHERE B.MEMO_LINE_ID = A.MEMO_LINE_ID

AND B.LANGUAGE = A.LANGUAGE

AND nvl(B.org_id,-99)=nvl(V.ORGANIZATION_ID,-99));





Incentive Compensation data fix

=====================



delete from CN_CW_SETUP_TASKS_ALL_B c1

where c1.rowid = (select max(rowid)

from CN_CW_SETUP_TASKS_ALL_B c2

where c1.org_id = c2.org_id

and c1.setup_task_code = c2.setup_task_code

and c1.workbench_item_code = c2.workbench_item_code

and c1.setup_task_sequence = c2.setup_task_sequence

and c1.setup_task_status = c2.setup_task_status

group by org_id, setup_task_code, workbench_item_code,

setup_task_sequence, setup_task_status

having count(1) > 1 ) ;



-- should have 15 records per org_id for cn_cw_setup_tasks_all_b



delete from CN_CW_SETUP_TASKS_ALL_TL c1

where c1.rowid = (select max(rowid)

from CN_CW_SETUP_TASKS_ALL_TL c2

where c1.org_id = c2.org_id

and c1.setup_task_code = c2.setup_task_code

and c1.language = c2.language

and c1.source_lang = c2.source_lang

and c1.setup_task_name = c2.setup_task_name

and c1.setup_task_description = c2.setup_task_description

group by org_id, setup_task_code, language,

source_lang, setup_task_name, setup_task_description

having count(1) > 1 ) ;



-- should have 15 records per org_id per language for cn_cw_setup_tasks_all_tl





Account Payables data fix

=================



Table AP_TOLERANCES_ALL has been obsoleted, and is not used anywhere any longer.



Table AP_1096_DATA_ALL is simply a container for the summary information for the 1099 suppliers, and the data gets deleted and re-created, on running the 1099 reports.




Please log a new itar if the duplicated data cause any other issue in AP.





The code fix is addressed by the following bugs:



Bug:8302210 (AD) - REPLICATE SEED DATA PROGRAM INSERT DUPLICATE ROWS IN AR_SYSTEM_APRAMETERS_ALL




Bug:7828394 (AR) - REPLICATE SEED DATA PROGRAM INSERT DUPLICATE ROWS IN AR_SYSTEM_APRAMETERS_ALL

来自：http://www.itpub.net/thread-1803604-1-12.html