ALTER SESSION SET PLSQL_CCFLAGS = 'show_private_joke_programs:FALSE' Statement processed.
CREATE OR REPLACE PACKAGE sense_of_humor
IS
PROCEDURE calc_how_funny (
joke_in IN VARCHAR2
, funny_rating_out OUT NUMBER
, appropriate_age_out OUT NUMBER
);
$IF $$show_private_joke_programs $THEN
FUNCTION humor_level ( joke_in IN VARCHAR2 )
RETURN NUMBER;
FUNCTION maturity_level ( joke_in IN VARCHAR2 )
RETURN NUMBER;
$END
END; Package created.
CREATE OR REPLACE PACKAGE BODY sense_of_humor
IS
FUNCTION humor_level ( joke_in IN VARCHAR2 )
RETURN NUMBER
IS
BEGIN
-- Some really interesting code here...
RETURN NULL;
END humor_level;
FUNCTION maturity_level ( joke_in IN VARCHAR2 )
RETURN NUMBER
IS
BEGIN
-- Some really interesting code here...
RETURN NULL;
END maturity_level;
PROCEDURE calc_how_funny (
joke_in IN VARCHAR2
, funny_rating_out OUT NUMBER
, appropriate_age_out OUT NUMBER
)
IS
BEGIN
funny_rating_out := humor_level ( joke_in );
appropriate_age_out := maturity_level ( joke_in );
END calc_how_funny;
END; Package Body created.
SET SERVEROUTPUT ON FORMAT WRAPPED Unsupported Command
BEGIN
dbms_preprocessor.print_post_processed_source (
'PACKAGE', USER, 'SENSE_OF_HUMOR');
END; ORA-24234: unable to get source of PACKAGE "APEX_PUBLIC_USER"."SENSE_OF_HUMOR", insufficient privileges or does not exist ORA-06512: at "SYS.DBMS_SYS_ERROR", line 105 ORA-06512: at "SYS.DBMS_PREPROCESSOR", line 190 ORA-06512: at "SYS.DBMS_PREPROCESSOR", line 109 ORA-06512: at line 2 ORA-06512: at "SYS.DBMS_SQL", line 1721More Details: https://docs.oracle.com/error-help/db/ora-24234
ALTER SESSION SET PLSQL_CCFLAGS = 'show_private_joke_programs:TRUE' Statement processed.
ALTER PACKAGE sense_of_humor COMPILE Package altered.
BEGIN
dbms_preprocessor.print_post_processed_source (
'PACKAGE', USER, 'SENSE_OF_HUMOR');
END; ORA-24234: unable to get source of PACKAGE "APEX_PUBLIC_USER"."SENSE_OF_HUMOR", insufficient privileges or does not exist ORA-06512: at "SYS.DBMS_SYS_ERROR", line 105 ORA-06512: at "SYS.DBMS_PREPROCESSOR", line 190 ORA-06512: at "SYS.DBMS_PREPROCESSOR", line 109 ORA-06512: at line 2 ORA-06512: at "SYS.DBMS_SQL", line 1721More Details: https://docs.oracle.com/error-help/db/ora-24234
CREATE OR REPLACE PACKAGE sense_of_humor
IS
PROCEDURE calc_how_funny (
joke_in IN VARCHAR2
, funny_rating_out OUT NUMBER
, appropriate_age_out OUT NUMBER
);
PROCEDURE test_package;
END; Package created.
CREATE OR REPLACE PACKAGE BODY sense_of_humor
IS
FUNCTION humor_level ( joke_in IN VARCHAR2 )
RETURN NUMBER
IS
BEGIN
-- Some really interesting code here...
RETURN NULL;
END humor_level;
FUNCTION maturity_level ( joke_in IN VARCHAR2 )
RETURN NUMBER
IS
BEGIN
-- Some really interesting code here...
RETURN NULL;
END maturity_level;
PROCEDURE calc_how_funny (
joke_in IN VARCHAR2
, funny_rating_out OUT NUMBER
, appropriate_age_out OUT NUMBER
)
IS
BEGIN
funny_rating_out := humor_level ( joke_in );
appropriate_age_out := maturity_level ( joke_in );
END calc_how_funny;
$IF $$test_humor_package $THEN
PROCEDURE int_test_package
IS
BEGIN
DBMS_OUTPUT.PUT_LINE ('Testing of sense_of_humor is enabled.');
END int_test_package;
$END
PROCEDURE test_package
IS
BEGIN
$IF $$test_humor_package
$THEN
int_test_package;
$ELSE
RAISE PROGRAM_ERROR;
$END
END test_package;
END; Package Body created.
BEGIN
DBMS_OUTPUT.PUT_LINE ('New test_humor_package not set....');
dbms_preprocessor.print_post_processed_source (
'PACKAGE BODY', USER, 'SENSE_OF_HUMOR');
END; ORA-24234: unable to get source of PACKAGE BODY "APEX_PUBLIC_USER"."SENSE_OF_HUMOR", insufficient privileges or does not exist ORA-06512: at "SYS.DBMS_SYS_ERROR", line 105 ORA-06512: at "SYS.DBMS_PREPROCESSOR", line 190 ORA-06512: at "SYS.DBMS_PREPROCESSOR", line 109 ORA-06512: at line 3 ORA-06512: at "SYS.DBMS_SQL", line 1721More Details: https://docs.oracle.com/error-help/db/ora-24234
ALTER SESSION SET PLSQL_CCFLAGS = 'test_humor_package:FALSE' New test_humor_package not set....
ALTER PACKAGE sense_of_humor COMPILE Package altered.
BEGIN
DBMS_OUTPUT.PUT_LINE ('test_humor_package set to FALSE....');
dbms_preprocessor.print_post_processed_source (
'PACKAGE BODY', USER, 'SENSE_OF_HUMOR');
END; ORA-24234: unable to get source of PACKAGE BODY "APEX_PUBLIC_USER"."SENSE_OF_HUMOR", insufficient privileges or does not exist ORA-06512: at "SYS.DBMS_SYS_ERROR", line 105 ORA-06512: at "SYS.DBMS_PREPROCESSOR", line 190 ORA-06512: at "SYS.DBMS_PREPROCESSOR", line 109 ORA-06512: at line 3 ORA-06512: at "SYS.DBMS_SQL", line 1721More Details: https://docs.oracle.com/error-help/db/ora-24234
BEGIN
sense_of_humor.test_package;
END; ORA-06501: PL/SQL: program error ORA-06512: at "SQL_SSYWXRLJUTRHALXPMXNPUHBHN.SENSE_OF_HUMOR", line 45 ORA-06512: at line 2 ORA-06512: at "SYS.DBMS_SQL", line 1721More Details: https://docs.oracle.com/error-help/db/ora-06501
ALTER SESSION SET PLSQL_CCFLAGS = 'test_humor_package:TRUE' test_humor_package set to FALSE....
ALTER PACKAGE sense_of_humor COMPILE Package altered.
BEGIN
DBMS_OUTPUT.PUT_LINE ('test_humor_package set to TRUE....');
dbms_preprocessor.print_post_processed_source (
'PACKAGE BODY', USER, 'SENSE_OF_HUMOR');
END; ORA-24234: unable to get source of PACKAGE BODY "APEX_PUBLIC_USER"."SENSE_OF_HUMOR", insufficient privileges or does not exist ORA-06512: at "SYS.DBMS_SYS_ERROR", line 105 ORA-06512: at "SYS.DBMS_PREPROCESSOR", line 190 ORA-06512: at "SYS.DBMS_PREPROCESSOR", line 109 ORA-06512: at line 3 ORA-06512: at "SYS.DBMS_SQL", line 1721More Details: https://docs.oracle.com/error-help/db/ora-24234
BEGIN
sense_of_humor.test_package;
END; test_humor_package set to TRUE....
Testing of sense_of_humor is enabled.