CREATE OR REPLACE PROCEDURE ASSET_OWNER_ASSIGN

IS

COUNTER_BATCH        NUMBER(3) :=0;

CURSOR C_EIM_ASSET_CDI 

IS 

SELECT A.par_accnt_name, A.par_accnt_loc, A.name, A.accnt_type_cd, B.ast_bill_accntname
FROM EIM_ACCOUNT A, EIM_ASSET B
wHERE B.ast_bill_accntname = A.name
AND A.accnt_type_cd = 'Billing'
AND A.par_accnt_name is not null
AND A.par_accnt_loc is not null;


R_EIM_ASSET_CDI C_EIM_ASSET_CDI%ROWTYPE;


BEGIN


for R_EIM_ASSET_CDI  in C_EIM_ASSET_CDI 

LOOP

  update eim_asset
  
  set owner_accnt_name = R_EIM_ASSET_CDI.par_accnt_name,owner_accnt_loc = R_EIM_ASSET_CDI.par_accnt_loc;    

COUNTER_BATCH := COUNTER_BATCH + 1;

if COUNTER_BATCH =1000
    
THEN 

COMMIT;

COUNTER_BATCH := 0;

END IF;

END LOOP;

COMMIT;

END ASSET_OWNER_ASSIGN;

/