Re: How to do qualified?

["Peter Dow" <maillist@xxxxxxxxxxxxxxx>]

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