estoy empezando con PL/SQL
y me han surgido algunos errores que no entiendo, alguien puede ayudarme a saber que estoy haciendo mal.
Error 1:
Error(2,1): PLS-00103: Encountered the symbol "DECLARE" when expecting one of the following: ( ; is with authid as cluster compress order using compiled wrapped external deterministic parallel_enable pipelined result_cache
Error 2:
Error(24,4): PLS-00103: Encountered the symbol "end-of-file" when expecting one of the following: ( begin case declare end exception exit for goto if loop mod null pragma raise return select update while with
<< continue close current delete fetch lock
insert open rollback savepoint set sql execute commit forall merge pipe purge
Este es el código:
CREATE OR REPLACE PROCEDURE listado
DECLARE
nom USUARIOS.nombre%TYPE;
cant number;
contador NUMBER := 0;
CURSOR c_lista(cod USUARIOS.DNI%TYPE) IS
SELECT nombre, COUNT (*) AS CANTIDAD
FROM USUARIOS, MOVIMIENTOS
WHERE USUARIOS.DNI = MOVIMIENTOS.DNI AND
id_rol = '03'
GROUP BY nombre
ORDER BY CANTIDAD DESC;
BEGIN
OPEN c_lista('DNI');
LOOP
FETCH c_lista INTO nom, cant;
contador:= contador+1;
EXIT WHEN c_lista%NOTFOUND OR contador <5;
DBMS_OUTPUT.PUT_LINE(nom||': '||cant);
END LOOP;
CLOSE c_lista;
END;
/
DECLARE
y recomiendo que recorra el cursor con unFOR