PROCEDURE COM CHAMADA DE FUNÇÃO

[Profa. Simone Cristina Aléssio]

create or replace procedure p_insere_dados is

cursor c_insere is

select * from N3_FUNC_INTERM n3

order by n3.cod_func;

AUX_SALARIO_NOVO   N3_FUNC_FINAL.VAL_SAL%TYPE;

aux_insere_dados   c_insere%rowtype;

begin

      for aux_insere_dados in c_insere loop

      

      

          insert into N3_FUNC_FINAL F (F.COD_FUNC,

                                  F.NOM_FUNC,

                                  F.QTD_ANOS_SERV,

                                  F.VAL_SAL)

                               VALUES

                                  (aux_insere_dados.cod_func,

                                   aux_insere_dados.nom_func,

                                   aux_insere_dados.qtd_anos_serv,

                                   aux_insere_dados.val_sal);

      commit;

      

      AUX_SALARIO_NOVO := F_REAJUSTA_SALARIO(aux_insere_dados.cod_func);

      

      UPDATE N3_FUNC_FINAL F SET F.VAL_SAL  = AUX_SALARIO_NOVO

      WHERE F.COD_FUNC = aux_insere_dados.cod_func;

      

      COMMIT;

                                              

      end loop;                                   

     

end p_insere_dados;

______________________________________

Profa: Simone Cristina Aléssio

Administração - Sistemas de Informação

http://lattes.cnpq.br/0168854341778196
(047) 9213-6607