MQSeries.net :: View topic

rohit · Posted: Tue Feb 14, 2006 8:22 am Post subject:

Hi ,
Thanks for your response.
Please find the code below

DECLARE Path Char;
DECLARE LastParent Char;

-- Start at first child of exception list
SET Path = 'InputExceptionList.RecoverableException[1]';

Set OutputRoot.XML.Error.ExceptionList.ErrorDate = CURRENT_DATE;
Set OutputRoot.XML.Error.ExceptionList.ErrorTime = CURRENT_TIME;
Set OutputRoot.XML.Error.ExceptionList.ErrorApplication = 'TRADE';
Set OutputRoot.XML.Error.ExceptionList.ErrorType = EVAL( Path || '.Type' );

-- Loop until no more children
WHILE EVAL( 'FIELDNAME(' || Path || ') IS NOT NULL' ) DO
-- Check if error number is available
IF EVAL( 'FIELDNAME(' || Path || '.Number) IS NOT NULL' ) THEN

-- Remember only the deepest error number and its details
Set OutputRoot.XML.Error.ExceptionList.ErrorFunction = EVAL( Path || '.Function' );
Set OutputRoot.XML.Error.ExceptionList.ErrorText.*[] = EVAL( Path || '.Insert.*[]' );
Set OutputRoot.XML.Error.ExceptionList.ErrorCatalog = EVAL( Path || '.Catalog' );
Set OutputRoot.XML.Error.ExceptionList.ErrorSeverity = EVAL( Path || '.Severity' );
-- If Message is Information
if (EVAL( Path || '.Severity' ) = 1) then
Set OutputRoot.XML.Error.ExceptionList.ErrorCode = 'BIP' || CAST(EVAL( Path || '.Number' ) AS CHAR) || 'I'; else
-- If Message is Warning
if (EVAL( Path || '.Severity' ) = 2) then
Set OutputRoot.XML.Error.ExceptionList.ErrorCode = 'BIP' || CAST(EVAL( Path || '.Number' ) AS CHAR) || 'W'; else
-- If Message is Error or Severe Error
Set OutputRoot.XML.Error.ExceptionList.ErrorCode = 'BIP' || CAST(EVAL( Path || '.Number' ) AS CHAR) || 'E';
end if;
end if;
Set OutputRoot.XML.Error.ExceptionList.ErrorDescription = EVAL( Path || '.Text' );
END IF;

-- Go to the parent of the Last Recoverable Excpetion Node.
if (EVAL('FIELDNAME(' || Path || '.RecoverableException[LAST]' || ') IS NOT NULL' )) then
Set LastParent = Path; end if;

-- Step to last child of current element (usually a nested exception list
SET Path = Path || '.RecoverableException[LAST]';

END WHILE;

Set OutputRoot.XML.Error.ExceptionList.ErrorNodeName = EVAL(LastParent || '.Label');

SET OutputRoot.XML.Error.InputData.*[] = InputBody.*[];
RETURN true;
END;

END MODULE;

The "Syntax Error " is coming in the Highlighted lines.

I have done the migration of the code using "mqsimigratemsgflows" before two days.When i import the migrated messageflows into the Message broker toolkit, i am getting this error. I get doubt like how a working code in the production can get errors.Is it changed after migration if yes what r all the modification we should do to fix it.

I am not able to post the screenshots of message flow node diagram since i don't have any sites.
Thanks & Regards
Rohit