× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. January 2007

*Zeros

Got a "strange" compile error message a few minutes ago:

RNF7421 30 1 Operands are not compatible with the type of operator.

The line in error read: w#ladj = *Zeros - dlsqty * dlstks;

When I changed *Zeros to simply 0, the program compiled without a murmur.

So I pulled out the trusty (dusty) ILE RPG Reference manual. Page 126 says:
"*ZERO/*ZEROS Character/numeric fields: All zeros. The value is ’0’ or X'F0'. For numeric float fields: The value is ’0 E0’." 

So I'm thinking (always dangerous), "Oh, *Zeros is a character field."
But, then, I remembered another line in this same program (and similar lines in tons of other programs: 

w#ladj = *Zeros;
I scanned some old, fixed-format code and found things like: *Zeros ADD X Y. 
Which means (to me, anyway) that *Zeros is a numeric field.

So, why did I get the compile error?

Thanks.

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.