CREATE OR REPLACE PROCEDURE muestraPeli (
                        codigo NUMBER
) IS
    v_tit CHAR(70);
    v_agno NUMBER(4);
    v_punt FLOAT(126);
    v_cuantas NUMBER;
BEGIN
    SELECT COUNT(*) INTO v_cuantas
        FROM pelicula WHERE id=codigo;
        -- Nos aseguramos que existe la pelicula
    IF (v_cuantas=1) THEN
        SELECT titulo, agno, puntuacion
        INTO v_tit, v_agno, v_punt
        FROM pelicula WHERE id=codigo;
        DBMS_OUTPUT.put_line('Titulo: ' || v_tit);
        DBMS_OUTPUT.put_line('Anyo: ' || v_agno);
        DBMS_OUTPUT.put_line('Puntuacion: ' || v_punt);
    ELSE
        DBMS_OUTPUT.put_line('Error: No existe ninguna peli con el codigo introducido');
    END IF;
END;
/