create or replace procedure SP_isbn as
cisbn varchar2(30);
cursor isbns is select ISBN,id from librarys;
bn isbns%rowtype;
begin
for bn in isbns loop
cisbn :=bn.ISBN;
cisbn:=replace(cisbn,'-','');
update librarys set ISBNNO=cisbn WHERE id = bn.id;
end loop;
end;
cisbn varchar2(30);
cursor isbns is select ISBN,id from librarys;
bn isbns%rowtype;
begin
for bn in isbns loop
cisbn :=bn.ISBN;
cisbn:=replace(cisbn,'-','');
update librarys set ISBNNO=cisbn WHERE id = bn.id;
end loop;
end;