Pasted

-- -----------------------------------------------------
-- CREATE POSTPACKAGE
-- -----------------------------------------------------
CREATE OR REPLACE PACKAGE POSTPACKAGE
IS
TYPE find_cursor
IS
  REF
  CURSOR;
    FUNCTION ADD(
        p_data POST.data%TYPE,
        p_type POST.type%TYPE,
        p_postDate POST.postDate%TYPE,
        p_iduser POST.iduser%TYPE )
      RETURN NUMBER;
    PROCEDURE del(
        p_idpost POST.idpost%TYPE ) ;
    PROCEDURE upd(
        p_idpost POST.idpost%TYPE,
        p_data POST.data%TYPE,
        p_type POST.type%TYPE,
        p_postDate POST.postDate%TYPE,
        p_iduser POST.iduser%TYPE ) ;
    FUNCTION get(
        p_idpost POST.idpost%TYPE )
      RETURN find_cursor;
    FUNCTION getAll
      RETURN find_cursor;
  END POSTPACKAGE;
  /
CREATE OR REPLACE PACKAGE BODY POSTPACKAGE
AS
  FUNCTION ADD(
      p_data POST.data%TYPE,
      p_type POST.type%TYPE,
      p_postDate POST.postDate%TYPE,
      p_iduser POST.iduser%TYPE )
    RETURN NUMBER
  AS
    usrid NUMBER;
  BEGIN
    INSERT
    INTO POST
      (
        data,
        TYPE,
        postDate,
        iduser
      )
      VALUES
      (
        p_data,
        p_type,
        p_postDate,
        p_iduser
      )
    RETURNING iduser
    INTO usrid;
  RETURN usrid;
END ADD;
  PROCEDURE del
    (
      p_idpost POST.idpost%TYPE
    )
  AS
  BEGIN
    DELETE FROM POST WHERE idpost=p_idpost;
  END del;
  PROCEDURE upd(
      p_idpost POST.idpost%TYPE,
      p_data POST.data%TYPE,
      p_type POST.type%TYPE,
      p_postDate POST.postDate%TYPE,
      p_iduser POST.iduser%TYPE )
  AS
  BEGIN
    UPDATE POST
    SET data     =p_data,
      TYPE       =p_type,
      postDate   =p_postDate,
      iduser     =p_iduser
    WHERE idpost =p_idpost;
  END upd;
  FUNCTION get(
      p_idpost POST.idpost%TYPE)
    RETURN find_cursor
  AS
    post_cursor find_cursor;
  BEGIN
    OPEN post_cursor FOR SELECT idpost,
    data,
  TYPE,
  postDate,
  iduser FROM POST WHERE idpost=p_idpost;
  RETURN post_cursor;
END get;
  FUNCTION getAll
    RETURN find_cursor
  AS
    post_cursor find_cursor;
  BEGIN
    OPEN post_cursor FOR SELECT idpost,
    data,
  TYPE,
  postDate,
  iduser FROM POST;
  RETURN post_cursor;
END getAll;
END POSTPACKAGE;