IBM Mainframe Forum

In my program there is a select clause than i move sqlcode to a variable and display it, when it goes to an if(diferent from zeros) clause for an error routine it enters that -if but the display is 00000000. First i thought this had no logic then i wanna know if there is a better way to do this i apreciate your help thx.



I get display 00000000 from display variable

Thank you in advance.

display sql code before assigning it to 'variable' to confirm what it thinks it has. Maybe it really is zero.

By the way this is the 666 post =D.

00000000 what is the logic ?

If sqlcode is not equal zeros
display sqlcode
end-if.

how can this display be zeros ?

That is not what your pseudo code says. It says move the sql code to a variable and display it. THEN if the code is not zero perform the error routine so you are ALWAYS displaying the code.

exec
end-exec.
IF SQLCODE NOT EQUAL 100 OR 0
PERFORM R-9998-00-ERRO
GO TO R-2000-SAIDA
END-IF

I dont move it before.
and after i have
display sql code wich comes with zeros

Why do programmers not learn DeMorgan's laws?

is a short form for and if SQLCODE is 0 then it is not equal to 100 -- TRUE condition; if SQLCODE is 100 then it is not equal to 0 -- TRUE condition; if SQLCODE is anything else it is not equal to 100 and it is not equal to 0 -- TRUE condition. In other words, you're going to do the PERFORM / GOTO no matter what the value of SQLCODE is.

Note that this is a good example of why we on this forum want to see code -- your original post has a DISPLAY with no IF logic, and the IF statement you posted only has one condition (so DeMorgan's Laws don't apply).

These users thanked the author Robert Sample for the post:

Dashimir (Tue Mar 26, 2013 7:31 pm)

Hum then i interpreted this wrong.

tried like this:
Code'd

still go to erro.

Hello,

First, you should use the Code tag to improve readability and preserve alignment.

Second, please insert a DISPLAY 'BEFORE EVALUATE = ' SQLCODE immediately before the EVALUATE statement and post the output.

U were absolutly right =D thx.