Add Oracle package T4SQL.CMD ...

Author: AbelCheng

T4SQLTemplateLibrary/Databases/Oracle/T4SQLDB/Scripts/1-Tables/03-EVENT_LOG.sql

@@ -1,6 +1,6 @@
 CREATE TABLE T4SQL.EVENT_LOG
 (
-	LOG_TIME	TIMESTAMP(3)		NOT NULL,
+	LOG_TIME	TIMESTAMP(3) DEFAULT SYSTIMESTAMP	NOT NULL,
 	LOG_TYPE	NVARCHAR2(16),
 	REFERENCE_	NVARCHAR2(256),
 	MESSAGE_	VARCHAR2(4000)

T4SQLTemplateLibrary/Databases/Oracle/T4SQLDB/Scripts/3-Views/03-VW_FOREIGN_KEY_COLUMNS.sql

@@ -36,3 +36,24 @@ ORDER BY
 	FC.POSITION
 
 WITH READ ONLY;
+
+----------------------------------------------------------------------------------------------------
+--
+--	Copyright 2013 Abel Cheng
+--	This source code is subject to terms and conditions of the Apache License, Version 2.0.
+--	See http://www.apache.org/licenses/LICENSE-2.0.
+--	All other rights reserved.
+--	You must not remove this notice, or any other, from this software.
+--
+--	Original Author:	Abel Cheng <[email protected]>
+--	Created Date:		??November ?04, ?2013, 11:05:07 PM
+--	Primary Host:		http://t4sql.codeplex.com
+--	Change Log:
+--	Author				Date			Comment
+--
+--
+--
+--
+--	(Keep code clean)
+--
+----------------------------------------------------------------------------------------------------

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

@@ -26,46 +26,52 @@ FUNCTION PARSENAME
 (
 	inQualified_Name	VARCHAR2,
 	inObject_Piece		PLS_INTEGER
-)	RETURN VARCHAR2;
+)	RETURN				VARCHAR2;
 
 
 FUNCTION EXISTS_TABLE
 (
-	inSchema_Name	VARCHAR2,
-	inTable_Name	VARCHAR2
-)	RETURN BOOLEAN;
+	inSchema_Name		VARCHAR2,
+	inTable_Name		VARCHAR2
+)	RETURN				BOOLEAN;
 
 FUNCTION EXISTS_TABLE
 (
 	inQualified_Name	VARCHAR2
-)	RETURN BOOLEAN;
+)	RETURN				BOOLEAN;
+
+
+FUNCTION QUALIFIED_NAME
+(
+	inFull_Name			VARCHAR2
+)	RETURN				VARCHAR2;
 
 
 FUNCTION MATCH_TABLE_DEFINITION
 (
-	inRef_Schema	VARCHAR2,
-	inRef_Table		VARCHAR2,
-	inTst_Schema	VARCHAR2,
-	inTst_Table		VARCHAR2
-)	RETURN BOOLEAN;
+	inRef_Schema		VARCHAR2,
+	inRef_Table			VARCHAR2,
+	inTst_Schema		VARCHAR2,
+	inTst_Table			VARCHAR2
+)	RETURN				BOOLEAN;
 
 
 PROCEDURE EXECUTE_AUTONOMOUS
 (
-	inSql_Stmt	VARCHAR2
+	inSql_Stmt			VARCHAR2
 );
 
 PROCEDURE EXECUTE_AUTONOMOUS
 (
-	inSql_Stmt	CLOB
+	inSql_Stmt			CLOB
 );
 
 
 PROCEDURE GET_TABLE_IN_TRIGGER
 (
-	inCall_Stack	VARCHAR2,		-- DBMS_UTILITY.FORMAT_CALL_STACK
-	outTab_Schema	OUT VARCHAR2,
-	outTab_Name		OUT VARCHAR2
+	inCall_Stack		VARCHAR2,		-- DBMS_UTILITY.FORMAT_CALL_STACK
+	outTab_Schema		OUT VARCHAR2,
+	outTab_Name			OUT VARCHAR2
 );
 
 
@@ -92,10 +98,10 @@ PROCEDURE CREATE_PROPERTY_VIEW
 
 PROCEDURE CREATE_WORKSPACE
 (
-	inWorkitem_Table			VARCHAR2,
-	inProperty_Table			VARCHAR2,
-	inWorkspace_Description		NVARCHAR2,
-	inAutonomous_Owner			NVARCHAR2
+	inWorkitem_Table		VARCHAR2,
+	inProperty_Table		VARCHAR2,
+	inWorkspace_Description	NVARCHAR2,
+	inAutonomous_Owner		NVARCHAR2
 );
 
 
@@ -108,7 +114,7 @@ FUNCTION PARSENAME
 (
 	inQualified_Name	VARCHAR2,
 	inObject_Piece		PLS_INTEGER
-)	RETURN VARCHAR2
+)	RETURN				VARCHAR2
 IS
 	tName				VARCHAR2(64);
 BEGIN
@@ -136,7 +142,7 @@ FUNCTION EXISTS_TABLE
 (
 	inSchema_Name	VARCHAR2,
 	inTable_Name	VARCHAR2
-)	RETURN BOOLEAN
+)	RETURN			BOOLEAN
 IS
 	tCount			PLS_INTEGER;
 BEGIN
@@ -155,7 +161,7 @@ END EXISTS_TABLE;
 FUNCTION EXISTS_TABLE
 (
 	inQualified_Name	VARCHAR2
-)	RETURN BOOLEAN
+)	RETURN				BOOLEAN
 IS
 	tSchema_Name		VARCHAR2(30)	:= PARSENAME(inQualified_Name, 2);
 	tTable_Name			VARCHAR2(30)	:= PARSENAME(inQualified_Name, 1);
@@ -164,13 +170,25 @@ BEGIN
 END EXISTS_TABLE;
 
 
+FUNCTION QUALIFIED_NAME
+(
+	inFull_Name		VARCHAR2
+)	RETURN			VARCHAR2
+IS
+	tSchema_Name	VARCHAR2(30)	:= PARSENAME(inFull_Name, 2);
+	tTable_Name		VARCHAR2(30)	:= PARSENAME(inFull_Name, 1);
+BEGIN
+	RETURN DBMS_ASSERT.SQL_OBJECT_NAME(tSchema_Name || '.' || tTable_Name);
+END QUALIFIED_NAME;
+
+
 FUNCTION MATCH_TABLE_DEFINITION
 (
 	inRef_Schema	VARCHAR2,
 	inRef_Table		VARCHAR2,
 	inTst_Schema	VARCHAR2,
 	inTst_Table		VARCHAR2
-)	RETURN BOOLEAN
+)	RETURN			BOOLEAN
 IS
 	tMismatched		PLS_INTEGER;
 BEGIN
@@ -304,7 +322,7 @@ 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;
 
 
@@ -345,17 +363,16 @@ ORDER BY
 	P.WORKITEM_NAME,
 	S.PROPERTY_ORDER,
 	S.PROPERTY_NAME
-
-;';
+';
 END CREATE_PROPERTY_VIEW;
 
 
 PROCEDURE CREATE_WORKSPACE
 (
-	inWorkitem_Table			VARCHAR2,
-	inProperty_Table			VARCHAR2,
-	inWorkspace_Description		NVARCHAR2,
-	inAutonomous_Owner			NVARCHAR2
+	inWorkitem_Table		VARCHAR2,
+	inProperty_Table		VARCHAR2,
+	inWorkspace_Description	NVARCHAR2,
+	inAutonomous_Owner		NVARCHAR2
 )	AS
 	tWorkitem_Schema		VARCHAR2(30)	:= PARSENAME(inWorkitem_Table, 2);
 	tWorkitem_Table			VARCHAR2(30)	:= PARSENAME(inWorkitem_Table, 1);
@@ -404,7 +421,7 @@ BEGIN
 	CONSTRAINT FK_' || tWorkitem_Table || '_CLS FOREIGN KEY (TEMPLATE_NAME)
 		REFERENCES T4SQL.TEMPLATE_CLASS(FULL_NAME)
 		ON DELETE CASCADE
-);';
+)';
 
 	EXECUTE IMMEDIATE 'CREATE TABLE ' || tQualified_Property || '
 (
@@ -417,7 +434,7 @@ BEGIN
 	CONSTRAINT FK_' || tProperty_Table || '_WI FOREIGN KEY (WORKITEM_NAME)
 		REFERENCES ' || tQualified_Workitem || '(WORKITEM_NAME)
 		ON DELETE  CASCADE
-);';
+)';
 
 	INSERT INTO T4SQL.WORKSPACE_ENTRY
 	(

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

@@ -41,11 +41,92 @@ PROCEDURE BUILD_SCRIPTS
 	inSearch_Conditions		VARCHAR2,
 	outGenerated_Scripts	OUT	CLOB
 )	AS
+TYPE NAME_ARRAY IS TABLE OF NVARCHAR2(32) INDEX BY PLS_INTEGER;
+	tWorkitem_Names			NAME_ARRAY;
+	tSQL					VARCHAR2(2000);
+	tHas_Condition			BOOLEAN;
+	tStart_Build			CHAR(1);
+	tObject_Code			CLOB;
+	tCompiled_Error			NVARCHAR2(2000);
 BEGIN
-	IF NOT T4SQL.META.EXISTS_TABLE(inWorkitem_Table) THEN
-		RAISE_APPLICATION_ERROR(-20942, 'inWorkitem_Table table does not exist in the database');
+	tSQL	:= 'SELECT WORKITEM_NAME FROM ' || inWorkitem_Table;
+
+	tHas_Condition	:= RTRIM(inSearch_Conditions) IS NOT NULL;
+	IF tHas_Condition THEN
+		tSQL	:= tSQL || ' WHERE ' || inSearch_Conditions;
+	END IF;
+
+	tSQL	:= tSQL || ' ORDER BY BUILD_ORDER NULLS LAST, WORKITEM_NAME';
+
+	EXECUTE IMMEDIATE tSQL BULK COLLECT INTO tWorkitem_Names;
+
+	IF tWorkitem_Names.COUNT > 0 THEN
+		outGenerated_Scripts	:= '------------------ Started at: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH24:MI:SS') || ' ------------------
+';
+	ELSE
+		outGenerated_Scripts	:= '------------------ None workitem to build ------------------';
+		RETURN;
 	END IF;
 
+	tSQL	:= 'UPDATE ' || inWorkitem_Table || ' SET START_BUILD = ''Y'' WHERE START_BUILD = ''N''';
+
+	IF tHas_Condition THEN
+		tSQL	:= tSQL || ' AND (' || inSearch_Conditions || ')';
+	END IF;
+
+	EXECUTE IMMEDIATE tSQL;
+
+	tSQL	:= 'SELECT START_BUILD, OBJECT_CODE, COMPILED_ERROR FROM ' || inWorkitem_Table || ' WHERE WORKITEM_NAME = :workitem_name';
+
+	DBMS_LOCK.SLEEP(6);
+
+	FOR i IN tWorkitem_Names.FIRST .. tWorkitem_Names.LAST
+	LOOP
+		DBMS_LOB.APPEND(outGenerated_Scripts, '
+------------------ Build started workitem: ' || tWorkitem_Names(i) || ' ------------------
+');
+
+		FOR attempt IN 1..60
+		LOOP
+			tStart_Build	:= NULL;
+			tObject_Code	:= NULL;
+			tCompiled_Error	:= NULL;
+
+			EXECUTE IMMEDIATE tSQL INTO tStart_Build, tObject_Code, tCompiled_Error USING tWorkitem_Names(i);
+
+			EXIT WHEN tStart_Build = 'N';
+
+			DBMS_LOCK.SLEEP(3);
+		END LOOP;
+
+		IF tStart_Build IS NULL THEN
+			DBMS_LOB.APPEND(outGenerated_Scripts, '
+------------------ Error: The workitem has been deleted by others ------------------
+');
+			CONTINUE;
+		ELSIF tStart_Build = 'Y' THEN
+			DBMS_LOB.APPEND(outGenerated_Scripts, '
+------------------ Error: Template Engine is down ------------------
+');
+			EXIT;
+		END IF;
+
+		IF tCompiled_Error IS NULL THEN
+			DBMS_LOB.APPEND(outGenerated_Scripts, tObject_Code);
+		ELSE
+			DBMS_LOB.APPEND(outGenerated_Scripts, '/*
+' || tCompiled_Error || '
+*/');
+		END IF;
+
+		DBMS_LOB.APPEND(outGenerated_Scripts, '
+------------------ Build ended - workitem: ' || tWorkitem_Names(i) || ' ------------------
+');
+
+	END LOOP;
+
+	DBMS_LOB.APPEND(outGenerated_Scripts, '
+------------------ Build Total: ' || TO_CHAR(tWorkitem_Names.COUNT) || ' Workitems. Ended at: '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH24:MI:SS') || ' ------------------');
 
 END BUILD_SCRIPTS;
 

T4SQLTemplateLibrary/Databases/Oracle/T4SQLDB/Scripts/5-Triggers/02-TRG_WORKSPACE_ENTRY_DEL.trg

@@ -1,9 +1,30 @@
-CREATE OR REPLACE TRIGGER T4SQL.TRG_WORKSPACE_ENTRY_DEL
+CREATE OR REPLACE TRIGGER T4SQL.TRG_WORKSPACE_ENTRY_DEL
 BEFORE DELETE ON T4SQL.WORKSPACE_ENTRY
 FOR EACH ROW
 BEGIN
 	IF :old.WORKITEM_TABLE_NAME = 'T4SQL.SEED_WORKITEM' AND :old.PROPERTY_TABLE_NAME = 'T4SQL.SEED_PROPERTY' THEN
 		RAISE_APPLICATION_ERROR(-21001, 'Built-in workspace T4SQL.SEED_... cannot be deleted!');
 	END IF;
 END;
+
+----------------------------------------------------------------------------------------------------
+--
+--	Copyright 2013 Abel Cheng
+--	This source code is subject to terms and conditions of the Apache License, Version 2.0.
+--	See http://www.apache.org/licenses/LICENSE-2.0.
+--	All other rights reserved.
+--	You must not remove this notice, or any other, from this software.
+--
+--	Original Author:	Abel Cheng <[email protected]>
+--	Created Date:		‎November ‎02, 2013, ‏‎11:45:03 PM
+--	Primary Host:		http://t4sql.codeplex.com
+--	Change Log:
+--	Author				Date			Comment
+--
+--
+--
+--
+--	(Keep code clean)
+--
+----------------------------------------------------------------------------------------------------
 /

T4SQLTemplateLibrary/Databases/Oracle/T4SQLDB/Scripts/5-Triggers/03-TRG_WORKSPACE_ENTRY_INS.trg

@@ -1,4 +1,4 @@
-CREATE OR REPLACE TRIGGER T4SQL.TRG_WORKSPACE_ENTRY_INS
+CREATE OR REPLACE TRIGGER T4SQL.TRG_WORKSPACE_ENTRY_INS
 BEFORE INSERT OR UPDATE ON T4SQL.WORKSPACE_ENTRY
 FOR EACH ROW
 DECLARE
@@ -41,7 +41,32 @@ BEGIN
 		RAISE_APPLICATION_ERROR(-21002, 'Tables definition of add-in workspace is not compatible with built-in workspace T4SQL.SEED_...!');
 	END IF;
 
+	IF INSERTING THEN
+		:new.WORKSPACE_ID	:= T4SQL.SEQ_WORKSPACE_ID.NEXTVAL;
+	END IF;
+
 	-- Create trigger for each new workspace to auto-copy properties' default values while inserting a new workitem.
 	T4SQL.META.CREATE_WORKITEM_TRIGGER(:new.WORKITEM_TABLE_NAME);
 END;
+
+----------------------------------------------------------------------------------------------------
+--
+--	Copyright 2013 Abel Cheng
+--	This source code is subject to terms and conditions of the Apache License, Version 2.0.
+--	See http://www.apache.org/licenses/LICENSE-2.0.
+--	All other rights reserved.
+--	You must not remove this notice, or any other, from this software.
+--
+--	Original Author:	Abel Cheng <[email protected]>
+--	Created Date:		‎November ‎03, 2013, ‏‎1:18:48 AM
+--	Primary Host:		http://t4sql.codeplex.com
+--	Change Log:
+--	Author				Date			Comment
+--
+--
+--
+--
+--	(Keep code clean)
+--
+----------------------------------------------------------------------------------------------------
 /

T4SQLTemplateLibrary/Databases/Oracle/T4SQLDB/Scripts/6-InitData/01-ENGINE_CONFIG.data.sql

@@ -0,0 +1,10 @@
+INSERT INTO T4SQL.ENGINE_CONFIG (ELEMENT_NAME, NUMBER_VALUE, DATE_VALUE, STRING_VALUE, DESCRIPTION_)
+VALUES ('POLL_INTERVAL', 5, null, '', 'Engine Polling Interval (Seconds).');
+
+INSERT INTO T4SQL.ENGINE_CONFIG (ELEMENT_NAME, NUMBER_VALUE, DATE_VALUE, STRING_VALUE, DESCRIPTION_)
+VALUES ('STANDBY_BEAT', null, to_date('2013-01-01', 'yyyy-mm-dd'), '', 'Heartbeat of Standby Pump Service.');
+
+INSERT INTO T4SQL.ENGINE_CONFIG (ELEMENT_NAME, NUMBER_VALUE, DATE_VALUE, STRING_VALUE, DESCRIPTION_)
+VALUES ('PRIMARY_BEAT', null, to_date('2013-01-01', 'yyyy-mm-dd'), '', 'Heartbeat of Primary Pump Service.');
+
+COMMIT;