WHERE CURRENT OF


DECLARE
   CURSOR C1 IS
   SELECT ACCOUNT_HEAD_ID_TMP, PARENT_ACCOUNT_HEAD_ID_TMP FROM AFD_CHART_OF_ACCOUNTS A, GBDML.FF_DEALER_SETUP B
   WHERE A.ACCOUNT_HEAD_ID=B.ACCOUNT_HEAD_ID
   AND   A.COMPANY_ID='000004'
   FOR UPDATE OF B.ACCOUNT_HEAD_ID;
BEGIN
FOR REC IN C1 LOOP
UPDATE GBDML.FF_DEALER_SETUP
SET ACCOUNT_HEAD_ID=REC.ACCOUNT_HEAD_ID_TMP
WHERE CURRENT OF C1;
END LOOP;
COMMIT;
END;