Consulta.

[apolo64]

Hola Amigos del foro
Teno el sigte problema con respento a un cursor. Me repite el mensaje "El usuario esta autorizado".Aca va el codigo.

create or replace procedure datos (u1 in NUMBER,p1 in varchar2) AS

vd_codigo_usuario NUMBER(38) ;
vd_clave varchar2(13);


cursor c_usuario
IS
select codigo_usuario, clave
from usuarios;

Begin
dbms_output.put_line(' voy al inicio');
open c_usuario;

Loop
FETCH c_usuario into vd_codigo_usuario, vd_clave;
Exit when c_usuario%notfound;
If (vd_codigo_usuario=u1) and (vd_clave=p1) then

dbms_output.put_line (vd_codigo_usuario||vd_clave);
dbms_output.put_line('El usuario esta autorizado');
Else

dbms_output.put_line(' El usuario no existe');

End If;

end loop;
close c_usuario;
End;

gracias..............