MQSeries.net :: View topic

apsy · Posted: Mon Aug 02, 2004 5:45 pm Post subject:

I need to accomplish the following.
1. Create a re-usable procedure that will create a new output root and send it back
Requirements: I want to create a brand new XML message in a procedure, that is returned back to the caller.
So far, I have achieved the following piece of code and it works:

/********************/

DECLARE rOutRefXml REFERENCE TO OutputLocalEnvironment;
DECLARE rInRefXml REFERENCE TO InputLocalEnvironment;
MOVE rInRefXml TO InputRoot.XML;

--Build the XML Decleration
CREATE FIELD OutputRoot.XML.(XML.XmlDecl)XML;
SET OutputRoot.XML.(XML.XmlDecl).(XML.Version) = '1.0';
SET OutputRoot.XML.(XML.XmlDecl).(XML."Encoding") = 'UTF-8';
CREATE LASTCHILD of OutputRoot.XML AS rOutRefXml NAME 'CompanyNew';

--This procedure is created in a separate ESQL file:

--Call this procedure to build the output xml
CALL ProcAddFields(rInRefXml,rOutRefXml);

I get an output root that I then successfully send to an MQ output node.

/********************/

/**********/
Procedure that creates a brand new XMl mesage and returns back to caller
/********** Define procedure in new ESQl file ************/

BROKER SCHEMA LIB_Common

-- This procedure builds output xml from input xml and returns a xml tree
CREATE PROCEDURE ProcAddFields(IN rInRefXml REFERENCE,INOUT rOutRefXml REFERENCE)
BEGIN

SET rOutRefXml.Empid = '2374521';
SET rOutRefXml.LastName = 'Sam';

RETURN;
END;

/********End procedure *******?

3) I tried moving everyting within the procedure by passing in the output oot directly to my procedure and manipulating it., I got an o/p message forwarded to my queue, but the length was zero.

4) What I want to do is, move even the XML declaration (in bold above) into the procedure. That way , the caller does not have to do anything. Anytime he needs an o/p message of that structure, he just calls the procedure, which accomplishes everything. I want the caller to be oblivious to what is being returned back. All the caller should do is to forward the message to a queue.Is this possible?

The reason I want to do this is, the procedure is something that all my flows across message flow projects and within message flows will use it multiple times, and I want to avoid code redundancy.

Sample test i/p message

<?xml version = "1.0" encoding = "UTF-8"?>
<CrCard>
<company>Test</company>
<DeptNo>1001</DeptNo>
</CrCard>

Sample test o/p message

<?xml version="1.0" encoding="UTF-8"?>
<CompanyNew>
<Empid>2374521</Empid>
<LastName>Sam</LastName>
</CompanyNew>