2026-03-12 20:23:15

idev/wm_create_workspace.sql

@@ -0,0 +1,97 @@
+-- +----------------------------------------------------------------------------+
+-- |                          Jeffrey M. Hunter                                 |
+-- |                      jhunter@idevelopment.info                             |
+-- |                         www.idevelopment.info                              |
+-- |----------------------------------------------------------------------------|
+-- |      Copyright (c) 1998-2012 Jeffrey M. Hunter. All rights reserved.       |
+-- |----------------------------------------------------------------------------|
+-- | DATABASE : Oracle                                                          |
+-- | FILE     : wm_create_workspace.sql                                         |
+-- | CLASS    : Workspace Manager                                               |
+-- | PURPOSE  : This script will list all workspaces and which workspace is the |
+-- |            current workspace. You are then prompted for the name of a new  |
+-- |            workspace to create. The script then creates the new workspace  |
+-- |            as a child of the current (parent) workspace. Keep in mind that |
+-- |            this script (nor the PL/SQL library) performs a "go to" to the  |
+-- |            new workspace. To go to the new workspace is a manual process.  |
+-- | NOTE     : As with any code, ensure to test this script in a development   |
+-- |            environment before attempting to run it in production.          |
+-- +----------------------------------------------------------------------------+
+
+SET TERMOUT OFF;
+COLUMN current_instance NEW_VALUE current_instance NOPRINT;
+SELECT rpad(sys_context('USERENV', 'INSTANCE_NAME'), 17) current_instance
+FROM dual;
+SET TERMOUT ON;
+
+SET TERMOUT OFF;
+COLUMN current_schema NEW_VALUE current_schema NOPRINT;
+SELECT sys_context('USERENV', 'CURRENT_SCHEMA') current_schema
+FROM dual;
+SET TERMOUT ON;
+
+PROMPT 
+PROMPT +------------------------------------------------------------------------+
+PROMPT | Report   : Create New Workspace                                        |
+PROMPT | Instance : &current_instance                                           |
+PROMPT +------------------------------------------------------------------------+
+
+SET ECHO        OFF
+SET FEEDBACK    6
+SET HEADING     ON
+SET LINESIZE    180
+SET PAGESIZE    50000
+SET TERMOUT     ON
+SET TIMING      OFF
+SET TRIMOUT     ON
+SET TRIMSPOOL   ON
+SET VERIFY      OFF
+
+CLEAR COLUMNS
+CLEAR BREAKS
+CLEAR COMPUTES
+
+COLUMN current_workspace  FORMAT a10        HEADING "Current"
+COLUMN owner              FORMAT a20        HEADING "Workspace Owner"
+COLUMN workspace          FORMAT a30        HEADING "Workspace Name"
+COLUMN createtime         FORMAT a20        HEADING "Create Time"
+
+PROMPT 
+PROMPT +------------------------------------------------------------------------+
+PROMPT | All Workspaces                                                         |
+PROMPT +------------------------------------------------------------------------+
+
+SELECT
+    CASE  WHEN dbms_wm.getworkspace = workspace THEN '    *'
+          ELSE null
+    END AS current_workspace
+  , owner
+  , workspace
+  , TO_CHAR(createtime, 'DD-MON-YYYY HH24:MI:SS') createtime
+FROM
+    dba_workspaces
+ORDER BY
+    owner
+  , workspace;
+
+PROMPT 
+ACCEPT wm_new_workspace_name CHAR PROMPT 'Enter name for new workspace: &current_schema..'
+PROMPT 
+
+BEGIN
+    dbms_wm.createworkspace('&wm_new_workspace_name');
+END;
+/
+
+SELECT
+    CASE  WHEN dbms_wm.getworkspace = workspace THEN '    *'
+          ELSE null
+    END AS current_workspace
+  , owner
+  , workspace
+  , TO_CHAR(createtime, 'DD-MON-YYYY HH24:MI:SS') createtime
+FROM
+    dba_workspaces
+ORDER BY
+    owner
+  , workspace;