Hola apolo64, como tus datos de entrada son los mismos que el de la tabla a la que haces la consulta, mejor, ponle de ese tipo.
Si el código de usuario es number, pasalo a char a la hora de que "imprima" en pantalla :
Cita: create or replace procedure datos (
u1 IN usuarios.codigo_usuario%type,
p1 in usuarios.clave%type) AS
vd_codigo_usuario usuarios.codigo_usuario%type ;
vd_clave usuarios.clave%type;
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 (to_char(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;
Imagino que estas practicando o algo asi...
Saludos