Re: Complex Eval

That's nice code... I've never thought of that before.




Michael Schutte
Admin Professional
Bob Evans Farms, Inc.
What's the secret? Find out at your Bob Evans Restaurant on May 17!


rpg400-l-bounces@xxxxxxxxxxxx wrote on 06/20/2007 01:08:43 PM:

The problem with %CHAR is that it outputs a different length based on
the value of the number (rather than the length of the field).
Shouldn't matter for a YEAR, since a year will probably always be a
4-digit number. But... you don't want to use it for a month or day,
since these will sometimes be 1-digit and sometimes 2-digit.

But, even with %CHAR, I think the formula is more complicated than it
needs to be. I'd rather see the following (as I posted in a previous
message)

pr_year = %rem(%subdt(iso_date:*Y): 100);


Michael_Schutte@xxxxxxxxxxxx wrote:

Try %Char instead...

%dec(%subst(%char(%subdt(iso_date:*y)):3:2):2:0)

--
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.