Trying to use SQL to implement a VPD policy

Question

could some please help me with the following code :-
these are the steps i took. i'm trying to implement a VPD(virtual private database) also know as Fine Grained Accessed on my APEX 3.2.1
------ login as SYS
CREATE USER vpd_admin IDENTIFIED BY Password_1 DEFAULT TABLESPACE users TEMPORARY TABLESPACE temp;
GRANT CREATE SESSION TO vpd_admin;
grant create any context to vpd_admin;
GRANT CREATE PROCEDURE TO vpd_admin;
grant select on charles.load to vpd_admin;
grant select on charles.instructor to vpd_admin;
grant execute on dbms_session to vpd_admin;
grant execute on dbms_rls to vpd_admin;
------ login as vpd_admin
create or replace context empnum_ctx using set_empnum_ctx_pkg;
CREATE OR REPLACE PACKAGE set_empnum_ctx_pkg IS
PROCEDURE set_empnum;
END;
CREATE OR REPLACE PACKAGE BODY set_empnum_ctx_pkg IS
PROCEDURE set_empnum IS
     emp_id NUMBER;
BEGIN
     SELECT EMPNUM INTO emp_id FROM CHARLES.LOAD
     WHERE upper(username) = nvl(v('APP_USER'), USER);
     DBMS_SESSION.SET_CONTEXT('empnum_ctx', 'empnum', emp_id);
EXCEPTION
WHEN NO_DATA_FOUND THEN NULL;
END;
END;
create or replace package vpd_policy as
function vpd_predicate(schema_name in varchar2, object_name in varchar2)
return varchar2;
end;
create or replace package body vpd_policy as function vpd_predicate(
schema_name in varchar2 default null, object_name in varchar2 default null)
return varchar2 as
BEGIN
     if (USER = 'ADMIN') and (v('APP_USER') is null) or
     (USER = 'MICHAEL.GRAY') and (v('APP_USER') is NULL) then
     return '';
     else
     return '(
          exists (
               select "INSTRUCTOR"."EMPNUM" as "EMPNUM",
                    "INSTRUCTOR"."FIRSTNAME" as "FIRSTNAME",
                    "INSTRUCTOR"."LASTNAME" as "LASTNAME",
                    "LOAD"."COURSEID" as "COURSEID",
               "COURSE"."CREDIT" as "CREDIT",
               "COURSE"."HPW" as "HPW",
                    "LOAD"."CAMPID" as "CAMPID",
                    "LOAD"."YR" as "YR",
                    "INSTRUCTOR"."USERNAME" as "USERNAME",
                    "LOAD"."SEMESTER" as "SEMESTER"
               from      "COURSE" "COURSE",
                    "INSTRUCTOR" "INSTRUCTOR",
                    "LOAD" "LOAD"
               where      "INSTRUCTOR"."EMPNUM"="LOAD"."EMPNUM"
               and      "LOAD"."COURSEID"="COURSE"."COURSEID"
               and      department_name = (
                         select department_name from departments
                         where upper (assigned_to) = nvl(v('APP_USER'),USER) )
               or upper(username) = nvl(v('APP_USER'), USER)
     END IF;
END;
SQL> show errors
Errors for PACKAGE BODY VPD_POLICY:
LINE/COL ERROR
33/4 PLS-00103: Encountered the symbol "end-of-file" when expecting
one of the following:
begin end function package pragma procedure form
when i reached this point trying to implement the function 'vpd_predicate' i got this error
any advice will be great,
thanks

Answer 1

You didn't specify an END for the package.
One reason you should always name your END blocks (makes it easier to realize when you've missed one).
END vpd_predicate;
END vpd_policy;
/Also, your package specification doesn't match the body (they need to have identical declarations).
Also, please format your code like i've done so it's actually readable. Use the tags before and after your code.