Posted by Carl Haaser on December 29, 2010 at 05:45:45:
In Reply to: Re: new RPG posted by Barbara Brazil on December 28, 2010 at 11:06:13:
OK - I figured it out. It has to do with the USING statement. I DEFINED a tempbar variable equal to BAR%Billmo% then used the tempbar variable in the next DEFINE and it worked. So, I'm guessing the replace routine doesn't like switching files. I also moved the DEFINE statement ahead of the USING statement and it too works. This report works under the old RPG using Steve's RPGRPL program.
SELECTING IF BAR01 NE 0
SELECTING IF BAR%Billmo% NE 0
SELECTING IF BIL01 NE 0
SELECTING IF BIL%Billmo% NE 0
define tempbar = BAR%Billmo%;7.0 <-- This works
USING LBS.HIST.2.CUST
DEFINE THIS.YTD=_
BAR01;7.0;THIS.YTD
DEFINE LAST.YTD=_
BAR13;7.0;LAST.YTD
DEFINE LAST.YR.TOT = tempbar;7.0;LAST.YR.TOT <-- This works
DEFINE PREV.YEAR=_
BAR16;7.0;PREV.YEAR
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.