Edit D:\app\Administrator\product\11.2.0\dbhome_1\owb\wf\sql\wfjmstxs.pls
REM dbdrv: sql ~PROD ~PATH ~FILE none none none package &phase=pls \ REM dbdrv: checkfile:~PROD:~PATH:~FILE --=========================================================================-- -- Copyright (c)2002 Oracle Corporation, Redwood Shores, California, USA -- -- All rights reserved. -- --=========================================================================-- -- FILENAME -- WFJMSTXS.pls -- -- DESCRIPTION -- Business Event System OJMS Queue Handler. -- -- HISTORY -- DD-MON-RR userid comment -- 28-JAN-02 gashford Initial version. --=========================================================================-- set verify off whenever sqlerror exit failure rollback; whenever oserror exit failure rollback; create or replace package wf_event_ojmstext_qh as /* $Header: wfjmstxs.pls 26.1 2002/08/21 22:28:27 varrajar ship $ */ JMS_TYPE constant varchar2(8) := 'JMS_TYPE'; JMS_USERID constant varchar2(10) := 'JMS_USERID'; JMS_APPID constant varchar2(9) := 'JMS_APPID'; JMS_GROUPID constant varchar2(11) := 'JMS_GROUPID'; JMS_GROUPSEQ constant varchar2(12) := 'JMS_GROUPSEQ'; JMS_REPLYTO constant varchar2(11) := 'JMS_REPLYTO'; -------------------------------------------------------------------------------- -- Enqueues a business event into a JMS queue. -- -- p_event - the business event to enqueue -- p_out_agent_override - the out agent override -------------------------------------------------------------------------------- procedure enqueue(p_event in wf_event_t, p_out_agent_override in wf_agent_t default null); -------------------------------------------------------------------------------- -- Dequeues a business event from a JMS queue. -- -- p_agent_guid - the agent GUID -- p_event - the business event -- p_wait - the number of seconds to wait to dequeue the event -------------------------------------------------------------------------------- procedure dequeue(p_agent_guid in raw, p_event out nocopy wf_event_t, p_wait in binary_integer default dbms_aq.no_wait); -------------------------------------------------------------------------------- -- Tranforms a business event into a JMS Text Message. -- -- p_event - the business event to transform -- p_jms_text_message - the JMS Text Message -------------------------------------------------------------------------------- procedure serialize(p_event in wf_event_t, p_jms_text_message out nocopy sys.aq$_jms_text_message); -------------------------------------------------------------------------------- -- Tranforms a JMS Text Message into a business event. -- -- p_jms_text_message - the JMS Text Message -- p_event - the business event -------------------------------------------------------------------------------- procedure deserialize(p_jms_text_message in out sys.aq$_jms_text_message, p_event out nocopy wf_event_t); end wf_event_ojmstext_qh; / rem show errors package wf_event_ojmstext_qh; commit; exit;
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de