viernes, 6 de diciembre de 2013

Proc cursor_jugadores_barcelona

create or replace 
PROCEDURE jugadores_all IS

--declarando cursor
  CURSOR cursor_jugadores IS
    SELECT codjugador, nombre
    FROM jugadores j
    WHERE codequipo=1;
    
  --variables para los campos
    v_codju VARCHAR2(4000);
    v_nombre VARCHAR2(4000);
    
    BEGIN
-- abrir cursor
      OPEN cursor_jugadores;

 --procesar cursor, fetch para recorrer el cursor     
      LOOP
        FETCH cursor_jugadores
          INTO v_codju, v_nombre;

--cuando salga, escribe las lineas        
        EXIT WHEN cursor_jugadores%NOTFOUND;
        
        DBMS_OUTPUT.PUT_LINE(v_codju || ' ' || v_nombre);      
      END LOOP;
    
    CLOSE cursor_jugadores;
    
    END jugadores_all;



/** Mostrar **/
BEGIN
  JUGADORES_ALL();
END;


No hay comentarios:

Publicar un comentario