RE: Need a sanity check, please

["Rich Dotson" <rich_dotson@xxxxxxxxxxx>]

Why not try:

PASTMONTH = %char(atoi(MONTHID)-100);


Rich Dotson
RT3 Consulting Services, Inc.
P.O. Box 126
Lorain, OH  44052-0126

eMail: Rich_Dotson@xxxxxxxxxxx


> From: "Robert Clay" <rclay@xxxxxxxxxxxx>
> Reply-To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
> Subject: RE: Need a sanity check, please
> Date: Mon, 24 May 2004 13:06:57 -0400
>
> I tried your suggestion but it didn't work.  Still getting the error.
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Martin, Steve 
> (MAN-Golden)
> Sent: Monday, May 24, 2004 12:47 PM
> To: 'RPG programming on the AS400 / iSeries'
> Subject: RE: Need a sanity check, please
>
> Should you be casting the entire result to char()? // by adding overall
> parenthesis
> PASTMONTH = %char((atoi(%subst(MONTHID:1:4))-1) + %subst(MONTHID:5:2))
>                  ^                                                   ^
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Robert Clay
> Sent: Monday, May 24, 2004 10:12 AM
> To: RPG400-L@xxxxxxxxxxxx
> Subject: Need a sanity check, please
>
>
> We are at V5R1 so I have to jump through hoops to get things to work.
>
> Here's the situation:
>
> We have MONTHID  (A  6) which represents YYYYMM, where YYYY is the year and
> MM is the month number.  Sample data would be '200404'.
>
> I need to do some manipulation where this value is the key and I need to
> know the same month of the previous year.  So, I came up with this EVAL
> statement (in free format):
>
>
> PASTMONTH = %char(atoi(%subst(MONTHID:1:4))-1) + %subst(MONTHID:5:2)
>
>
> PASTMONTH is also (A  6).
>
>
> I have the "atoi" C function prototyped:
>
>
> h BNDDIR('QC2LE')
>
>
> d atoi            PR            10I 0 ExtProc('atoi')
> d  charValue                      *   VALUE Options(*STRING)
>
>
> When I attempt to compile the program, I get this message on the above EVAL
> statement:
>
> RNF0955  Item is not valid as the left-hand side of an EVAL operation.
>
> Cause . . . . . :   The left-hand side of an EVAL operation must be an item
>
>   that can be modified.  This means that the following cannot be on the
>
>   left-hand side since they cannot be modified: figurative constants;
>
>   literals; named constants; lookahead fields; entry parameters with the
> CONST
>   keyword specified; prototype names; certain special words and built-in
>
>   functions. The specification is ignored.
>
> Recovery  . . . :   Specify a variable in the left-hand side of the EVAL
>
>   operation or remove the specification. Compile again.
>
>
>
> PASTMONTH is not a figurative constant, literal, named constant, lookahead
> field, etc.
>
> It is a field in the file I am using:
>
> fLUMTM     UF A E           K DISK    Rename( RLUMTM : LUMTMR ) USROPN
>
> And, yes, I have the file opened on a prior statement due to the USROPN
> keyword.
>
> Why the error?
>
> It's probably something simple but I just can't see it.
>
> Any help is greatly appreciated.
>
>
> Robert
> _______________________________________________
> 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.
> _______________________________________________
> 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.
>
>
>
>
> _______________________________________________
> 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.

_________________________________________________________________
FREE pop-up blocking with the new MSN Toolbar ? get it now! 
http://toolbar.msn.click-url.com/go/onm00200415ave/direct/01/