saa内部解析：PACKAGE BODY dbms_advisor
PACKAGE BODY dbms_advisor
IS
PROCEDURE CANCEL_TASK (TASK_NAME IN VARCHAR2)
IS
BEGIN
CHECK_PRIVS;
PRVT_ADVISOR.CANCEL_TASK(TASK_NAME);
RETURN;
END CANCEL_TASK;
PROCEDURE CREATE_TASK (ADVISOR_NAME IN VARCHAR2,
TASK_NAME IN VARCHAR2,
TASK_DESC IN VARCHAR2,
TEMPLATE IN VARCHAR2,
IS_TEMPLATE IN VARCHAR2,
HOW_CREATED IN VARCHAR2)
IS
BEGIN
CHECK_PRIVS;
PRVT_ADVISOR.CHECK_TASK_ENABLED(TASK_NAME, ADVISOR_NAME, TRUE);
PRVT_ADVISOR.CREATE_TASK (ADVISOR_NAME,
TASK_NAME,
TASK_DESC,
TEMPLATE,
IS_TEMPLATE,
PRVT_ADVISOR.TASK_PROP_TASK,
HOW_CREATED);
RETURN;
END CREATE_TASK;
PROCEDURE CREATE_TASK (ADVISOR_NAME IN VARCHAR2,
TASK_ID OUT NUMBER,
TASK_NAME IN OUT VARCHAR2,
TASK_DESC IN VARCHAR2,
TEMPLATE IN VARCHAR2,
IS_TEMPLATE IN VARCHAR2,
HOW_CREATED IN VARCHAR2)
IS
BEGIN
CHECK_PRIVS;
PRVT_ADVISOR.CHECK_TASK_ENABLED(TASK_NAME, ADVISOR_NAME, TRUE);
PRVT_ADVISOR.CREATE_TASK (ADVISOR_NAME,
TASK_ID,
TASK_NAME,
TASK_DESC,
TEMPLATE,
IS_TEMPLATE,
PRVT_ADVISOR.TASK_PROP_TASK,
HOW_CREATED);
RETURN;
END CREATE_TASK;
PROCEDURE CREATE_TASK (PARENT_TASK_NAME IN VARCHAR2,
REC_ID IN NUMBER,
TASK_ID OUT NUMBER,
TASK_NAME IN OUT VARCHAR2,
TASK_DESC IN VARCHAR2,
TEMPLATE IN VARCHAR2)
IS
BEGIN
CHECK_PRIVS;
PRVT_ADVISOR.CHECK_TASK_ENABLED(PARENT_TASK_NAME);
PRVT_ADVISOR.CREATE_TASK (PARENT_TASK_NAME,
REC_ID,
TASK_ID,
TASK_NAME,
TASK_DESC,
TEMPLATE,
PRVT_ADVISOR.TASK_PROP_TASK);
RETURN;
END CREATE_TASK;
PROCEDURE DELETE_TASK (TASK_NAME IN VARCHAR2)
IS
BEGIN
CHECK_PRIVS;
PRVT_ADVISOR.DELETE_TASK(TASK_NAME, PRVT_ADVISOR.TASK_PROP_TASK);
RETURN;
END DELETE_TASK;
PROCEDURE EXECUTE_TASK(TASK_NAME IN VARCHAR2)
IS
EXEC_NAME VARCHAR2(30);
BEGIN
PRVT_ADVISOR.CHECK_TASK_ENABLED(TASK_NAME);
EXEC_NAME := EXECUTE_TASK(TASK_NAME);
EXCEPTION
WHEN OTHERS THEN
RAISE;
END EXECUTE_TASK;
FUNCTION EXECUTE_TASK(
TASK_NAME IN VARCHAR2,
EXECUTION_TYPE IN VARCHAR2 := NULL,
EXECUTION_NAME IN VARCHAR2 := NULL,
EXECUTION_DESC IN VARCHAR2 := NULL,
EXECUTION_PARAMS IN ARGLIST := NULL)
RETURN VARCHAR2
IS
BEGIN
CHECK_PRIVS;
PRVT_ADVISOR.CHECK_TASK_ENABLED(TASK_NAME);
RETURN PRVT_ADVISOR.COMMON_EXECUTE_TASK(TASK_NAME,
PRVT_ADVISOR.TASK_EXECUTE,
EXECUTION_TYPE, EXECUTION_NAME,
EXECUTION_DESC,
EXECUTION_PARAMS);
END EXECUTE_TASK;
PROCEDURE INTERRUPT_TASK (TASK_NAME IN VARCHAR2)
IS
BEGIN
CHECK_PRIVS;
PRVT_ADVISOR.INTERRUPT_TASK(TASK_NAME);
RETURN;
END INTERRUPT_TASK;
PROCEDURE MARK_RECOMMENDATION (TASK_NAME IN VARCHAR2,
ID IN NUMBER,
ACTION IN VARCHAR2)
IS
BEGIN
CHECK_PRIVS;
PRVT_ADVISOR.MARK_RECOMMENDATION(TASK_NAME, ID, ACTION);
RETURN;
END MARK_RECOMMENDATION;
PROCEDURE RESET_TASK (TASK_NAME IN VARCHAR2)
IS
BEGIN
CHECK_PRIVS;
PRVT_ADVISOR.RESET_TASK(TASK_NAME, PRVT_ADVISOR.TASK_PROP_TASK);
RETURN;
END RESET_TASK;
PROCEDURE RESUME_TASK(TASK_NAME IN VARCHAR2)
IS
EXEC_NAME VARCHAR2(30);
BEGIN
CHECK_PRIVS;
PRVT_ADVISOR.CHECK_TASK_ENABLED(TASK_NAME);
EXEC_NAME := PRVT_ADVISOR.COMMON_EXECUTE_TASK(TASK_NAME,
PRVT_ADVISOR.TASK_RESUME);
END RESUME_TASK;
PROCEDURE SET_TASK_PARAMETER (TASK_NAME IN VARCHAR2,
PARAMETER IN VARCHAR2,
VALUE IN VARCHAR2)
IS
BEGIN
CHECK_PRIVS;
PRVT_ADVISOR.SET_TASK_PARAMETER(TASK_NAME,
PARAMETER,
VALUE,
PRVT_ADVISOR.TASK_PROP_TASK);
RETURN;
END SET_TASK_PARAMETER;
PROCEDURE SET_TASK_PARAMETER (TASK_NAME IN VARCHAR2,
PARAMETER IN VARCHAR2,
VALUE IN NUMBER)
IS
BEGIN
CHECK_PRIVS;
PRVT_ADVISOR.SET_TASK_PARAMETER(TASK_NAME,
PARAMETER,
VALUE,
PRVT_ADVISOR.TASK_PROP_TASK);
RETURN;
END SET_TASK_PARAMETER;
PROCEDURE SET_DEFAULT_TASK_PARAMETER (ADVISOR_NAME IN VARCHAR2,
PARAMETER IN VARCHAR2,
VALUE IN VARCHAR2)
IS
BEGIN
CHECK_PRIVS;
PRVT_ADVISOR.SET_DEFAULT_TASK_PARAMETER(ADVISOR_NAME,
PARAMETER, VALUE);
RETURN;
END SET_DEFAULT_TASK_PARAMETER;
PROCEDURE SET_DEFAULT_TASK_PARAMETER (ADVISOR_NAME IN VARCHAR2,
PARAMETER IN VARCHAR2,
VALUE IN NUMBER)
IS
BEGIN
CHECK_PRIVS;
PRVT_ADVISOR.SET_DEFAULT_TASK_PARAMETER(ADVISOR_NAME,
PARAMETER, VALUE);
RETURN;
END SET_DEFAULT_TASK_PARAMETER;
PROCEDURE CREATE_OBJECT(TASK_NAME IN VARCHAR2 ,
OBJECT_TYPE IN VARCHAR2 ,
ATTR1 IN VARCHAR2 := NULL,
ATTR2 IN VARCHAR2 := NULL,
ATTR3 IN VARCHAR2 := NULL,
ATTR4 IN CLOB := NULL,
ATTR5 IN VARCHAR2 := NULL,
OBJECT_ID OUT NUMBER)
IS
BEGIN
CHECK_PRIVS;
PRVT_ADVISOR.CREATE_OBJECT(TASK_NAME,
OBJECT_TYPE,
ATTR1,
ATTR2,
ATTR3,
ATTR4,
ATTR5,
OBJECT_ID,
NULL,
NULL,
NULL);
RETURN;
END CREATE_OBJECT;
PROCEDURE CREATE_OBJECT(TASK_NAME IN VARCHAR2 ,
OBJECT_TYPE IN VARCHAR2 ,
ATTR1 IN VARCHAR2 := NULL,
ATTR2 IN VARCHAR2 := NULL,
ATTR3 IN VARCHAR2 := NULL,
ATTR4 IN CLOB := NULL,
OBJECT_ID OUT NUMBER)
IS
BEGIN
CHECK_PRIVS;
PRVT_ADVISOR.CREATE_OBJECT(TASK_NAME,
OBJECT_TYPE,
ATTR1,
ATTR2,
ATTR3,
ATTR4,
NULL,
OBJECT_ID,
NULL,
NULL,
NULL);
RETURN;
END CREATE_OBJECT;
PROCEDURE UPDATE_OBJECT(TASK_NAME IN VARCHAR2 ,
OBJECT_ID IN NUMBER ,
ATTR1 IN VARCHAR2 := NULL,
ATTR2 IN VARCHAR2 := NULL,
ATTR3 IN VARCHAR2 := NULL,
ATTR4 IN CLOB := NULL,
ATTR5 IN VARCHAR2 := NULL)
IS
BEGIN
CHECK_PRIVS;
PRVT_ADVISOR.UPDATE_OBJECT(TASK_NAME,
OBJECT_ID,
ATTR1,
ATTR2,
ATTR3,
ATTR4,
ATTR5);
RETURN;
END UPDATE_OBJECT;
PROCEDURE CREATE_FILE (BUFFER IN CLOB,
LOCATION IN VARCHAR2,
FILENAME IN VARCHAR2)
IS
BEGIN
CHECK_PRIVS;
PRVT_ADVISOR.CREATE_FILE (BUFFER, LOCATION, FILENAME);
RETURN;
END CREATE_FILE;
FUNCTION GET_TASK_REPORT (TASK_NAME IN VARCHAR2,
TYPE IN VARCHAR2,
LEVEL IN VARCHAR2,
SECTION IN VARCHAR2,
OWNER_NAME IN VARCHAR2 := NULL,
EXECUTION_NAME IN VARCHAR2 := NULL,
OBJECT_ID IN NUMBER := NULL)
RETURN CLOB
IS
BEGIN
CHECK_READ_PRIVS(OWNER_NAME);
PRVT_ADVISOR.CHECK_TASK_ENABLED(TASK_NAME);
RETURN PRVT_ADVISOR.GET_TASK_REPORT(TASK_NAME,
TYPE,
LEVEL,
SECTION,
OWNER_NAME,
EXECUTION_NAME,
OBJECT_ID);
END GET_TASK_REPORT;
FUNCTION GET_TASK_SCRIPT (TASK_NAME IN VARCHAR2,
TYPE IN VARCHAR2,
REC_ID IN NUMBER,
ACT_ID IN NUMBER,
OWNER_NAME IN VARCHAR2 := NULL,
EXECUTION_NAME IN VARCHAR2 := NULL,
OBJECT_ID IN NUMBER := NULL)
RETURN CLOB
IS
BEGIN
CHECK_PRIVS;
CHECK_READ_PRIVS(OWNER_NAME);
PRVT_ADVISOR.CHECK_TASK_ENABLED(TASK_NAME);
RETURN PRVT_ADVISOR.GET_TASK_SCRIPT(TASK_NAME,
TYPE,
REC_ID,
ACT_ID,
OWNER_NAME,
EXECUTION_NAME,
OBJECT_ID);
END GET_TASK_SCRIPT;
PROCEDURE IMPLEMENT_TASK (TASK_NAME IN VARCHAR2,
REC_ID IN NUMBER,
EXIT_ON_ERROR IN BOOLEAN)
IS
BEGIN
CHECK_PRIVS;
PRVT_ADVISOR.CHECK_TASK_ENABLED(TASK_NAME);
PRVT_ADVISOR.IMPLEMENT_TASK(TASK_NAME,REC_ID,EXIT_ON_ERROR);
RETURN;
END IMPLEMENT_TASK;
PROCEDURE QUICK_TUNE (ADVISOR_NAME IN VARCHAR2,
TASK_NAME IN VARCHAR2,
ATTR1 IN CLOB,
ATTR2 IN VARCHAR2,
ATTR3 IN NUMBER,
TEMPLATE IN VARCHAR2,
IMPLEMENT IN BOOLEAN,
DESCRIPTION IN VARCHAR2)
IS
BEGIN
CHECK_PRIVS;
DBMS_MANAGEMENT_PACKS.CHECK_PACK_ENABLED(DBMS_MANAGEMENT_PACKS.TUNING_PACK);
PRVT_ADVISOR.QUICK_TUNE(ADVISOR_NAME,
TASK_NAME,
ATTR1,
ATTR2,
ATTR3,
TEMPLATE,
IMPLEMENT,
DESCRIPTION);
RETURN;
END QUICK_TUNE;
PROCEDURE TUNE_MVIEW (TASK_NAME IN OUT VARCHAR2,
MV_CREATE_STMT IN CLOB)
IS
BEGIN
CHECK_PRIVS;
PRVT_TUNE_MVIEW.TUNE_MVIEW(TASK_NAME, MV_CREATE_STMT);
RETURN;
END TUNE_MVIEW;
PROCEDURE UPDATE_REC_ATTRIBUTES (TASK_NAME IN VARCHAR2,
REC_ID IN NUMBER,
ACTION_ID IN NUMBER,
ATTRIBUTE_NAME IN VARCHAR2,
VALUE IN VARCHAR2)
IS
BEGIN
CHECK_PRIVS;
DBMS_MANAGEMENT_PACKS.CHECK_PACK_ENABLED(DBMS_MANAGEMENT_PACKS.TUNING_PACK);
PRVT_ADVISOR.UPDATE_REC_ATTRIBUTES (TASK_NAME,
REC_ID,
ACTION_ID,
ATTRIBUTE_NAME,
VALUE);
RETURN;
END UPDATE_REC_ATTRIBUTES;
PROCEDURE GET_REC_ATTRIBUTES (TASK_NAME IN VARCHAR2,
REC_ID IN NUMBER,
ACTION_ID IN NUMBER,
ATTRIBUTE_NAME IN VARCHAR2,
VALUE OUT VARCHAR2,
OWNER_NAME IN VARCHAR2)
IS
BEGIN
CHECK_PRIVS;
CHECK_READ_PRIVS(OWNER_NAME);
DBMS_MANAGEMENT_PACKS.CHECK_PACK_ENABLED(DBMS_MANAGEMENT_PACKS.TUNING_PACK);
PRVT_ADVISOR.GET_REC_ATTRIBUTES (TASK_NAME,
REC_ID,
ACTION_ID,
ATTRIBUTE_NAME,
VALUE,
OWNER_NAME);
RETURN;
END GET_REC_ATTRIBUTES;
PROCEDURE UPDATE_TASK_ATTRIBUTES (TASK_NAME IN VARCHAR2,
NEW_NAME IN VARCHAR2,
DESCRIPTION IN VARCHAR2,
READ_ONLY IN VARCHAR2,
IS_TEMPLATE IN VARCHAR2,
HOW_CREATED IN VARCHAR2)
IS
BEGIN
CHECK_PRIVS;
PRVT_ADVISOR.CHECK_TASK_ENABLED(TASK_NAME);
PRVT_ADVISOR.UPDATE_TASK_ATTRIBUTES (TASK_NAME,
NEW_NAME,
DESCRIPTION,
READ_ONLY,
IS_TEMPLATE,
HOW_CREATED,
PRVT_ADVISOR.TASK_PROP_TASK);
RETURN;
END UPDATE_TASK_ATTRIBUTES;
FUNCTION FORMAT_MESSAGE_GROUP(GROUP_ID IN NUMBER, MSG_TYPE IN NUMBER := 0)
RETURN VARCHAR2
IS
STR VARCHAR2(4000);
BEGIN
STR := PRVT_ADVISOR.FORMAT_MESSAGE_GROUP(GROUP_ID, MSG_TYPE);
RETURN STR;
END FORMAT_MESSAGE_GROUP;
FUNCTION FORMAT_MESSAGE(MSG_ID IN VARCHAR2)
RETURN VARCHAR2
IS
BEGIN
IF MSG_ID IS NULL OR MSG_ID = '' THEN
RETURN ('');
END IF;
RETURN PRVT_ADVISOR.FORMAT_MESSAGE(0, MSG_ID);
END FORMAT_MESSAGE;
PROCEDURE CHECK_PRIVS
IS
PRIV_CNT INTEGER;
L_USER VARCHAR2(30);
BEGIN
IF (NOT DBMS_SQLTUNE_UTIL2.CHECK_PRIV('ADVISOR')) THEN
SELECT USER INTO L_USER FROM DUAL;
DBMS_SYS_ERROR.RAISE_SYSTEM_ERROR(PRVT_ADVISOR.NO_PRIVS, L_USER);
END IF;
END CHECK_PRIVS;
PROCEDURE CHECK_READ_PRIVS(OWNER_NAME VARCHAR2)
IS
PRIV_CNT INTEGER := 1;
BEGIN
IF (OWNER_NAME IS NOT NULL AND
OWNER_NAME <> SYS_CONTEXT('USERENV', 'CURRENT_USER'))
THEN
SELECT COUNT(*) INTO PRIV_CNT
FROM SYS.DBA_ADVISOR_TASKS
WHERE OWNER = OWNER_NAME
AND ROWNUM = 1;
END IF;
EXCEPTION
WHEN OTHERS THEN
DBMS_SYS_ERROR.RAISE_SYSTEM_ERROR(PRVT_ADVISOR.NO_READ_PRIVS);
END CHECK_READ_PRIVS;
FUNCTION ACCESS_ADV_LOOKUP_STS_ID(STS_OWNER IN OUT VARCHAR2,
STS_NAME IN VARCHAR2)
RETURN BINARY_INTEGER
IS
CUR_USER VARCHAR2(30) := SYS_CONTEXT('USERENV', 'SESSION_USER');
ERR_NO_OWNER CONSTANT NUMBER := -13751;
TYPE CURTYPE IS REF CURSOR;
L_STS_NAME VARCHAR2(30);
STS_CUR CURTYPE;
L_ID BINARY_INTEGER;
BEGIN
IF STS_OWNER IS NULL OR LENGTH(STS_OWNER) = 0
THEN
STS_OWNER := CUR_USER;
END IF;
L_STS_NAME := TRIM(BOTH '"' FROM STS_NAME);
OPEN STS_CUR FOR
'SELECT id' ||
' FROM all_sqlset' ||
' WHERE name = :param1' ||
' AND owner = :param2'
USING L_STS_NAME, STS_OWNER;
L_ID := 0;
LOOP
FETCH STS_CUR INTO L_ID;
EXIT WHEN STS_CUR%NOTFOUND;
END LOOP;
CLOSE STS_CUR;
IF L_ID = 0
THEN
DBMS_SYS_ERROR.RAISE_SYSTEM_ERROR(ERR_NO_OWNER, L_STS_NAME,
STS_OWNER, CUR_USER);
END IF;
RETURN (L_ID);
END ACCESS_ADV_LOOKUP_STS_ID;
PROCEDURE SETUP_REPOSITORY
IS
L_NAME VARCHAR2(30);
L_VALUE VARCHAR2(4000);
L_HIDE NUMBER;
CURSOR HDM_CUR IS
SELECT NAME, VALUE, DECODE(BITAND(FLAGS, 1), 1, 0, 1) HIDE
FROM X$KEHRP
WHERE INDX > 0;
BEGIN
CHECK_PRIVS;
PRVT_ADVISOR.INSERT_ADV_DEFINITION (ADV_ID_DEFAULT,
ADV_NAME_DEFAULT,0,
WRI$_ADV_ABSTRACT_T(ADV_ID_DEFAULT));
PRVT_ADVISOR.INSERT_ADV_DEFINITION (ADV_ID_ADDM,
ADV_NAME_ADDM,1,
WRI$_ADV_HDM_T(ADV_ID_ADDM));
PRVT_ADVISOR.INSERT_ADV_DEFINITION (ADV_ID_SQLACCESS,
ADV_NAME_SQLACCESS,
PRVT_ADVISOR.ADV_PROP_COMPREHENSIVE +
PRVT_ADVISOR.ADV_PROP_LIMITED +
PRVT_ADVISOR.ADV_PROP_RESUMABLE +
PRVT_ADVISOR.ADV_PROP_DIRECTIVE +
PRVT_ADVISOR.ADV_PROP_GATHER_STATS,
WRI$_ADV_SQLACCESS_ADV(ADV_ID_SQLACCESS));
PRVT_ADVISOR.INSERT_ADV_DEFINITION (ADV_ID_UNDO,
ADV_NAME_UNDO,1,
WRI$_ADV_UNDO_ADV(ADV_ID_UNDO));
PRVT_ADVISOR.INSERT_ADV_DEFINITION (ADV_ID_SQLTUNE,
ADV_NAME_SQLTUNE,
PRVT_ADVISOR.ADV_PROP_COMPREHENSIVE +
PRVT_ADVISOR.ADV_PROP_LIMITED +
PRVT_ADVISOR.ADV_PROP_RESUMABLE +
PRVT_ADVISOR.ADV_PROP_MULTI_EXEC +
PRVT_ADVISOR.ADV_PROP_RESUME_FATALER +
PRVT_ADVISOR.ADV_PROP_GATHER_STATS +
PRVT_ADVISOR.ADV_PROP_MANUAL_REPT_FUSG,
WRI$_ADV_SQLTUNE(ADV_ID_SQLTUNE));
PRVT_ADVISOR.INSERT_ADV_DEFINITION (ADV_ID_SEGMENT,
ADV_NAME_SEGMENT,
PRVT_ADVISOR.ADV_PROP_COMPREHENSIVE +
PRVT_ADVISOR.ADV_PROP_LIMITED +
PRVT_ADVISOR.ADV_PROP_NO_USAGE_TRACK,
WRI$_ADV_OBJSPACE_TREND_T(ADV_ID_SEGMENT));
PRVT_ADVISOR.INSERT_ADV_DEFINITION (ADV_ID_SQLWM,
ADV_NAME_SQLWM, 0,
WRI$_ADV_WORKLOAD(ADV_ID_SQLWM));
PRVT_ADVISOR.INSERT_ADV_DEFINITION (ADV_ID_TUNEMV,
ADV_NAME_TUNEMV, 31,
WRI$_ADV_TUNEMVIEW_ADV(ADV_ID_TUNEMV));
PRVT_ADVISOR.INSERT_ADV_DEFINITION (ADV_ID_SQLPA,
ADV_NAME_SQLPA,
PRVT_ADVISOR.ADV_PROP_COMPREHENSIVE +
PRVT_ADVISOR.ADV_PROP_LIMITED +
PRVT_ADVISOR.ADV_PROP_RESUMABLE +
PRVT_ADVISOR.ADV_PROP_MULTI_EXEC +
PRVT_ADVISOR.ADV_PROP_RESUME_FATALER +
PRVT_ADVISOR.ADV_PROP_GATHER_STATS +
PRVT_ADVISOR.ADV_PROP_MANUAL_REPT_FUSG,
WRI$_ADV_SQLPI(ADV_ID_SQLPA));
PRVT_ADVISOR.INSERT_ADV_DEFINITION (ADV_ID_SQLREPAIR,
ADV_NAME_SQLREPAIR,
PRVT_ADVISOR.ADV_PROP_COMPREHENSIVE +
PRVT_ADVISOR.ADV_PROP_LIMITED +
PRVT_ADVISOR.ADV_PROP_RESUMABLE +
PRVT_ADVISOR.ADV_PROP_MULTI_EXEC +
PRVT_ADVISOR.ADV_PROP_RESUME_FATALER +
PRVT_ADVISOR.ADV_PROP_