So what oracle internal objects were changed in January 2019 – <\/strong>190115<\/strong><\/span>?<\/p>\n And created?<\/p>\n P.S: Nothing was added for 11.2 \/12.1 \/ 12.2 \/ 18c in Oracle objects.<\/strong><\/span><\/p>\n So which are exactly the objects modified by 190115?<\/p>\n P.S: Useful Links:<\/p>\nVERSION PATCH OWNER TYPE TOTAL\r\n---------- ---------- ------------------------------ --------------- ----------\r\n11.2.0.4 BP SYS PACKAGE BODY 1\r\n12.1.0.2 PSU & BP SYS PACKAGE BODY 1\r\n12.2.0.1 JUL2018RUR SYS PACKAGE 2\r\n12.2.0.1 JUL2018RUR SYS PACKAGE BODY 2\r\n12.2.0.1 OCT2018RUR DVSYS TYPE 5\r\n12.2.0.1 OCT2018RUR SYS PACKAGE 2\r\n12.2.0.1 OCT2018RUR SYS PACKAGE BODY 7\r\n12.2.0.1 RU SYS PACKAGE 1\r\n12.2.0.1 RU SYS PACKAGE BODY 2\r\n18.0.0.0 18.3RUR SYS PACKAGE 4\r\n18.0.0.0 18.3RUR SYS PACKAGE BODY 3\r\n18.0.0.0 18.4RUR SYS PACKAGE 4\r\n18.0.0.0 18.4RUR SYS PACKAGE BODY 3\r\n18.0.0.0 RU GSMADMIN_INTERNAL PACKAGE BODY 2\r\n18.0.0.0 RU SYS PACKAGE 5\r\n18.0.0.0 RU SYS PACKAGE BODY 6\r\n18.0.0.0 RU SYS TYPE 4\r\n18.0.0.0 RU SYS TYPE BODY 4\r\n18.0.0.0 RU XDB PACKAGE BODY 1<\/pre>\n
-<\/pre>\n
VERSION PATCH OWNER TYPE NAME ACTION\r\n---------- --------------- ------------------------------ --------------- ------------------------------ ------\r\n11.2.0.4 BP SYS PACKAGE BODY DBMS_PARALLEL_EXECUTE_INTERNAL MOD\r\n12.1.0.2 PSU & BP SYS PACKAGE BODY CDBVIEW MOD\r\n12.2.0.1 OCT2018RUR DVSYS TYPE SYS_YOID0000072649$ MOD\r\n12.2.0.1 OCT2018RUR DVSYS TYPE SYS_YOID0000072661$ MOD\r\n12.2.0.1 OCT2018RUR DVSYS TYPE SYS_YOID0000072667$ MOD\r\n12.2.0.1 OCT2018RUR DVSYS TYPE SYS_YOID0000072694$ MOD\r\n12.2.0.1 OCT2018RUR DVSYS TYPE SYS_YOID0000072697$ MOD\r\n12.2.0.1 OCT2018RUR SYS PACKAGE BODY DBMS_XSTREAM_ADM_INTERNAL MOD\r\n12.2.0.1 OCT2018RUR SYS PACKAGE BODY DBMS_XSTREAM_ADM_UTL MOD\r\n12.2.0.1 OCT2018RUR SYS PACKAGE BODY DBMS_XSTREAM_AUTH_IVK MOD\r\n12.2.0.1 OCT2018RUR SYS PACKAGE BODY DBMS_XSTREAM_GG_INTERNAL MOD\r\n12.2.0.1 OCT2018RUR SYS PACKAGE BODY DBMS_XSTREAM_UTL_IVK MOD\r\n12.2.0.1 OCT2018RUR & SYS PACKAGE CDBVIEW MOD\r\n JUL2018RUR\r\n12.2.0.1 OCT2018RUR & SYS PACKAGE CDBVIEW_INTERNAL MOD\r\n JUL2018RUR\r\n12.2.0.1 OCT2018RUR & SYS PACKAGE BODY CDBVIEW MOD\r\n JUL2018RUR\r\n12.2.0.1 OCT2018RUR & SYS PACKAGE BODY CDBVIEW_INTERNAL MOD\r\n JUL2018RUR\r\n12.2.0.1 RU SYS PACKAGE DBMS_AUTOTASK_PRVT MOD\r\n12.2.0.1 RU SYS PACKAGE BODY DBMS_AUTOTASK_PRVT MOD\r\n12.2.0.1 RU SYS PACKAGE BODY DBMS_SQLPATCH MOD\r\n18.0.0.0 RU GSMADMIN_INTERNAL PACKAGE BODY DBMS_GSM_COMMON MOD\r\n18.0.0.0 RU GSMADMIN_INTERNAL PACKAGE BODY DBMS_GSM_DBADMIN MOD\r\n18.0.0.0 RU SYS PACKAGE DBMS_AUTOTASK_PRVT MOD\r\n18.0.0.0 RU SYS PACKAGE BODY DBMS_AUTOTASK_PRVT MOD\r\n18.0.0.0 RU SYS PACKAGE BODY DBMS_STATS MOD\r\n18.0.0.0 RU SYS PACKAGE BODY DBMS_STATS_ADVISOR MOD\r\n18.0.0.0 RU SYS TYPE JDOM_T MOD\r\n18.0.0.0 RU SYS TYPE JSON_ARRAY_T MOD\r\n18.0.0.0 RU SYS TYPE JSON_ELEMENT_T MOD\r\n18.0.0.0 RU SYS TYPE JSON_OBJECT_T MOD\r\n18.0.0.0 RU SYS TYPE BODY JDOM_T MOD\r\n18.0.0.0 RU SYS TYPE BODY JSON_ARRAY_T MOD\r\n18.0.0.0 RU SYS TYPE BODY JSON_ELEMENT_T MOD\r\n18.0.0.0 RU SYS TYPE BODY JSON_OBJECT_T MOD\r\n18.0.0.0 RU XDB PACKAGE BODY DBMS_SODA_ADMIN MOD\r\n18.0.0.0 RU & 18.4RUR & SYS PACKAGE CDBVIEW MOD\r\n 18.3RUR\r\n18.0.0.0 RU & 18.4RUR & SYS PACKAGE CDBVIEW_INTERNAL MOD\r\n 18.3RUR\r\n18.0.0.0 RU & 18.4RUR & SYS PACKAGE DBMS_BACKUP_RESTORE MOD\r\n 18.3RUR\r\n18.0.0.0 RU & 18.4RUR & SYS PACKAGE DBMS_REGISTRY MOD\r\n 18.3RUR\r\n18.0.0.0 RU & 18.4RUR & SYS PACKAGE BODY CDBVIEW MOD\r\n 18.3RUR\r\n18.0.0.0 RU & 18.4RUR & SYS PACKAGE BODY CDBVIEW_INTERNAL MOD\r\n 18.3RUR\r\n18.0.0.0 RU & 18.4RUR & SYS PACKAGE BODY DBMS_RCVMAN MOD\r\n 18.3RUR<\/pre>\n
What changed for each? (click to see the changes)<\/strong><\/h2>\n
\n
\n
\n
\n
\n
Changed Objects<\/h2>\n
\n<\/strong><\/span>> = Added Lines
\n< = Removed Lines<\/strong><\/span><\/p>\n11.2.0.4<\/strong><\/h3>\n
681a682,686\r\n> \r\n> IF C.CUR_SIZE = 0 THEN\r\n> GOTO DONE;\r\n> END IF;\r\n> \r\n685a691,693\r\n> <<DONE>>\r\n> \r\n> \r\n687c695\r\n< IF (BUFFERED_CHUNK# = 0) THEN\r\n---\r\n> IF (BUFFERED_CHUNKS.COUNT = 0) THEN\r\n<\/pre>\n
12.1.0.2<\/strong><\/h3>\n
2a3,7\r\n> type tabs_array is varray(11) of dbms_id;\r\n> sens_table_array tabs_array;\r\n> type sens_tabs is table of boolean index by dbms_id;\r\n> sens_table_list sens_tabs;\r\n> \r\n22a28,29\r\n> insuff_privilege EXCEPTION;\r\n> PRAGMA exception_init(insuff_privilege, -1031);\r\n47a55,67\r\n> --\r\n> -- Bug 27445727 : Certain SYS owned tables like USER$, LINK$ etc. are out\r\n> -- of bounds even for DBA level users. So we should not allow cloning such\r\n> -- tables into a Container_Data view and be able to bypass this protection.\r\n> --\r\n> -- Since this procedure does not support quoted identifiers, we need not\r\n> -- worry about canonicalizing the owner or oldview_name arguments before\r\n> -- comparing against SYS and the array of sensitive tables.\r\n> --\r\n> if (upper_owner = 'SYS' and sens_table_list.exists(upper_oldview)) then\r\n> RAISE insuff_privilege;\r\n> end if;\r\n> \r\n139a160,177\r\n> --\r\n> -- Initialize the list of SYS owned sensitive tables which should\r\n> -- not be allowed to be shadow-copied even within Create_CDBView.\r\n> --\r\n> -- Once ER 24598663 gets implemented, these entries will be part of a\r\n> -- SYS owned metadata table and instead of hard-coding the list, we will\r\n> -- be populating the list by fetching it from the table.\r\n> --\r\n> begin\r\n> sens_table_array := tabs_array('ENC$', 'LINK$', 'USER$', 'DEFAULT_PWD$',\r\n> 'XS$VERIFIERS', 'USER_HISTORY$',\r\n> 'HIST_HEAD$', 'HISTGRM$','CDB_LOCAL_ADMINAUTH$',\r\n> 'PDB_CREATE$','PDB_SYNC$');\r\n> \r\n> for i in 1..11 loop\r\n> sens_table_list(sens_table_array(i)) := TRUE;\r\n> end loop;\r\n> \r\n<\/pre>\n12.2.0.1<\/strong><\/h3>\n
2c2\r\n< type \"SYS_YOID0000072649$\" as object( \"SYS_NC00001$\" RAW(16))\r\n---\r\n> type \"SYS_YOID0000072649$\" as object( \"SYS_NC00001$\" VARCHAR2(128 BYTE), \"SYS_NC00002$\" VARCHAR2(128 BYTE), \"SYS_NC00003$\" VARCHAR2(128 BYTE))\r\n<\/pre>\n
2c2\r\n< type \"SYS_YOID0000072661$\" as object( \"SYS_NC00001$\" RAW(16))\r\n---\r\n> type \"SYS_YOID0000072661$\" as object( \"SYS_NC00001$\" VARCHAR2(128 BYTE), \"SYS_NC00002$\" VARCHAR2(128 BYTE))\r\n<\/pre>\n
2c2\r\n< type \"SYS_YOID0000072667$\" as object( \"SYS_NC00001$\" RAW(16))\r\n---\r\n> type \"SYS_YOID0000072667$\" as object( \"SYS_NC00001$\" VARCHAR2(128 BYTE), \"SYS_NC00002$\" VARCHAR2(100 BYTE), \"SYS_NC00003$\" VARCHAR2(128 BYTE), \"SYS_NC00004$\" VARCHAR2(128 BYTE), \"SYS_NC00005$\" VARCHAR2(128 BYTE), \"SYS_NC00006$\" VARCHAR2(128 BYTE), \"SYS_NC00007$\" NUMBER)\r\n<\/pre>\n
2c2\r\n< type \"SYS_YOID0000072694$\" as object( \"SYS_NC00001$\" RAW(16))\r\n---\r\n> type \"SYS_YOID0000072694$\" as object( \"SYS_NC00001$\" VARCHAR2(128 BYTE), \"SYS_NC00002$\" VARCHAR2(128 BYTE), \"SYS_NC00003$\" VARCHAR2(128 BYTE), \"SYS_NC00004$\" VARCHAR2(128 BYTE))\r\n<\/pre>\n
2c2\r\n< type \"SYS_YOID0000072697$\" as object( \"SYS_NC00001$\" RAW(16))\r\n---\r\n> type \"SYS_YOID0000072697$\" as object( \"SYS_NC00001$\" VARCHAR2(128 BYTE), \"SYS_NC00002$\" VARCHAR2(128 BYTE), \"SYS_NC00003$\" VARCHAR2(100 BYTE), \"SYS_NC00004$\" VARCHAR2(128 BYTE), \"SYS_NC00005$\" VARCHAR2(128 BYTE), \"SYS_NC00006$\" VARCHAR2(128 BYTE), \"SYS_NC00007$\" VARCHAR2(128 BYTE))\r\n<\/pre>\n
1c1\r\n< package CDBView as\r\n---\r\n> package CDBView AUTHID CURRENT_USER as\r\n<\/pre>\n
10a11,13\r\n> procedure create_cdbview(chk_upgrd IN boolean, owner IN varchar2,\r\n> oldview_name IN varchar2, newview_name IN varchar2);\r\n> \r\n<\/pre>\n
43a44,53\r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> PROCEDURE REFRESH_CLIENT_CONFIG;\r\n> \r\n<\/pre>\n
3,10c3\r\n< function isLegalOwnerViewName(owner IN varchar2, oldview IN varchar2,\r\n< newview IN varchar2) return boolean;\r\n< -- Create the cdb view\r\n< -- private helper procedure to create the cdb view\r\n< -- Note that quotes should not be added around owner, oldview_name and\r\n< -- newview_name before create_cdbview is invoked since all three are used\r\n< -- as literals to query dictionary views.\r\n< procedure create_cdbview(chk_upgrd IN boolean, owner IN varchar2,\r\n---\r\n> procedure create_cdbview(chk_upgrd IN boolean, owner IN varchar2,\r\n12,133c5,8\r\n< sqlstmt varchar2(4000);\r\n< col_name varchar2(128);\r\n< comments varchar2(4000);\r\n< col_type number;\r\n< upper_owner varchar2(128);\r\n< upper_oldview varchar2(128);\r\n< quoted_owner varchar2(130); -- 2 more than size of owner\r\n< quoted_oldview varchar2(130); -- 2 more than size of oldview_name\r\n< quoted_newview varchar2(130); -- 2 more than size of newview_name\r\n< unsupp_col_condition varchar2(4000);\r\n< colcomments varchar2(4000);\r\n< unsupp_col_count number;\r\n< colcommentscur SYS_REFCURSOR;\r\n< table_not_found EXCEPTION;\r\n< PRAGMA exception_init(table_not_found, -942);\r\n< \r\n< \r\n< cursor tblcommentscur is select c.comment$\r\n< from sys.obj$ o, sys.user$ u, sys.com$ c\r\n< where o.name = upper_oldview and u.name = upper_owner\r\n< and o.obj# = c.obj# and o.owner#=u.user#\r\n< and (o.type# = 4 or o.type# = 2)\r\n< and c.col# is null;\r\n< \r\n< begin\r\n< \r\n< if (not isLegalOwnerViewName(owner, oldview_name, newview_name)) then\r\n< RAISE table_not_found;\r\n< end if;\r\n< \r\n< -- convert owner and view names to upper case\r\n< upper_owner := upper(owner);\r\n< upper_oldview := upper(oldview_name);\r\n< \r\n< quoted_owner := '\"' || upper_owner || '\"';\r\n< quoted_oldview := '\"' || upper_oldview || '\"';\r\n< quoted_newview := '\"' || upper(newview_name) || '\"';\r\n< \r\n< -- Create cdb view\r\n< sqlstmt := 'CREATE OR REPLACE VIEW ' ||\r\n< quoted_owner || '.' || quoted_newview ||\r\n< ' CONTAINER_DATA AS SELECT k.*, k.CON$NAME, k.CDB$NAME' ||\r\n< ' FROM CONTAINERS(' || quoted_owner || '.' || quoted_oldview || ') k';\r\n< \r\n< --dbms_output.put_line(sqlstmt);\r\n< execute immediate sqlstmt;\r\n< \r\n< -- table and column comments\r\n< open tblcommentscur;\r\n< fetch tblcommentscur into comments;\r\n< comments := replace(comments, '''','''''');\r\n< sqlstmt := 'comment on table ' || quoted_owner || '.' || quoted_newview ||\r\n< ' is ''' || comments || ' in all containers''';\r\n< -- dbms_output.put_line(sqlstmt);\r\n< execute immediate sqlstmt;\r\n< close tblcommentscur;\r\n< \r\n< sqlstmt := 'comment on column ' || quoted_owner || '.' || quoted_newview ||\r\n< '.CON_ID is ''container id''';\r\n< -- dbms_output.put_line(sqlstmt);\r\n< execute immediate sqlstmt;\r\n< \r\n< sqlstmt := 'comment on column ' || quoted_owner || '.' || quoted_newview ||\r\n< '.CON$NAME is ''Container Name''';\r\n< -- dbms_output.put_line(sqlstmt);\r\n< execute immediate sqlstmt;\r\n< \r\n< sqlstmt := 'comment on column ' || quoted_owner || '.' || quoted_newview ||\r\n< '.CDB$NAME is ''Database Name''';\r\n< -- dbms_output.put_line(sqlstmt);\r\n< execute immediate sqlstmt;\r\n< \r\n< colcomments := 'select c.name, co.comment$ ' ||\r\n< 'from sys.obj$ o, sys.col$ c, sys.user$ u, sys.com$ co ' ||\r\n< 'where o.name = ''' || upper_oldview || ''' ' ||\r\n< 'and u.name = ''' || upper_owner || ''' ' ||\r\n< 'and o.owner# = u.user# and (o.type# = 4 or o.type# = 2) ' ||\r\n< 'and o.obj# = c.obj# ' ||\r\n< 'and c.obj# = co.obj# and c.intcol# = co.col# ' ||\r\n< -- skip hidden column\r\n< 'and bitand(c.property, 32) = 0 '||\r\n< -- skip null comment\r\n< 'and co.comment$ is not null';\r\n< -- skip Long, Nested Table, Varray columns\r\n< unsupp_col_condition := 'c.type# = 8 or c.type# = 122 or c.type# = 123 ' ||\r\n< -- skip ADT and REF columns\r\n< 'or c.type# = 121 or c.type# = 111 ' ||\r\n< -- Bug 20683085: skip Opaque Type column except\r\n< -- xmltype stored as LOB. Check xmltype as lob using\r\n< -- property bit KQLDCOP2_XSLB.\r\n< \t\t -- Bug 23083309: if there are unsupported columns,\r\n< -- then XMLType column is skipped (hidden XMLType lob\r\n< -- column is already handled)\r\n< 'or (c.type# = 58 and ' ||\r\n< '((bitand(c.property, ' ||\r\n< 'power(2,32)*4194304)<>power(2,32)*4194304) '||\r\n< 'or :u > 0)) ' ||\r\n< -- Bug 21785587: skip long raw\r\n< 'or c.type# = 24';\r\n< \r\n< sqlstmt := colcomments || ' and (' || unsupp_col_condition || ')';\r\n< \r\n< unsupp_col_count := 0;\r\n< EXECUTE IMMEDIATE 'SELECT COUNT(*) FROM (' || sqlstmt ||')'\r\n< INTO unsupp_col_count USING unsupp_col_count;\r\n< \r\n< open colcommentscur for colcomments ||' and not ('||\r\n< unsupp_col_condition ||')'\r\n< USING unsupp_col_count;\r\n< loop\r\n< fetch colcommentscur into col_name, comments;\r\n< exit when colcommentscur%NOTFOUND;\r\n< \r\n< comments := replace(comments, '''','''''');\r\n< sqlstmt := 'comment on column ' ||\r\n< quoted_owner || '.' || quoted_newview || '.' ||\r\n< col_name || ' is ''' || comments || '''';\r\n< -- dbms_output.put_line(sqlstmt);\r\n< execute immediate sqlstmt;\r\n< end loop;\r\n< close colcommentscur;\r\n< end;\r\n---\r\n> begin\r\n> CDBView_internal.create_cdbview(chk_upgrd, owner, oldview_name,\r\n> newview_name);\r\n> end;\r\n137,140c12,19\r\n< tablename dbms_id;\r\n< colname dbms_id;\r\n< stmt varchar2(400);\r\n< retval varchar2(4000);\r\n---\r\n> tablename dbms_id;\r\n> colname dbms_id;\r\n> stmt varchar2(400);\r\n> retval varchar2(4000);\r\n> isuser_sys boolean := FALSE;\r\n> scr_priv number := 0;\r\n> insuff_priv exception;\r\n> pragma exception_init(insuff_priv, -1031);\r\n141a21,47\r\n> --\r\n> -- The Current_User should either be SYS or be in possession of\r\n> -- SELECT_CATALOG_ROLE to be able to query view definitions.\r\n> -- This is how Dbms_Metadata.Get_DDL operates, so we are trying\r\n> -- to have the same privilege model here too. If none of this is\r\n> -- true, we will raise ORA-1031 error.\r\n> --\r\n> -- We are doing a direct query against SESSION_ROLES dictionary table\r\n> -- instead of using Dbms_Priv_Capture.Ses_Has_Role_Priv function, as\r\n> -- the package Dbms_Priv_Capture may not be available by the time this\r\n> -- package CDBView gets created. Also use dyn SQL for the same reason.\r\n> --\r\n> if (sys_context('userenv','current_userid') = 0) then\r\n> isuser_sys := TRUE;\r\n> else\r\n> begin\r\n> execute immediate 'select count(*) from sys.session_roles where\r\n> role = ''SELECT_CATALOG_ROLE''' into scr_priv;\r\n> exception\r\n> when others then NULL;\r\n> end;\r\n> end if;\r\n> \r\n> if NOT (isuser_sys OR scr_priv > 0) then\r\n> raise insuff_priv;\r\n> end if;\r\n> \r\n157,203d62\r\n< \r\n< -- This function is created to prevent SQL injection. We couldn't use\r\n< -- dbms_assert because catcdbviews.sql is called before dbms_assert\r\n< -- is created\r\n< function isLegalOwnerViewName(owner IN varchar2, oldview IN varchar2,\r\n< newview IN varchar2) return boolean as\r\n< cCheck number;\r\n< cleanOldview varchar2(128);\r\n< cleanNewview varchar2(128);\r\n< begin\r\n< \r\n< -- Check if owner already exist\r\n< execute immediate 'SELECT COUNT(*) FROM USER$ WHERE NAME = :1'\r\n< into cCheck using upper(owner);\r\n< if (cCheck = 0) then\r\n< RETURN FALSE;\r\n< end if;\r\n< \r\n< -- Check if oldview already exist\r\n< execute immediate 'SELECT COUNT(*) FROM OBJ$ WHERE NAME = :1' ||\r\n< ' AND (TYPE# = 4 OR TYPE# = 2)'\r\n< into cCheck using upper(oldview);\r\n< if (cCheck = 0) then\r\n< RETURN FALSE;\r\n< end if;\r\n< \r\n< -- Check for appropriate newview name\r\n< -- The following is allowed for newview name\r\n< -- 1. Substitute 'DBA' with 'CDB'\r\n< -- 2. Substitute 'AWR_PDB' with 'CDB_HIST'\r\n< -- 3. Substitute 'ATTRIBUTES' with 'ATTRIB'\r\n< -- 4. Substitute 'DATABASE' with 'CDB'\r\n< -- 5. Remove 'REDUCED'\r\n< -- 6. Add 'AWRI$_CDB'\r\n< cleanOldview := REGEXP_REPLACE(upper(oldview),\r\n< 'DBA|DATABASE|_| |HIST|ATTRIB(UTE)?S?|CDB|AWR_PDB|REDUCED');\r\n< cleanNewview := REGEXP_REPLACE(upper(newview),\r\n< 'CDB|DATABASE|_| |HIST|ATTRIB(UTE)?S?|AWRI\\$');\r\n< \r\n< if (cleanOldview = cleanNewview) then\r\n< RETURN TRUE;\r\n< end if;\r\n< \r\n< RETURN FALSE;\r\n< \r\n< end isLegalOwnerViewName;\r\n< \r\n<\/pre>\n1c1,217\r\n< package body CDBView_internal as\r\n---\r\n> package body CDBView_Internal is\r\n> \r\n> MAX_SENS_TAB_COUNT CONSTANT number := 11;\r\n> type tabs_array is varray(MAX_SENS_TAB_COUNT) of dbms_id;\r\n> sens_table_array tabs_array;\r\n> type sens_tabs is table of boolean index by dbms_id;\r\n> sens_table_list sens_tabs;\r\n> \r\n> function isLegalOwnerViewName(owner IN varchar2, oldview IN varchar2,\r\n> newview IN varchar2) return boolean;\r\n> -- Create the cdb view\r\n> -- private helper procedure to create the cdb view\r\n> -- Note that quotes should not be added around owner, oldview_name and\r\n> -- newview_name before create_cdbview is invoked since all three are used\r\n> -- as literals to query dictionary views.\r\n> procedure create_cdbview(chk_upgrd IN boolean, owner IN varchar2,\r\n> oldview_name IN varchar2, newview_name IN varchar2) as\r\n> sqlstmt varchar2(4000);\r\n> col_name dbms_id;\r\n> comments varchar2(4000);\r\n> col_type number;\r\n> upper_owner varchar2(128);\r\n> upper_oldview varchar2(128);\r\n> newview dbms_id := newview_name;\r\n> quoted_owner dbms_quoted_id; -- 2 more than size of owner\r\n> quoted_oldview dbms_quoted_id; -- 2 more than size of oldview_name\r\n> quoted_newview dbms_quoted_id; -- 2 more than size of newview_name\r\n> \r\n> unsupp_col_condition varchar2(4000);\r\n> colcomments varchar2(4000);\r\n> unsupp_col_count number;\r\n> colcommentscur SYS_REFCURSOR;\r\n> table_not_found EXCEPTION;\r\n> PRAGMA exception_init(table_not_found, -942);\r\n> insuff_privilege EXCEPTION;\r\n> PRAGMA exception_init(insuff_privilege, -1031);\r\n> \r\n> cursor tblcommentscur is select c.comment$\r\n> from sys.obj$ o, sys.user$ u, sys.com$ c\r\n> where o.name = upper_oldview and u.name = upper_owner\r\n> and o.obj# = c.obj# and o.owner#=u.user#\r\n> and (o.type# = 4 or o.type# = 2)\r\n> and c.col# is null;\r\n> \r\n> begin\r\n> \r\n> -- convert owner and view names to upper case\r\n> upper_owner := upper(owner);\r\n> upper_oldview := upper(oldview_name);\r\n> \r\n> --\r\n> -- No need to check for ownername, viewname correctness, if the Current_User\r\n> -- is SYS, as would be the case with most of Create_CDBView invocations\r\n> -- across RDBMS code.\r\n> --\r\n> -- As per recommendation from Mark, it is not safe to give a free pass to\r\n> -- SYS user, in case CDBView.Create_CDBView gets invoked from within a SYS\r\n> -- owned definer rights PL\/SQL code and the inputs to those could be user\r\n> -- provided and potentially malicious.\r\n> --\r\n> if (not isLegalOwnerViewName(upper_owner, upper_oldview, newview_name)) then\r\n> RAISE table_not_found;\r\n> end if;\r\n> \r\n> --\r\n> -- Bug 27445727 : Certain SYS owned tables like USER$, LINK$ etc. are out\r\n> -- of bounds even for DBA level users. So we should not allow cloning such\r\n> -- tables into a Container_Data view and be able to bypass this protection.\r\n> --\r\n> -- Since this procedure does not support quoted identifiers, we need not\r\n> -- worry about canonicalizing the owner or oldview_name arguments before\r\n> -- comparing against SYS and the array of sensitive tables.\r\n> --\r\n> if (upper_owner = 'SYS' and sens_table_list.exists(upper_oldview)) then\r\n> RAISE insuff_privilege;\r\n> end if;\r\n> \r\n> quoted_owner := '\"' || upper_owner || '\"';\r\n> quoted_oldview := '\"' || upper_oldview || '\"';\r\n> quoted_newview := '\"' || upper(newview_name) || '\"';\r\n> \r\n> -- Create cdb view\r\n> sqlstmt := 'CREATE OR REPLACE VIEW ' ||\r\n> quoted_owner || '.' || quoted_newview ||\r\n> ' CONTAINER_DATA AS SELECT k.*, k.CON$NAME, k.CDB$NAME' ||\r\n> ' FROM CONTAINERS(' || quoted_owner || '.' || quoted_oldview || ') k';\r\n> \r\n> --dbms_output.put_line(sqlstmt);\r\n> execute immediate sqlstmt;\r\n> \r\n> -- table and column comments\r\n> open tblcommentscur;\r\n> fetch tblcommentscur into comments;\r\n> comments := replace(comments, '''','''''');\r\n> sqlstmt := 'comment on table ' || quoted_owner || '.' || quoted_newview ||\r\n> ' is ''' || comments || ' in all containers''';\r\n> -- dbms_output.put_line(sqlstmt);\r\n> execute immediate sqlstmt;\r\n> close tblcommentscur;\r\n> \r\n> sqlstmt := 'comment on column ' || quoted_owner || '.' || quoted_newview ||\r\n> '.CON_ID is ''container id''';\r\n> -- dbms_output.put_line(sqlstmt);\r\n> execute immediate sqlstmt;\r\n> \r\n> sqlstmt := 'comment on column ' || quoted_owner || '.' || quoted_newview ||\r\n> '.CON$NAME is ''Container Name''';\r\n> -- dbms_output.put_line(sqlstmt);\r\n> execute immediate sqlstmt;\r\n> \r\n> sqlstmt := 'comment on column ' || quoted_owner || '.' || quoted_newview ||\r\n> '.CDB$NAME is ''Database Name''';\r\n> -- dbms_output.put_line(sqlstmt);\r\n> execute immediate sqlstmt;\r\n> \r\n> colcomments := 'select c.name, co.comment$ ' ||\r\n> 'from sys.obj$ o, sys.col$ c, sys.user$ u, sys.com$ co ' ||\r\n> 'where o.name = ''' || upper_oldview || ''' ' ||\r\n> 'and u.name = ''' || upper_owner || ''' ' ||\r\n> 'and o.owner# = u.user# and (o.type# = 4 or o.type# = 2) ' ||\r\n> 'and o.obj# = c.obj# ' ||\r\n> 'and c.obj# = co.obj# and c.intcol# = co.col# ' ||\r\n> -- skip hidden column\r\n> 'and bitand(c.property, 32) = 0 '||\r\n> -- skip null comment\r\n> 'and co.comment$ is not null';\r\n> -- skip Long, Nested Table, Varray columns\r\n> unsupp_col_condition := 'c.type# = 8 or c.type# = 122 or c.type# = 123 ' ||\r\n> -- skip ADT and REF columns\r\n> 'or c.type# = 121 or c.type# = 111 ' ||\r\n> -- Bug 20683085: skip Opaque Type column except\r\n> -- xmltype stored as LOB. Check xmltype as lob using\r\n> -- property bit KQLDCOP2_XSLB.\r\n> \t\t -- Bug 23083309: if there are unsupported columns,\r\n> -- then XMLType column is skipped (hidden XMLType lob\r\n> -- column is already handled)\r\n> 'or (c.type# = 58 and ' ||\r\n> '((bitand(c.property, ' ||\r\n> 'power(2,32)*4194304)<>power(2,32)*4194304) '||\r\n> 'or :u > 0)) ' ||\r\n> -- Bug 21785587: skip long raw\r\n> 'or c.type# = 24';\r\n> \r\n> sqlstmt := colcomments || ' and (' || unsupp_col_condition || ')';\r\n> \r\n> unsupp_col_count := 0;\r\n> EXECUTE IMMEDIATE 'SELECT COUNT(*) FROM (' || sqlstmt ||')'\r\n> INTO unsupp_col_count USING unsupp_col_count;\r\n> \r\n> open colcommentscur for colcomments ||' and not ('||\r\n> unsupp_col_condition ||')'\r\n> USING unsupp_col_count;\r\n> loop\r\n> fetch colcommentscur into col_name, comments;\r\n> exit when colcommentscur%NOTFOUND;\r\n> \r\n> comments := replace(comments, '''','''''');\r\n> sqlstmt := 'comment on column ' ||\r\n> quoted_owner || '.' || quoted_newview || '.' ||\r\n> col_name || ' is ''' || comments || '''';\r\n> -- dbms_output.put_line(sqlstmt);\r\n> execute immediate sqlstmt;\r\n> end loop;\r\n> close colcommentscur;\r\n> end;\r\n> \r\n> -- This function is created to prevent SQL injection. We couldn't use\r\n> -- dbms_assert because catcdbviews.sql is called before dbms_assert\r\n> -- is created\r\n> function isLegalOwnerViewName(owner IN varchar2, oldview IN varchar2,\r\n> newview IN varchar2) return boolean as\r\n> cCheck number;\r\n> ownerId number;\r\n> cleanOldview dbms_id;\r\n> cleanNewview dbms_id;\r\n> begin\r\n> \r\n> -- Check if owner already exist\r\n> -- USER$ contains both users and roles, exclude roles from the check\r\n> begin\r\n> execute immediate 'SELECT USER# FROM USER$ WHERE TYPE# = 1 AND NAME = :1'\r\n> into ownerId using owner;\r\n> exception\r\n> when no_data_found then return false;\r\n> end;\r\n> \r\n> -- Check if oldview already exist, qualify with owner# to avoid ORA-1422\r\n> -- error,if two dictionary view with the same name exists across different\r\n> -- schemas like DBA_DV_STATUS which exists in both SYS and DVSYS schemas.\r\n> begin\r\n> execute immediate 'SELECT 1 FROM OBJ$ WHERE NAME = :1' ||\r\n> ' AND TYPE# in (2, 4) and owner# = :2'\r\n> into cCheck using oldview, ownerId;\r\n> exception\r\n> when no_data_found then return false;\r\n> end;\r\n> \r\n> -- Check for appropriate newview name\r\n> -- The following is allowed for newview name\r\n> -- 1. Substitute 'DBA' with 'CDB'\r\n> -- 2. Substitute 'AWR_PDB' with 'CDB_HIST'\r\n> -- 3. Substitute 'ATTRIBUTES' with 'ATTRIB'\r\n> -- 4. Substitute 'DATABASE' with 'CDB'\r\n> -- 5. Remove 'REDUCED'\r\n> -- 6. Add 'AWRI$_CDB'\r\n> cleanOldview := REGEXP_REPLACE(upper(oldview),\r\n> 'DBA|DATABASE|_| |HIST|ATTRIB(UTE)?S?|CDB|AWR_PDB|REDUCED');\r\n> cleanNewview := REGEXP_REPLACE(upper(newview),\r\n> 'CDB|DATABASE|_| |HIST|ATTRIB(UTE)?S?|AWRI\\$');\r\n> \r\n> if (cleanOldview = cleanNewview) then\r\n> RETURN TRUE;\r\n> end if;\r\n> \r\n> RETURN FALSE;\r\n> \r\n> end isLegalOwnerViewName;\r\n17c233,251\r\n< end;\r\n---\r\n> --\r\n> -- Initialize the list of SYS owned sensitive tables which should\r\n> -- not be allowed to be shadow-copied even within Create_CDBView.\r\n> --\r\n> -- Once ER 24598663 gets implemented, these entries will be part of a\r\n> -- SYS owned metadata table and instead of hard-coding the list, we will\r\n> -- be populating the list by fetching it from the table.\r\n> --\r\n> begin\r\n> sens_table_array := tabs_array('ENC$', 'LINK$', 'USER$', 'DEFAULT_PWD$',\r\n> 'XS$VERIFIERS', 'USER_HISTORY$',\r\n> 'HIST_HEAD$', 'HISTGRM$','CDB_LOCAL_ADMINAUTH$',\r\n> 'PDB_CREATE$','PDB_SYNC$');\r\n> \r\n> for i in 1..MAX_SENS_TAB_COUNT loop\r\n> sens_table_list(sens_table_array(i)) := TRUE;\r\n> end loop;\r\n> \r\n> end CDBView_Internal;\r\n<\/pre>\n171a172,186\r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> PROCEDURE REFRESH_CLIENT_CONFIG IS\r\n> EXTERNAL LANGUAGE C\r\n> NAME \"ketrcc_refresh_client_config\"\r\n> WITH CONTEXT\r\n> PARAMETERS(CONTEXT)\r\n> LIBRARY DBMS_AUTOTASK_PRVT_LIB;\r\n> \r\n<\/pre>\n
67a68,70\r\n> \r\n> ORIG_CONTAINER_NAME VARCHAR2(128) := NULL;\r\n> \r\n77a81,106\r\n> \r\n> \r\n> \r\n> FUNCTION CHECK_CONTAINER_SWITCH(E_MSG OUT VARCHAR2) RETURN BOOLEAN IS\r\n> L_CONTAINER_NAME VARCHAR2(128);\r\n> CONTAINER_SWITCHED BOOLEAN;\r\n> BEGIN\r\n> SELECT SYS_CONTEXT('userenv', 'con_name')\r\n> INTO L_CONTAINER_NAME\r\n> FROM DUAL;\r\n> \r\n> DEBUG_PUT_LINE('l_container_name '||L_CONTAINER_NAME||' orig_container_name '||ORIG_CONTAINER_NAME);\r\n> \r\n> IF ORIG_CONTAINER_NAME IS NULL OR\r\n> L_CONTAINER_NAME != ORIG_CONTAINER_NAME THEN\r\n> E_MSG := 'Unexpected container change to ' || L_CONTAINER_NAME;\r\n> CONTAINER_SWITCHED := TRUE;\r\n> ELSE\r\n> E_MSG := NULL;\r\n> CONTAINER_SWITCHED := FALSE;\r\n> END IF;\r\n> \r\n> RETURN CONTAINER_SWITCHED;\r\n> END;\r\n> \r\n> \r\n150c179,180\r\n< S_NOTOK_COMPONENTS = NOTOK_COMPONENTS\r\n---\r\n> S_NOTOK_COMPONENTS = NOTOK_COMPONENTS,\r\n> S_CONTAINER_NAME = ORIG_CONTAINER_NAME\r\n163a194\r\n> L_MSG VARCHAR2(300);\r\n194c225,226\r\n< S_NOTOK_COMPONENTS\r\n---\r\n> S_NOTOK_COMPONENTS,\r\n> S_CONTAINER_NAME\r\n224c256,257\r\n< NOTOK_COMPONENTS\r\n---\r\n> NOTOK_COMPONENTS,\r\n> ORIG_CONTAINER_NAME\r\n227a261,265\r\n> \r\n> IF CHECK_CONTAINER_SWITCH(L_MSG) THEN\r\n> RAISE_APPLICATION_ERROR(-20003, L_MSG);\r\n> END IF;\r\n> \r\n259d296\r\n< \r\n285c322\r\n< RETURN '$Header: rdbms\/src\/server\/dict\/plsicds\/prvtsqlpatch.sql \/st_rdbms_12.2.0.1.0dbbp\/3 2018\/05\/02 15:37:07 surman Exp $';\r\n---\r\n> RETURN '$Header: rdbms\/src\/server\/dict\/plsicds\/prvtsqlpatch.sql \/st_rdbms_12.2.0.1.0dbbp\/4 2018\/10\/09 03:33:10 sanagara Exp $';\r\n603a641,642\r\n> CONTAINER_SWITCHED BOOLEAN := FALSE;\r\n> L_MSG VARCHAR2(300);\r\n608,610c647,655\r\n< UPDATE DBA_REGISTRY_SQLPATCH\r\n< SET STATUS = 'END'\r\n< WHERE ROWID = CURRENT_REGISTRY_ROWID;\r\n---\r\n> \r\n> \r\n> CONTAINER_SWITCHED := CHECK_CONTAINER_SWITCH(L_MSG);\r\n> \r\n> IF NOT CONTAINER_SWITCHED THEN\r\n> \r\n> UPDATE DBA_REGISTRY_SQLPATCH\r\n> SET STATUS = 'END'\r\n> WHERE ROWID = CURRENT_REGISTRY_ROWID;\r\n616,617c661,662\r\n< WHERE S_CURRENT_PATCH_ID = CURRENT_PATCH.PATCH_ID\r\n< AND S_CURRENT_PATCH_UID = CURRENT_PATCH.PATCH_UID;\r\n---\r\n> WHERE S_CURRENT_PATCH_ID = CURRENT_PATCH.PATCH_ID\r\n> AND S_CURRENT_PATCH_UID = CURRENT_PATCH.PATCH_UID;\r\n619c664,665\r\n< COMMIT;\r\n---\r\n> COMMIT;\r\n> END IF;\r\n648a695,700\r\n> \r\n> \r\n> IF CONTAINER_SWITCHED THEN\r\n> RAISE_APPLICATION_ERROR(-20003, L_MSG);\r\n> END IF;\r\n> \r\n661a714\r\n> L_MSG VARCHAR2(300);\r\n667a721,725\r\n> \r\n> IF CHECK_CONTAINER_SWITCH(L_MSG) THEN\r\n> RAISE_APPLICATION_ERROR(-20003, L_MSG);\r\n> END IF;\r\n> \r\n670,671c728,734\r\n< DEBUG_PUT_LINE(' initialize not complete, never install');\r\n< RETURN NOTHING_SQL;\r\n---\r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> RAISE_APPLICATION_ERROR(-20004, 'Uninitialized state in install_file');\r\n1013a1077,1082\r\n> \r\n> \r\n> SELECT SYS_CONTEXT('userenv', 'con_name')\r\n> INTO ORIG_CONTAINER_NAME\r\n> FROM DUAL;\r\n> \r\n<\/pre>\n445c445\r\n< END IF;\r\n---\r\n> END IF;\r\n496c496\r\n< INCREMENT := INCREMENT + 1; \r\n---\r\n> INCREMENT := INCREMENT + 1;\r\n583c583\r\n< END IF;\r\n---\r\n> END IF;\r\n2727c2727\r\n< \r\n---\r\n> \r\n3310c3310\r\n< HAS_ROLE NUMBER := 0;\r\n---\r\n> HAS_ROLE NUMBER := 0;\r\n3433c3433\r\n< \r\n---\r\n> \r\n3484c3484\r\n< \r\n---\r\n> \r\n<\/pre>\n
687c687\r\n< SCN OCINUMBER, SCN INDICATOR SB2,\r\n---\r\n> SCN OCINUMBER, SCN INDICATOR SB2,\r\n689,690c689,690\r\n< POS OCIRAW, POS INDICATOR SB2,\r\n< POS MAXLEN SB4, POS LENGTH SB4)\r\n---\r\n> POS OCIRAW, POS INDICATOR SB2,\r\n> POS MAXLEN SB4, POS LENGTH SB4)\r\n1526c1526\r\n< DBMS_XSTREAM_ADM_UTL.CONVERT_SCN_TO_POS(PROCESSED_LWM_SCN,\r\n---\r\n> DBMS_XSTREAM_ADM_UTL.CONVERT_SCN_TO_POS(PROCESSED_LWM_SCN, \r\n<\/pre>\n
792c792\r\n< INCREMENT := INCREMENT + 1; \r\n---\r\n> INCREMENT := INCREMENT + 1; \r\n908c908\r\n< END IF; \r\n---\r\n> END IF;\r\n<\/pre>\n
77a78\r\n> PRBA NUMBER := RBA;\r\n87c88\r\n< SEQ# = SEQNO AND RBA = RBA AND INDEX# = INDEX_NUM;\r\n---\r\n> SEQ# = SEQNO AND RBA = PRBA AND INDEX# = INDEX_NUM;\r\n91c92\r\n< SEQ# = SEQNO AND RBA = RBA AND INDEX# = INDEX_NUM;\r\n---\r\n> SEQ# = SEQNO AND RBA = PRBA AND INDEX# = INDEX_NUM;\r\n<\/pre>\n
1438c1438\r\n< ' queue=' || QUEUE_NAME || ' src_db=' || SOURCE_DATABASE || \r\n---\r\n> ' queue=' || QUEUE_NAME || ' src_db=' || SOURCE_DATABASE ||\r\n2908c2908\r\n< END IF;\r\n---\r\n> END IF; \r\n<\/pre>\n
18.0.0.0<\/strong><\/h3>\n
7763a7764\r\n> \r\n7775,7778c7776,7788\r\n< CUR_SCHEMA IN VARCHAR2) IS\r\n< CANON_JOB_NAME DBMS_ID;\r\n< CANON_JOB_SUBNAME DBMS_ID;\r\n< CANON_JOB_OWNER DBMS_ID;\r\n---\r\n> CUR_SCHEMA IN VARCHAR2,\r\n> LOCK_NAME OUT DBMS_ID,\r\n> LOCK_HANDLE OUT VARCHAR2,\r\n> RECIPIENTS_LIST OUT DBMS_UTILITY.LNAME_ARRAY,\r\n> NEW_RAISE_EVENTS_NUM OUT PLS_INTEGER,\r\n> CANON_JOB_NAME IN OUT DBMS_ID,\r\n> CANON_JOB_SUBNAME IN OUT DBMS_ID,\r\n> CANON_JOB_OWNER IN OUT DBMS_ID,\r\n> CUR_FLAGS OUT NUMBER,\r\n> DOES_SUB_EXIST OUT BOOLEAN,\r\n> DOES_REG_EXIST OUT BOOLEAN,\r\n> REAL_JB_NAME IN VARCHAR2 \r\n> ) IS\r\n7782d7791\r\n< NEW_RAISE_EVENTS_NUM PLS_INTEGER := 0;\r\n7791d7799\r\n< EVENT_10862 PLS_INTEGER := 0;\r\n7798,7799d7805\r\n< LOCK_NAME DBMS_ID;\r\n< LOCK_HANDLE VARCHAR2(128);\r\n7802d7807\r\n< RECIPIENTS_LIST DBMS_UTILITY.LNAME_ARRAY;\r\n7805d7809\r\n< CUR_FLAGS NUMBER;\r\n7807c7811\r\n< REAL_JOB_NAME VARCHAR2(2 * ORA_MAX_NAME_LEN + 5) := JOB_NAME;\r\n---\r\n> REAL_JOB_NAME VARCHAR2(2 * ORA_MAX_NAME_LEN + 5) := REAL_JB_NAME;\r\n7817c7821,7822\r\n< SYS.DBMS_ISCHED.TRACE_EMAIL('Entering add_job_email_notification');\r\n---\r\n> SYS.DBMS_ISCHED.TRACE_EMAIL('Entering ' || \r\n> 'dbms_isched.add_job_email_notification');\r\n7819a7825,7836\r\n> IF DO_TRC THEN\r\n> SYS.DBMS_ISCHED.TRACE_EMAIL('Current user: ' ||\r\n> SYS_CONTEXT('USERENV','CURRENT_USER') );\r\n> SYS.DBMS_ISCHED.TRACE_EMAIL('Session user: ' ||\r\n> SYS_CONTEXT('USERENV','SESSION_USER') );\r\n> SYS.DBMS_ISCHED.TRACE_EMAIL('Current schema: ' ||\r\n> SYS_CONTEXT('USERENV','CURRENT_SCHEMA') );\r\n> END IF;\r\n> \r\n> NEW_RAISE_EVENTS_NUM := 0;\r\n> CUR_FLAGS := 0;\r\n> \r\n7844,7868c7861,7862\r\n< RESOLVE3_NAME(REAL_JOB_NAME, CANON_JOB_NAME, CANON_JOB_SUBNAME,\r\n< CANON_JOB_OWNER, CUR_SCHEMA);\r\n< \r\n< \r\n< FULL_JOB_NAME := '\"'||CANON_JOB_OWNER||'\".\"'||CANON_JOB_NAME||'\"';\r\n< \r\n< \r\n< IF INVOKER != CANON_JOB_OWNER AND INVOKER != 'SYS' AND\r\n< BITAND(SYS_PRIVS, 2) = 0\r\n< THEN\r\n< \r\n< BEGIN\r\n< SYS.DBMS_ISCHED_UTL.CHECK_OBJECT_PRIVS(CANON_JOB_NAME, CANON_JOB_OWNER, 'JOB',\r\n< INVOKER, 'ALTER', TRUE, SYS_PRIVS);\r\n< EXCEPTION WHEN OTHERS THEN\r\n< \r\n< IF SQLCODE = -23306 AND CANON_JOB_SUBNAME IS NULL\r\n< AND REAL_JOB_NAME = JOB_NAME THEN\r\n< REAL_JOB_NAME := '\"'||CUR_SCHEMA||'\".' || JOB_NAME;\r\n< GOTO TRY_RESOLVE_AGAIN;\r\n< ELSE\r\n< RAISE;\r\n< END IF;\r\n< END;\r\n< END IF;\r\n---\r\n> FULL_JOB_NAME := DBMS_ASSERT.ENQUOTE_NAME(CANON_JOB_OWNER, FALSE) ||'.'||\r\n> DBMS_ASSERT.ENQUOTE_NAME(CANON_JOB_NAME , FALSE);\r\n7892c7886,7890\r\n< REAL_JOB_NAME := '\"'||CUR_SCHEMA||'\".' || JOB_NAME;\r\n---\r\n> REAL_JOB_NAME := DBMS_ASSERT.ENQUOTE_NAME(CUR_SCHEMA, FALSE) ||\r\n> '.' || JOB_NAME;\r\n> \r\n> RESOLVE3_NAME(REAL_JOB_NAME, CANON_JOB_NAME, CANON_JOB_SUBNAME,\r\n> CANON_JOB_OWNER, CUR_SCHEMA);\r\n7981,7990d7978\r\n< \r\n< \r\n< \r\n< DBMS_SYSTEM.READ_EV(10862, EVENT_10862);\r\n< IF EVENT_10862 = 0 THEN\r\n< EXECUTE IMMEDIATE\r\n< 'ALTER SESSION SET EVENTS ''10862 TRACE NAME CONTEXT FOREVER, LEVEL 1''';\r\n< END IF;\r\n< \r\n< \r\n7992,7993c7980,7981\r\n< 'select count(*) from sys.dba_QUEUE_SUBSCRIBERS where owner=''SYS''\r\n< and queue_name=''SCHEDULER$_EVENT_QUEUE'' and consumer_name=:lname'\r\n---\r\n> 'select count(*) from sys.user_QUEUE_SUBSCRIBERS where \r\n> queue_name=''SCHEDULER$_EVENT_QUEUE'' and consumer_name=:lname'\r\n7996,8003c7984,7985\r\n< BEGIN\r\n< \r\n< DBMS_AQADM.ADD_SUBSCRIBER\r\n< (QUEUE_NAME => 'SYS.SCHEDULER$_EVENT_QUEUE',\r\n< SUBSCRIBER => SYS.AQ$_AGENT(LOCK_NAME, NULL, NULL));\r\n< EXCEPTION WHEN OTHERS THEN\r\n< IF SQLCODE = -24034 THEN NULL;\r\n< ELSE\r\n---\r\n> DOES_SUB_EXIST := FALSE;\r\n> BEGIN\r\n8005,8007c7987,7994\r\n< IF EVENT_10862 = 0 THEN\r\n< EXECUTE IMMEDIATE 'ALTER SESSION SET EVENTS ' ||\r\n< '''10862 TRACE NAME CONTEXT OFF''' ;\r\n---\r\n> DBMS_AQADM.ADD_SUBSCRIBER\r\n> (QUEUE_NAME => 'SYS.SCHEDULER$_EVENT_QUEUE',\r\n> SUBSCRIBER => SYS.AQ$_AGENT(LOCK_NAME, NULL, NULL));\r\n> EXCEPTION WHEN OTHERS THEN\r\n> IF SQLCODE = -24034 THEN NULL;\r\n> ELSE\r\n> LOCK_ERROR := DBMS_LOCK.RELEASE(LOCKHANDLE=>LOCK_HANDLE);\r\n> RAISE;\r\n8009,8019c7996,7998\r\n< \r\n< LOCK_ERROR := DBMS_LOCK.RELEASE(LOCKHANDLE=>LOCK_HANDLE);\r\n< RAISE;\r\n< END IF;\r\n< END;\r\n< END IF;\r\n< \r\n< \r\n< IF EVENT_10862 = 0 THEN\r\n< EXECUTE IMMEDIATE 'ALTER SESSION SET EVENTS ' ||\r\n< '''10862 TRACE NAME CONTEXT OFF''' ;\r\n---\r\n> END;\r\n> ELSE\r\n> DOES_SUB_EXIST := TRUE;\r\n8025,8029d8003\r\n< IF ROW_COUNT = 0 THEN\r\n< \r\n< SYS.DBMS_AQADM_SYS.ENABLE_DB_ACCESS(LOCK_NAME,INVOKER,TRUE);\r\n< END IF;\r\n< \r\n8033a8008,8012\r\n> EXCEPTION WHEN OTHERS THEN\r\n> LOCK_ERROR := DBMS_LOCK.RELEASE(LOCKHANDLE=>LOCK_HANDLE);\r\n> RAISE;\r\n> END;\r\n> \r\n8035,8042c8014,8020\r\n< \r\n< \r\n< REGINFO := SYS.AQ$_REG_INFO('SYS.SCHEDULER$_EVENT_QUEUE:\"'||LOCK_NAME||'\"',\r\n< DBMS_AQ.NAMESPACE_AQ,\r\n< 'plsql:\/\/SYS.SCHEDULER$_JOB_EVENT_HANDLER',\r\n< NULL);\r\n< REGLIST := SYS.AQ$_REG_INFO_LIST(REGINFO);\r\n< DBMS_AQ.REGISTER ( REGLIST, 1 );\r\n---\r\n> DOES_REG_EXIST := FALSE;\r\n> ELSE \r\n> DOES_REG_EXIST := TRUE;\r\n> END IF;\r\n> \r\n> IF DO_TRC THEN\r\n> SYS.DBMS_ISCHED.TRACE_EMAIL('Exiting dbms_isched.add_job_email_notification');\r\n8045a8024,8078\r\n> \r\n> END;\r\n> \r\n> PROCEDURE ADD_JOB_EMAIL_NOTIFICATION_PH3\r\n> (\r\n> RECIPIENTS_LIST IN DBMS_UTILITY.LNAME_ARRAY,\r\n> NEW_RAISE_EVENTS_NUM IN PLS_INTEGER,\r\n> CANON_JOB_NAME IN DBMS_ID,\r\n> CANON_JOB_SUBNAME IN DBMS_ID,\r\n> CANON_JOB_OWNER IN DBMS_ID,\r\n> INVOKER IN VARCHAR2,\r\n> SENDER IN VARCHAR2,\r\n> SUBJECT IN VARCHAR2,\r\n> BODY IN VARCHAR2,\r\n> FILTER_CONDITION IN VARCHAR2,\r\n> LOCK_NAME IN DBMS_ID,\r\n> LOCK_HANDLE IN VARCHAR2,\r\n> CUR_FLAGS IN NUMBER,\r\n> RECIPIENTS IN VARCHAR2,\r\n> EVENTS IN VARCHAR2\r\n> ) IS\r\n> TYPE EVENT_NAME_LIST IS TABLE OF DBMS_ID;\r\n> TYPE EVENT_NUMBER_LIST IS TABLE OF NUMBER;\r\n> EVENT_NAMES EVENT_NAME_LIST := EVENT_NAME_LIST('JOB_STARTED',\r\n> 'JOB_SUCCEEDED', 'JOB_FAILED', 'JOB_BROKEN', 'JOB_COMPLETED',\r\n> 'JOB_STOPPED', 'JOB_SCH_LIM_REACHED', 'JOB_DISABLED',\r\n> 'JOB_CHAIN_STALLED','JOB_OVER_MAX_DUR','JOB_RUN_COMPLETED','JOB_ALL_EVENTS');\r\n> EVENT_NUMBERS EVENT_NUMBER_LIST :=\r\n> EVENT_NUMBER_LIST(1,2,4,8,16,32,64,128,256,512,2+4+32,1024-1);\r\n> EVENT_10862 PLS_INTEGER := 0;\r\n> LOCK_ERROR PLS_INTEGER;\r\n> FULL_JOB_NAME VARCHAR2(3 * ORA_MAX_NAME_LEN + 8);\r\n> DO_TRC BOOLEAN := FALSE;\r\n> EV_27402 PLS_INTEGER;\r\n> BEGIN\r\n> \r\n> DBMS_SYSTEM.READ_EV(27402, EV_27402);\r\n> IF BITAND(EV_27402,128)=128 THEN DO_TRC := TRUE; END IF;\r\n> \r\n> \r\n> IF DO_TRC THEN\r\n> SYS.DBMS_ISCHED.TRACE_EMAIL('Entered add_job_email_notification_ph3');\r\n> END IF;\r\n> \r\n> IF DO_TRC THEN\r\n> SYS.DBMS_ISCHED.TRACE_EMAIL('Current user: ' ||\r\n> SYS_CONTEXT('USERENV','CURRENT_USER') );\r\n> SYS.DBMS_ISCHED.TRACE_EMAIL('Session user: ' ||\r\n> SYS_CONTEXT('USERENV','SESSION_USER') );\r\n> SYS.DBMS_ISCHED.TRACE_EMAIL('Current schema: ' ||\r\n> SYS_CONTEXT('USERENV','CURRENT_SCHEMA') );\r\n> END IF;\r\n> \r\n> BEGIN \r\n> \r\n8152a8186,8189\r\n> FULL_JOB_NAME := DBMS_ASSERT.ENQUOTE_NAME(CANON_JOB_OWNER, FALSE) ||'.'||\r\n> DBMS_ASSERT.ENQUOTE_NAME(CANON_JOB_NAME , FALSE);\r\n> \r\n> \r\n8159c8196,8197\r\n< FULL_JOB_NAME := FULL_JOB_NAME ||'.\"'||CANON_JOB_SUBNAME||'\"';\r\n---\r\n> FULL_JOB_NAME := FULL_JOB_NAME ||'.'||\r\n> DBMS_ASSERT.ENQUOTE_NAME(CANON_JOB_SUBNAME,FALSE);\r\n8165a8204,8208\r\n> \r\n> \r\n> IF DO_TRC THEN\r\n> SYS.DBMS_ISCHED.TRACE_EMAIL('Exiting add_job_email_notification_ph3');\r\n> END IF;\r\n<\/pre>\n1575a1576\r\n> LOC_PVALUE VARCHAR2(4096);\r\n1595a1597,1603\r\n> LOC_PVALUE := DBMS_ASSERT.NOOP(PVALUE);\r\n> \r\n> \r\n> IF LOC_PVALUE IS NULL OR LOC_PVALUE = '' THEN\r\n> LOC_PVALUE := '''''';\r\n> END IF;\r\n> \r\n1597,1599c1605,1607\r\n< 'ALTER SYSTEM SET \"'||\r\n< DBMS_ASSERT.NOOP(PNAME)||\r\n< '\"='||DBMS_ASSERT.NOOP(PVALUE)||\r\n---\r\n> 'ALTER SYSTEM SET '||\r\n> DBMS_ASSERT.ENQUOTE_NAME(PNAME)||\r\n> '='||DBMS_ASSERT.NOOP(LOC_PVALUE)||\r\n1604,1606c1612,1614\r\n< EXECUTE IMMEDIATE 'ALTER SYSTEM SET \"'||\r\n< DBMS_ASSERT.NOOP(PNAME)||\r\n< '\"='||DBMS_ASSERT.NOOP(PVALUE)||\r\n---\r\n> EXECUTE IMMEDIATE 'ALTER SYSTEM SET '||\r\n> DBMS_ASSERT.ENQUOTE_NAME(PNAME)||\r\n> '='||DBMS_ASSERT.NOOP(LOC_PVALUE)||\r\n1683,1685c1691,1693\r\n< 'ALTER SYSTEM SET \"'||\r\n< DBMS_ASSERT.NOOP(PNAME)||\r\n< '\"='||DBMS_ASSERT.NOOP(LOC_PVALUE)||\r\n---\r\n> 'ALTER SYSTEM SET '||\r\n> DBMS_ASSERT.ENQUOTE_NAME(PNAME)||\r\n> '='||DBMS_ASSERT.NOOP(LOC_PVALUE)||\r\n1690,1692c1698,1700\r\n< EXECUTE IMMEDIATE 'ALTER SYSTEM SET \"'||\r\n< DBMS_ASSERT.NOOP(PNAME)||\r\n< '\"='||DBMS_ASSERT.NOOP(LOC_PVALUE)||\r\n---\r\n> EXECUTE IMMEDIATE 'ALTER SYSTEM SET '||\r\n> DBMS_ASSERT.ENQUOTE_NAME(PNAME)||\r\n> '='||DBMS_ASSERT.NOOP(LOC_PVALUE)||\r\n1770,1772c1778,1780\r\n< 'ALTER SYSTEM SET \"'||\r\n< DBMS_ASSERT.NOOP(PNAME)||\r\n< '\"='||DBMS_ASSERT.NOOP(LOC_PVALUE)||\r\n---\r\n> 'ALTER SYSTEM SET '||\r\n> DBMS_ASSERT.ENQUOTE_NAME(PNAME)||\r\n> '='||DBMS_ASSERT.NOOP(LOC_PVALUE)||\r\n1777,1779c1785,1787\r\n< EXECUTE IMMEDIATE 'ALTER SYSTEM SET \"'||\r\n< DBMS_ASSERT.NOOP(PNAME)||\r\n< '\"='||DBMS_ASSERT.NOOP(LOC_PVALUE)||\r\n---\r\n> EXECUTE IMMEDIATE 'ALTER SYSTEM SET '||\r\n> DBMS_ASSERT.ENQUOTE_NAME(PNAME)||\r\n> '='||DBMS_ASSERT.NOOP(LOC_PVALUE)||\r\n<\/pre>\n
1341,1343c1341,1343\r\n< DBMS_GSM_COMMON.SETDBPARAMETER( '_dbgroup_name', '');\r\n< DBMS_GSM_COMMON.RESETDBPARAMETER('_dbgroup_name');\r\n< DBMS_GSM_COMMON.SETDBPARAMETER( '_shd_reptype', '');\r\n---\r\n> DBMS_GSM_COMMON.SETDBPARAMETER( '_shardgroup_name', '');\r\n> DBMS_GSM_COMMON.RESETDBPARAMETER('_shardgroup_name');\r\n> DBMS_GSM_COMMON.SETDBPARAMETER( '_shd_reptype', TO_CHAR(0));\r\n<\/pre>\n1c1\r\n< package CDBView as\r\n---\r\n> package CDBView AUTHID CURRENT_USER as\r\n<\/pre>\n
10a11,13\r\n> procedure create_cdbview(chk_upgrd IN boolean, owner IN varchar2,\r\n> oldview_name IN varchar2, newview_name IN varchar2);\r\n> \r\n<\/pre>\n
43a44,53\r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> PROCEDURE REFRESH_CLIENT_CONFIG;\r\n> \r\n<\/pre>\n
12c12\r\n< bannerVersion CONSTANT VARCHAR2(15) := '18.04.00.00';\r\n---\r\n> bannerVersion CONSTANT VARCHAR2(15) := '18.05.00.00';\r\n24,26c24,26\r\n< fsn CONSTANT NUMBER := instr('18.04.00.00', '.');\r\n< msn CONSTANT NUMBER := instr('18.04.00.00', '.', fsn + 1);\r\n< psn CONSTANT NUMBER := instr('18.04.00.00', '.', msn + 1);\r\n---\r\n> fsn CONSTANT NUMBER := instr('18.05.00.00', '.');\r\n> msn CONSTANT NUMBER := instr('18.05.00.00', '.', fsn + 1);\r\n> psn CONSTANT NUMBER := instr('18.05.00.00', '.', msn + 1);\r\n29c29\r\n< to_number(substr('18.04.00.00', 1, fsn - 1));\r\n---\r\n> to_number(substr('18.05.00.00', 1, fsn - 1));\r\n31c31\r\n< to_number(substr('18.04.00.00', fsn + 1, msn - fsn - 1));\r\n---\r\n> to_number(substr('18.05.00.00', fsn + 1, msn - fsn - 1));\r\n33c33\r\n< to_number(substr('18.04.00.00', msn + 1, psn - msn - 1));\r\n---\r\n> to_number(substr('18.05.00.00', msn + 1, psn - msn - 1));\r\n35c35\r\n< to_number(substr('18.04.00.00', psn + 1));\r\n---\r\n> to_number(substr('18.05.00.00', psn + 1));\r\n<\/pre>\n12c12\r\n< bannerVersion CONSTANT VARCHAR2(15) := '18.04.00.00';\r\n---\r\n> bannerVersion CONSTANT VARCHAR2(15) := '18.03.02.00';\r\n24,26c24,26\r\n< fsn CONSTANT NUMBER := instr('18.04.00.00', '.');\r\n< msn CONSTANT NUMBER := instr('18.04.00.00', '.', fsn + 1);\r\n< psn CONSTANT NUMBER := instr('18.04.00.00', '.', msn + 1);\r\n---\r\n> fsn CONSTANT NUMBER := instr('18.03.02.00', '.');\r\n> msn CONSTANT NUMBER := instr('18.03.02.00', '.', fsn + 1);\r\n> psn CONSTANT NUMBER := instr('18.03.02.00', '.', msn + 1);\r\n29c29\r\n< to_number(substr('18.04.00.00', 1, fsn - 1));\r\n---\r\n> to_number(substr('18.03.02.00', 1, fsn - 1));\r\n31c31\r\n< to_number(substr('18.04.00.00', fsn + 1, msn - fsn - 1));\r\n---\r\n> to_number(substr('18.03.02.00', fsn + 1, msn - fsn - 1));\r\n33c33\r\n< to_number(substr('18.04.00.00', msn + 1, psn - msn - 1));\r\n---\r\n> to_number(substr('18.03.02.00', msn + 1, psn - msn - 1));\r\n35c35\r\n< to_number(substr('18.04.00.00', psn + 1));\r\n---\r\n> to_number(substr('18.03.02.00', psn + 1));\r\n<\/pre>\n12c12\r\n< bannerVersion CONSTANT VARCHAR2(15) := '18.04.00.00';\r\n---\r\n> bannerVersion CONSTANT VARCHAR2(15) := '18.04.01.00';\r\n24,26c24,26\r\n< fsn CONSTANT NUMBER := instr('18.04.00.00', '.');\r\n< msn CONSTANT NUMBER := instr('18.04.00.00', '.', fsn + 1);\r\n< psn CONSTANT NUMBER := instr('18.04.00.00', '.', msn + 1);\r\n---\r\n> fsn CONSTANT NUMBER := instr('18.04.01.00', '.');\r\n> msn CONSTANT NUMBER := instr('18.04.01.00', '.', fsn + 1);\r\n> psn CONSTANT NUMBER := instr('18.04.01.00', '.', msn + 1);\r\n29c29\r\n< to_number(substr('18.04.00.00', 1, fsn - 1));\r\n---\r\n> to_number(substr('18.04.01.00', 1, fsn - 1));\r\n31c31\r\n< to_number(substr('18.04.00.00', fsn + 1, msn - fsn - 1));\r\n---\r\n> to_number(substr('18.04.01.00', fsn + 1, msn - fsn - 1));\r\n33c33\r\n< to_number(substr('18.04.00.00', msn + 1, psn - msn - 1));\r\n---\r\n> to_number(substr('18.04.01.00', msn + 1, psn - msn - 1));\r\n35c35\r\n< to_number(substr('18.04.00.00', psn + 1));\r\n---\r\n> to_number(substr('18.04.01.00', psn + 1));\r\n<\/pre>\n13c13\r\n< '18.4.0.0.0';\r\n---\r\n> '18.4.1.0.0';\r\n<\/pre>\n
13c13\r\n< '18.4.0.0.0';\r\n---\r\n> '18.3.2.0.0';\r\n<\/pre>\n
13c13\r\n< '18.4.0.0.0';\r\n---\r\n> '18.5.0.0.0';\r\n<\/pre>\n
3,10c3\r\n< function isLegalOwnerViewName(owner IN varchar2, oldview IN varchar2,\r\n< newview IN varchar2) return varchar2;\r\n< -- Create the cdb view\r\n< -- private helper procedure to create the cdb view\r\n< -- Note that quotes should not be added around owner, oldview_name and\r\n< -- newview_name before create_cdbview is invoked since all three are used\r\n< -- as literals to query dictionary views.\r\n< procedure create_cdbview(chk_upgrd IN boolean, owner IN varchar2,\r\n---\r\n> procedure create_cdbview(chk_upgrd IN boolean, owner IN varchar2,\r\n12,133c5,8\r\n< sqlstmt varchar2(4000);\r\n< col_name varchar2(128);\r\n< comments varchar2(4000);\r\n< col_type number;\r\n< newview varchar2(128);\r\n< quoted_owner varchar2(130); -- 2 more than size of owner\r\n< quoted_oldview varchar2(130); -- 2 more than size of oldview_name\r\n< quoted_newview varchar2(130); -- 2 more than size of newview_name\r\n< unsupp_col_condition varchar2(4000);\r\n< colcomments varchar2(4000);\r\n< unsupp_col_count number;\r\n< colcommentscur SYS_REFCURSOR;\r\n< table_not_found EXCEPTION;\r\n< PRAGMA exception_init(table_not_found, -942);\r\n< \r\n< \r\n< cursor tblcommentscur is select c.comment$\r\n< from sys.obj$ o, sys.user$ u, sys.com$ c\r\n< where o.name = oldview_name and u.name = owner\r\n< and o.obj# = c.obj# and o.owner#=u.user#\r\n< and (o.type# = 4 or o.type# = 2)\r\n< and c.col# is null;\r\n< \r\n< begin\r\n< \r\n< newview := isLegalOwnerViewName(owner, oldview_name, newview_name);\r\n< if (newview is NULL) then\r\n< RAISE table_not_found;\r\n< end if;\r\n< \r\n< quoted_owner := '\"' || owner || '\"';\r\n< quoted_oldview := '\"' || oldview_name || '\"';\r\n< quoted_newview := '\"' || newview || '\"';\r\n< \r\n< -- Create cdb view\r\n< sqlstmt := 'CREATE OR REPLACE VIEW ' ||\r\n< quoted_owner || '.' || quoted_newview ||\r\n< ' CONTAINER_DATA AS' ||\r\n< ' SELECT k.*, k.CON$NAME, k.CDB$NAME, k.CON$ERRNUM, k.CON$ERRMSG' ||\r\n< ' FROM CONTAINERS(' || quoted_owner || '.' || quoted_oldview || ') k';\r\n< \r\n< execute immediate sqlstmt;\r\n< \r\n< -- table and column comments\r\n< open tblcommentscur;\r\n< fetch tblcommentscur into comments;\r\n< comments := replace(comments, '''','''''');\r\n< sqlstmt := 'comment on table ' || quoted_owner || '.' || quoted_newview ||\r\n< ' is ''' || comments || ' in all containers''';\r\n< execute immediate sqlstmt;\r\n< close tblcommentscur;\r\n< \r\n< sqlstmt := 'comment on column ' || quoted_owner || '.' || quoted_newview ||\r\n< '.CON_ID is ''container id''';\r\n< execute immediate sqlstmt;\r\n< \r\n< sqlstmt := 'comment on column ' || quoted_owner || '.' || quoted_newview ||\r\n< '.CON$NAME is ''Container Name''';\r\n< execute immediate sqlstmt;\r\n< \r\n< sqlstmt := 'comment on column ' || quoted_owner || '.' || quoted_newview ||\r\n< '.CDB$NAME is ''Database Name''';\r\n< execute immediate sqlstmt;\r\n< \r\n< sqlstmt := 'comment on column ' || quoted_owner || '.' || quoted_newview ||\r\n< '.CON$ERRNUM is ''Error Number''';\r\n< execute immediate sqlstmt;\r\n< \r\n< sqlstmt := 'comment on column ' || quoted_owner || '.' || quoted_newview ||\r\n< '.CON$ERRMSG is ''Error Message''';\r\n< execute immediate sqlstmt;\r\n< \r\n< colcomments := 'select c.name, co.comment$ ' ||\r\n< 'from sys.obj$ o, sys.col$ c, sys.user$ u, sys.com$ co ' ||\r\n< 'where o.name = :1 ' ||\r\n< 'and u.name = :2 ' ||\r\n< 'and o.owner# = u.user# and (o.type# = 4 or o.type# = 2) ' ||\r\n< 'and o.obj# = c.obj# ' ||\r\n< 'and c.obj# = co.obj# and c.intcol# = co.col# ' ||\r\n< -- skip hidden column\r\n< 'and bitand(c.property, 32) = 0 '||\r\n< -- skip null comment\r\n< 'and co.comment$ is not null';\r\n< -- skip Long, Nested Table, Varray columns\r\n< unsupp_col_condition := 'c.type# = 8 or c.type# = 122 or c.type# = 123 ' ||\r\n< -- skip ADT and REF columns\r\n< 'or c.type# = 121 or c.type# = 111 ' ||\r\n< -- Bug 20683085: skip Opaque Type column except\r\n< -- xmltype stored as LOB. Check xmltype as lob using\r\n< -- property bit KQLDCOP2_XSLB.\r\n< \t\t -- Bug 23083309: if there are unsupported columns,\r\n< -- then XMLType column is skipped (hidden XMLType lob\r\n< -- column is already handled)\r\n< 'or (c.type# = 58 and ' ||\r\n< '((bitand(c.property, ' ||\r\n< 'power(2,32)*4194304)<>power(2,32)*4194304) '||\r\n< 'or :3 > 0)) ' ||\r\n< -- Bug 21785587: skip long raw\r\n< 'or c.type# = 24';\r\n< \r\n< sqlstmt := colcomments || ' and (' || unsupp_col_condition || ')';\r\n< \r\n< unsupp_col_count := 0;\r\n< EXECUTE IMMEDIATE 'SELECT COUNT(*) FROM (' || sqlstmt ||')'\r\n< INTO unsupp_col_count USING oldview_name, owner, unsupp_col_count;\r\n< \r\n< open colcommentscur for colcomments ||' and not ('||\r\n< unsupp_col_condition ||')'\r\n< USING oldview_name, owner, unsupp_col_count;\r\n< loop\r\n< fetch colcommentscur into col_name, comments;\r\n< exit when colcommentscur%NOTFOUND;\r\n< \r\n< comments := replace(comments, '''','''''');\r\n< sqlstmt := 'comment on column ' ||\r\n< quoted_owner || '.' || quoted_newview || '.' ||\r\n< col_name || ' is ''' || comments || '''';\r\n< \r\n< execute immediate sqlstmt;\r\n< end loop;\r\n< close colcommentscur;\r\n< end;\r\n---\r\n> begin\r\n> CDBView_internal.create_cdbview(chk_upgrd, owner, oldview_name,\r\n> newview_name);\r\n> end;\r\n137,140c12,19\r\n< tablename dbms_id;\r\n< colname dbms_id;\r\n< stmt varchar2(400);\r\n< retval varchar2(4000);\r\n---\r\n> tablename dbms_id;\r\n> colname dbms_id;\r\n> stmt varchar2(400);\r\n> retval varchar2(4000);\r\n> isuser_sys boolean := FALSE;\r\n> scr_priv number := 0;\r\n> insuff_priv exception;\r\n> pragma exception_init(insuff_priv, -1031);\r\n141a21,47\r\n> --\r\n> -- The Current_User should either be SYS or be in possession of\r\n> -- SELECT_CATALOG_ROLE to be able to query view definitions.\r\n> -- This is how Dbms_Metadata.Get_DDL operates, so we are trying\r\n> -- to have the same privilege model here too. If none of this is\r\n> -- true, we will raise ORA-1031 error.\r\n> --\r\n> -- We are doing a direct query against SESSION_ROLES dictionary table\r\n> -- instead of using Dbms_Priv_Capture.Ses_Has_Role_Priv function, as\r\n> -- the package Dbms_Priv_Capture may not be available by the time this\r\n> -- package CDBView gets created. Also use dyn SQL for the same reason.\r\n> --\r\n> if (sys_context('userenv','current_userid') = 0) then\r\n> isuser_sys := TRUE;\r\n> else\r\n> begin\r\n> execute immediate 'select count(*) from sys.session_roles where\r\n> role = ''SELECT_CATALOG_ROLE''' into scr_priv;\r\n> exception\r\n> when others then NULL;\r\n> end;\r\n> end if;\r\n> \r\n> if NOT (isuser_sys OR scr_priv > 0) then\r\n> raise insuff_priv;\r\n> end if;\r\n> \r\n157,207d62\r\n< \r\n< -- This function is created to prevent SQL injection. We couldn't use\r\n< -- dbms_assert because catcdbviews.sql is called before dbms_assert\r\n< -- is created\r\n< function isLegalOwnerViewName(owner IN varchar2, oldview IN varchar2,\r\n< newview IN varchar2) return varchar2 as\r\n< cCheck number;\r\n< cleanOldview varchar2(128);\r\n< cleanNewview varchar2(128);\r\n< begin\r\n< \r\n< -- Check if owner already exist\r\n< execute immediate 'SELECT COUNT(*) FROM USER$ WHERE NAME = :1'\r\n< into cCheck using owner;\r\n< if (cCheck = 0) then\r\n< RETURN NULL;\r\n< end if;\r\n< \r\n< -- Check if oldview already exist\r\n< execute immediate 'SELECT COUNT(*) FROM OBJ$ WHERE NAME = :1' ||\r\n< ' AND (TYPE# = 4 OR TYPE# = 2)'\r\n< into cCheck using oldview;\r\n< if (cCheck = 0) then\r\n< RETURN NULL;\r\n< end if;\r\n< \r\n< if (not REGEXP_LIKE(newview, '^[A-Za-z_][A-Za-z0-9_$#]*$')) then\r\n< RETURN NULL;\r\n< end if;\r\n< \r\n< -- Check for appropriate newview name\r\n< -- The following is allowed for newview name\r\n< -- 1. Substitute 'DBA' with 'CDB'\r\n< -- 2. Substitute 'AWR_PDB' with 'CDB_HIST'\r\n< -- 3. Substitute 'ATTRIBUTES' with 'ATTRIB'\r\n< -- 4. Substitute 'DATABASE' with 'CDB'\r\n< -- 5. Remove 'REDUCED'\r\n< -- 6. Add 'AWRI$_CDB'\r\n< cleanOldview := REGEXP_REPLACE(oldview,\r\n< 'DBA|DATABASE|_| |HIST|ATTRIB(UTE)?S?|CDB|AWR_PDB|REDUCED');\r\n< cleanNewview := REGEXP_REPLACE(newview,\r\n< 'CDB|DATABASE|_| |HIST|ATTRIB(UTE)?S?|AWRI\\$');\r\n< \r\n< if (cleanOldview <> cleanNewview) then\r\n< RETURN NULL;\r\n< end if;\r\n< \r\n< RETURN newview;\r\n< \r\n< end isLegalOwnerViewName;\r\n< \r\n<\/pre>\n1c1,229\r\n< package body CDBView_internal as\r\n---\r\n> package body CDBView_Internal is\r\n> \r\n> type sens_tabs is table of boolean index by dbms_id;\r\n> --\r\n> -- Initialize the list of SYS owned sensitive tables which should\r\n> -- not be allowed to be shadow-copied even within Create_CDBView.\r\n> --\r\n> -- Once ER 24598663 gets implemented, these entries will be part of a\r\n> -- SYS owned metadata table and instead of hard-coding the list, we will\r\n> -- be populating the list by fetching it from the table.\r\n> --\r\n> sens_table_list CONSTANT sens_tabs := sens_tabs('ENC$'=>TRUE, 'LINK$'=>TRUE,\r\n> 'USER$'=>TRUE, 'DEFAULT_PWD$'=>TRUE,\r\n> 'XS$VERIFIERS'=>TRUE, 'USER_HISTORY$'=>TRUE,\r\n> 'HIST_HEAD$'=>TRUE, 'HISTGRM$'=>TRUE,\r\n> 'CDB_LOCAL_ADMINAUTH$'=>TRUE,\r\n> 'PDB_CREATE$'=>TRUE, 'PDB_SYNC$'=>TRUE);\r\n> \r\n> function isLegalOwnerViewName(owner IN varchar2, oldview IN varchar2,\r\n> newview IN varchar2) return varchar2;\r\n> -- Create the cdb view\r\n> -- private helper procedure to create the cdb view\r\n> -- Note that quotes should not be added around owner, oldview_name and\r\n> -- newview_name before create_cdbview is invoked since all three are used\r\n> -- as literals to query dictionary views.\r\n> procedure create_cdbview(chk_upgrd IN boolean, owner IN varchar2,\r\n> oldview_name IN varchar2, newview_name IN varchar2) as\r\n> sqlstmt varchar2(4000);\r\n> col_name dbms_id;\r\n> comments varchar2(4000);\r\n> col_type number;\r\n> newview dbms_id := newview_name;\r\n> quoted_owner dbms_quoted_id; -- 2 more than size of owner\r\n> quoted_oldview dbms_quoted_id; -- 2 more than size of oldview_name\r\n> quoted_newview dbms_quoted_id; -- 2 more than size of newview_name\r\n> unsupp_col_condition varchar2(4000);\r\n> colcomments varchar2(4000);\r\n> unsupp_col_count number;\r\n> colcommentscur SYS_REFCURSOR;\r\n> table_not_found EXCEPTION;\r\n> PRAGMA exception_init(table_not_found, -942);\r\n> insuff_privilege EXCEPTION;\r\n> PRAGMA exception_init(insuff_privilege, -1031);\r\n> \r\n> cursor tblcommentscur is select c.comment$\r\n> from sys.obj$ o, sys.user$ u, sys.com$ c\r\n> where o.name = oldview_name and u.name = owner\r\n> and o.obj# = c.obj# and o.owner#=u.user#\r\n> and (o.type# = 4 or o.type# = 2)\r\n> and c.col# is null;\r\n> \r\n> begin\r\n> \r\n> --\r\n> -- No need to check for ownername, viewname correctness, if the Current_User\r\n> -- is SYS, as would be the case with most of Create_CDBView invocations\r\n> -- across RDBMS code.\r\n> --\r\n> -- As per recommendation from Mark, it is not safe to give a free pass to\r\n> -- SYS user, in case CDBView.Create_CDBView gets invoked from within a SYS\r\n> -- owned definer rights PL\/SQL code and the inputs to those could be user\r\n> -- provided and potentially malicious.\r\n> --\r\n> newview := isLegalOwnerViewName(owner, oldview_name, newview_name);\r\n> if (newview is NULL) then\r\n> RAISE table_not_found;\r\n> end if;\r\n> \r\n> --\r\n> -- Bug 27445727 : Certain SYS owned tables like USER$, LINK$ etc. are out\r\n> -- of bounds even for DBA level users. So we should not allow cloning such\r\n> -- tables into a Container_Data view and be able to bypass this protection.\r\n> --\r\n> -- Since this procedure does not support quoted identifiers, we need not\r\n> -- worry about canonicalizing the owner or oldview_name arguments before\r\n> -- comparing against SYS and the array of sensitive tables.\r\n> --\r\n> if (owner = 'SYS' and sens_table_list.exists(oldview_name)) then\r\n> RAISE insuff_privilege;\r\n> end if;\r\n> \r\n> quoted_owner := '\"' || owner || '\"';\r\n> quoted_oldview := '\"' || oldview_name || '\"';\r\n> quoted_newview := '\"' || newview || '\"';\r\n> \r\n> -- Create cdb view\r\n> sqlstmt := 'CREATE OR REPLACE VIEW ' ||\r\n> quoted_owner || '.' || quoted_newview ||\r\n> ' CONTAINER_DATA AS' ||\r\n> ' SELECT k.*, k.CON$NAME, k.CDB$NAME, k.CON$ERRNUM, k.CON$ERRMSG' ||\r\n> ' FROM CONTAINERS(' || quoted_owner || '.' || quoted_oldview || ') k';\r\n> \r\n> execute immediate sqlstmt;\r\n> \r\n> -- table and column comments\r\n> open tblcommentscur;\r\n> fetch tblcommentscur into comments;\r\n> comments := replace(comments, '''','''''');\r\n> sqlstmt := 'comment on table ' || quoted_owner || '.' || quoted_newview ||\r\n> ' is ''' || comments || ' in all containers''';\r\n> execute immediate sqlstmt;\r\n> close tblcommentscur;\r\n> \r\n> sqlstmt := 'comment on column ' || quoted_owner || '.' || quoted_newview ||\r\n> '.CON_ID is ''container id''';\r\n> execute immediate sqlstmt;\r\n> \r\n> sqlstmt := 'comment on column ' || quoted_owner || '.' || quoted_newview ||\r\n> '.CON$NAME is ''Container Name''';\r\n> execute immediate sqlstmt;\r\n> \r\n> sqlstmt := 'comment on column ' || quoted_owner || '.' || quoted_newview ||\r\n> '.CDB$NAME is ''Database Name''';\r\n> execute immediate sqlstmt;\r\n> \r\n> sqlstmt := 'comment on column ' || quoted_owner || '.' || quoted_newview ||\r\n> '.CON$ERRNUM is ''Error Number''';\r\n> execute immediate sqlstmt;\r\n> \r\n> sqlstmt := 'comment on column ' || quoted_owner || '.' || quoted_newview ||\r\n> '.CON$ERRMSG is ''Error Message''';\r\n> execute immediate sqlstmt;\r\n> \r\n> colcomments := 'select c.name, co.comment$ ' ||\r\n> 'from sys.obj$ o, sys.col$ c, sys.user$ u, sys.com$ co ' ||\r\n> 'where o.name = :1 ' ||\r\n> 'and u.name = :2 ' ||\r\n> 'and o.owner# = u.user# and (o.type# = 4 or o.type# = 2) ' ||\r\n> 'and o.obj# = c.obj# ' ||\r\n> 'and c.obj# = co.obj# and c.intcol# = co.col# ' ||\r\n> -- skip hidden column\r\n> 'and bitand(c.property, 32) = 0 '||\r\n> -- skip null comment\r\n> 'and co.comment$ is not null';\r\n> -- skip Long, Nested Table, Varray columns\r\n> unsupp_col_condition := 'c.type# = 8 or c.type# = 122 or c.type# = 123 ' ||\r\n> -- skip ADT and REF columns\r\n> 'or c.type# = 121 or c.type# = 111 ' ||\r\n> -- Bug 20683085: skip Opaque Type column except\r\n> -- xmltype stored as LOB. Check xmltype as lob using\r\n> -- property bit KQLDCOP2_XSLB.\r\n> \t\t -- Bug 23083309: if there are unsupported columns,\r\n> -- then XMLType column is skipped (hidden XMLType lob\r\n> -- column is already handled)\r\n> 'or (c.type# = 58 and ' ||\r\n> '((bitand(c.property, ' ||\r\n> 'power(2,32)*4194304)<>power(2,32)*4194304) '||\r\n> 'or :3 > 0)) ' ||\r\n> -- Bug 21785587: skip long raw\r\n> 'or c.type# = 24';\r\n> \r\n> sqlstmt := colcomments || ' and (' || unsupp_col_condition || ')';\r\n> \r\n> unsupp_col_count := 0;\r\n> EXECUTE IMMEDIATE 'SELECT COUNT(*) FROM (' || sqlstmt ||')'\r\n> INTO unsupp_col_count USING oldview_name, owner, unsupp_col_count;\r\n> \r\n> open colcommentscur for colcomments ||' and not ('||\r\n> unsupp_col_condition ||')'\r\n> USING oldview_name, owner, unsupp_col_count;\r\n> loop\r\n> fetch colcommentscur into col_name, comments;\r\n> exit when colcommentscur%NOTFOUND;\r\n> \r\n> comments := replace(comments, '''','''''');\r\n> sqlstmt := 'comment on column ' ||\r\n> quoted_owner || '.' || quoted_newview || '.' ||\r\n> col_name || ' is ''' || comments || '''';\r\n> \r\n> execute immediate sqlstmt;\r\n> end loop;\r\n> close colcommentscur;\r\n> end;\r\n> \r\n> -- This function is created to prevent SQL injection. We couldn't use\r\n> -- dbms_assert because catcdbviews.sql is called before dbms_assert\r\n> -- is created\r\n> function isLegalOwnerViewName(owner IN varchar2, oldview IN varchar2,\r\n> newview IN varchar2) return varchar2 as\r\n> cCheck number;\r\n> ownerId number;\r\n> cleanOldview dbms_id;\r\n> cleanNewview dbms_id;\r\n> begin\r\n> \r\n> -- Check if owner already exist\r\n> -- USER$ contains both users and roles, exclude roles from the check\r\n> begin\r\n> execute immediate 'SELECT USER# FROM USER$ WHERE TYPE# = 1 AND NAME = :1'\r\n> into ownerId using owner;\r\n> exception\r\n> when no_data_found then return null;\r\n> end;\r\n> \r\n> -- Check if oldview already exist, qualify with owner# to avoid ORA-1422\r\n> -- error,if two dictionary view with the same name exists across different\r\n> -- schemas like DBA_DV_STATUS which exists in both SYS and DVSYS schemas.\r\n> begin\r\n> execute immediate 'SELECT 1 FROM OBJ$ WHERE NAME = :1' ||\r\n> ' AND TYPE# in (2, 4) and owner# = :2'\r\n> into cCheck using oldview, ownerId;\r\n> exception\r\n> when no_data_found then return null;\r\n> end;\r\n> \r\n> if (not REGEXP_LIKE(newview, '^[A-Za-z_][A-Za-z0-9_$#]*$')) then\r\n> RETURN NULL;\r\n> end if;\r\n> \r\n> -- Check for appropriate newview name\r\n> -- The following is allowed for newview name\r\n> -- 1. Substitute 'DBA' with 'CDB'\r\n> -- 2. Substitute 'AWR_PDB' with 'CDB_HIST'\r\n> -- 3. Substitute 'ATTRIBUTES' with 'ATTRIB'\r\n> -- 4. Substitute 'DATABASE' with 'CDB'\r\n> -- 5. Remove 'REDUCED'\r\n> -- 6. Add 'AWRI$_CDB'\r\n> cleanOldview := REGEXP_REPLACE(oldview,\r\n> 'DBA|DATABASE|_| |HIST|ATTRIB(UTE)?S?|CDB|AWR_PDB|REDUCED');\r\n> cleanNewview := REGEXP_REPLACE(newview,\r\n> 'CDB|DATABASE|_| |HIST|ATTRIB(UTE)?S?|AWRI\\$');\r\n> \r\n> if (cleanOldview <> cleanNewview) then\r\n> RETURN NULL;\r\n> end if;\r\n> \r\n> RETURN newview;\r\n> \r\n> end isLegalOwnerViewName;\r\n17c245\r\n< end;\r\n---\r\n> end CDBView_Internal;\r\n<\/pre>\n171a172,186\r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> PROCEDURE REFRESH_CLIENT_CONFIG IS\r\n> EXTERNAL LANGUAGE C\r\n> NAME \"ketrcc_refresh_client_config\"\r\n> WITH CONTEXT\r\n> PARAMETERS(CONTEXT)\r\n> LIBRARY DBMS_AUTOTASK_PRVT_LIB;\r\n> \r\n<\/pre>\n
122c122\r\n< CATALOGVERSION CONSTANT VARCHAR2(11) := '18.04.00.00'; \r\n---\r\n> CATALOGVERSION CONSTANT VARCHAR2(11) := '18.03.02.00'; \r\n24766d24765\r\n< END IF;\r\n24768,24788c24767,24790\r\n< \r\n< \r\n< \r\n< \r\n< \r\n< \r\n< \r\n< IF (AVAILABLE_FROMSCN_ACT IS NULL OR\r\n< (USABLE_INCR.DFNUMBER_OBJ = LOCAL.DFNUMBER_OBJ AND\r\n< USABLE_INCR.DFCREATIONSCN_OBJ = LOCAL.DFCREATIONSCN_OBJ AND\r\n< LOCAL.TOSCN_ACT < AVAILABLE_FROMSCN_ACT)) THEN\r\n< IF (AVAILABLE_FROMSCN_ACT IS NULL) THEN\r\n< DEB(DEB_PRINT, 'available_fromSCN_act set to ' ||\r\n< AVAILABLE_FROMSCN_ACT || ' for file# ' ||\r\n< LOCAL.DFNUMBER_OBJ || ', creation_scn '||\r\n< LOCAL.DFCREATIONSCN_OBJ);\r\n< ELSE\r\n< DEB(DEB_PRINT, 'broken chain, available_fromSCN_act set to ' ||\r\n< AVAILABLE_FROMSCN_ACT || ' for file ' ||\r\n< LOCAL.DFNUMBER_OBJ || ', creation_scn '||\r\n< LOCAL.DFCREATIONSCN_OBJ);\r\n---\r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> IF (AVAILABLE_FROMSCN_ACT IS NULL OR\r\n> (USABLE_INCR.DFNUMBER_OBJ = LOCAL.DFNUMBER_OBJ AND\r\n> USABLE_INCR.DFCREATIONSCN_OBJ = LOCAL.DFCREATIONSCN_OBJ AND\r\n> LOCAL.TOSCN_ACT < AVAILABLE_FROMSCN_ACT)) THEN\r\n> IF (AVAILABLE_FROMSCN_ACT IS NULL) THEN\r\n> DEB(DEB_PRINT, 'available_fromSCN_act set to ' ||\r\n> AVAILABLE_FROMSCN_ACT || ' for file# ' ||\r\n> LOCAL.DFNUMBER_OBJ || ', creation_scn '||\r\n> LOCAL.DFCREATIONSCN_OBJ);\r\n> ELSE\r\n> DEB(DEB_PRINT, 'broken chain, available_fromSCN_act set to ' ||\r\n> AVAILABLE_FROMSCN_ACT || ' for file ' ||\r\n> LOCAL.DFNUMBER_OBJ || ', creation_scn '||\r\n> LOCAL.DFCREATIONSCN_OBJ);\r\n> END IF;\r\n> USABLE_INCR := LOCAL;\r\n> AVAILABLE_FROMSCN_ACT := LOCAL.FROMSCN_ACT;\r\n24790,24791d24791\r\n< USABLE_INCR := LOCAL;\r\n< AVAILABLE_FROMSCN_ACT := LOCAL.FROMSCN_ACT;\r\n27206,27208d27205\r\n< \r\n< \r\n< IF (DFREC.PDBID <= 1 OR TRANSLATEPDB2NAME(DFREC.PDBID) IS NOT NULL) THEN\r\n27210d27206\r\n< END IF;\r\n29226c29222\r\n< ,NBLOCKS OUT NUMBER\r\n---\r\n> ,NBLOCKS OUT BINARY_INTEGER\r\n<\/pre>\n
122c122\r\n< CATALOGVERSION CONSTANT VARCHAR2(11) := '18.04.00.00'; \r\n---\r\n> CATALOGVERSION CONSTANT VARCHAR2(11) := '18.05.00.00'; \r\n25510,25512c25510,25512\r\n< IF (LBREC.DF_CKP_MOD_TIME < UNTILTIME OR\r\n< (UNTILTIME IS NULL AND\r\n< LBREC.DF_CHECKPOINT_CHANGE# <= UNTILSCN)) THEN\r\n---\r\n> IF ((UNTILTIME IS NULL AND UNTILSCN IS NULL) OR\r\n> LBREC.DF_CKP_MOD_TIME < UNTILTIME OR\r\n> LBREC.DF_CHECKPOINT_CHANGE# <= UNTILSCN) THEN\r\n<\/pre>\n
122c122\r\n< CATALOGVERSION CONSTANT VARCHAR2(11) := '18.04.00.00'; \r\n---\r\n> CATALOGVERSION CONSTANT VARCHAR2(11) := '18.04.01.00'; \r\n<\/pre>\n
53868a53869,53926\r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> PROCEDURE INIT_ADVISOR_TASK_PARAMETER(\r\n> TASK_NAME IN VARCHAR2,\r\n> PARAMETER IN VARCHAR2,\r\n> VALUE IN VARCHAR2)\r\n> IS\r\n> IN_EXEC BOOLEAN := FALSE; \r\n> BEGIN\r\n> \r\n> \r\n> \r\n> BEGIN\r\n> DBMS_STATS_ADVISOR.SET_TASK_PARAMETER(TASK_NAME, PARAMETER, VALUE);\r\n> EXCEPTION\r\n> WHEN OTHERS THEN\r\n> IF (SQLCODE = -13647) THEN\r\n> IN_EXEC := TRUE;\r\n> ELSE\r\n> RAISE;\r\n> END IF;\r\n> END;\r\n> \r\n> \r\n> \r\n> \r\n> IF (IN_EXEC = TRUE) THEN\r\n> \r\n> BEGIN\r\n> DBMS_STATS_ADVISOR.CANCEL_TASK(TASK_NAME);\r\n> EXCEPTION\r\n> WHEN OTHERS THEN\r\n> \r\n> \r\n> \r\n> IF (IS_URGENT_ERROR) THEN\r\n> RAISE;\r\n> END IF;\r\n> END;\r\n> \r\n> DBMS_STATS_ADVISOR.SET_TASK_PARAMETER(TASK_NAME, PARAMETER, VALUE);\r\n> \r\n> END IF;\r\n> \r\n> END INIT_ADVISOR_TASK_PARAMETER;\r\n> \r\n> \r\n53873a53932,53943\r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n> \r\n53882a53953,53957\r\n> ELSE\r\n> INIT_ADVISOR_TASK_PARAMETER(PRVT_ADVISOR.TASK_RESERVED_NAME_ASTAT, \r\n> 'DAYS_TO_EXPIRE', 'UNLIMITED');\r\n> INIT_ADVISOR_TASK_PARAMETER(PRVT_ADVISOR.TASK_RESERVED_NAME_ASTAT, \r\n> 'EXECUTION_DAYS_TO_EXPIRE', 30);\r\n53890a53966,53970\r\n> ELSE\r\n> INIT_ADVISOR_TASK_PARAMETER(PRVT_ADVISOR.TASK_RESERVED_NAME_ISTAT, \r\n> 'DAYS_TO_EXPIRE', 'UNLIMITED');\r\n> INIT_ADVISOR_TASK_PARAMETER(PRVT_ADVISOR.TASK_RESERVED_NAME_ISTAT, \r\n> 'EXECUTION_DAYS_TO_EXPIRE', 30);\r\n<\/pre>\n
3308a3309,3318\r\n> \r\n> \r\n> \r\n> \r\n> DBMS_STATS.SET_ADVISOR_TASK_PARAMETER(TNAME, \r\n> 'DAYS_TO_EXPIRE', 'UNLIMITED');\r\n> DBMS_STATS.SET_ADVISOR_TASK_PARAMETER(TNAME, \r\n> 'EXECUTION_DAYS_TO_EXPIRE', 30);\r\n> \r\n> \r\n4583a4594,4600\r\n> WHEN UPPER(PARAMETER) = 'DAYS_TO_EXPIRE' THEN\r\n> DBMS_ADVISOR.SET_TASK_PARAMETER(TNAMEU, PARAMETER, VALUE);\r\n> \r\n> WHEN UPPER(PARAMETER) = 'EXECUTION_DAYS_TO_EXPIRE' THEN\r\n> DBMS_ADVISOR.SET_TASK_PARAMETER(TNAMEU, PARAMETER, VALUE);\r\n> \r\n> \r\n<\/pre>\n
57,58c57,58\r\n< --MEMBER FUNCTION put(key VARCHAR2, val CLOB) RETURN BOOLEAN,\r\n< --MEMBER FUNCTION put(key VARCHAR2, val BLOB) RETURN BOOLEAN,\r\n---\r\n> MEMBER FUNCTION put(key VARCHAR2, val CLOB) RETURN BOOLEAN,\r\n> MEMBER FUNCTION put(key VARCHAR2, val BLOB) RETURN BOOLEAN,\r\n83,84c83,84\r\n< --MEMBER FUNCTION append(val CLOB) RETURN BOOLEAN,\r\n< --MEMBER FUNCTION append(val BLOB) RETURN BOOLEAN,\r\n---\r\n> MEMBER FUNCTION append(val CLOB) RETURN BOOLEAN,\r\n> MEMBER FUNCTION append(val BLOB) RETURN BOOLEAN,\r\n98,101c98,101\r\n< --MEMBER FUNCTION put(pos NUMBER, val CLOB, overwrite BOOLEAN)\r\n< -- RETURN BOOLEAN,\r\n< --MEMBER FUNCTION put(pos NUMBER, val BLOB, overwrite BOOLEAN)\r\n< -- RETURN BOOLEAN,\r\n---\r\n> MEMBER FUNCTION put(pos NUMBER, val CLOB, overwrite BOOLEAN)\r\n> RETURN BOOLEAN,\r\n> MEMBER FUNCTION put(pos NUMBER, val BLOB, overwrite BOOLEAN)\r\n> RETURN BOOLEAN,\r\n<\/pre>\n
49,50c49,50\r\n< --MEMBER PROCEDURE append(val CLOB),\r\n< --MEMBER PROCEDURE append(val BLOB),\r\n---\r\n> MEMBER PROCEDURE append(val CLOB),\r\n> MEMBER PROCEDURE append(val BLOB),\r\n65,68c65,68\r\n< --MEMBER PROCEDURE put(pos NUMBER, val CLOB,\r\n< -- overwrite BOOLEAN DEFAULT FALSE),\r\n< --MEMBER PROCEDURE put(pos NUMBER, val BLOB,\r\n< -- overwrite BOOLEAN DEFAULT FALSE),\r\n---\r\n> MEMBER PROCEDURE put(pos NUMBER, val CLOB,\r\n> overwrite BOOLEAN DEFAULT FALSE),\r\n> MEMBER PROCEDURE put(pos NUMBER, val BLOB,\r\n> overwrite BOOLEAN DEFAULT FALSE),\r\n<\/pre>\n
35c35,36\r\n< MEMBER PROCEDURE mergepatch(self IN OUT NOCOPY JSON_ELEMENT_T, patch VARCHAR2),\r\n---\r\n> MEMBER PROCEDURE mergepatch(self IN OUT NOCOPY JSON_ELEMENT_T,\r\n> patch VARCHAR2),\r\n<\/pre>\n
57,58c57,58\r\n< --MEMBER PROCEDURE put(key VARCHAR2, val CLOB),\r\n< --MEMBER PROCEDURE put(key VARCHAR2, val BLOB),\r\n---\r\n> MEMBER PROCEDURE put(key VARCHAR2, val CLOB),\r\n> MEMBER PROCEDURE put(key VARCHAR2, val BLOB),\r\n<\/pre>\n
227,239c227,239\r\n< --MEMBER FUNCTION put(key VARCHAR2, val CLOB) RETURN BOOLEAN IS EXTERNAL\r\n< --name \"setClob_Obj\" library DBMS_JDOM_LIB WITH CONTEXT\r\n< --parameters(context, self, self INDICATOR sb2,\r\n< -- key OCIString, key INDICATOR sb2,\r\n< -- val OCILobLocator, val INDICATOR sb2,\r\n< -- RETURN INDICATOR sb4, return);\r\n< \r\n< --MEMBER FUNCTION put(key VARCHAR2, val BLOB) RETURN BOOLEAN IS EXTERNAL\r\n< -- name \"setBlob_Obj\" library DBMS_JDOM_LIB WITH CONTEXT\r\n< -- parameters(context, self, self INDICATOR sb2,\r\n< -- key OCIString, key INDICATOR sb2,\r\n< -- val OCILobLocator, val INDICATOR sb2,\r\n< -- RETURN INDICATOR sb4, return);\r\n---\r\n> MEMBER FUNCTION put(key VARCHAR2, val CLOB) RETURN BOOLEAN IS EXTERNAL\r\n> name \"setClob_Obj\" library DBMS_JDOM_LIB WITH CONTEXT\r\n> parameters(context, self, self INDICATOR sb2,\r\n> key OCIString, key INDICATOR sb2,\r\n> val OCILobLocator, val INDICATOR sb2,\r\n> RETURN INDICATOR sb4, return);\r\n> \r\n> MEMBER FUNCTION put(key VARCHAR2, val BLOB) RETURN BOOLEAN IS EXTERNAL\r\n> name \"setBlob_Obj\" library DBMS_JDOM_LIB WITH CONTEXT\r\n> parameters(context, self, self INDICATOR sb2,\r\n> key OCIString, key INDICATOR sb2,\r\n> val OCILobLocator, val INDICATOR sb2,\r\n> RETURN INDICATOR sb4, return);\r\n373,383c373,383\r\n< --MEMBER FUNCTION append(val CLOB) RETURN BOOLEAN is EXTERNAL\r\n< -- name \"addClob_Arr\" library DBMS_JDOM_LIB WITH CONTEXT\r\n< -- parameters(context, self, self INDICATOR sb2,\r\n< -- val OCILobLocator, val INDICATOR sb2,\r\n< -- RETURN INDICATOR sb4, return);\r\n< \r\n< --MEMBER FUNCTION append(val BLOB) RETURN BOOLEAN is EXTERNAL\r\n< -- name \"addBlob_Arr\" library DBMS_JDOM_LIB WITH CONTEXT\r\n< -- parameters(context, self, self INDICATOR sb2,\r\n< -- val OCILobLocator, val INDICATOR sb2,\r\n< -- RETURN INDICATOR sb4, return);\r\n---\r\n> MEMBER FUNCTION append(val CLOB) RETURN BOOLEAN is EXTERNAL\r\n> name \"addClob_Arr\" library DBMS_JDOM_LIB WITH CONTEXT\r\n> parameters(context, self, self INDICATOR sb2,\r\n> val OCILobLocator, val INDICATOR sb2,\r\n> RETURN INDICATOR sb4, return);\r\n> \r\n> MEMBER FUNCTION append(val BLOB) RETURN BOOLEAN is EXTERNAL\r\n> name \"addBlob_Arr\" library DBMS_JDOM_LIB WITH CONTEXT\r\n> parameters(context, self, self INDICATOR sb2,\r\n> val OCILobLocator, val INDICATOR sb2,\r\n> RETURN INDICATOR sb4, return);\r\n<\/pre>\n
163,173c163,173\r\n< --MEMBER PROCEDURE append(val CLOB) AS\r\n< -- hack boolean;\r\n< --BEGIN\r\n< -- hack := dom.append(val);\r\n< --END;\r\n< \r\n< --MEMBER PROCEDURE append(val BLOB) AS\r\n< -- hack boolean;\r\n< --BEGIN\r\n< -- hack := dom.append(val);\r\n< --END;\r\n---\r\n> MEMBER PROCEDURE append(val CLOB) AS\r\n> hack boolean;\r\n> BEGIN\r\n> hack := dom.append(val);\r\n> END;\r\n> \r\n> MEMBER PROCEDURE append(val BLOB) AS\r\n> hack boolean;\r\n> BEGIN\r\n> hack := dom.append(val);\r\n> END;\r\n223,235c223,235\r\n< --MEMBER PROCEDURE put(pos NUMBER, val CLOB,\r\n< -- overwrite BOOLEAN DEFAULT FALSE) AS\r\n< -- hack boolean;\r\n< --BEGIN\r\n< -- hack := dom.put(pos, val, overwrite);\r\n< --END;\r\n< \r\n< --MEMBER PROCEDURE put(pos NUMBER, val BLOB,\r\n< -- overwrite BOOLEAN DEFAULT FALSE) AS\r\n< -- hack boolean;\r\n< --BEGIN\r\n< -- hack := dom.put(pos, val, overwrite);\r\n< --END;\r\n---\r\n> MEMBER PROCEDURE put(pos NUMBER, val CLOB,\r\n> overwrite BOOLEAN DEFAULT FALSE) AS\r\n> hack boolean;\r\n> BEGIN\r\n> hack := dom.put(pos, val, overwrite);\r\n> END;\r\n> \r\n> MEMBER PROCEDURE put(pos NUMBER, val BLOB,\r\n> overwrite BOOLEAN DEFAULT FALSE) AS\r\n> hack boolean;\r\n> BEGIN\r\n> hack := dom.put(pos, val, overwrite);\r\n> END;\r\n<\/pre>\n
177c177,178\r\n< MEMBER PROCEDURE mergepatch(self IN OUT NOCOPY JSON_ELEMENT_T, patch VARCHAR2) AS\r\n---\r\n> MEMBER PROCEDURE mergepatch(self IN OUT NOCOPY JSON_ELEMENT_T,\r\n> patch VARCHAR2) AS\r\n<\/pre>\n
163,173c163,173\r\n< --MEMBER PROCEDURE put(key VARCHAR2, val CLOB) AS\r\n< -- hack boolean;\r\n< --BEGIN\r\n< -- hack := dom.put(key, val);\r\n< --END;\r\n< \r\n< --MEMBER PROCEDURE put(key VARCHAR2, val BLOB) AS\r\n< -- hack boolean;\r\n< --BEGIN\r\n< -- hack := dom.put(key, val);\r\n< --END;\r\n---\r\n> MEMBER PROCEDURE put(key VARCHAR2, val CLOB) AS\r\n> hack boolean;\r\n> BEGIN\r\n> hack := dom.put(key, val);\r\n> END;\r\n> \r\n> MEMBER PROCEDURE put(key VARCHAR2, val BLOB) AS\r\n> hack boolean;\r\n> BEGIN\r\n> hack := dom.put(key, val);\r\n> END;\r\n<\/pre>\n
86a87,90\r\n> ERR_IDX_DESCENDANT_STEP CONSTANT NUMBER := -40756;\r\n> ERR_IDX_TRAIL_LEAD_STEP CONSTANT NUMBER := -40757;\r\n> ERR_IDX_SPL_CHAR_STEP CONSTANT NUMBER := -40758;\r\n> ERR_IDX_WILDCARD_STEP CONSTANT NUMBER := -40759;\r\n436c440,444\r\n< FUNCTION TRANSLATE_JSON_PATH(P_PATH IN VARCHAR2) RETURN VARCHAR2\r\n---\r\n> FUNCTION TRANSLATE_JSON_PATH(P_PATH IN VARCHAR2,\r\n> P_ALLOW_ARRAY_STEP BOOLEAN DEFAULT TRUE,\r\n> P_ALLOW_DESCENDANT_STEP BOOLEAN DEFAULT TRUE,\r\n> P_ALLOW_WILDCARD_STEP BOOLEAN DEFAULT TRUE)\r\n> RETURN VARCHAR2\r\n452a461,463\r\n> V_HAS_ARRAY_STEP BOOLEAN := FALSE;\r\n> V_HAS_DESCENDANT_STEP BOOLEAN := FALSE;\r\n> V_HAS_WILDCARD_STEP BOOLEAN := FALSE;\r\n469c480,485\r\n< IF (V_CHR = V_STEP_SEP) AND (NOT(V_IN_QUOTES)) THEN\r\n---\r\n> IF (V_CHR = V_STEP_SEP AND (I = 1 OR I = V_PATH_LEN)) THEN\r\n> SYS.DBMS_SODA_UTIL.RAISE_SYSTEM_ERROR(ERR_IDX_TRAIL_LEAD_STEP);\r\n> ELSIF (V_CHR = V_STEP_SEP) AND (NOT(V_IN_QUOTES)) THEN\r\n> IF (V_NXT = V_STEP_SEP) THEN\r\n> V_HAS_DESCENDANT_STEP := TRUE;\r\n> END IF;\r\n472c488\r\n< V_NEED_QUOTES := TRUE;\r\n---\r\n> V_NEED_QUOTES := FALSE;\r\n506a523,536\r\n> \r\n> IF NOT (V_IN_QUOTES) AND (V_CHR IN ('$','@')) THEN\r\n> IF (V_NXT = '.' OR I = V_PATH_LEN) THEN\r\n> SYS.DBMS_SODA_UTIL.RAISE_SYSTEM_ERROR(ERR_IDX_SPL_CHAR_STEP,\r\n> V_CHR, P_PATH, I);\r\n> END IF; \r\n> END IF;\r\n> \r\n> IF NOT (V_IN_QUOTES) AND (V_CHR IN ('*')) THEN\r\n> IF (V_NXT = '.' OR I = V_PATH_LEN) THEN\r\n> V_HAS_WILDCARD_STEP := TRUE;\r\n> END IF; \r\n> END IF;\r\n> \r\n508c538\r\n< SYS.DBMS_SODA_UTIL.RAISE_SYSTEM_ERROR(ERR_IDX_NO_ARRAYS);\r\n---\r\n> V_HAS_ARRAY_STEP := TRUE;\r\n511c541\r\n< IF (INSTR('0123456789', V_CHR) > 0) THEN\r\n---\r\n> IF (INSTR(DIGITS_CHARS, V_CHR) > 0) THEN\r\n565a596,604\r\n> IF NOT (P_ALLOW_ARRAY_STEP) AND V_HAS_ARRAY_STEP THEN\r\n> SYS.DBMS_SODA_UTIL.RAISE_SYSTEM_ERROR(ERR_IDX_NO_ARRAYS);\r\n> END IF;\r\n> IF NOT (P_ALLOW_DESCENDANT_STEP) AND V_HAS_DESCENDANT_STEP THEN\r\n> SYS.DBMS_SODA_UTIL.RAISE_SYSTEM_ERROR(ERR_IDX_DESCENDANT_STEP);\r\n> END IF;\r\n> IF NOT (P_ALLOW_WILDCARD_STEP) AND V_HAS_WILDCARD_STEP THEN\r\n> SYS.DBMS_SODA_UTIL.RAISE_SYSTEM_ERROR(ERR_IDX_WILDCARD_STEP);\r\n> END IF;\r\n576c615\r\n< V_NEED_QUOTES := TRUE;\r\n---\r\n> V_NEED_QUOTES := FALSE;\r\n1289c1328\r\n< V_KEY_PATH := TRANSLATE_JSON_PATH(V_KEY_PATH);\r\n---\r\n> V_KEY_PATH := TRANSLATE_JSON_PATH(V_KEY_PATH, FALSE, FALSE, FALSE);\r\n1292c1331,1332\r\n< V_PARTITION_PATH := TRANSLATE_JSON_PATH(V_PARTITION_PATH);\r\n---\r\n> V_PARTITION_PATH := TRANSLATE_JSON_PATH(V_PARTITION_PATH, FALSE, FALSE,\r\n> FALSE);\r\n2267c2307\r\n< P_SPATIAL := TRANSLATE_JSON_PATH(P_SPATIAL);\r\n---\r\n> P_SPATIAL := TRANSLATE_JSON_PATH(P_SPATIAL, FALSE, FALSE, TRUE);\r\n2321c2361,2362\r\n< P_PATHS(J) := TRANSLATE_JSON_PATH(P_PATHS(J));\r\n---\r\n> P_PATHS(J) := TRANSLATE_JSON_PATH(P_PATHS(J), FALSE, FALSE,\r\n> TRUE);\r\n<\/pre>\n
\n
