[Home] [Help]
120: end if;
121:
122: if(p_jms_text_message.header.properties is null) then
123: p_jms_text_message.header.properties := sys.aq$_jms_userproparray(
124: sys.aq$_jms_userproperty(property_name, 200, null, property_value, 23));
125: else
126: lookup_property_name(p_jms_text_message.header.properties, property_name);
127:
128: p_jms_text_message.header.properties.extend;
127:
128: p_jms_text_message.header.properties.extend;
129:
130: p_jms_text_message.header.properties(p_jms_text_message.header.properties.count) :=
131: sys.aq$_jms_userproperty(property_name, 200, null, property_value, 23);
132: end if;
133: end set_int_property;
134:
135: procedure set_string_property(p_jms_text_message in out nocopy sys.aq$_jms_text_message,
142: -- can be 4000 characters long. Bug 3628473
143: l_property_value := substr(property_value, 1 , 2000);
144: if(p_jms_text_message.header.properties is null) then
145: p_jms_text_message.header.properties := sys.aq$_jms_userproparray(
146: sys.aq$_jms_userproperty(property_name, 100, l_property_value, null, 27));
147: else
148: lookup_property_name(p_jms_text_message.header.properties, property_name);
149:
150: p_jms_text_message.header.properties.extend;
149:
150: p_jms_text_message.header.properties.extend;
151:
152: p_jms_text_message.header.properties(p_jms_text_message.header.properties.count) :=
153: sys.aq$_jms_userproperty(property_name, 100, l_property_value, null, 27);
154: end if;
155: end set_string_property;
156:
157: function get_boolean_property(p_jms_text_message in out nocopy sys.aq$_jms_text_message,