98 lines
3.6 KiB
SQL
98 lines
3.6 KiB
SQL
-- +----------------------------------------------------------------------------+
|
|
-- | 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 : ¤t_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: ¤t_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;
|