MQSeries.net :: View topic

kishoreMuthyala · Posted: Wed Mar 31, 2004 6:37 am Post subject:

Hi,
I have created a message flow with MQInput node,Compute Node,
MQOutputnode.
I have created a database in DB2 and 2 fields.
I have created a DSN name for it and tested it.
In Compute node i have written the statement to Insert and in Properties i have given the DataSource name .
When iam trying to send some data from Inputnode it is going to OutputQ.
And not going into the DB2.It is also not showing any errors.

this is the code which i have written

CREATE COMPUTE MODULE dbmsgfl1_Compute
CREATE FUNCTION Main() RETURNS BOOLEAN
BEGIN
DECLARE A INTEGER;
Declare sstat character;
Declare serr character;
Declare scode Integer;
Declare snative Integer;

SET OutputRoot = InputRoot;

WHILE A <= CARDINALITY(InputRoot.XML.sap_bapi_companycode_getlist.sap_companycode_list[])
DO

INSERT INTO Database.MQSIUID.SAP_BAPI_COMPANYCODE_GETLIST(COMPANY_CODE,NAME_OF_THE_COMPANY)
VALUES(InputRoot.XML.sap_bapi_companycode_getlist.sap_companycode_list[A].Company_Code ,
InputRoot.XML.sap_bapi_companycode_getlist.sap_companycode_list[A].Name_of_the_company_code_or_company);

SET A=A+1;
END WHILE;

Set scode = SQLCODE;
if scode <> 0 then
set sstat = SQLSTATE;
set serr = SQLERRORTEXT;
set snative = SQLNATIVEERROR;

THROW USER EXCEPTION MESSAGE 2950 VALUES
('sql state',sstat,scode,serr,snative );

end if;

RETURN TRUE;
END;
END MODULE;

best regards & thanks for the support
Kishore Muthyala