declare
TYPE TR IS TABLE OF ASAHANNN %ROWTYPE;
T TR;
i NUMBER;
BEGIN
i:=1;
SELECT i.* BULK COLLECT INTO T from ASAHANNN i ;
FOR i IN T.first..T.last
LOOP
UPDATE islemkurum r SET R.ucreti =T(i).ozelkod where R.kodu =T(i).kodu and
r.kurum_kodu=1000;
commit;
END LOOP;
END;