Rem Rem $Header: rdbms/admin/dbmswlm.sql /st_rdbms_11.2.0/2 2011/03/15 11:26:01 alui Exp $ Rem Rem dbmswlm.sql Rem Rem Copyright (c) 2006, 2011, Oracle and/or its affiliates. Rem All rights reserved. Rem Rem NAME Rem dbmswlm.sql - Rem Rem DESCRIPTION Rem Rem Rem NOTES Rem Rem Rem MODIFIED (MM/DD/YY) Rem alui 03/10/11 - Backport alui_bug-11668542 from main Rem alui 02/16/11 - Backport alui_bug-11058812 from main Rem alui 08/12/08 - add order attribute parameter to Rem add_wlmclassifiers Rem alui 07/10/08 - add check_wlmplan Rem alui 06/23/08 - add check_rm_plan Rem alui 12/14/07 - Add abort_wlmplan Rem sourghos 12/06/06 - add checks for large number of requested Rem classifiers Rem sourghos 10/04/06 - add error condition for no WRC for a PC Rem sourghos 08/14/06 - fix bug 5454700 Rem sourghos 06/07/06 - remove package body due to new guidelines Rem sourghos 06/06/06 - Add right error numbers Rem sourghos 04/10/06 - Created Rem CREATE OR REPLACE LIBRARY dbms_wlm_lib trusted is static; / CREATE OR REPLACE TYPE WLM_CAPABILITY_OBJECT FORCE as OBJECT ( capability VARCHAR2(30), value VARCHAR2(30) ); / CREATE OR REPLACE TYPE WLM_CAPABILITY_ARRAY as VARRAY(50) of WLM_CAPABILITY_OBJECT; / CREATE OR REPLACE PACKAGE dbms_wlm as procedure create_wlmplan (num_classifiers IN number); procedure add_wlmclassifiers (num_clsfrs IN number, clsfrs IN varchar2, order_seq IN number default null); procedure submit_wlmplan; procedure submit_wlmpcs (num_pcs IN number, pcs IN varchar2); procedure delete_wlmplan; procedure abort_wlmplan; procedure check_wlmplan; function check_rm_plan (inst_name IN varchar2) return number; procedure get_cpu_count (cpu_physical out number, cpu_count out number); procedure set_cpu_count (cpu_physical out number, cpu_count out number, cpu_count_value in number); function get_capabilities (cap_version out number) return WLM_CAPABILITY_ARRAY; ------------- -- CONSTANTS -- -- Constants for use in calling arguments. ------------------------- -- ERRORS AND EXCEPTIONS -- -- When adding errors remember to add a corresponding exception below. err_null_num_classifiers constant number := -44800; err_null_wlm_classifiers constant number := -44801; err_no_new_cls_list constant number := -44802; err_plan_in_transition constant number := -44803; err_plan_not_created constant number := -44804; err_no_classifier constant number := -44805; err_extra_classifiers constant number := -44806; err_large_pcname constant number := -44807; err_large_wrcname constant number := -44808; err_no_expr_for_classifier constant number := -44809; err_no_param_for_expr constant number := -44810; err_large_service_name constant number := -44811; err_large_module_name constant number := -44812; err_large_action_name constant number := -44813; err_large_prog_name constant number := -44814; err_large_user_name constant number := -44815; err_zero_pcs constant number := -44816; err_large_list constant number := -44817; err_general_failure constant number := -44818; err_no_enq constant number := -44819; err_zero_wcs constant number := -44820; err_lrg_cls constant number := -44821; err_rm_plan_not_created constant number := -44822; err_rm_plan_not_inuse constant number := -44823; err_rm_is_off constant number := -44824; err_plan_unmatched constant number := -44825; err_extra_pcs constant number := -44826; err_lrg_pcs constant number := -44827; null_num_classifiers EXCEPTION; PRAGMA EXCEPTION_INIT(null_num_classifiers, -44800); null_wlm_classifiers EXCEPTION; PRAGMA EXCEPTION_INIT(null_wlm_classifiers, -44801); no_new_cls_list EXCEPTION; PRAGMA EXCEPTION_INIT(no_new_cls_list, -44802); plan_in_transition EXCEPTION; PRAGMA EXCEPTION_INIT(plan_in_transition, -44803); plan_not_created EXCEPTION; PRAGMA EXCEPTION_INIT(plan_not_created, -44804); no_classifier EXCEPTION; PRAGMA EXCEPTION_INIT(no_classifier, -44805); extra_classifiers EXCEPTION; PRAGMA EXCEPTION_INIT(extra_classifiers, -44806); large_pcname EXCEPTION; PRAGMA EXCEPTION_INIT(large_pcname, -44807); large_wrcname EXCEPTION; PRAGMA EXCEPTION_INIT(large_wrcname, -44808); no_expr_for_classifier EXCEPTION; PRAGMA EXCEPTION_INIT(no_expr_for_classifier, -44809); no_param_for_expr EXCEPTION; PRAGMA EXCEPTION_INIT(no_param_for_expr, -44810); large_service_name EXCEPTION; PRAGMA EXCEPTION_INIT(large_service_name, -44811); large_module_name EXCEPTION; PRAGMA EXCEPTION_INIT(large_module_name, -44812); large_action_name EXCEPTION; PRAGMA EXCEPTION_INIT(large_action_name, -44813); large_prog_name EXCEPTION; PRAGMA EXCEPTION_INIT(large_prog_name, -44814); large_user_name EXCEPTION; PRAGMA EXCEPTION_INIT(large_user_name, -44815); zero_pcs EXCEPTION; PRAGMA EXCEPTION_INIT(zero_pcs, -44816); large_list EXCEPTION; PRAGMA EXCEPTION_INIT(large_list, -44817); general_failure EXCEPTION; PRAGMA EXCEPTION_INIT(general_failure, -44818); no_enq EXCEPTION; PRAGMA EXCEPTION_INIT(no_enq, -44819); zero_wcs EXCEPTION; PRAGMA EXCEPTION_INIT(zero_wcs, -44820); lrg_cls EXCEPTION; PRAGMA EXCEPTION_INIT(lrg_cls, -44821); rm_plan_not_created EXCEPTION; PRAGMA EXCEPTION_INIT(rm_plan_not_created, -44822); rm_plan_not_inuse EXCEPTION; PRAGMA EXCEPTION_INIT(rm_plan_not_inuse, -44823); rm_is_off EXCEPTION; PRAGMA EXCEPTION_INIT(rm_is_off, -44824); plan_unmatched EXCEPTION; PRAGMA EXCEPTION_INIT(plan_unmatched, -44825); extra_pcs EXCEPTION; PRAGMA EXCEPTION_INIT(extra_pcs, -44826); lrg_pcs EXCEPTION; PRAGMA EXCEPTION_INIT(lrg_pcs, -44827); end dbms_wlm; / create or replace public synonym dbms_wlm for dbms_wlm / --------------------------------- -- -- Grant only to DBA role -- grant execute on dbms_wlm to dba / create or replace public synonym WLM_CAPABILITY_OBJECT for WLM_CAPABILITY_OBJECT; / create or replace public synonym WLM_CAPABILITY_ARRAY for WLM_CAPABILITY_ARRAY; /