_package user
$

_pragma(classify_level=restricted, topic={sbi})
_method pl_jms_queue.jms_input_id << id
	## Sets the id to use when reading from self. This filters on
	## messages sent with the given id.
#	_if id _is _unset
#	_then
#		_self.receive_properties.remove_key(:select)
#	_else
#		_self.receive_properties[:select] << write_string("qid = '",id,%')
#	_endif
_endmethod
$

_pragma(classify_level=restricted, topic={sbi})
_method pl_jms_queue.jms_input_id
	## Returns the filter id used when reading from self.
	
	_return "input id"
#	id << _self.receive_properties[:select]
#	>> id.slice(8,id.size-1)
_endmethod
$

_pragma(classify_level=restricted, topic={sbi})
_method pl_jms_queue.jms_output_id << id
	## Sets the id to use when sending on self. This causes the
	## messages to be filtered at the other end based on this.
#	_if id _is _unset
#	_then
#		.jms_user_properties.remove_key(:qid)
#	_else
#		.jms_user_properties[:qid] << id
#	_endif
_endmethod
$

_pragma(classify_level=restricted, topic={sbi})
_method pl_jms_queue.jms_output_id
	## Returns the id sent on output used at the receiving end to
	## filter messages.
	_return "output id"
	
	#>>.jms_user_properties[:qid]
_endmethod
$

_pragma(classify_level=restricted, topic={sbi})
_method pl_jms_xrfc_transport.connection_classpath
	## The java classpath passed to jms_user.new()
	cp << _self.get_sap_option(_self.class_name, :classpath)
	st << internal_text_output_stream.new()
	st.write_list_with_separator(cp, system.searchpath_separator)

	# allow for environment variables
	>>st.string.substitute_environment_variables()
_endmethod