WebSVN – DevTools – Diff – /ManagerSuite/Manager_Suite_VM/trunk/src/Release Manager.sql

+  (
     RTAG_ID
+  )
   ENABLE
+)
-  TABLESPACE "SYSTEM"
+  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   PCTUSED 40
   INITRANS 1
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 64K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
 CREATE TABLE VIEW_SETTINGS
+(
   USER_ID NUMBER NOT NULL,
   VIEW_ID NUMBER NOT NULL
+)
-  TABLESPACE "SYSTEM"
+  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   PCTUSED 40
   INITRANS 1
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 64K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
+  (
     VTREE_ID
+  )
   ENABLE
+)
-  TABLESPACE "SYSTEM"
+  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   PCTUSED 40
   INITRANS 1
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 64K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
 CREATE TABLE PROJECT_EXTENTIONS
+(
   PROJ_ID NUMBER NOT NULL,
   EXT_NAME VARCHAR2(10 BYTE) NOT NULL
+)
-  TABLESPACE "SYSTEM"
+  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   PCTUSED 40
   INITRANS 1
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 64K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
+  (
     MSG_ID
+  )
   ENABLE
+)
-  TABLESPACE "SYSTEM"
+  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   PCTUSED 40
   INITRANS 1
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 64K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
   PKG_STATE NUMBER NOT NULL,
   PKG_ID NUMBER,
   DEPRECATED_STATE NUMBER,
   PRODUCT_STATE NUMBER
+)
-  TABLESPACE "SYSTEM"
+  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   PCTUSED 40
   INITRANS 1
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 64K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
+(
   PV_ID NUMBER NOT NULL,
   ISS_KEY VARCHAR2(4000 BYTE),
   DATE_TIME_STAMP DATE
+)
-  TABLESPACE "SYSTEM"
+  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   PCTUSED 40
   INITRANS 1
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 64K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
 CREATE TABLE VIEW_DEF
+(
   VIEW_ID NUMBER NOT NULL,
   PKG_ID NUMBER NOT NULL
+)
-  TABLESPACE "SYSTEM"
+  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   PCTUSED 40
   INITRANS 1
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 64K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
   PKG_ID NUMBER NOT NULL,
   DPKG_ID NUMBER NOT NULL,
   BUILD_TYPE CHAR(1 BYTE) NOT NULL,
   DISPLAY_ORDER NUMBER
+)
-  TABLESPACE "SYSTEM"
+  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   PCTUSED 40
   INITRANS 1
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 320K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
+  (
     PKG_ID
+  )
   ENABLE
+)
-  TABLESPACE "SYSTEM"
+  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   PCTUSED 40
   INITRANS 1
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 64K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
+  (
     PROJ_ID
+  )
   ENABLE
+)
-  TABLESPACE "SYSTEM"
+  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   PCTUSED 40
   INITRANS 1
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 64K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
+  (
     VIEW_ID
+  )
   ENABLE
+)
-  TABLESPACE "SYSTEM"
+  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   PCTUSED 40
   INITRANS 1
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 64K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
   BS_ID NUMBER,
   IS_AUTOBUILDABLE CHAR(1 BYTE),
   SBOM_PRIORITY CHAR(1 BYTE),
   RIPPLE_FIELD CHAR(1 CHAR),
   MAXIMUM_BUILD_TIME NUMBER,
-  ESTIMATED_COMPLETION_TIME DATE
+  ESTIMATED_COMPLETION_TIME DATE,
+  MAJOR_LIMIT NUMBER(10, 0),
+  MINOR_LIMIT NUMBER(10, 0),
+  PATCH_LIMIT NUMBER(10, 0),
+  BUILD_NUMBER_LIMIT NUMBER(10, 0)
 , CONSTRAINT PK_PACKAGE_VERSIONS PRIMARY KEY
+  (
     PV_ID
+  )
   ENABLE
+)
-  TABLESPACE "SYSTEM"
+  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   PCTUSED 40
   INITRANS 1
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 192K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
   ISS_ID NUMBER NOT NULL,
   ISS_STATE NUMBER NOT NULL,
   MOD_DATE DATE NOT NULL,
   NOTES VARCHAR2(255 BYTE)
+)
-  TABLESPACE "SYSTEM"
+  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   PCTUSED 40
   INITRANS 1
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 64K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
     NULL AS PKG_STATE,
  NULL AS DEPRECATED_STATE,
     NULL AS INSERTOR_ID,
     NULL AS INSERT_STAMP,
     pl.operation
-  FROM PLANNED pl;
+FROM PLANNED pl;
 CREATE UNIQUE INDEX UNQ_PKG_BUILD_ENV ON PACKAGE_BUILD_ENV (PV_ID ASC, BE_ID ASC)  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   INITRANS 2
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
-CREATE UNIQUE INDEX UNQ_VIEW_SETTINGS ON VIEW_SETTINGS (USER_ID ASC, VIEW_ID ASC)  TABLESPACE "SYSTEM"
+CREATE UNIQUE INDEX UNQ_VIEW_SETTINGS ON VIEW_SETTINGS (USER_ID ASC, VIEW_ID ASC)  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   INITRANS 2
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 64K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
-CREATE UNIQUE INDEX UNQ_VTREES ON VTREES (PROJ_ID ASC, VTREE_NAME ASC)  TABLESPACE "SYSTEM"
+CREATE UNIQUE INDEX UNQ_VTREES ON VTREES (PROJ_ID ASC, VTREE_NAME ASC)  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   INITRANS 2
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 64K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
-CREATE UNIQUE INDEX UNQ_PROJECT_EXT ON PROJECT_EXTENTIONS (PROJ_ID ASC, EXT_NAME ASC)  TABLESPACE "SYSTEM"
+CREATE UNIQUE INDEX UNQ_PROJECT_EXT ON PROJECT_EXTENTIONS (PROJ_ID ASC, EXT_NAME ASC)  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   INITRANS 2
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 64K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
-CREATE INDEX INX_MSGBOARD ON MESSAGE_BOARD (EXPIRY_DATE ASC, DUE_DATE ASC)  TABLESPACE "SYSTEM"
+CREATE INDEX INX_MSGBOARD ON MESSAGE_BOARD (EXPIRY_DATE ASC, DUE_DATE ASC)  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   INITRANS 2
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 64K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
-CREATE UNIQUE INDEX UNQ_VIEW_DEF ON VIEW_DEF (VIEW_ID ASC, PKG_ID ASC)  TABLESPACE "SYSTEM"
+CREATE UNIQUE INDEX UNQ_VIEW_DEF ON VIEW_DEF (VIEW_ID ASC, PKG_ID ASC)  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   INITRANS 2
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 64K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
-CREATE UNIQUE INDEX UNQ_PACKAGE_DEPENDENCIES ON PACKAGE_DEPENDENCIES (PV_ID ASC, DPV_ID ASC)  TABLESPACE "SYSTEM"
+CREATE UNIQUE INDEX UNQ_PACKAGE_DEPENDENCIES ON PACKAGE_DEPENDENCIES (PV_ID ASC, DPV_ID ASC)  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   INITRANS 2
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 384K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
-CREATE UNIQUE INDEX UNQ_PACKAGES ON PACKAGES (PKG_NAME ASC)  TABLESPACE "SYSTEM"
+CREATE UNIQUE INDEX UNQ_PACKAGES ON PACKAGES (PKG_NAME ASC)  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   INITRANS 2
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 64K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
-CREATE UNIQUE INDEX UNQ_PROJECTS ON PROJECTS (PROJ_NAME ASC)  TABLESPACE "SYSTEM"
+CREATE UNIQUE INDEX UNQ_PROJECTS ON PROJECTS (PROJ_NAME ASC)  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   INITRANS 2
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 64K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
-CREATE UNIQUE INDEX UNQ_VIEWS ON VIEWS (VIEW_NAME ASC, OWNER_ID ASC)  TABLESPACE "SYSTEM"
+CREATE UNIQUE INDEX UNQ_VIEWS ON VIEWS (VIEW_NAME ASC, OWNER_ID ASC)  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   INITRANS 2
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 64K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
-CREATE UNIQUE INDEX UNQ_PACKAGE_VERSIONS ON PACKAGE_VERSIONS (PKG_ID ASC, PKG_VERSION ASC)  TABLESPACE "SYSTEM"
+CREATE UNIQUE INDEX UNQ_PACKAGE_VERSIONS ON PACKAGE_VERSIONS (PKG_ID ASC, PKG_VERSION ASC)  TABLESPACE "USERS"
   LOGGING
   PCTFREE 10
   INITRANS 2
   MAXTRANS 255
   STORAGE
+  (
     INITIAL 128K
-    NEXT 64K
     MINEXTENTS 1
     MAXEXTENTS 2147483645
-    PCTINCREASE 0
     FREELISTS 1
     FREELIST GROUPS 1
     BUFFER_POOL DEFAULT
+  )
+;
    ||  Modified Date:  19/Aug/2008
    ||  Version      :  3.6 (added licencing cloning)
    --------------------------------------------------------------------------- */
    FromVersion PACKAGE_VERSIONS.PKG_VERSION%TYPE;
+major NUMBER;
+minor NUMBER;
+patch NUMBER;
+buildn NUMBER;
 BEGIN
+------------------------------------- Limits ---------------------------------------------------
+   select major_limit, minor_limit, patch_limit, build_number_limit
+   into major, minor, patch, buildn
+   from package_versions where pv_id=nFROMpv_id;
+    UPDATE package_versions SET
+           major_limit = major,
+           minor_limit = minor,
+           patch_limit = patch,
+           build_number_limit = buildn
+     WHERE PV_ID = nTOpv_id;
 ------------------------------------- Clone Dependencies ---------------------------------------------------
    IF NOT nRtag_id IS NULL
    THEN
       -- Auto Update Dependencies --
       INSERT INTO PACKAGE_DEPENDENCIES
 CREATE OR REPLACE PACKAGE BODY                   "PK_PLANNED" IS
 /*
 ------------------------------
 ||  Last Modified:  G.Huddy
-||  Modified Date:  28/May/2008
+||  Modified Date:  05/Aug/2008
-||  Body Version:   1.1
+||  Body Version:   1.2
 ------------------------------
 */
 /*-------------------------------------------------------------------------------------------------------*/
 PROCEDURE ADD_PACKAGE ( newPvId IN NUMBER, ViewId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER ) IS
-	oldPvId NUMBER;
+    oldPvId NUMBER;
-	ReleaseLocation VARCHAR2(4000);
+    ReleaseLocation VARCHAR2(4000);
-	IsPatch CHAR(1) := NULL;
+    IsPatch CHAR(1) := NULL;
-	sLocation VARCHAR2(4000) := NULL;
+    sLocation VARCHAR2(4000) := NULL;
-	nRtagIdLocation NUMBER;
+    nRtagIdLocation NUMBER;
 BEGIN
-	/*--------------- Business Rules Here -------------------*/
+    /*--------------- Business Rules Here -------------------*/
-	/*-------------------------------------------------------*/
+    /*-------------------------------------------------------*/
-	BEGIN
-		-- Check if Exists in "Work in progress" anywhere in the world, except "Closed mode" releases
-		SELECT proj.PROJ_NAME ||' > '|| rt.RTAG_NAME, rt.RTAG_ID  INTO sLocation, nRtagIdLocation
-		  FROM PLANNED pl,
-			   RELEASE_TAGS rt,
-			   PROJECTS proj
-		 WHERE pl.PV_ID = newPvId
-		   AND pl.RTAG_ID = rt.RTAG_ID
-		   AND rt.OFFICIAL != 'Y'
-		   AND rt.PROJ_ID = proj.PROJ_ID;
-		EXCEPTION
-			WHEN NO_DATA_FOUND THEN
-				sLocation := NULL;
-	END;
+    BEGIN
+        -- Check if Exists in "Work in progress" anywhere in the world, except "Closed mode" releases
+        SELECT proj.PROJ_NAME ||' > '|| rt.RTAG_NAME, rt.RTAG_ID  INTO sLocation, nRtagIdLocation
+          FROM PLANNED pl,
+               RELEASE_TAGS rt,
+               PROJECTS proj
+         WHERE pl.PV_ID = newPvId
+           AND pl.RTAG_ID = rt.RTAG_ID
+           AND rt.OFFICIAL != 'Y'
+           AND rt.PROJ_ID = proj.PROJ_ID;
+        EXCEPTION
+            WHEN NO_DATA_FOUND THEN
+                sLocation := NULL;
+    END;
-	IF (sLocation IS NULL) OR (nRtagIdLocation = RtagId) THEN
+    IF (sLocation IS NULL) OR (nRtagIdLocation = RtagId) THEN
-		-- Add to "Pending" area
+        -- Add to "Pending" area
-		INSERT INTO PLANNED ( RTAG_ID, PV_ID, VIEW_ID, OPERATION )
+        INSERT INTO PLANNED ( RTAG_ID, PV_ID, VIEW_ID, OPERATION )
-		VALUES( RtagId, newPvId, ViewId, 'R' );
+        VALUES( RtagId, newPvId, ViewId, 'R' );
-		/* LOG ACTION */
+        /* LOG ACTION */
-		SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
+        SELECT proj.PROJ_NAME ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
-		  FROM PROJECTS proj,
+          FROM PROJECTS proj,
-			   RELEASE_TAGS rt
+               RELEASE_TAGS rt
-		 WHERE rt.PROJ_ID = proj.PROJ_ID
+         WHERE rt.PROJ_ID = proj.PROJ_ID
-		   AND rt.RTAG_ID = RtagId;
+           AND rt.RTAG_ID = RtagId;
-		Log_Action ( newPvId, 'add_to_planned', UserId, 'Location: '|| ReleaseLocation );
+        Log_Action ( newPvId, 'add_to_planned', UserId, 'Location: '|| ReleaseLocation );
-	ELSE
+    ELSE
-		RAISE_APPLICATION_ERROR (-20000, 'This version is already in Pending Area at '|| sLocation ||'.' );
+        RAISE_APPLICATION_ERROR (-20000, 'This version is already in Pending Area at '|| sLocation ||'.' );
-	END IF;
+    END IF;
 END;
 /*-------------------------------------------------------------------------------------------------------*/
 PROCEDURE REMOVE_PACKAGE ( PvId IN NUMBER, RtagId IN NUMBER, UserId IN NUMBER ) IS
-	ReleaseLocation VARCHAR2(4000);
+    ReleaseLocation VARCHAR2(4000);
 BEGIN
-	/*--------------- Business Rules Here -------------------*/
+    /*--------------- Business Rules Here -------------------*/
-	/*-------------------------------------------------------*/
+    /*-------------------------------------------------------*/
-	-- Get release location for logging pusposes
+    -- Get release location for logging pusposes
-	SELECT proj.PROJ_NAME  ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
+    SELECT proj.PROJ_NAME  ||' / '|| rt.RTAG_NAME INTO ReleaseLocation
-	  FROM PROJECTS proj,
+      FROM PROJECTS proj,
-		   RELEASE_TAGS rt
+           RELEASE_TAGS rt
-	 WHERE rt.PROJ_ID = proj.PROJ_ID
+     WHERE rt.PROJ_ID = proj.PROJ_ID
-	   AND rt.RTAG_ID = RtagId;
+       AND rt.RTAG_ID = RtagId;
-	-- Delete from Work In Progress
+    -- Delete from Work In Progress
-	DELETE
+    DELETE
-	  FROM PLANNED pl
+      FROM PLANNED pl
-	 WHERE pl.RTAG_ID = RtagId
+     WHERE pl.RTAG_ID = RtagId
-	   AND pl.PV_ID = PvId;
+       AND pl.PV_ID = PvId;
-	Log_Action ( PvId, 'deleted_from_pending', UserId, 'Location: '|| ReleaseLocation );
+    Log_Action ( PvId, 'deleted_from_pending', UserId, 'Location: '|| ReleaseLocation );
 END;
 /*-------------------------------------------------------------------------------------------------------*/
 FUNCTION GET_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER ) RETURN NUMBER IS
-	ReturnValue NUMBER;
+    ReturnValue NUMBER;
 BEGIN
-	SELECT pl.VIEW_ID INTO ReturnValue
+    SELECT pl.VIEW_ID INTO ReturnValue
-	  FROM PLANNED pl
+      FROM PLANNED pl
-	 WHERE pl.RTAG_ID = RtagId
+     WHERE pl.RTAG_ID = RtagId
-	   AND pl.PV_ID = PvId;
+       AND pl.PV_ID = PvId;
-	RETURN ReturnValue;
+    RETURN ReturnValue;
 END;
 /*-------------------------------------------------------------------------------------------------------*/
 PROCEDURE GET_VIEW_CONTENT ( RtagId IN NUMBER, ViewId IN NUMBER, RecordSet OUT typeCur ) IS
-	IsBaseView CHAR(1);
+    IsBaseView CHAR(1);
 BEGIN
-	-- Check if the view is BASE VIEW
+    -- Check if the view is BASE VIEW
-	SELECT vi.BASE_VIEW INTO IsBaseView
+    SELECT vi.BASE_VIEW INTO IsBaseView
-	  FROM VIEWS vi
+      FROM VIEWS vi
-	 WHERE vi.VIEW_ID = ViewId;
+     WHERE vi.VIEW_ID = ViewId;
+    IF (IsBaseView = 'Y') THEN
+        -- Get Base view content
+        OPEN RecordSet FOR
+        SELECT 0 AS PKG_STATE,
+               NULL AS DEPRECATED_STATE,
+               pv.pv_id,
+               pkg.pkg_name,
+               pv.pkg_version,
+               pv.dlocked,
+               pv.pv_description,
+               pv.BUILD_TYPE,
+               rel.operation
+          FROM PLANNED rel,
+               packages pkg,
+               package_versions pv
+         WHERE pv.pkg_id = pkg.pkg_id
+           AND rel.pv_id = pv.pv_id
+           AND rel.VIEW_ID = ViewId
+           AND rel.RTAG_ID = RtagId
+         ORDER BY UPPER(pkg.PKG_NAME);
-	IF (IsBaseView = 'Y') THEN
-		-- Get Base view content
-		OPEN RecordSet FOR
-		SELECT 0 AS PKG_STATE,
-			   NULL AS DEPRECATED_STATE,
-			   pv.pv_id,
+    ELSE
-			   pkg.pkg_name,
-			   pv.pkg_version,
-			   pv.dlocked,
-			   pv.pv_description,
-			   pv.BUILD_TYPE,
-			   rel.operation
-		  FROM PLANNED rel,
-			   packages pkg,
-			   package_versions pv
-		 WHERE pv.pkg_id = pkg.pkg_id
-		   AND rel.pv_id = pv.pv_id
-		   AND rel.VIEW_ID = ViewId
-		   AND rel.RTAG_ID = RtagId
-		 ORDER BY UPPER(pkg.PKG_NAME);
+        -- Get non base view content
+        OPEN RecordSet FOR
-	ELSE
+        SELECT 0 AS PKG_STATE,
+               NULL AS DEPRECATED_STATE,
+               pv.pv_id,
+               pkg.pkg_name,
+               pv.pkg_version,
+               pv.dlocked,
+               pv.pv_description,
+               pv.BUILD_TYPE,
+               rel.operation
+          FROM PLANNED rel,
+               packages pkg,
+               package_versions pv,
+               VIEW_DEF vd
+         WHERE pv.pkg_id = pkg.pkg_id
+           AND rel.pv_id = pv.pv_id
+           AND rel.RTAG_ID = RtagId
+           AND vd.VIEW_ID = ViewId
+           AND vd.PKG_ID = pv.PKG_ID
+         ORDER BY UPPER(pkg.PKG_NAME);
-		-- Get non base view content
-		OPEN RecordSet FOR
-		SELECT 0 AS PKG_STATE,
-			   NULL AS DEPRECATED_STATE,
-			   pv.pv_id,
-			   pkg.pkg_name,
-			   pv.pkg_version,
-			   pv.dlocked,
-			   pv.pv_description,
-			   pv.BUILD_TYPE,
-			   rel.operation
-		  FROM PLANNED rel,
-			   packages pkg,
-			   package_versions pv,
-			   VIEW_DEF vd
-		 WHERE pv.pkg_id = pkg.pkg_id
-		   AND rel.pv_id = pv.pv_id
-		   AND rel.RTAG_ID = RtagId
-		   AND vd.VIEW_ID = ViewId
-		   AND vd.PKG_ID = pv.PKG_ID
-		 ORDER BY UPPER(pkg.PKG_NAME);
-	END IF;
+    END IF;
 END;
 /*-------------------------------------------------------------------------------------------------------*/
 PROCEDURE CHANGE_PACKAGE_VIEW ( PvId IN NUMBER, RtagId IN NUMBER, NewViewId IN NUMBER ) IS
 BEGIN
-	UPDATE PLANNED pl SET
+    UPDATE PLANNED pl SET
-	pl.VIEW_ID = NewViewId
+    pl.VIEW_ID = NewViewId
-	WHERE pl.PV_ID = PvId
+    WHERE pl.PV_ID = PvId
-	  AND pl.RTAG_ID = RtagId;
+      AND pl.RTAG_ID = RtagId;
 END;
 /*-------------------------------------------------------------------------------------------------------*/
 -- DEVI-45275 This new function supports the ability to insert into the planned table, and existing
 -- version of a package as part of a release-to-release merge operation carried out within release manager.

Subversion Repositories DevTools

(root)/ManagerSuite/Manager_Suite_VM/trunk/src/Release Manager.sql – Rev 57 → 59