Update statement not working inside DBMS_PARALLEL_EXECUTE

Question

CREATE OR REPLACE procedure
proc_table_mask_par2 (p_tblName in varchar2
,p_strmCount in number)
IS
| Name: proc_table_mask
| Version: 1.0
| Function: The procedure generates the block which will mask the table based on inputrs from
MSK_INVENTORY_COLS table
| Modification History:
| Ver: Date: Who: What:
| 1.0 2012-11-26 HB Created
vtbl_Name varchar2(100);
vtbl_Count number(19,0);
vStrm_row_count number(19,0);
vCurs_count number(19,0) := 1;
vsql varchar2(30000);
vsql1 varchar2(30000);
vstragg varchar2(4000);
v_try number;
v_status number;
v_status1 number;
vtaskName varchar2(100) := 'Mask job for '||p_tblName ;
pstartnum number(19,0);
pendnum number(19,0);
v_prim_key varchar2(100);
--retries_in  PLS_INTEGER DEFAULT 2;
--l_attempts    PLS_INTEGER := 1;
begin
-- Use function Stragg to get the update statement from MSK_INVENTORY_COLS
select stragg(MIC.COLUMN_NAME || ' = ' || MIC.FUNCTION_NAME|| '(' ||MIC.COLUMN_NAME||')') into vstragg from MSK_INVENTORY_COLS mic
WHERE MIC.TABLE_NAME = p_tblName;
EXECUTE IMMEDIATE 'select count(1) from '||p_tblName into vtbl_Count;
--DBMS_OUTPUT.PUT_LINE ( 'vtbl_Count : ' ||vtbl_Count);
vStrm_row_count := round( vtbl_Count/p_strmCount);
dbms_output.put_line(' vStrm_row_count : ' || vStrm_row_count);
-- Update statement
vsql := vsql ||chr(10) || ' UPDATE '|| p_tblName || ' /*+ parallel ( '||p_tblName ||', '||p_strmCount||') */ ' ;
vsql := vsql ||chr(10) || ' SET '|| vstragg;
vsql := vsql ||chr(10) || ' , lock_id = -1 ' ;
vsql := vsql ||chr(10) || 'WHERE ROWID BETWEEN :starting_rowid AND :ending_rowid' ;
vsql := vsql ||chr(10) || ' and lock_id <> -1 ; ' ;
dbms_output.put_line (' vsql : ' || vsql);
DBMS_PARALLEL_EXECUTE.CREATE_TASK (vtaskName);
DBMS_PARALLEL_EXECUTE.CREATE_CHUNKS_BY_ROWID (task_name => vtaskName
, table_owner => SYS_CONTEXT ('USERENV', 'SESSION_USER') --USER
, table_name => p_tblName
, by_row => TRUE
, chunk_size => vStrm_row_count
DBMS_PARALLEL_EXECUTE.RUN_TASK (task_name => vtaskName
, sql_stmt => vsql
, language_flag => DBMS_SQL.native
, parallel_level => p_strmCount
-- Only resume for the following
-- INVALID_STATE_FOR_REDSUME ORA - 29495
-- Attempts to resume execution, but the task is not in FINISHED_WITH_ERROR or CRASHED state
-- Constant value for CRASHED = 8
-- Constant value for FINISHED_WITH_ERROR = 7
v_try := 0;
v_status := DBMS_PARALLEL_EXECUTE.TASK_STATUS(vtaskName);
dbms_output.put_line (' v_status : ' || v_status);
dbms_output.put_line (' v_try : ' || v_try);
WHILE(v_try < 2 and v_status != DBMS_PARALLEL_EXECUTE.FINISHED and ((v_status = 7) or( v_status = 8) ))
LOOP
v_try := v_try + 1;
DBMS_OUTPUT.PUT_LINE (' Why am I getting into this loop : ' );
DBMS_PARALLEL_EXECUTE.RESUME_TASK(vtaskName);
v_status := DBMS_PARALLEL_EXECUTE.TASK_STATUS(vtaskName);
END LOOP;
DBMS_PARALLEL_EXECUTE.DROP_TASK(vtaskName);
exception
when
others then
raise;
dbms_output.put_line(sqlerrm);
end;
Gurus
I am executing the procedure above using the following anonymous block.
DECLARE
P_TBLNAME VARCHAR2(32767);
P_STRMCOUNT NUMBER;
BEGIN
P_TBLNAME := 'EMPLOYEE_DIM';
P_STRMCOUNT := 10;
A516907.PROC_TABLE_MASK_PAR2 ( P_TBLNAME, P_STRMCOUNT );
COMMIT;
END;
I have used dbms_output for getting values for the following variables. When I check the values the update does not seem to be working.
vStrm_row_count : 60143
vsql :
UPDATE EMPLOYEE_DIM /*+ parallel ( EMPLOYEE_DIM, 10) */
SET
BUSINESS_TITLE_NM = FN_TITLE_DRM_ENCRYPTNSUM(BUSINESS_TITLE_NM),COST_CENTER_CD =
FN_COSTCTR_DRM_ENCRYPTNSUM(COST_CENTER_CD),DIRECT_MGR_NM =
FN_DRM_REG_ADDR_TEXT(DIRECT_MGR_NM),FIRST_NM =
FN_FNM_DRM_ENCRYPTNSUM(FIRST_NM),LAST_FIRST_FULL_NM =
FN_DRM_REG_ADDR_TEXT(LAST_FIRST_FULL_NM),LAST_FIRST_MIDDLE_FULL_NM =
FN_DRM_REG_ADDR_TEXT(LAST_FIRST_MIDDLE_FULL_NM),LAST_NM =
FN_LNM_DRM_ENCRYPTNSUM(LAST_NM),PHONE_NO =
FN_PHONE_DRM_ENCRYPTNSUM(PHONE_NO),PRIMARY_EMAIL_ADDRESS_NM =
FN_EMAIL_DRM_ENCRYPTNSUM(PRIMARY_EMAIL_ADDRESS_NM)
, lock_id = -1
WHERE ROWID
BETWEEN :starting_rowid AND :ending_rowid
and lock_id <> -1 ;
v_status : 4
v_try : 0

Answer 1

I tried to do the update using chunk sql and ran the procedure again..No updates are made.
CREATE OR REPLACE procedure
proc_table_mask_chunk_sql (p_tblName in varchar2
,p_strmCount in number)
IS
| Name: A516907.proc_table_mask
| Version: 1.0
| Function: The procedure generates the block which will mask the table based on inputrs from
MSK_INVENTORY_COLS table
| Modification History:
| Ver: Date: Who: What:
| 1.0 2012-11-26 HB Created
vtbl_Name varchar2(100);
vtbl_Count number(19,0);
vStrm_row_count number(19,0);
vCurs_count number(19,0) := 1;
vsql varchar2(1000);
vsql_pk varchar2(1000);
vstragg varchar2(4000);
vtaskName varchar2(100) := 'Mask Data in table '||p_tblName ;
pstartnum number(19,0);
pendnum number(19,0);
upd_st number(19,0) := 1;
v_prim_key varchar2(100);
l_try NUMBER;
l_status NUMBER;
begin
DBMS_PARALLEL_EXECUTE.CREATE_TASK (vtaskName);
-- Use function Stragg to get the update statement from MSK_INVENTORY_COLS
select stragg(MIC.COLUMN_NAME || ' = ' || MIC.FUNCTION_NAME|| '(' ||MIC.COLUMN_NAME||')') into vstragg from MSK_INVENTORY_COLS mic
WHERE MIC.TABLE_NAME = p_tblName;
select stragg(UCC.COLUMN_NAME) COLUMN_NAME into v_prim_key
from user_constraints uc , user_cons_Columns ucc
where UC.CONSTRAINT_TYPE = 'P'
and UC.CONSTRAINT_NAME = UCC.CONSTRAINT_NAME
and UCC.TABLE_NAME = p_tblName;
vsql_pk := 'SELECT distinct ' || v_prim_key || ','|| v_prim_key || ' FROM ' || p_tblName;
DBMS_OUTPUT.PUT_LINE ( 'vsql_pk : ' ||vsql_pk);
--EXECUTE IMMEDIATE ' select stragg(COLUMN_NAME ||''=''||FUNCTION_NAME||''(''||COLUMN_NAME||'')'') from MSK_INVENTORY_COLS WHERE TABLE_NAME = ' ||p_tblName  INTO vstragg ;
--EXECUTE IMMEDIATE 'select count(1)   from vtbl_Name' into vtbl_Count;
EXECUTE IMMEDIATE 'select count(1) from '||p_tblName into vtbl_Count;
--DBMS_OUTPUT.PUT_LINE ( 'vtbl_Count : ' ||vtbl_Count);
vStrm_row_count := round( vtbl_Count/p_strmCount);
DBMS_PARALLEL_EXECUTE.CREATE_CHUNKS_BY_SQL(vtaskName, vsql_pk, false);
--DBMS_OUTPUT.PUT_LINE ( 'vStrm_row_count : ' ||vStrm_row_count);
--EXECUTE IMMEDIATE 'SELECT MIN( '||v_prim_key||') from ' ||p_tblName into pstartnum;
----dbms_output.put_line (' pstartnum : ' || pstartnum);
--pendnum :=  vStrm_row_count;
----dbms_output.put_line (' pendnum : ' || pendnum);
-- Update statement
vsql := vsql ||chr(10) || ' UPDATE '|| p_tblName || ' /*+ parallel ( '||p_tblName ||', '||p_strmCount||') */ ' ;
vsql := vsql ||chr(10) || ' SET '|| vstragg;
vsql := vsql ||chr(10) || ' , lock_id = -1 WHERE ' ;
vsql := vsql ||chr(10) || v_prim_key|| ' BETWEEN :start_id and :end_id ';
vsql := vsql ||chr(10) || ' and lock_id <> -1 ; ' ;
--DBMS_PARALLEL_EXECUTE.CREATE_TASK (vtaskName||'_'||upd_st);
DBMS_PARALLEL_EXECUTE.RUN_TASK ( vtaskName
, vsql
, DBMS_SQL.native
, parallel_level => p_strmCount
L_try := 0;
L_status := DBMS_PARALLEL_EXECUTE.TASK_STATUS(vtaskName);
WHILE(l_try < 2 and L_status != DBMS_PARALLEL_EXECUTE.FINISHED and ((L_status = 7) or( L_status = 8) ))
Loop
L_try := l_try + 1;
DBMS_PARALLEL_EXECUTE.RESUME_TASK(vtaskName);
L_status := DBMS_PARALLEL_EXECUTE.TASK_STATUS(vtaskName);
END LOOP;
end;
Block run :
DECLARE
P_TBLNAME VARCHAR2(32767);
P_STRMCOUNT NUMBER;
BEGIN
P_TBLNAME := 'EMPLOYEE_DIM';
P_STRMCOUNT := 10;
A516907.PROC_TABLE_MASK_CHUNK_SQL ( P_TBLNAME, P_STRMCOUNT );
COMMIT;
END;
/