×
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.
I am doing a conversion for a client from the the M36 to the 36EE (baby
steps!). I came across what seems to be a bug in the RPG II compiler, as
it doesn't follow how the real S/36 compiler works.
FMYFILE IF blah, blah
I 1 80CUSTNO
...
I UDS
I 29 360CUST#
C *LIKE DEFN CUSTNO CUST#
C Z-ADDCUSTNO CUST#
C
The compiler dutifully informs me that the field CUST# has been
previously defined. Since the definitions are both 8.0, zoned, I'm fine
with that.
Here's the rub: After the program ends the value of CUST# in the LDA is
in positions 22-29!! Various debug sessions prove the incorrect output.
Removing the *LIKE DEFN line (which the compiler was supposed to have
thrown away!) fixes the problem!!!! What gives?
-mark
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.
midrange.com
