begin

for i in (select * from PPDI_TRACKING_DERATE where PRIMARY_KEY = :PAGE_NUMBER_PRIMARY_KEY) loop
 update PPDI_TRACKING_ENERGY
 SET UPDTR = 'UPDATED'
 where TRUNC("PPDI_TRACKING_ENERGY"."DATE_FIELD") = TRUNC(i."DATE_FIELD") AND "PPDI_TRACKING_ENERGY"."PLANT" = i."PLANT";
end loop;
end;

Add a code snippet to your website: www.paste.org