하나의 DEFERRED TRANSACTION 에 대한 DEFCALL을 알수있는 PROCEDURE.

Question

제품 : ORACLE SERVER
작성날짜 : 2002-11-15
하나의 DEFERRED TRANSACTION 에 대한 DEFCALL을 알수있는 PROCEDURE.
=================================================================
PURPOSE
다음은 하나의 DEFERRED TRANSACTION 에 대한 DEFCALL을 알수 있는
PROCEDURE를 제공한다.
Explanation
각각의 DEFERRED TRANSACTION에대한 DEFCALL을 알 수 있음에 따라
DEFERRED TRANSACTION 의 ENTRY 에 대하여 다음과 같은 PROCEDURE를
이용하여 TRANSACTION을 추적할수 있다.
Example
다음의 SCRIPT는 REPADMIN으로 실행하여야 하며(sys user도 가능)
SQLPLUS에서 SET SERVEROUTPUT ON 을 실행후 사용하여야 한다.
CREATE OR REPLACE PROCEDURE show_call (t IN VARCHAR2) IS
-- Print the argument type and values of a deferred call.
-- Modified for Oracle8 and supports all replicated datatypes including
-- NCHAR, NVARCHAR and all LOBs. (BFILES are not replicated [yet])
-- NOTE: set serveroutput on before calling this procedure
-- set serveroutput on size 100000
argno number;
argtyp number;
argform number;
callno number;
tranid VARCHAR2(30);
typdsc char(15);
rowid_val rowid;
char_val varchar2(255);
nchar_val nvarchar2(255);
date_val date;
number_val number;
varchar2_val varchar2(2000);
nvarchar2_val nvarchar2(2000);
raw_val raw(255);
cursor c_defcall (t VARCHAR2) is
select callno, deferred_tran_id, schemaname, packagename, procname,
argcount
from defcall
where deferred_tran_id = t;
BEGIN
FOR c1rec in c_defcall (t) LOOP
dbms_output.put_line('Call Number: ' ||c1rec.callno);
dbms_output.put_line('Call to '
||c1rec.schemaname||'.'||c1rec.packagename||'.'||c1rec.procname);
dbms_output.put_line('# of arguments: '||c1rec.argcount);
dbms_output.put_line(' ARG ' || 'Data Type ' || 'Value');
dbms_output.put_line(' --- ' || '--------------- ' ||
argno := 1;
callno := c1rec.callno; tranid := c1rec.deferred_tran_id;
WHILE TRUE LOOP
if argno > c1rec.argcount then
exit;
end if;
argtyp := dbms_defer_query.get_arg_type(callno, argno, tranid);
argform := dbms_defer_query.get_arg_form(callno, argno, tranid);
if argtyp = 1 and argform = 1 then
typdsc := 'VARCHAR2';
varchar2_val := dbms_defer_query.get_varchar2_arg(callno, argno,
tranid);
dbms_output.put_line(to_char(argno,'09')||') '||typdsc||'
'||nvl(varchar2_val,'(NULL)'));
elsif argtyp = 1 and argform = 2 then
typdsc := 'NVARCHAR2';
nvarchar2_val := dbms_defer_query.get_nvarchar2_arg(callno, argno,
tranid);
dbms_output.put_line(to_char(argno,'09')||') '||typdsc||'
'||nvl(translate(nvarchar2_val using char_cs),'(NULL)'));
elsif argtyp = 2 then
typdsc := 'NUMBER';
number_val := dbms_defer_query.get_number_arg(callno, argno, tranid);
dbms_output.put_line(to_char(argno,'09')||') '||typdsc||'
'||nvl(to_char(number_val),'(NULL)'));
elsif argtyp = 11 then
typdsc := 'ROWID';
rowid_val := dbms_defer_query.get_rowid_arg(callno, argno, tranid);
dbms_output.put_line(to_char(argno,'09')||') '||typdsc||'
'||nvl(rowid_val,'(NULL)'));
elsif argtyp = 12 then
typdsc := 'DATE';
date_val := dbms_defer_query.get_date_arg(callno, argno, tranid);
dbms_output.put_line(to_char(argno,'09')||') '||typdsc||'
'||nvl(to_char(date_val,'YYYY-MM-DD HH24:MI:SS'),'(NULL)'));
elsif argtyp = 23 then
typdsc := 'RAW';
raw_val := dbms_defer_query.get_raw_arg(callno, argno, tranid);
dbms_output.put_line(to_char(argno,'09')||') '||typdsc||'
'||nvl(raw_val,'(NULL)'));
elsif argtyp = 96 and argform = 1 then
typdsc := 'CHAR';
char_val := dbms_defer_query.get_char_arg(callno, argno, tranid);
dbms_output.put_line(to_char(argno,'09')||') '||typdsc||'
'||nvl(char_val,'(NULL)'));
elsif argtyp = 96 and argform = 2 then
typdsc := 'NCHAR';
nchar_val := dbms_defer_query.get_nchar_arg(callno, argno, tranid);
dbms_output.put_line(to_char(argno,'09')||') '||typdsc||'
'||nvl(translate(nchar_val using char_cs),'(NULL)'));
elsif argtyp = 113 then
typdsc := 'BLOB';
varchar2_val := dbms_lob.substr(dbms_defer_query.get_blob_arg(callno,
argno, tranid));
dbms_output.put_line(to_char(argno,'09')||') '||typdsc||'
'||nvl(varchar2_val,'(NULL)'));
elsif argtyp = 112 and argform = 1 then
typdsc := 'CLOB';
varchar2_val := dbms_lob.substr(dbms_defer_query.get_clob_arg(callno,
argno, tranid));
dbms_output.put_line(to_char(argno,'09')||') '||typdsc||'
'||nvl(varchar2_val,'(NULL)'));
elsif argtyp = 112 and argform = 2 then
typdsc := 'NCLOB';
nvarchar2_val :=
dbms_lob.substr(dbms_defer_query.get_nclob_arg(callno, argno, tranid));
dbms_output.put_line(to_char(argno,'09')||') '||typdsc||'
'||nvl(translate(nvarchar2_val using char_cs),'(NULL)'));
end if;
argno := argno + 1;
end loop;
end loop;
end;
Examples
SQL> select * from deftran;
DEFERRED_TRAN_ID DELIVERY_ORDER D START_TIM
3.6.74010 4.9392E+12 R 05-SEP-98
2.8.74149 4.9392E+12 R 05-SEP-98
3.0.73506 4.9392E+12 D 02-SEP-98
SQL> set serveroutput on size 1000000
SQL> execute show_call('2.8.74149');
Call Number: 0
Call to SCOTT.DEPT$RP.REP_UPDATE
# of arguments: 11
ARG Data Type Value
01) RAW 06060707
02) NUMBER 70
03) NUMBER (NULL)
04) CHAR WGT
05) CHAR (NULL)
06) CHAR ORLANDO
07) CHAR RMSC
08) VARCHAR2 INITIAL
09) VARCHAR2 MOBAY.WORLD
10) VARCHAR2 MOBAY.WORLD
11) VARCHAR2 N
Call Number: 1
Call to SCOTT.DEPT$RP.REP_UPDATE
# of arguments: 11
ARG Data Type Value
01) RAW 06060707
02) NUMBER 75
03) NUMBER (NULL)
04) CHAR WGT
05) CHAR (NULL)
06) CHAR ORLANDO
07) CHAR RMSC
08) VARCHAR2 MOBAY.WORLD
09) VARCHAR2 MOBAY.WORLD
10) VARCHAR2 MOBAY.WORLD
11) VARCHAR2 N
PL/SQL procedure successfully completed.
Reference Documents
<Note:2103883.6>

Answer 1