RE: Complex Eval

[Arthur.Marino@xxxxxxxxxxxxxxxx]

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.