form的历史记录问题

REP-3000: 启动 Oracle Toolkit 时发生内部错误.

在服务器的本地机器上执行 xhost + 命令，或者通过VNC的方式，方法如下：

如果要修改DISPLAY参数，请按照下面的方法：

1、使用oratest用户登陆服务器，加载应用环境变量
. /secom/testerp/testappl/APPSORA.env
2、停止应用环境
3、修改$CONTEXT_FILE
vi $CONTEXT_FILE
修改358行
standbyerp:0.0
为
standbyerp:1.0
4、执行autoconfig
cd $COMMON_TOP/admin/scripts/TESTP_standbyerp
adautocfg.sh
5、启动应用环境
6、在vnc窗口执行xhost +

怎么查看ebs里面的请求运行时间

Oracle动态性能视图学习之v$sqltext & v$sqlarea

LINUX 自动执行脚本的命令配置

在root或别的用户下执行 crontab -l 如果没结果反馈，说明没配置好crontab

root执行：
crontab -e
编译的方式和vi一样。
增加这条记录 50 16 * * 1-6 /secom/plan.sh
然后保存退出（命令和vi一样）

RAC 实例不能启动 ORA-1589 signalled during ALTER DATABASE OPEN

今天启动RAC 做实验，发现RAC 实例怎么启动不了。

 查看全文

sessions,processes的监控方法

一个连接可能产生多个sessions，一个sessions可能产生多个processes，同样，一个processes可能对应多个sessions；Oracle的sessions和processes的数量关系大概是：sessions=1.1 * processes + 5

可以用一下sql做监控select * from v$resource_limit；

该视图的字段含义如下：

statspack摘录

以下内容均在window Xp，oracle9.2.0.1下测试，在linux/unix下路径""要换成"/"
　　 1.Statspack的安装

　　sqlplus /nolog
　　conn / as sysdba

oracle 数据库里查看表空间使用状况；

ORACLE 命令的应用

discover中的workbook存储在哪个表中

oracle rollup,cube子句的应用举例；

rollup,cube子句在ORACLE中可以用来做交叉报表，如：如总计，小计类的功能很容易实现；但是必须和group by 子句一起使用。举例如下：

GOTO语句在PL/SQL中的应用

SQLSERVER中实现返回汉字笔画数的函数;

SQL　SERVER的排序规则平时使用不是很多，也许不少初学者还比较陌生，但有一个错误大家应是经常碰到: SQL SERVER数据库，在跨库多表连接查询时，若两数据库默认字符集不同，系统就会返回这样的错误：

“无法解决 equal to 操作的排序规则冲突。”

 查看全文

详解:数据库名、实例名、服务名等

详解:数据库名、实例名、ORACLE_SID、数据库域名、全局数据库名、服务名
----------------------------------------------------

数据库名、实例名、数据库域名、全局数据库名、服务名 ，这是几个令很多初学者容易混淆的概念。相信很多初学者都与我一样被标题上这些个概念搞得一头雾水。我们现在就来把它们弄个明白。

oracle系统表查询

数据字典dict总是属于Oracle用户sys的。 　　

1、用户： 　　　

select username from dba_users; 　　

改口令 alter user spgroup identified by spgtest; 　　

2、表空间： 　　　

select * from dba_data_files; 　　

select * from dba_tablespaces;//表空间

select tablespace_name,sum(bytes), sum(blocks) 　　

from dba_free_space

group by tablespace_name;//空闲表空间

Oracle 表级的快速恢复(实习)

Oracle 表级的快速恢复(实习)

1:查询日志记录:

Select * From v$log_history a

Order By a.SEQUENCE# Desc

或者

Select * From v$loghist a

Order By a.SEQUENCE# Desc

其中SEQUENCE#字段就是日志文件的序列号

ORACLE 数组在过程中的应用

ORACLE 数组在存储过程中的应用,现在举实例如下:

首先要初始化数组变量,然后对其分配存储数量.......

ORACLE 树形查询(connect by...start with...)的应用(二)

该篇文章承接上篇:ORACLE 树形查询(connect by...start with...)的应用(一)

做进一步的介绍:如下文:显示一个节点的数据.............

oracle高级队列在通信方面的应用设计(AQ高级队列设计说明一)

oracle高级队列在通信方面的应用设计

---AQ高级队列设计说明

关键字：队列，接口，性能

1 前言

一般系统的应用可以分为：立即要执行和可以延迟要执行的事情，区分这个很重要。

为了提高系统的性能，缩短系统等待时间，引入队列技术。

队列是一种能将应用程序的处理工作有效地划分为前台任务和后台任务的技术。当处理容量允许时，这种技术通过存储消息、确定消息处理的优先顺序和向应用程序提交消息来发挥作用。它使你能够平衡本地计算机的负荷，或将任务分配到远程计算机。

为了减少用户的等待时间，应用程序可以让说明需要后台处理的消息排入队列。然后就可以从页面的呈递过程中去掉该处理任务。由一个后台进程来读取并队列处理这些消息，或者甚至可以交由一个单独的系统来处理它们。

队列可以实现各个系统之间的数据共享，消息通信。

2 功能概述

书写本文的目的：利用oracle高级队列实现pl/sql代码，为其它语言实现高级队列的功能作接口。

Oracle高级队列有一下好处：

1 高级队列管理是Oracle数据库的一个特性，它提供消息队列管理功能。这是一个非常可靠、安全和可伸缩的消息管理系统，因为它使用与其他基于Oracle技术的应用程序相同的数据库特性。

2 高级队列管理的一个很大优点是它可以通过PL/SQL、Java或C来访问，这样你就可以把来自一个Java servlet的消息入队列和使PL/SQL存储过程中的相同消息出队列。

3高级队列管理的另一个优点是你可以利用这一软件通过Oracle Net Services (SQL*Net)、HTTP(S)和SMTP，在远程节点之间传播消息。高级队列甚至可以通过消息网关与非Oracle的消息管理系统（如IBM MQSeries）相集成。

4 Oracle高级队列管理提供了单消费者队列和多消费者队列。单消费者队列只面向单一的接收者。多消费者队列可以被多个接收者使用。当把消息放入多消费者队列时，应用程序的程序员必须显式地在消息属性中指定这些接收者，或者建立决定每条消息的接收者的基于规则的订阅过程。

队列的开发主要有：队列的管理和队列的操作。

具体开发步骤如下：

1 首先确定应用的需求，是否适合使用高级队列？使用高级队列预计提高性能的预期值

2确定队列包体结构。

3 队列管理。

4 队列操作。

2 确定队列包体结构

底层消息的通信oracle已经实现，并且封装了，现在需要执行消息包体的结构，消息的发送和消息接收要通过一定的消息结构完成。

现在以短信push为例子，完成高级队列在短信push的应用。

安装好oracle数据库后，对smpuser授权

Grant aq_administrator_role To smpuser;

注意:需要把dbms_aq and dbms_aq_admin 包的调用功能权限付给smpuser.

CREATE OR REPLACE Type mt_struc As Object

/*

功能:push 的mt结构,和T_OUTBOX_PUSH结构一致

日期:2006-09-20

write by hancy

*/

(

OP_ID NUMBER ,

DEST_MOBILENO VARCHAR2(32) ,

FEE_MOBILENO VARCHAR2(32) ,

LONG_NO VARCHAR2(21) ,

MT_CONTENT VARCHAR2(500),

SERVICE_ID VARCHAR2(10) ,

MT_FLAG NUMBER(1) ,

MSG_FMT NUMBER(1) ,

FEE_TYPE NUMBER(1) ,

FEE_VALUE NUMBER(4) ,

BEG_REPORT NUMBER(1) ,

CLIENT_ID NUMBER(4) ,

CLIENT_NAME VARCHAR2(10) ,

MT_TIME DATE ,

MT_ID VARCHAR2(40) ,

PLAN_ID NUMBER ,

PUSH_TYPE VARCHAR2(20) ,

SEND_DATE DATE

)

4 队列管理

4.1建立队列表

队列表是队列的集合,代码如下：

创建下行和上行队列表：

exec dbms_aqadm.create_queue_table(queue_table=>'sms_mt_tab', queue_payload_type=>'mt_struc');

默认：只有一个接收者

具体参数如下：

SQL> desc dbms_aqadm.create_queue_table

Parameter Type Mode Default?

------------------ -------------- ---- --------

QUEUE_TABLE VARCHAR2 IN

QUEUE_PAYLOAD_TYPE VARCHAR2 IN

STORAGE_CLAUSE VARCHAR2 IN Y

SORT_LIST VARCHAR2 IN Y

MULTIPLE_CONSUMERS BOOLEAN IN Y

MESSAGE_GROUPING BINARY_INTEGER IN Y

COMMENT VARCHAR2 IN Y

AUTO_COMMIT BOOLEAN IN Y

PRIMARY_INSTANCE BINARY_INTEGER IN Y

SECONDARY_INSTANCE BINARY_INTEGER IN Y

COMPATIBLE VARCHAR2 IN Y

NON_REPUDIATION BINARY_INTEGER IN Y

SECURE BOOLEAN IN Y

参考dbms_aqadm.create_queue_table
1．存储参数storage_clause 可以是 MAXTRANS,LOB等
2．sort_list 可以是PRIORITY,enq_time这2个参数或者其中一个。具体可以察看对应的 队列表的数据结构。例如下面的例子
--创建队列表，‘sms_aq_tab’ 队列表名，' sms_aq_tab '队列对象名（充当消息体的对象名称），以下同
dbms_aqadm.create_queue_table('WDZAQTABLE','WDZAQMSG');
--创建具有排序功能的队列表
dbms_aqadm.create_queue_table('WDZSQRTAQTABLE','WDZAQMSG',sort_list => 'PRIORITY,enq_time');
3。消息分组参数 message_grouping 可以是 NONE,或 TRANSACTIONAL
-- message grouping
dbms_aqadm.TRANSACTIONAL CONSTANT BINARY_INTEGER := 1;
dbms_aqadm.NONE CONSTANT BINARY_INTEGER := 0;后者表示一个与事务相关的消息分成1组，在提取消息的时候可以当成一组相关消息来提取。例如：
--创建带带分组功能的消息队列表
dbms_aqadm.create_queue_table('WDZGROUPAQTABLE','WDZAQMSG',
sort_list => 'PRIORITY,enq_time',
message_grouping =>dbms_aqadm.TRANSACTIONAL/*dbms_aqadm.NONE*/ );
4．multiple_consumers表示消息接受者是否为多个用户。默认是只有1个接收者。如果要多个用户可以接受消息，需要设置=true
--创建多个接收者的消息队列表
dbms_aqadm.create_queue_table('WDZMUTIAQTABLE','WDZAQMSG',sort_list => 'PRIORITY,enq_time',
message_grouping =>dbms_aqadm.TRANSACTIONAL/*dbms_aqadm.NONE*/
,multiple_consumers => true);

4.2删除队列表

Exec dbms_aqadm.drop_queue_table(queue_table => 'sms_mt_tab');
Exec dbms_aqadm.drop_queue_table(queue_table => 'sms_mo_tab');

4.3建立队列

建立队列代码如下：

exec dbms_aqadm.create_queue(queue_name=>'sms_mt_queue', queue_table=>'sms_mt_tab');

exec dbms_aqadm.create_queue(queue_name=>'sms_mt_queue_exception', queue_table=>'sms_mt_tab',queue_type=>dbms_aqadm.EXCEPTION_QUEUE);

exec dbms_aqadm.create_queue(queue_name=>'sms_mt_queue_backup', queue_table=>'sms_mt_tab');

参数含义：

参考 dbms_aqadm.create_queue
--创建队列, sms_mt_queue为队列的名称，' sms_mt_tab ' 队列表名
dbms_aqadm.create_queue('WDZQUEUE','WDZAQTABLE',queue_type => dbms_aqadm.NORMAL_QUEUE);参数queue_type 表示队列是否为正常队列还是异常队列,参数值为dbms_aqadm.NORMAL_QUEUE 或者dbms_aqadm.EXCEPTION_QUEUE

--创建多用户队列, 'WDZQUEUE' 为队列的名称，'WDZAQTABLE' 队列表名
dbms_aqadm.create_queue('WDZMUTIQUEUE','WDZMUTIAQTABLE',
queue_type => dbms_aqadm.NORMAL_QUEUE);
--创建分组队列, 'WDZGROUPQUEUE' 为队列的名称，'WDZAQTABLE' 队列表名
dbms_aqadm.create_queue('WDZGROUPQUEUE', 'WDZAQTABLE',
queue_type => dbms_aqadm.NORMAL_QUEUE);

4.4删除队列

代码如下：

Exec dbms_aqadm.drop_queue('sms_mt_queue');

4.5队列参数调整

A 创建非持久队列

非持久队列 顾名思义就是没有永久保存到数据的队列，队列只存在于系统的内存中。

参考 dbms_aqadm.create_np_queue

dbms_aqadm. create_np_queue ('sms_mt_queue', multiple_consumers=>false);

B 启动一个队列，' sms_mt_queue ' 为队列的名称

dbms_aqadm.start_queue('sms_mt_queue',enqueue=>true, dequeue=> true);

C 停止队列

参数的意思参考启动一个队列

dbms_aqadm.stop_queue(sms_mt_queue ',enqueue=>false, dequeue=>true);

5 队列操作

说明:

1 入队

P100_MT_ENQUEUE
(
p_equeue_name In varchar2, --队列名单大写字母,主队列:SMS_MT_QUEUE 备份队列:SMS_MT_QUEUE_BACKUP
p_body In t_outbox_push%Rowtype,--入参,记录类型,数据源头直接调用
p_level In Number:=3, --优先级别1-5,数值越小越快
p_delay In Number:=0, --入队延迟时间,单位:秒
p_res_str OUT VARCHAR2, --0 成功 其它失败
p_msg_id OUT Varchar2 --返回的msgid，主键
)
2 出队列

p102_mt_dequeue
(
p_equeue_name In varchar2, --队列名单大写字母,主队列:SMS_MT_QUEUE 备份队列:SMS_MT_QUEUE_BACKUP
p_client_id Out Number, --短信内部网关
p_res_str Out varchar2, --返回值 0 成功 -2 队列为空其它失败
p_label out varchar2, --标签
p_body out varchar2) --数据包体

3 数据格式转换 p103_change_label_body_str
(
p_dequeue_body In Mt_Struc,
p_res_str Out Varchar2,
p_label Out varchar2,
p_body Out varchar2
)/*
功能:把出队列的字符串翻译成有规则的label,和body
日期:2006-09-20
write by hancy
*/

4 测试入队

procedure P101_MT_ENQUEUE_TEST
(
p_equeue_name In varchar2,--队列名单大写字母,主队列:SMS_MT_QUEUE 备份队列:SMS_MT_QUEUE_BACKUP
p_res_str out Varchar2,
p_msg_id OUT Varchar2
)

5.1入队

create or replace procedure P100_MT_ENQUEUE
(
p_equeue_name In varchar2, --队列名单大写字母,主队列:SMS_MT_QUEUE 备份队列:SMS_MT_QUEUE_BACKUP
p_body In t_outbox_push%Rowtype,--入参,记录类型,数据源头直接调用
p_level In Number:=3, --优先级别1-5,数值越小越快
p_delay In Number:=0, --入队延迟时间,单位:秒
p_res_str OUT VARCHAR2, --0 成功 其它失败
p_msg_id OUT Varchar2 --返回的msgid，主键
)/*
功能:数据源头,push,的入队操作
日期:2006-09-20
write by hancy
*/
Is
v_enqueue_options dbms_aq.enqueue_options_t;
v_message_properties dbms_aq.message_properties_t;
v_message_handle raw(16);
v_body mt_struc;---写日志区域
vPid NUMBER:=100;
vProName VARCHAR2(50):='P100_MT_ENQUEUE';
vProTip VARCHAR2(255);
vErrorCode VARCHAR2(20);
vErrorMsg VARCHAR2(2000);
Begin
--1初始化
p_res_str:='-1';

--2 P_BODY 到 v_body 的转化 把一个字符串转化为一个结构体
v_body:=mt_struc(
p_body.OP_ID ,
p_body.DEST_MOBILENO ,
p_body.FEE_MOBILENO ,
p_body.LONG_NO ,
p_body.MT_CONTENT ,
p_body.SERVICE_ID ,
p_body.MT_FLAG ,
p_body.MSG_FMT ,
p_body.FEE_TYPE ,
p_body.FEE_VALUE ,
p_body.BEG_REPORT ,
p_body.CLIENT_ID ,
p_body.CLIENT_NAME ,
p_body.MT_TIME ,
p_body.MT_ID ,
p_body.PLAN_ID ,
p_body.PUSH_TYPE ,
p_body.SEND_DATE );
--4设置属性和参数---
--指定异常队列
v_message_properties.exception_queue:='SMS_MT_QUEUE_EXCEPTION';
--设置优先级别
v_message_properties.priority :=p_level;
--设置延时时间--秒
v_message_properties.delay :=p_delay;
--5 开始入队
dbms_aqadm.start_queue(p_equeue_name,enqueue=>true, dequeue=> true);
dbms_aq.enqueue(queue_name=>p_equeue_name,
enqueue_options=>v_enqueue_options,
message_properties=>v_message_properties,
payload=>v_body,
msgid=>v_message_handle);
P_MSG_ID:=v_message_handle ;
--6 commit
Commit;
p_res_str:='0';
Exception
When Others Then
p_res_str:='-100';
vProTip:='入队过程异常！';
vErrorCode:=Sqlcode;
vErrorMsg:=SQLERRM;
p_pub_write_error_log(vPid,vProName,'','',
vProTip,vErrorCode,vErrorMsg,1);
Rollback;
end P100_MT_ENQUEUE;

create or replace procedure P101_MT_ENQUEUE_TEST
(
p_equeue_name In varchar2,--队列名单大写字母,主队列:SMS_MT_QUEUE 备份队列:SMS_MT_QUEUE_BACKUP
p_res_str out Varchar2,
p_msg_id OUT Varchar2
) /*
功能:测试入队
日期:2006-09-20
write by hancy
*/
Is
Cursor cur_push Is
Select * From t_outbox_push;
v_row_push t_outbox_push%Rowtype;
v_exe_res varchar2(200);
v_message_handle raw(16);
begin
p_res_str:='-1';
Open cur_push;
Loop
Fetch cur_push Into v_row_push;
Exit When cur_push%Notfound;
P100_MT_ENQUEUE(p_equeue_name,v_row_push,3,0,v_exe_res,v_message_handle);
End Loop;
Close cur_push;
p_res_str:=v_exe_res;
p_msg_id:=v_message_handle;
Exception
When Others Then
p_res_str:=Sqlerrm;
Rollback;
end P101_MT_ENQUEUE_TEST;

oracle高级队列在通信方面的应用设计(AQ高级队列设计说明二)

5.2出队

create or replace procedure p102_mt_dequeue
(
p_equeue_name In varchar2, --队列名单大写字母,主队列:SMS_MT_QUEUE 备份队列:SMS_MT_QUEUE_BACKUP
p_client_id Out Number, --短信内部网关
p_res_str Out varchar2, --返回值 0 成功 -2 队列为空其它失败
p_label out varchar2, --标签
p_body out varchar2) --数据包体
Is/*
功能: 出队列,返回给java程序
日期:2006-09-20
write by hancy
*/
v_Dequeue_Options Dbms_Aq.Dequeue_Options_t;
v_Message_Properties Dbms_Aq.Message_Properties_t;
v_Message_Handle Raw(16);
v_Body_queue Mt_Struc;
v_label Varchar2(200);
v_body varchar2(1000);
res_str varchar2(20);
---写日志区域
vPid NUMBER:=102;
vProName VARCHAR2(50):='p102_mt_dequeue';
vProTip VARCHAR2(255);
vErrorCode VARCHAR2(20);
vErrorMsg VARCHAR2(2000);
v_count Number;
Begin
--1 初始化
p_res_str:='-1' ;
--2 出队列设置属性
--???
--3 执行出队列操作
Select Count(0) Into v_count From sms_mt_tab Where q_name=p_equeue_name ;
If v_count >0 Then
dbms_aqadm.start_queue(p_equeue_name,enqueue=>true, dequeue=> true);
Dbms_Aq.Dequeue(Queue_Name => p_equeue_name,
Dequeue_Options => v_Dequeue_Options,
Message_Properties => v_Message_Properties,
Payload => v_Body_queue,
Msgid => v_Message_Handle);
-- 组和 label= 消息类型（CommandID）+运营商标识+地区标识（AreaID）+时间标识
-- 组合 body
--4 返回给java的包体
p103_change_label_body_str(v_Body_queue,res_str,v_label,v_body);
If res_str='0' Then
p_label :=v_label;
p_body :=v_body;
p_client_id:=v_Body_queue.CLIENT_ID;
--提交
Commit;
p_res_str:='0' ;
Else
p_res_str:='出队列后组串失败!' ;
End If;
Else
p_res_str:='队列里面没有数据,休息一下';
End If;
Exception
When Others Then
p_res_str:='-100';
vProTip:='出队过程异常！';
vErrorCode:=SQLCODE;
vErrorMsg:=SQLERRM;
p_pub_write_error_log(vPid,vProName,'','',
vProTip,vErrorCode,vErrorMsg,1);
Rollback;
end p102_mt_dequeue;

create or replace procedure p103_change_label_body_str
(
p_dequeue_body In Mt_Struc,
p_res_str Out Varchar2,
p_label Out varchar2,
p_body Out varchar2
)/*
功能:把出队列的字符串翻译成有规则的label,和body
日期:2006-09-20
write by hancy
*/
Is
---写日志区域
vPid NUMBER:=103;
vProName VARCHAR2(50):='p103_change_label_body_str';
vProTip VARCHAR2(255);
vErrorCode VARCHAR2(20);
vErrorMsg VARCHAR2(2000);
--label
v_label Varchar2(50);
v_client_id Number;
v_date_str varchar2(20);
--body
v_PRDID varchar2(10);
v_CHANNELID varchar2(10);
v_ActionID varchar2(20);
v_Result varchar2(20);
v_MSGID varchar2(20);
v_Pk_total varchar2(20);
v_Pk_Number varchar2(20);
v_RegisteredDelivery varchar2(20);
v_ServiceID varchar2(20);
v_FeeUserType varchar2(20);
v_FeeTerminalID varchar2(35);
v_MsgFmt varchar2(20);
v_FeeType varchar2(20);
v_FeeCode varchar2(20);
v_SrcID varchar2(30);
v_DestID varchar2(35);
v_LinkID varchar2(20);
v_MTFlag varchar2(20);
v_FixedCode varchar2(20);
v_RepeatNum varchar2(20);
v_InfoID varchar2(20);
v_MsgContent varchar2(150);
-------------------------------------
v_body varchar2(2000);
begin
p_res_str:='-1';
v_Result :='';
v_MSGID :='';
v_Pk_total :='';
v_Pk_Number:='';
--label
Select to_char(Sysdate,'YY-MM-DD HH:MM:SS') Into v_date_str From dual ;
If p_dequeue_body.CLIENT_ID>150 Then
v_label:='022000000'||v_date_str;
Else
v_label:='021000000'||v_date_str;
End If;
--body
v_PRDID:='0000' ; v_CHANNELID:='0000'; v_ActionID:='0';
v_Result :=lpad(' ',8,' ');
v_MSGID :=lpad(' ',16,' ');
v_Pk_total :=lpad(' ',1,' ');
v_Pk_Number:=lpad(' ',1,' ');
--v_RegisteredDelivery
v_RegisteredDelivery:=lpad(p_dequeue_body.BEG_REPORT,1,' ');
--v_ServiceID
v_ServiceID:=lpad(p_dequeue_body.SERVICE_ID,10,' ');
--v_FeeUserType
v_FeeUserType:='0';
--v_FeeTerminalID
v_FeeTerminalID:=lpad(p_dequeue_body.FEE_MOBILENO,32,' ');
--v_MsgFmt
v_MsgFmt:=lpad(p_dequeue_body.MSG_FMT,2,' ');
--v_FeeType
v_FeeType:=lpad(p_dequeue_body.FEE_TYPE,2,' ');
--v_FeeCode
v_FeeCode:=lpad(p_dequeue_body.FEE_VALUE,6,' ');
--v_SrcID
v_SrcID:=lpad(p_dequeue_body.LONG_NO,21,' ');
--v_DestID
v_DestID:=lpad(p_dequeue_body.DEST_MOBILENO,32,' ');
--v_LinkID
v_LinkID:=lpad(' ',20,' ');
--v_MTFlag varchar2(20);
v_MTFlag:=lpad(p_dequeue_body.MT_FLAG,2,' ');
---v_FixedCode varchar2(20);
v_FixedCode:=lpad(' ',6,' ');
--v_RepeatNum varchar2(20);
v_RepeatNum:='1';
--v_InfoID varchar2(20);
v_InfoID:=lpad(' ',16,' ');
--v_MsgContent varchar2(150);
v_MsgContent:=p_dequeue_body.MT_CONTENT;

--add
v_body:=
(v_PRDID
||v_CHANNELID
||v_ActionID
||v_Result
||v_MSGID
||v_Pk_total
||v_Pk_Number
||v_RegisteredDelivery
||v_ServiceID
||v_FeeUserType
||v_FeeTerminalID
||v_MsgFmt
||v_FeeType
||v_FeeCode
||v_SrcID
||v_DestID
||v_LinkID
||v_MTFlag
||v_FixedCode
||v_RepeatNum
||v_InfoID
||v_MsgContent) ;
--to value
p_label:=v_label;
p_body:=v_body ;
--result
p_res_str:='0';
Exception
When Others Then
p_res_str:=Sqlerrm;
vProTip:='把出队列的字符串翻译异常！';
vErrorCode:=SQLCODE;
vErrorMsg:=SQLERRM;
p_pub_write_error_log(vPid,vProName,'','',
vProTip,vErrorCode,vErrorMsg,1);
Rollback;
end p103_change_label_body_str;

6 注意

1 权限问题

把dbms_aq and dbms_aq_admin 包的execute权限授权给smpuser用户.

现象:否则编译不通过,

办法: 授权:

Grant aq_administrator_role To smpuser;

2 用户表空间限制问题

现象:入队操作一定数量的数据后报错:

ORA-00604: error occurred at recursive SQL level 1

ORA-01536: space quota exceeded for tablespace 'SMP_DB'

解决办法:

修改smpuser的限额:从<无> 修改为:<无限制>就搞定了!

oracle 绑定变量在动态条件统计中的应用

declare

vsql_p varchar2(400);

vsql varchar2(500);

vnum number;

begin

vsql_p := 'partition(prov_id_'|| vprovid|| ')'; --记录分区

vsql := 'select count(0) into :vnum from msno.t_msno_all '||vsql_p||
' t where t.msno_comment = ' ||p_descid||' and t.split_id = 0';
execute immediate vsql into vnum;

if vnum = 0 then
dbms_output.put_line('已经没有可用的一次营销号码');
p_num := vnum;
return;
end if;

end;

ORACLE分区表的操作应用

ORACLE分区表的操作应用

摘要：在大量业务数据处理的项目中，可以考虑使用分区表来提高应用系统的性能并方便数据管理，本文详细介绍了分区表的使用。　　 在大型的企业应用或企业级的数据库应用中，要处理的数据量通常可以达到几十到几百GB，有的甚至可以到TB级。虽然存储介质和数据处理技术的发展也很快，但是仍然不能满足用户的需求，为了使用户的大量的数据在读写操作和查询中速度更快，Oracle提供了对表和索引进行分区的技术，以改善大型应用系统的性能。 　　

使用分区的优点： 　　

·增强可用性：如果表的某个分区出现故障，表在其他分区的数据仍然可用； 　　

·维护方便：如果表的某个分区出现故障，需要修复数据，只修复该分区即可； 　　

·均衡I/O：可以把不同的分区映射到磁盘以平衡I/O，改善整个系统性能； 　　

·改善查询性能：对分区对象的查询可以仅搜索自己关心的分区，提高检索速度。 　　

Oracle数据库提供对表或索引的分区方法有三种： 　　

·范围分区 　　 ·Hash分区（散列分区） 　　 ·复合分区 　　

ORACLE UTL_FILE文件包的应用，文件I/O操作

ORACLE UTL_FILE文件包的应用，文件I/O操作

利用ORACLE UTL_FILE包可以使文本文件转入进数据表，反之亦然：

1：建立文件目录：

首先在数据库服务器上建立相应的文件目录。

1．1方法：

在初始化文件配置文件init.ora的配置中将

UTL_FILE_DIR = ‘E：/temp’指定路径；

1.2 方法：

创建路径对象：

Create directory test_dir as e:temp

建议用第二种方法；

2：打开和关闭文件：

所有的文件句柄都拥有UTL_FILE.FILE_TYPE。FILE_TYPE在UTL_FILE规范中进行了定义。

2.1：FOPEN（location in varchar2, filename in varchar2, open_mode in varchar2）return FILE_TYPE;

Location 是路径参数，FILENAME 是文件名，OPEN_MODE是打开模式；

有效值：‘R’是读文本，‘W’是写文本，‘A’是附加文本，参数不分大小写，如果指定‘A’但是文件不存在，它会用‘W’先创建出来，‘W’有覆盖的功能；

2.2 : FCLOSE(file_handle in out file_type);

唯一的参数是文件句柄，就是关闭文件；

FCLOSE_ALL关闭所有文件句柄；

2.3: IS_OPEN(file_handle in file_type) return Boolean;

判断文件是否打开；

3：文件输出：

所有的函数如下：

3.1： PUT(file_handle in file_type, buffer in varchar2);

文件输出，但是不会在文件中附加新行字符（newline），必须用put_line或者new_line向文件中输入终结符；

3.2： NEW_LINE（file_handle in file_type, lines in natural := 1）;

向文件中写入一个或者多个行终结符；

3.3： PUT_LINE(file_handle in file_type, buffer in varchar2);

等价PUT后接着用NEW_LINE；

3.4： PUTF(file_handle in file_type, format in varchar2,

Arg1 in varchar2 default null,

Arg2 in varchar2 default null,

Arg3 in varchar2 default null,

Arg4 in varchar2 default null,

Arg5 in varchar2 default null)

和PUT类似，但是它允许输出字符串是带格式的，格式字符中n是换行，%s被可选参数取代；

例如：

Declare

v_outputfile utl_file.file_type;

v_name varchar2(20) := ‘scott’;

begin

v_outputfile := utl_file.fopen(..);

utl_file.putf(v_outputfile,

‘hi there! n my name is %s,and I am a %s major.n’,

V_name,

‘Computer science’ );

Fclose(v_outputfile);

end;

输出文件格式：

hi there!

my name is scott ,and I am a Computer science major.

3.5: 输出文件应用实例：

create or replace procedure p_mmr_new
(p_start_time out date,
p_end_time out date)
is
v_file UTL_FILE.FILE_TYPE;
v_string varchar2(100);
v_error exception;
v_i number;
cursor cur_ms_no is

select distinct substr(trim(a.ms_no),1,11)
from msno.t_upload_msno a,
msno.t_msno_black b
where substr(a.ms_no,1,11) = b.ms_no(+)
and b.ms_no is null;

v_count number;
v_ms_no varchar2(20);
begin
p_start_time:=sysdate;
v_count:=0;
-- insert
v_file := UTL_FILE.FOPEN('OUTER_DIR','ivr170.txt', 'w',32767);
open cur_ms_no ;
loop
fetch cur_ms_no into v_ms_no;
exit when cur_ms_no%notfound;
UTL_FILE.PUT_line(v_file, v_ms_no);
v_count:=v_count+1;
if v_count>=5000 then
UTL_FILE.fflush(v_file);
--UTL_FILE.FCLOSE(v_file);
--v_file := UTL_FILE.FOPEN('OUTER_DIR','v_ms_no.txt', 'a',32767);
v_count:=0;
end if;
end loop;
UTL_FILE.FCLOSE(v_file);
close cur_ms_no;
--close
p_end_time:=sysdate;
EXCEPTION
WHEN v_error Then
UTL_FILE.FCLOSE(v_file);
RETURN;
end;

4：文件输入：

4.1 get_line(file_handle in file_type, buffer out varchar2);

从文件中读出数据；

示例：

Declare

V_newline varchar2(200);

begin

v_filehandle := utl_file.fopen(p_filedir, p_filename, ‘r’);

utl_file.get_line(vfilehandle, v_newline);

insert into t1 (tip) values(v_newline);

end;

ORACLE外部表的应用实例

ORACLE外部表的应用实例

Oracle 9i 的一项新特性就是 External Table，它就象通常的数据库表一样，拥有字段和数据类型约束，并且可以查询，但是表中的数据却不存储在数据库中，而是在与数据库相关联的普通外部文件里。当你查询 External Table 时，Oracle 将解析该文件并返回符合条件的数据，就象该数据存储在数据库表中一样。
具体的定义可以参见《 Oracle 概念手册》，以下的几点需要注意：

<一>:外部表的描述:

> 创建的语法类似于： "CREATE TABLE ... ORGANIZATION EXTERNAL"
> 数据在数据库的外部组织，是操作系统文件。
> 操作系统文件在数据库中的标志是通过一个逻辑目录来映射的。
> 数据是只读的。（外部表相当于一个只读的虚表）
> 不可以在上面运行任何 DML 操作，不可以创建索引。
> 可以查询操作和连接。可以并行操作。

例子:
假如有如下两个数据文件:
1: 数据文件的格式
F1.TXT文件:

13234,FIRSTS
46464,TESTA

F2.TEXT文件:

13234,SECONDS
46464,TEST
2:创建目录,并进行授权;
sql> create directory test_dir as 'E:temp';
sql>grant read,write on directory test_dir to users;
注意：创建完毕逻辑目录之后要把平面文件拷贝到该目录下，另外还要注意文件名字不要写错。
3:创建外部表:
create table test_table
(ms_no varchar(20),
tip varchar(20),
descs varchar(20))
ORGANIZATION EXTERNAL
(
TYPE ORACLE_LOADER
DEFAULT DIRECTORY test_dir
ACCESS Parameters
(
RECORDS DELIMITED BY NEWLINE
badfile 'bad_dev.txt'
LOGFILE 'log_dev.txt'
FIELDS TERMINATED BY ','
MISSING FIELD VALUES ARE NULL
(ms_no,tip,descs)
)
LOCATION('F1.txt','F2.txt')
)
;
表创建完成.当然也可以导入一个文件

4:进行SELECT 操作看是否正确;
SQL>select * from test_table
结果如下:
MS_NO TIP DESCS
-------------------- -------------------- --------------------
13234 FIRSTS
46464 TESTA
13234 SECONDS
46464 TEST

<二>: 如何得到外部表的有关信息:
SQL> DESC DBA_EXTERNAL_TABLES;
Name Type Nullable
----------------------- ------------- - ----
OWNER VARCHAR2(30)
TABLE_NAME VARCHAR2(30)
TYPE_OWNER CHAR(3) Y
TYPE_NAME VARCHAR2(30)
DEFAULT_DIRECTORY_OWNER CHAR(3) Y
DEFAULT_DIRECTORY_NAME VARCHAR2(30)
REJECT_LIMIT VARCHAR2(40) Y
ACCESS_TYPE VARCHAR2(7) Y
ACCESS_PARAMETERS VARCHAR2(4000) Y

SQL>SELECT OWNER,TABLE_NAME,DEFAULT_DIRECTORY_NAME,ACCESS_PARAMETERSFRFROM
DBA_EXTERNAL_TABLES;
可以得到外部表的相关信息;

<三>:如何得到外部路径的信息:
SQL> desc DBA_EXTERNAL_LOCATIONS;
得到该表结构:
Name Type Nullable
--------------- -------------- --------
OWNER VARCHAR2(30)
TABLE_NAME VARCHAR2(30)
LOCATION VARCHAR2(4000) Y
DIRECTORY_OWNER CHAR(3) Y
DIRECTORY_NAME VARCHAR2(30) Y

SQL> select * from DBA_EXTERNAL_LOCATIONS;
得到具体信息;

相关技术贴子联结
http://www.psoug.org/reference/externaltab.html