Untitled

                Never    
SQL
       
create or replace package body lecture is

procedure liste_employes(le_nuserv in number, liste out cur_empl) is
Begin
set transaction read only;
if (le_nuserv=0) then
    open liste for select nuempl,nomempl,hebdo,salaire,affect,nomserv,chef from employe,service where affect=nuserv;

else
    open liste for select nuempl,nomempl,hebdo,affect,salaire,nomserv,chef from employe,service where affect=nuserv and le_nuserv=affect;
end if ;
commit;
end ;

Raw Text