25: type in varchar)
26: is
27: begin
28: if(p_jms_text_message.header is null) then
29: p_jms_text_message.header := sys.aq$_jms_header(null, null, null, null, null, 0, null);
30: end if;
31:
32: p_jms_text_message.header.type := type;
33: end set_type;
36: userid in varchar)
37: is
38: begin
39: if(p_jms_text_message.header is null) then
40: p_jms_text_message.header := sys.aq$_jms_header(null, null, null, null, null, 0, null);
41: end if;
42:
43: p_jms_text_message.header.userid := userid;
44: end set_userid;
47: appid in varchar)
48: is
49: begin
50: if(p_jms_text_message.header is null) then
51: p_jms_text_message.header := sys.aq$_jms_header(null, null, null, null, null, 0, null);
52: end if;
53:
54: p_jms_text_message.header.appid := appid;
55: end set_appid;
58: groupid in varchar)
59: is
60: begin
61: if(p_jms_text_message.header is null) then
62: p_jms_text_message.header := sys.aq$_jms_header(null, null, null, null, null, 0, null);
63: end if;
64:
65: p_jms_text_message.header.groupid := groupid;
66: end set_groupid;
69: groupseq in int)
70: is
71: begin
72: if(p_jms_text_message.header is null) then
73: p_jms_text_message.header := sys.aq$_jms_header(null, null, null, null, null, 0, null);
74: end if;
75:
76: p_jms_text_message.header.groupseq := groupseq;
77: end set_groupseq;
80: replyto in sys.aq$_agent)
81: is
82: begin
83: if(p_jms_text_message.header is null) then
84: p_jms_text_message.header := sys.aq$_jms_header(null, null, null, null, null, 0, null);
85: end if;
86:
87: p_jms_text_message.header.replyto := replyto;
88: end set_replyto;
428: l_parameter_list wf_parameter_list_t;
429: l_correlation_id varchar2(240);
430: begin
431: p_jms_text_message := sys.aq$_jms_text_message(
432: sys.aq$_jms_header(null, null, null, null, null, 0, null), 0, null, null);
433:
434: -- set the JMS properties
435:
436: set_type(p_jms_text_message, p_event.getValueForParameter(JMS_TYPE));