--1 创建每个索引分区依存的表空间declare v_ts varchar2(40); v_indts varchar2(40); v_mxtabts varchar2(40); --明细数据表空间 v_mxindts varchar2(40); --明细索引表空间 t_mon date; --把传入值 转换为 日期 传入格式：201609 t_mon1 varchar2(2000); t_qssj date; --把传入起始时间 转换为 日期 格式：201609 t_zzsj date; --把传入终止时间 转换为 日期 格式：201609 c_thismonth char(4); --取出当前月 c_nextmonth char(4); --取出下个月 v_sql varchar2(2000); --要执行的sql语句 c_str01 varchar2(2000); c_str02 varchar2(2000); begin dbms_output.put_line('First is starting'); t_qssj := to_date('&qssj', 'yyyymm'); --传入参数 起始时间 01-8 月 -16 t_zzsj := to_date('&zzsj', 'yyyymm'); --插入参数 终止时间 01-9 月 -16 if to_char(t_qssj, 'yyyymm') <> '&qssj' --判断传入的 起始时间、终止时间是否合法 or to_char(t_zzsj, 'yyyymm') <> '&zzsj' then dbms_output.put_line('----------------------------------------'); dbms_output.put_line('错误： 输入的月份格式必须为''YYYYMM'''); end if; --if t_qssj <= trunc(sysdate,'mm') then -- dbms_output.put_line('----------------------------------------'); -- dbms_output.put_line('错误： 起始月必须大于当前月份'); -- goto endproc; --end if; if '&zzsj' < '&qssj' then --如果插入的 终止时间 小于 起始时间 ，退出 dbms_output.put_line('----------------------------------------'); dbms_output.put_line('错误： 终止月必须大于起始月'); end if; t_mon := to_date('&qssj', 'yyyymm'); --把传入值 转换为 日期 输出格式：01-8月 -16 dbms_output.put_line('t_mon is ' || t_mon); c_nextmonth := to_char(t_mon, 'yymm'); --转换的日期 转换为字符串 输出格式：01-8月 -16 dbms_output.put_line('c_nextmonth is ' || c_nextmonth); loop c_thismonth := c_nextmonth; --取出 当前月份 输出格式：1608 char dbms_output.put_line('c_thismonth is ' || c_thismonth); t_mon := add_months(t_mon, 1); --传入值递增一个月 输出格式：01-9月 -16 t_mon1:=to_char(t_mon,'yyyy-mm-dd hh24:mi:ss'); dbms_output.put_line('t_mon is ' || t_mon); dbms_output.put_line('t_mon1 is '||to_char(t_mon,'yyyy-mm-dd hh24:mi:ss')); c_nextmonth := to_char(t_mon, 'yymm'); --取出递增一个月后的字符串 输出格式：1608 字符串 dbms_output.put_line('c_nextmonth is ' || c_nextmonth); -- 明细表空间名 v_mxtabts := 'lvsksk_t_m_' || c_thismonth; --拼接明细表空间名 如：lvsksk_t_m_1608 dbms_output.put_line('v_mxtabts is ' || v_mxtabts); -- 明细索引空间名 v_mxindts := 'lvsksk_i_m_' || c_thismonth; --拼接明细索引表空间名 如： lvsksk_i_m_1608 dbms_output.put_line('v_mxindts is ' || v_mxindts); -- c_str02:=c_str02||'partition p'||c_thismonth ||' values less than ('||t_mon||') tablespace ' ||v_mxindts||','||chr(10) ; c_str02:=c_str02||'partition p'||c_thismonth ||' values less than (TO_DATE('||''''||t_mon1||''''||', ''SYYYY-MM-DD HH24:MI:SS'', ''NLS_CALENDAR=GREGORIAN'')) tablespace ' ||v_mxindts||','||chr(10) ; exit when to_char(t_mon, 'yyyymm') > '&zzsj'; end loop; c_str01:='create index dzfpmx01_index_jssj on JS_SKSKJDK_DZFPMX01(JSSJ) globalpartition by range(jssj)('||c_str02||'partition p_default values less than (maxvalue) tablespace users)';-- dbms_output.put_line('c_str01 is '||chr(10)||c_str01||');' execute immediate c_str01; exception when others then dbms_output.put_line(sqlerrm); end; /*First is startingt_mon is 01-1月 -01c_nextmonth is 0101c_thismonth is 0101t_mon is 01-2月 -01t_mon1 is 3001-02-01 00:00:00c_nextmonth is 0102v_mxtabts is lvsksk_t_m_0101v_mxindts is lvsksk_i_m_0101c_thismonth is 0102t_mon is 01-3月 -01t_mon1 is 3001-03-01 00:00:00c_nextmonth is 0103v_mxtabts is lvsksk_t_m_0102v_mxindts is lvsksk_i_m_0102c_thismonth is 0103t_mon is 01-4月 -01t_mon1 is 3001-04-01 00:00:00c_nextmonth is 0104v_mxtabts is lvsksk_t_m_0103v_mxindts is lvsksk_i_m_0103c_thismonth is 0104t_mon is 01-5月 -01t_mon1 is 3001-05-01 00:00:00c_nextmonth is 0105v_mxtabts is lvsksk_t_m_0104v_mxindts is lvsksk_i_m_0104c_thismonth is 0105t_mon is 01-6月 -01t_mon1 is 3001-06-01 00:00:00c_nextmonth is 0106v_mxtabts is lvsksk_t_m_0105v_mxindts is lvsksk_i_m_0105ORA-00955: 名称已由现有对象使用*/
转载于:https://www.cnblogs.com/iyoume2008/p/9174805.html
