update procedure

drop table paketler;

create table paketler (
paket_kod VARCHAR2(200),
paket_ad VARCHAR2(200));

insert into paketler(paket_kod,paket_ad)values ('5010PPA','PAKET01');
insert into paketler(paket_kod,paket_ad)values ('5220PPB','PAKET02');
insert into paketler(paket_kod,paket_ad)values ('5420PPC','PAKET03');


DECLARE
CURSOR a
IS
SELECT paket_kod
FROM paketler
WHERE paket_kod LIKE '5420%';

p_kod paketler.paket_kod%TYPE;

BEGIN

OPEN a;

LOOP
FETCH a INTO p_kod;

begin
EXECUTE IMMEDIATE 'update paketler set paket_kod=''5500PPC'' where paket_kod= :b_v' USING p_kod;

EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line (p_kod || ' - ' || SQLERRM);

end;

EXIT WHEN a%NOTFOUND;

DBMS_OUTPUT.put_line (p_kod || ' kodlu paketiniz 5500PPC olarak değiştirilmiştir.');

END LOOP;

CLOSE a;

COMMIT;
END;