RE: Complex Eval

Thank you all very much

Arthur J. Marino
Southern Container Corporation
(631) 297 - 2276



"Wilt, Charles" <WiltC@xxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
06/20/2007 01:19 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Complex Eval






You don't need the %dec as the value returned from %subdt is already
numeric.

The fact that it's a 10i instead of an actual 4p 0 doesn't matter
mathematically when doing the %rem.

So Scott's code of
pr_year = %rem(%subdt(iso_date:*Y): 100);

Really is all you need.

Charles

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Rex Capio
Sent: Wednesday, June 20, 2007 1:17 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Complex Eval

Try this....

d pr_year s 2 0

pr_year = %rem(%dec(%subdt(iso_date:*y):4:0):100);


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of DeLong, Eric
Sent: Wednesday, June 20, 2007 1:02 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Complex Eval

I suspect the problem lies in the size of the value returned
by %subdt...
Your code implies that the returned value will be held in a
numeric (4,0) field, but I don't think this is necessarily true.....

Eric


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of
Arthur.Marino@xxxxxxxxxxxxxxxx
Sent: Wednesday, June 20, 2007 11:13 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Complex Eval


I wanted to extract the low order 2 digits of the year value
in an *iso date field. Trying to do the most in the shortest
possible instruction, I
entered:

D iso_date s d

eval pr_year =
%dec(%subst(%editc(%subdt(iso_date:*y):'X'):3:2):2:0)

iso_date contains '2007-06-16'
pr_year is a 2-byte numeric (whole number) field

After the 'eval', pr_year contained 00, not 07. I figured I'm
not understanding something about the step-by-step nature of
complex statements. My first workaround attempt involved
extracting the innermost evaluation and doing it separately
(fscl@yr is 4,0):

eval fscl@yr = %subdt(iso_date:*y)
eval pr_year = %dec(%subst(%editc(fscl@yr:'X'):3:2):2:0)

This worked fine. Anybody (or everybody) know why the first
'eval' didn't work? Thanks.


Arthur J. Marino
Southern Container Corporation
(631) 297 - 2276
--
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.

This e-mail transmission contains information that is intended to be
confidential and privileged. If you receive this e-mail and you are not a
named addressee you are hereby notified that you are not authorized to
read, print, retain, copy or disseminate this communication without the
consent of the sender and that doing so is prohibited and may be unlawful.
Please reply to the message immediately by informing the sender that the
message was misdirected. After replying, please delete and otherwise
erase it and any attachments from your computer system. Your assistance
in correcting this error is appreciated.