describe fw_genre;
Name       NULL     TYPE
---------- -------- -------------
GENRE_ID   NOT NULL NUMBER
GENRE_TEXT          VARCHAR2(255)



CREATE OR REPLACE
PROCEDURE add_genre (
    p_genreid           OUT INTEGER,
    p_genretext          IN VARCHAR2)
IS
  lv_new_genreid fw_genre.genre_id%TYPE;
BEGIN
  lv_new_genreid := fw_genre_seq.NEXTVAL;
  INSERT INTO FW_GENRE (GENRE_ID, GENRE_TEXT)
    VALUES (lv_new_genreid, p_genretext);
    p_genreid := lv_new_genreid;
END add_genre;



DECLARE
  lv_new_user_id  NUMBER;
BEGIN
  add_genre(lv_new_user_id, 'New genre!');
  DBMS_OUTPUT.PUT_LINE('New user id : ' || lv_new_user_id);
END;