Re: How to do qualified?

["Bill Hopkins" <BHopkins@xxxxxxxxxxxxxxxxxxx>]

Will maybe I'm reading wrong but ,   we have 48 month buckets three years 
prior plus current year.   YY has been set to 00 for 2000 if I take lets 
say a record that has a date of 2000 coming in and 

eval Z = 1 + (00 - 00) * 12

then 
     z = 1 + (00) * 12
     z = 1 * 12 
     z = 12 

that starts in second year 12 - 24 also not sure but should it not be 
contain in (add) or does RPG know + goes before *

 eval Z = (1 + (00 - 00)) * 12 

so addition happens first  oooohhh wait

thanks cause I am now thinking along these lines, how about this 

eval Z = (1 + (SSFY - YY) * 12)) - 11   cool thanks for the "brain kick"

Thanks 
Bill Hopkins 





"Peter Dow" <maillist@xxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
08/20/2003 11:08 AM
Please respond to RPG programming on the AS400 / iSeries

 
        To:     "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
        cc: 
        Subject:        Re: How to do qualified?


Hi Bill,

Hans already answered the data structure array part, so I'll just note 
that
you could replace your SELECT code with

    if    SSCTRY = CC
        eval Z = 1 + (SSFY - YY) * 12
    endif

You don't show any code to set Z if SSCTRY <> CC or SSFY > (YY + 3), so I
assume either you do that elsewhere, or the values you are dealing with
would never cause that situation.

hth,
Peter Dow
Dow Software Services, Inc.
909 793-9050 voice
909 793-4480 fax
909 522-3214 cell

From: "Bill Hopkins"
<snip>
> Later in Code
>
> C                   Select
>  *
> C                   When      SSCTRY    = CC and
> C                             SSFY      = YY
> C                   Eval      Z         = 1
>  *
> C                   When      SSCTRY    = CC and
> C                             SSFY      = YY + 1
> C                   Eval      Z         = 13
>  *
> C                   When      SSCTRY    = CC and
> C                             SSFY      = YY + 2
> C                   Eval      Z         = 25
>  *
> C                   When      SSCTRY    = CC and
> C                             SSFY      = YY + 3
> C                   Eval      Z         = 37
>  *
> C                   Endsl

<snip>


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.510 / Virus Database: 307 - Release Date: 8/15/2003


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