---------------------------------------------------
--Step2: 初始加载当前数据库中的SQL.
---------------------------------------------------

DECLARE
      STSCUR DBMS_SQLTUNE.SQLSET_CURSOR;
    BEGIN
      OPEN STSCUR FOR
        SELECT VALUE(P)
          FROM TABLE(DBMS_SQLTUNE.SELECT_CURSOR_CACHE('PARSING_SCHEMA_NAME <> ''SYS''')) P;
      -- POPULATE THE SQLSET
      DBMS_SQLTUNE.LOAD_SQLSET(SQLSET_NAME=>'STS_NAME',
              POPULATE_CURSOR=>STSCUR,
              SQLSET_OWNER => 'DBMGR');
    END;
/

---------------------------------------------------
--Step3: 增量抓取数据库中的SQL, 会连续抓取7天,每小时抓取一次
---------------------------------------------------
BEGIN
 DBMS_SQLTUNE.CAPTURE_CURSOR_CACHE_SQLSET(SQLSET_NAME=>'STS_NAME',
  TIME_LIMIT=>604800,
  REPEAT_INTERVAL=>3600,
  CAPTURE_OPTION=>'MERGE',
  CAPTURE_MODE =>DBMS_SQLTUNE.MODE_ACCUMULATE_STATS,
  BASIC_FILTER=> 'PARSING_SCHEMA_NAME<>''SYS''',
  SQLSET_OWNER => 'DBMGR');
END;
/

------------------------------------------------------
以下步骤要在增量抓取结束后执行,本次不要执行

---------------------------------------------------
--Step4: 增量抓取数据库中的SQL, 会连续抓取7天,每小时抓取一次
---------------------------------------------------

--EXEC DBMS_SQLTUNE.CREATE_STGTAB_SQLSET('STAGE_SQLSET','DBMGR');

--EXEC DBMS_SQLTUNE.PACK_STGTAB_SQLSET ('STS_NAME','DBMGR','STAGE_SQLSET','DBMGR');