Matt writes:
>Quoting Michael:

>"IF MYTEST <> 0 GO TO FTN2090."

>use

>IF MYTEST <> ZERO GO TO FTN2090.

>or

>IF MYTEST NOT = ZERO GO TO FTN2090.

>Either tells the compiler to generate code to match the internal variable
>type, instead of the decimal 0, which doesn't match because it isn't defined
>as 9.V9(4) - it would be 9.

I hope you are 'guessing' :-)

Because you are not correct in your analysis...

COBOL is smart enough to know that 0 and zero are equivalent to 0.0000.

My previous post is the answer, assuming you actually read the post :-)

And BTW, '9.V9(4)' is not a valid COBOL picture. You can have '.' or 'V', but not
 both at the same time.

duane

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *