fun cursor letra libros

Crea una funcion que introduciendo una letra, diga el nº de libros que empiezan por ella.


CREATE OR REPLACE FUNCTION contador_de_libros(letra IN CHAR) PLS_INTEGER IS

 lr_books BOOK%ROWTYPE;
  cont PLS_INTEGER:=0;
  
CURSOR books_cursor(l char) IS SELECT * FROM book b
  WHERE UPPER(b.title) LIKE UPPER(letra) || '%';
  
  BEGIN
    OPEN books_cursor;
    
    LOOP
      FETCH books_cursor INTO lr_books;
      EXIT WHEN books_cursor%NOTFOUND;
      cont:=cont + 1;

    END LOOP;

    CLOSE books_cursor;
    RETURN cont;
  END;