Re: Complex Eval

["Raul A. Jager W." <raul@xxxxxxxxxx>]

You can also do:  %rem(%subdt(iso_date: *Y): 100)

Michael_Schutte@xxxxxxxxxxxx wrote:

> Try %Char instead...
>
> %dec(%subst(%char(%subdt(iso_date:*y)):3:2):2:0)
>
>
> Michael Schutte
> Admin Professional
> Bob Evans Farms, Inc.
> 3776 South High Street, Columbus, OH 43207
> Phone: 614/492-7419    Fax: 614/409-2017
> Visit us on the web! www.bobevans.com
>
> (Embedded image moved to file: pic19796.gif)
>
> What's the secret? Find out at your Bob Evans Restaurant on May 17!
>
>
> rpg400-l-bounces@xxxxxxxxxxxx wrote on 06/20/2007 12:12:31 PM:
>
>  
>
> > 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