Re: RNF5247E

[mcumming@xxxxxxxxxx]

I presume that the problem you're talking about is in V5R1 in free form
calcs.  This problem was fixed on the Host with ptf
SI01625.  CODE/400 will pick up this fix in the next release.
The following code would issue RNF5247.

     dendxx            s              1a
      /free
             endxx = '1';
             *inlr = '1';
      /end-free

If you code  EVAL endxx = '1';  the error will not occur.


Michele Cummings

WDT iSeries Development
IBM Toronto Lab



"Westdorp, Tom" <Tom.Westdorp@StationCasinos.com>@midrange.com on
10/23/2001 06:29:04 PM

Please respond to code400-l@midrange.com

Sent by:  code400-l-admin@midrange.com


To:   code400-l@midrange.com
cc:
Subject:  RNF5247E


When I do a Code/400 verify it assumes that field names starting with "End"
are improper EndXX's and generates an RNF5247 error.  The iSeries did that
too until I got our ops people to apply a ptf.  Sorry, but I don't recall
the ptf number.
_______________________________________________
This is the CODE/400 Discussion & Support (CODE400-L) mailing list
To post a message email: CODE400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/code400-l
or email: CODE400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/code400-l.