Codex functions, but procedure not

Question

hallo all,
I am a beginner in PL&SQL, I have a strange problem to propose you. I wrote a routine that, after a control, makes an insert and an update.
Well, if I launch it as simple codex, insert and update function. If I launch it as procedure, insert functions, but update no.
Can you help me?
as PL/SQL:
declare
cursor SDOC_WORK_contr_cur is
select TIPO_CAMP,ESITO,IMPTOT_OR,NUM_IMPORTO_TOT,ID_SDOC,ROWID
from NOC_SDOC_WORK
where TIPO_CAMP = 'A' and ESITO = '1' or ESITO = '0';
SDOC_WORK_contr_rec SDOC_WORK_contr_cur%ROWTYPE;
begin
open SDOC_WORK_contr_cur;
loop
fetch SDOC_WORK_contr_cur into SDOC_WORK_contr_rec;
EXIT WHEN SDOC_WORK_contr_cur%NOTFOUND;
if SDOC_WORK_contr_rec.ESITO = 1 AND SDOC_WORK_contr_rec.IMPTOT_OR <> SDOC_WORK_contr_rec.NUM_IMPORTO_TOT then
update NOC_SDOC_WORK set STATO = 6
where rowid = SDOC_WORK_contr_rec.rowid;
insert into NOC_ERRORI_SDOC_WORK(CD_ERRORE,NOTE,ID_SDOC)
values('C1','controllare IMPTOT ed IMPTOT_OR',SDOC_WORK_contr_rec.ID_SDOC);
end if;
if SDOC_WORK_contr_rec.ESITO = 0 AND SDOC_WORK_contr_rec.NUM_IMPORTO_TOT <> 0 then
update NOC_SDOC_WORK set STATO = 6
where rowid = SDOC_WORK_contr_rec.rowid;
insert into NOC_ERRORI_SDOC_WORK(CD_ERRORE,NOTE,ID_SDOC)
values('C0','controllare IMPTOT',SDOC_WORK_contr_rec.ID_SDOC);
end if;
end loop;
close SDOC_WORK_contr_cur;
commit;
end;
as procedure:
PROCEDURE noc_pr_autocontrollo
IS
cursor SDOC_WORK_contr_cur is
select TIPO_CAMP,ESITO,IMPTOT_OR,NUM_IMPORTO_TOT,ID_SDOC,ROWID
from NOC_SDOC_WORK
where TIPO_CAMP = 'A' and ESITO = '1' or ESITO = '0';
SDOC_WORK_contr_rec SDOC_WORK_contr_cur%ROWTYPE;
begin
open SDOC_WORK_contr_cur;
loop
fetch SDOC_WORK_contr_cur into SDOC_WORK_contr_rec;
EXIT WHEN SDOC_WORK_contr_cur%NOTFOUND;
if SDOC_WORK_contr_rec.ESITO = 1 AND SDOC_WORK_contr_rec.IMPTOT_OR <> SDOC_WORK_contr_rec.NUM_IMPORTO_TOT then
update NOC_SDOC_WORK set STATO = 6
where rowid = SDOC_WORK_contr_rec.rowid;
insert into NOC_ERRORI_SDOC_WORK(CD_ERRORE,NOTE,ID_SDOC)
values('C1','controllare IMPTOT ed IMPTOT_OR',SDOC_WORK_contr_rec.ID_SDOC);
end if;
if SDOC_WORK_contr_rec.ESITO = 0 AND SDOC_WORK_contr_rec.NUM_IMPORTO_TOT <> 0 then
update NOC_SDOC_WORK set STATO = 6
where rowid = SDOC_WORK_contr_rec.rowid;
insert into NOC_ERRORI_SDOC_WORK(CD_ERRORE,NOTE,ID_SDOC)
values('C0','controllare IMPTOT',SDOC_WORK_contr_rec.ID_SDOC);
end if;
end loop;
close SDOC_WORK_contr_cur;
commit;
end noc_pr_autocontrollo;
tks
leo

Answer 1

ok, I write again my post:
I wrote a routine that, after a control, makes an insert and an update.
Well, if I launch it as simple code, insert and update function. If I launch it as procedure, insert functions, but update no.
Can you help me?
as PL/SQL:
declare
    cursor SDOC_WORK_contr_cur is
    select TIPO_CAMP,ESITO,IMPTOT_OR,NUM_IMPORTO_TOT,ID_SDOC,ROWID
    from NOC_SDOC_WORK
    where TIPO_CAMP = 'A' and ESITO = '1' or ESITO = '0';
    SDOC_WORK_contr_rec SDOC_WORK_contr_cur%ROWTYPE;
begin
    open SDOC_WORK_contr_cur;
    loop
    fetch SDOC_WORK_contr_cur into SDOC_WORK_contr_rec;
         EXIT WHEN SDOC_WORK_contr_cur%NOTFOUND;
            if SDOC_WORK_contr_rec.ESITO = 1 AND SDOC_WORK_contr_rec.IMPTOT_OR <> SDOC_WORK_contr_rec.NUM_IMPORTO_TOT then
                update NOC_SDOC_WORK set STATO = 6
                where rowid = SDOC_WORK_contr_rec.rowid;
                insert into NOC_ERRORI_SDOC_WORK(CD_ERRORE,NOTE,ID_SDOC)
                values('C1','controllare IMPTOT ed IMPTOT_OR',SDOC_WORK_contr_rec.ID_SDOC);
            end if; 
            if SDOC_WORK_contr_rec.ESITO = 0 AND SDOC_WORK_contr_rec.NUM_IMPORTO_TOT <> 0 then
                update NOC_SDOC_WORK set STATO = 6
                where rowid = SDOC_WORK_contr_rec.rowid;
                insert into NOC_ERRORI_SDOC_WORK(CD_ERRORE,NOTE,ID_SDOC)
                values('C0','controllare IMPTOT',SDOC_WORK_contr_rec.ID_SDOC);
            end if; 
    end loop;
    close SDOC_WORK_contr_cur;
    commit;
end;as procedure:
    PROCEDURE noc_pr_autocontrollo
    IS  
    cursor SDOC_WORK_contr_cur is
    select TIPO_CAMP,ESITO,IMPTOT_OR,NUM_IMPORTO_TOT,ID_SDOC,ROWID
    from NOC_SDOC_WORK
    where TIPO_CAMP = 'A' and ESITO = '1' or ESITO = '0';
    SDOC_WORK_contr_rec SDOC_WORK_contr_cur%ROWTYPE;
begin
    open SDOC_WORK_contr_cur;
    loop
    fetch SDOC_WORK_contr_cur into SDOC_WORK_contr_rec;
         EXIT WHEN SDOC_WORK_contr_cur%NOTFOUND;
            if SDOC_WORK_contr_rec.ESITO = 1 AND SDOC_WORK_contr_rec.IMPTOT_OR <> SDOC_WORK_contr_rec.NUM_IMPORTO_TOT then
                update NOC_SDOC_WORK set STATO = 6
                where rowid = SDOC_WORK_contr_rec.rowid;
                insert into NOC_ERRORI_SDOC_WORK(CD_ERRORE,NOTE,ID_SDOC)
                values('C1','controllare IMPTOT ed IMPTOT_OR',SDOC_WORK_contr_rec.ID_SDOC);
            end if; 
            if SDOC_WORK_contr_rec.ESITO = 0 AND SDOC_WORK_contr_rec.NUM_IMPORTO_TOT <> 0 then
                update NOC_SDOC_WORK set STATO = 6
                where rowid = SDOC_WORK_contr_rec.rowid;
                insert into NOC_ERRORI_SDOC_WORK(CD_ERRORE,NOTE,ID_SDOC)
                values('C0','controllare IMPTOT',SDOC_WORK_contr_rec.ID_SDOC);
            end if; 
    end loop;
    close SDOC_WORK_contr_cur;
    commit;
end noc_pr_autocontrollo;