MQSeries.net :: View topic

schroederms · Posted: Thu Jan 20, 2005 2:30 pm Post subject:

Did something change in the EVAL from 2.1 to version 5 ?

We have some code a IBM consultant wrote for us in version 2.1 and has a syntax error now that looks OK to me based on what I've read on EVAL on the HELP of version 5. His code was buried in a ton of other code, so I pulled it out and put it into a Testing compute node to see if I can recreate it there, and I can.
No matter what statement I type that is now in red, is an error, so it looks like it maybe the previous EVAL statement. I could code DECLARE ABC CHARACTER; and it errors out. Code below.

Thanks.

CREATE COMPUTE MODULE Testing_Compute
CREATE FUNCTION Main() RETURNS BOOLEAN
BEGIN
-- Error number extracted from exception list
DECLARE Error CHARACTER;
-- Error Text extracted from the exceptionlist
DECLARE ErrorText CHARACTER;
-- Current path within the exception list
DECLARE Path CHARACTER;
-- Start at first child of exception list
SET Path = 'InputExceptionList.*[1]';
-- Loop until no more children for the Error number
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
SET Error = EVAL( Path ||'.Number');
END IF;
SET Path = Path || '.*[<]';
END WHILE; -- End loop
RETURN TRUE;
END;

END MODULE;