MQSeries.net :: View topic

EAI Developer · Posted: Tue Apr 25, 2006 4:20 am Post subject:

Hi everybody,
I am currently one sample scenario which I got from IBM labs.The flow deals with Shared variable, database retrival and accessing the borker name in the compute node.The flow works fine and giving the output when i run it without debugger.But if run the flow with debugger ON ..the control not even going in to the compute node.and its throwing exception as BIP v600 and Text = Internal Error. I tried to get the info from google by entering BIPv600 but in vain.

My ESQL code is :

CREATE COMPUTE MODULE LAB10_Lab10Transform
-- declare module level variables
-- module level variables have the scope of a single node
DECLARE FLOW_COUNTER SHARED INTEGER 0;
-- load the contents of a catalog database into memory
DECLARE MEM_CATALOG SHARED ROW ROW( (SELECT C.* FROM Database.CATALOG2 AS C) AS FALL_CATALOG[]);

CREATE FUNCTION Main() RETURNS BOOLEAN
BEGIN

DECLARE I INT 0;
DECLARE TBLNAME CHARACTER;
DECLARE BrokerName CHARACTER 'Wrong one';

-- copy the message headers to the output message
CALL CopyMessageHeaders();
-- start to build our return message
SET "OutputRoot"."XML"."Lab10Reply"."Name" = "InputBody"."Lab10"."FirstName" || ' ' || "InputBody"."Lab10"."LastName";
-- check if the database name exists in the input message
if SINGULAR("InputBody"."Lab10"."Catalog"."Name"[]) THEN
SET TBLNAME = "InputBody"."Lab10"."Catalog"."Name";
ELSE
SET TBLNAME = 'CATALOG';
END IF;
-- Set a condition handler for database errors
BEGIN
-- set a condition handler for invalid database names
DECLARE CONTINUE HANDLER FOR SQLSTATE 'D42S02'
BEGIN
SET "OutputRoot"."XML"."Lab10Reply"."Items"."Error" = 'Invalid database name';
END;
-- look up the catalog item in the specified catalog, starting with a simple table lookup
SET "OutputRoot"."XML"."Lab10Reply"."Items" = THE(SELECT C.PROD_NAME AS "Name", C.PROD_DESC AS "Description"
FROM Database.{TBLNAME} AS C WHERE C.PROD_ID = "InputBody"."Lab10"."Catalog"."Item");
END;

SET I = CAST("InputBody"."Lab10"."CastToInteger" AS INTEGER DEFAULT 0);
SET "OutputRoot"."XML"."Lab10Reply"."IntegerResult" = I;
-- increment counter
-- the counter increases by one every time a message flow is run
BEGIN ATOMIC
SET FLOW_COUNTER = FLOW_COUNTER + 1;
SET "OutputRoot"."XML"."Lab10Reply"."Counter" = FLOW_COUNTER;
END;

-- dump out all the entries from our in memory database
SET "OutputRoot"."XML"."Lab10Reply"."Memory" = MEM_CATALOG;

-- display some of the new broker attributes
SET "OutputRoot"."XML"."Lab10Reply"."Broker" = SQL.BrokerName;
SET "OutputRoot"."XML"."Lab10Reply"."NodeDataSource" = DataSource;
SET "OutputRoot"."XML"."Lab10Reply"."QueueManager" = QueueManagerName;
-- Broker name is also defined as a local variable
-- local variables take precedence
SET "OutputRoot"."XML"."Lab10Reply"."WrongBrokerName" = BrokerName;
-- propagate the message tree to the out terminal
RETURN TRUE;
END;

CREATE PROCEDURE CopyMessageHeaders() BEGIN
DECLARE I INTEGER 1;
DECLARE J INTEGER CARDINALITY(InputRoot.*[]);
WHILE I < J DO
SET OutputRoot.*[I] = InputRoot.*[I];
SET I = I + 1;
END WHILE;
END;

CREATE PROCEDURE CopyEntireMessage() BEGIN
SET OutputRoot = InputRoot;
END;
END MODULE;

----------
All the properties of the nodes used are correct.

Thanks in advance,
EAI Developer.