Creating pl/sql procedure problems

Question

Dear all,
I have problems with creating a procedure which select returns more then one row.
CREATE OR REPLACE PROCEDURE ECM_DATA.check_padrones_datos
IS
  v_padron_check   VARCHAR2(50);
  v_padron_number   VARCHAR2(50);
BEGIN
   SELECT count(pd.estado)
   INTO v_padron_check
   FROM par6.padrones_datos pd, par6.padrones p, par6.FECHAS f
     where pd.estado not in ('2000','8000')
     AND PD.ARCHIVO = P.ARCHIVO
     AND P.FECHA = F.datum_s;
    DBMS_OUTPUT.PUT_LINE('Št. neuspešnih zapisov :  ' || v_padron_check);
    SELECT distinct pd.archivo
   INTO v_padron_number
   FROM par6.padrones_datos pd, par6.padrones p, par6.FECHAS f
     where pd.estado not in ('2000','8000')
     AND PD.ARCHIVO = P.ARCHIVO
     AND P.FECHA = F.datum_s;
    DBMS_OUTPUT.PUT_LINE('Padron št. :  ' || v_padron_number);
  EXCEPTION
    WHEN NO_DATA_FOUND THEN
     v_padron_number := 'Vsi padroni so OK';
     DBMS_OUTPUT.PUT_LINE('Padron št. :  ' || v_padron_number);
END;
Error ->  -01422: exact fetch returns more than requested number of rows
Select returns 2 or more rows.
SELECT distinct pd.archivo
    FROM par6.padrones_datos pd, par6.padrones p, par6.FECHAS f
     where pd.estado not in ('2000','8000')
     AND PD.ARCHIVO = P.ARCHIVO
     AND P.FECHA = F.datum_s;
How to write correct syntax in pl/sql. I apologize in advance for rookie questions. Any help would be appreciated.
Regards,
Robert

Answer 1

The exact implementation depends on the use case.
You can loop through the results
FOR r IN (
    SELECT  DISTINCT pd.archivo
    FROM    par6.padrones_datos pd
           ,par6.padrones p
           ,par6.fechas f
    WHERE   pd.estado not in ('2000','8000')
    AND     pd.archivo = p.archivo
    AND     p.fecha = F.datum_s
LOOP
    dbms_output.put_line('Padron št. :  ' || r.archivo);
END LOOP;
Or maybe you can process all results in one step, e.g. if you want to update a table based on the select.
Regards
Marcus