Preparing Oracle package T4SQL.CMD

Author: AbelCheng

T4SQLTemplateLibrary/Databases/Oracle/T4SQLDB/Scripts/4-Packages/01-META.pck

@@ -50,6 +50,17 @@ FUNCTION MATCH_TABLE_DEFINITION
 )	RETURN BOOLEAN;
 
 
+PROCEDURE EXECUTE_AUTONOMOUS
+(
+	inSql_Stmt	VARCHAR2
+);
+
+PROCEDURE EXECUTE_AUTONOMOUS
+(
+	inSql_Stmt	CLOB
+);
+
+
 PROCEDURE GET_TABLE_IN_TRIGGER
 (
 	inCall_Stack	VARCHAR2,		-- DBMS_UTILITY.FORMAT_CALL_STACK
@@ -195,6 +206,26 @@ BEGIN
 END MATCH_TABLE_DEFINITION;
 
 
+PROCEDURE EXECUTE_AUTONOMOUS
+(
+	inSql_Stmt	VARCHAR2
+)	AS
+PRAGMA AUTONOMOUS_TRANSACTION;
+BEGIN
+	EXECUTE IMMEDIATE inSql_Stmt;
+END EXECUTE_AUTONOMOUS;
+
+
+PROCEDURE EXECUTE_AUTONOMOUS
+(
+	inSql_Stmt	CLOB
+)	AS
+PRAGMA AUTONOMOUS_TRANSACTION;
+BEGIN
+	EXECUTE IMMEDIATE inSql_Stmt;
+END EXECUTE_AUTONOMOUS;
+
+
 PROCEDURE GET_TABLE_IN_TRIGGER
 (
 	inCall_Stack	VARCHAR2,		-- DBMS_UTILITY.FORMAT_CALL_STACK
@@ -268,12 +299,12 @@ PROCEDURE CREATE_WORKITEM_TRIGGER
 --	tSchema_Name		VARCHAR2(22) := PARSENAME(inWorkitem_Table, 2);
 	tTable_Name			VARCHAR2(22) := PARSENAME(inWorkitem_Table, 1);
 BEGIN
-	EXECUTE IMMEDIATE 'CREATE OR REPLACE TRIGGER TRG_' || tTable_Name || '_IU
+	EXECUTE_AUTONOMOUS('CREATE OR REPLACE TRIGGER TRG_' || tTable_Name || '_IU
 AFTER INSERT OR UPDATE ON ' || inWorkitem_Table || '
 FOR EACH ROW
 BEGIN
 	T4SQL.META.COPY_PROPERTY_DEFAULT(DBMS_UTILITY.FORMAT_CALL_STACK, :new.WORKITEM_NAME, :new.TEMPLATE_NAME);
-END;';
+END;');
 END CREATE_WORKITEM_TRIGGER;
 
 

T4SQLTemplateLibrary/Databases/Oracle/T4SQLDB/Scripts/4-Packages/02-ENGINE.pck

@@ -111,6 +111,15 @@ PROCEDURE LIST_DEFAULT_PROPERTY
 );
 
 
+PROCEDURE COMPILE_WORKITEM
+(
+	inWorkitem_Table	VARCHAR2,
+	inWorkitem_Name		VARCHAR2,
+	inCompiled_Error	VARCHAR2,
+	inObject_Code		CLOB
+);
+
+
 PROCEDURE LOG_SYS_ERROR
 (
 	inReference		NVARCHAR2,
@@ -460,6 +469,30 @@ BEGIN
 END LIST_DEFAULT_PROPERTY;
 
 
+PROCEDURE COMPILE_WORKITEM
+(
+	inWorkitem_Table	VARCHAR2,
+	inWorkitem_Name		VARCHAR2,
+	inCompiled_Error	VARCHAR2,
+	inObject_Code		CLOB
+)	AS
+	tSQL				VARCHAR2(512);
+BEGIN
+	tSQL := 'UPDATE	' || inWorkitem_Table || '
+	SET
+		COMPILED_TIME	= SYSTIMESTAMP,
+		COMPILED_ERROR	= :Compiled_Error,
+		OBJECT_CODE		= :Object_Code,
+		START_BUILD		= ''N''
+	WHERE
+		WORKITEM_NAME	= :Workitem_Name
+';
+
+	EXECUTE IMMEDIATE tSQL USING inCompiled_Error, inObject_Code, inWorkitem_Name;
+
+END COMPILE_WORKITEM;
+
+
 PROCEDURE LOG_SYS_ERROR
 (
 	inReference		NVARCHAR2,

T4SQLTemplateLibrary/Databases/Oracle/T4SQLDB/Scripts/4-Packages/03-CMD.pck

@@ -9,7 +9,7 @@ CREATE OR REPLACE PACKAGE T4SQL.CMD IS
 --	You must not remove this notice, or any other, from this software.
 --
 --	Original Author:	Abel Cheng <[email protected]>
---	Created Date:		October ?15, ?2013, ??11:30:21 PM
+--	Created Date:		October 15, 2013, 11:30:21 PM
 --	Primary Host:		http://t4sql.codeplex.com
 --	Change Log:
 --	Author				Date			Comment
@@ -22,10 +22,33 @@ CREATE OR REPLACE PACKAGE T4SQL.CMD IS
 ----------------------------------------------------------------------------------------------------
 
 
+PROCEDURE BUILD_SCRIPTS
+(
+	inWorkitem_Table		VARCHAR2,
+	inSearch_Conditions		VARCHAR2,
+	outGenerated_Scripts	OUT	CLOB
+);
+
+
 END CMD;
 /
 CREATE OR REPLACE PACKAGE BODY T4SQL.CMD IS
 
 
+PROCEDURE BUILD_SCRIPTS
+(
+	inWorkitem_Table		VARCHAR2,
+	inSearch_Conditions		VARCHAR2,
+	outGenerated_Scripts	OUT	CLOB
+)	AS
+BEGIN
+	IF NOT T4SQL.META.EXISTS_TABLE(inWorkitem_Table) THEN
+		RAISE_APPLICATION_ERROR(-20942, 'inWorkitem_Table table does not exist in the database');
+	END IF;
+
+
+END BUILD_SCRIPTS;
+
+
 END CMD;
 /