95 lines
3.7 KiB
SQL
95 lines
3.7 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_remove_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 |
|
|
-- | workspace to be removed. This script rolls back the data in the |
|
|
-- | specified workspace and removes all support structures created |
|
|
-- | for the workspace. The workspace ceases to exist. |
|
|
-- | The RemoveWorkspace operation can only be performed on leaf |
|
|
-- | workspaces (the bottom-most workspaces in a branch in the |
|
|
-- | hierarchy). There must be no other users in the workspace being |
|
|
-- | removed. |
|
|
-- | 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;
|
|
|
|
PROMPT
|
|
PROMPT +------------------------------------------------------------------------+
|
|
PROMPT | Report : Remove 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_remove_workspace_name CHAR PROMPT 'Enter name of workspace to remove: '
|
|
PROMPT
|
|
|
|
BEGIN
|
|
dbms_wm.removeworkspace('&wm_remove_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;
|