[Home] [Help]
871: log_to_table in varchar2)
872: --
873: -- Rewrites a specific package to use Invoker's Rights.
874: --
875: -- if log_to_table is 'TRUE', writes errors to ad_parallel_compile_errors
876: --
877: -- Got most of the logic from ad_apps_private.copy_code
878: --
879: is
911: if log_to_table = 'TRUE' then
912:
913: timestamp := to_char(sysdate,'YYYY-MM-DD:HH24:MI:SS');
914:
915: insert into ad_parallel_compile_errors (
916: owner, worker_number, timestamp, type, text)
917: select upper(owner),
918: 0,
919: timestamp,
922: ': Object type "'||upper(type)||'" not supported.'
923: from sys.dual;
924:
925: end if;
926: -- end if log errors/messages to ad_parallel_compile_errors
927:
928: -- dbms_output.put_line('Do not know how to rewrite objects of type "'||
929: -- upper(type)||'".');
930:
1025: if log_to_table = 'TRUE' then
1026:
1027: timestamp := to_char(sysdate,'YYYY-MM-DD:HH24:MI:SS');
1028:
1029: insert into ad_parallel_compile_errors (
1030: owner, worker_number, timestamp, type, text)
1031: select upper(owner),
1032: 0,
1033: timestamp,
1036: ' contains AUTHID - Not rewritten'
1037: from sys.dual;
1038:
1039: end if;
1040: -- end if log errors/messages to ad_parallel_compile_errors
1041:
1042: return;
1043:
1044: end if;
1065: if log_to_table = 'TRUE' then
1066:
1067: timestamp := to_char(sysdate,'YYYY-MM-DD:HH24:MI:SS');
1068:
1069: insert into ad_parallel_compile_errors (
1070: owner, worker_number, timestamp, type, text)
1071: select upper(owner),
1072: 0,
1073: timestamp,
1076: ' contains line(s) > 255 chars - Not rewritten'
1077: from sys.dual;
1078:
1079: end if;
1080: -- end if log errors/messages to ad_parallel_compile_errors
1081:
1082: return;
1083:
1084: else
1130: if log_to_table = 'TRUE' then
1131:
1132: timestamp := to_char(sysdate,'YYYY-MM-DD:HH24:MI:SS');
1133:
1134: insert into ad_parallel_compile_errors (
1135: owner, worker_number, timestamp, type, text)
1136: select upper(owner),
1137: 0,
1138: timestamp,
1141: ' has no IS/AS keyword - Not rewritten'
1142: from sys.dual;
1143:
1144: end if;
1145: -- end if log errors/messages to ad_parallel_compile_errors
1146:
1147: return;
1148:
1149: end if;
1161: if log_to_table = 'TRUE' then
1162:
1163: timestamp := to_char(sysdate,'YYYY-MM-DD:HH24:MI:SS');
1164:
1165: insert into ad_parallel_compile_errors (
1166: owner, worker_number, timestamp, type, text)
1167: select upper(owner),
1168: 0,
1169: timestamp,
1172: ' has IS/AS keyword on long line - Not rewritten'
1173: from sys.dual;
1174:
1175: end if;
1176: -- end if log errors/messages to ad_parallel_compile_errors
1177:
1178: return;
1179: end if;
1180: -- end if edited line is too long
1228: if log_to_table = 'TRUE' then
1229:
1230: timestamp := to_char(sysdate,'YYYY-MM-DD:HH24:MI:SS');
1231:
1232: insert into ad_parallel_compile_errors (
1233: owner, worker_number, timestamp, type, text)
1234: select upper(owner),
1235: 0,
1236: timestamp,
1240: from sys.dual;
1241:
1242: sql_error := SQLERRM;
1243:
1244: insert into ad_parallel_compile_errors (
1245: owner, worker_number, timestamp, type, text)
1246: select upper(owner),
1247: 0,
1248: timestamp,
1252: from sys.dual;
1253:
1254: if ad_apps_private.error_buf is not null then
1255:
1256: insert into ad_parallel_compile_errors (
1257: owner, worker_number, timestamp, type, text)
1258: select upper(owner),
1259: 0,
1260: timestamp,
1271:
1272: else
1273: raise;
1274: end if;
1275: -- end if log errors/messages to ad_parallel_compile_errors
1276: exception
1277: -- should only fire if we have errors writing to the log table
1278: when others then
1279: ad_apps_private.error_buf := 'rewrite_a_package('
1548: log_to_table in varchar2)
1549: --
1550: -- Creates/verifies the correct grants for a specific package
1551: --
1552: -- if log_to_table is 'TRUE', writes errors to ad_parallel_compile_errors
1553: --
1554: is
1555: invoker_plsql boolean;
1556: definer_plsql boolean;
1578: if log_to_table = 'TRUE' then
1579:
1580: timestamp := to_char(sysdate,'YYYY-MM-DD:HH24:MI:SS');
1581:
1582: insert into ad_parallel_compile_errors (
1583: owner, worker_number, timestamp, type, text)
1584: select upper(owner),
1585: 0,
1586: timestamp,
1597: '.'||upper(name)||': Object type "'||upper(type)||
1598: '" not supported.');
1599:
1600: end if;
1601: -- end if log errors/messages to ad_parallel_compile_errors
1602:
1603: end if;
1604: -- end if not valid type
1605:
1636: if log_to_table = 'TRUE' then
1637:
1638: timestamp := to_char(sysdate,'YYYY-MM-DD:HH24:MI:SS');
1639:
1640: insert into ad_parallel_compile_errors (
1641: owner, worker_number, timestamp, type, text)
1642: select upper(owner),
1643: 0,
1644: timestamp,
1666: if log_to_table = 'TRUE' then
1667:
1668: timestamp := to_char(sysdate,'YYYY-MM-DD:HH24:MI:SS');
1669:
1670: insert into ad_parallel_compile_errors (
1671: owner, worker_number, timestamp, type, text)
1672: select upper(owner),
1673: 0,
1674: timestamp,
1902: if log_to_table = 'TRUE' then
1903:
1904: timestamp := to_char(sysdate,'YYYY-MM-DD:HH24:MI:SS');
1905:
1906: insert into ad_parallel_compile_errors (
1907: owner, worker_number, timestamp, type, text)
1908: select upper(owner),
1909: 0,
1910: timestamp,
1975: if log_to_table = 'TRUE' then
1976:
1977: timestamp := to_char(sysdate,'YYYY-MM-DD:HH24:MI:SS');
1978:
1979: insert into ad_parallel_compile_errors (
1980: owner, worker_number, timestamp, type, text)
1981: select upper(owner),
1982: 0,
1983: timestamp,
2007: if log_to_table = 'TRUE' then
2008:
2009: timestamp := to_char(sysdate,'YYYY-MM-DD:HH24:MI:SS');
2010:
2011: insert into ad_parallel_compile_errors (
2012: owner, worker_number, timestamp, type, text)
2013: select upper(owner),
2014: 0,
2015: timestamp,
2019: from sys.dual;
2020:
2021: sql_error := SQLERRM;
2022:
2023: insert into ad_parallel_compile_errors (
2024: owner, worker_number, timestamp, type, text)
2025: select upper(owner),
2026: 0,
2027: timestamp,
2031: from sys.dual;
2032:
2033: if ad_apps_private.error_buf is not null then
2034:
2035: insert into ad_parallel_compile_errors (
2036: owner, worker_number, timestamp, type, text)
2037: select upper(owner),
2038: 0,
2039: timestamp,
2050:
2051: else
2052: raise;
2053: end if;
2054: -- end if log errors/messages to ad_parallel_compile_errors
2055: exception
2056: -- should only fire if we have errors writing to the log table
2057: when others then
2058: ad_apps_private.error_buf := 'grant_a_package('
2072: log_to_table in varchar2)
2073: --
2074: -- Creates/verifies the correct grants for a specific Java object
2075: --
2076: -- if log_to_table is 'TRUE', writes errors to ad_parallel_compile_errors
2077: --
2078: is
2079: statement varchar2(200);
2080: synonym_ok boolean;
2090: if log_to_table = 'TRUE' then
2091:
2092: timestamp := to_char(sysdate,'YYYY-MM-DD:HH24:MI:SS');
2093:
2094: insert into ad_parallel_compile_errors (
2095: owner, worker_number, timestamp, type, text)
2096: select upper(owner),
2097: 0,
2098: timestamp,
2109: '.'||name||': Object type "'||upper(type)||
2110: '" not supported.');
2111:
2112: end if;
2113: -- end if log errors/messages to ad_parallel_compile_errors
2114:
2115: end if;
2116: -- end if not valid type
2117:
2180: if log_to_table = 'TRUE' then
2181:
2182: timestamp := to_char(sysdate,'YYYY-MM-DD:HH24:MI:SS');
2183:
2184: insert into ad_parallel_compile_errors (
2185: owner, worker_number, timestamp, type, text)
2186: select upper(owner),
2187: 0,
2188: timestamp,
2192: from sys.dual;
2193:
2194: sql_error := SQLERRM;
2195:
2196: insert into ad_parallel_compile_errors (
2197: owner, worker_number, timestamp, type, text)
2198: select upper(owner),
2199: 0,
2200: timestamp,
2204: from sys.dual;
2205:
2206: if ad_apps_private.error_buf is not null then
2207:
2208: insert into ad_parallel_compile_errors (
2209: owner, worker_number, timestamp, type, text)
2210: select upper(owner),
2211: 0,
2212: timestamp,
2223:
2224: else
2225: raise;
2226: end if;
2227: -- end if log errors/messages to ad_parallel_compile_errors
2228: exception
2229: -- should only fire if we have errors writing to the log table
2230: when others then
2231: ad_apps_private.error_buf := 'grant_a_java_object('