Re: FREE Code: *RNF0312 and *RNF5377 Errors

Try putting the colon(:) after MPBMtd instead of before tMPLDTE.

Thanks,

Mark

Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com


|---------+----------------------------------------------------->
|         |           "Peter Vidal" <Peter_Vidal@xxxxxxxx>      |
|         |           Sent by:                                  |
|         |           rpg400-l-bounces+mwalter=hanoverwire.com@m|
|         |           idrange.com                               |
|         |                                                     |
|         |                                                     |
|         |           11/25/2003 08:57 AM                       |
|         |           Please respond to RPG programming on the  |
|         |           AS400 / iSeries                           |
|         |                                                     |
|---------+----------------------------------------------------->
  
>------------------------------------------------------------------------------------------------------------------------------|
  |                                                                             
                                                 |
  |       To:       RPG programming on the AS400 / iSeries 
<rpg400-l@xxxxxxxxxxxx>                                               |
  |       cc:                                                                   
                                                 |
  |       Subject:  Re: FREE Code: *RNF0312 and *RNF5377 Errors                 
                                                 |
  
>------------------------------------------------------------------------------------------------------------------------------|





I removed the '+' but now I have a different error on lines 1875 and 7876:
*RNF7707 20   1875 098500  A parameter for %FIELDS is not valid.
*RNF7707 20   1876 098600  A parameter for %FIELDS is not valid.
*RNF7707 20   1876 098600  A parameter for %FIELDS is not valid.
*RNF7707 20   1876 098600  A parameter for %FIELDS is not valid.
*RNF7707 20   1876 098600  A parameter for %FIELDS is not valid.

1869 C     UpdBookQtys   Begsr
1870  /Free
1871    Chain CoCusYr MPSSum;
1872
1873    Exsr LstMntStamp;
1874    If %found(MPSSum);
1875       Update MPSSumR %fields(MPBQ(RunQtr):MPDBok:MPDBrw:MPBMtd
1876                              :tMPLDTE:tMPLTME:tMPLUSR:tMPLPGM);
1877
1878       If SummaryMode;
1879          tMPDBok = tMPDBok + MPDBok;
1880          tMPDBrw = tMPDBrw + MPDBrw;
1881          tMPBMtd = tMPBMtd + MPBMtd;
1882          tMPBQ(RunQtr) = tMPBQ(RunQtr) + MPBQ(RunQtr);
1883       Endif;
1884
1885    Endif;
1886  /End-Free
1887 C                   Endsr

Peter Vidal
Pall Aeropower Corp.
SR Programmer Analyst
WWW.Pall.com

"A good player makes himself look good; a great player makes the team look
good."
Author unknown


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.