test.sql

oracle9i+j2ee开发aq oracle9i+j2ee开发aq oracle9i+j2ee开发aq

declare
	oorder BZCARDORDER_TYP;
	norder BZCARDXMLO_TYP;
begin
	oorder := BzCardOrder_typ(101, 'brajesh', 'goyal');
	norder := FNBZCARDOBJ2XML(oorder);
end;
/

declare
	oorder BZCARDORDER_TYP;
	norder BZCARDXMLO_TYP;
begin
	oorder := BzCardOrder_typ(101, 'brajesh', 'goyal');
	norder := BZCARDXMLO_TYP(null);
	dbms_Transform.compute_transformation(message => oorder, 
		transformation_schema => 'BZ_ADM', 
		transformation_name => 'BZCARDOBJ2XML', 
		Transformed_message => norder);
end;
/

declare
	normalo BZCARDORDER_typ;
	xmlord	BZCARDXMLO_typ;
	deqopt  dbms_aq.dequeue_options_t;
	msgprop dbms_aq.message_properties_t;
	deq_msgid RAW(16);
begin
	deqopt.transformation := 'BZ_ADM.BZCARDOBJ2XML';
	deqopt.navigation := DBMS_AQ.FIRST_MESSAGE;
	deqopt.dequeue_mode := DBMS_AQ.BROWSE;
	dbms_aq.dequeue (queue_name => 'BZ_ADM.bzcardorders_q',
			dequeue_options => deqopt,
			message_properties => msgprop,
			payload	=> xmlord,
			msgid => deq_msgid);
end;
/

declare 
n number;
begin
select value into n from v$parameter where name = 'job_queue_processes';
if ( n = 0) then
	execute immediate 'alter system set job_queue_processes = 3';
end if;
end;
/