Re: Compile error

From: Donald Tees (donald_tees_at_nospam.sympatico.ca)
Date: 03/14/04 

Date: Sun, 14 Mar 2004 06:47:46 -0500

KL wrote:
> Can someone help? I have coded this and can't figure out why I get an error:
>
> BONUS-PROCESS.
> DIVIDE SAL-SLD-P BY SAL-ASKING-P GIVING SAL-PO-ASKING.
> MULTIPLY 100 BY SAL-PO-ASKING.
> EVALUATE SAL-PO-ASKING
> WHEN SAL-PO-ASKING >= 95
> MULTIPLY SAL-SLD-P BY .05 GIVING SAL-COMM-PAID
> COMPUTE SAL-BONUS = (SAL-SLD-P - (SAL-ASKING-P * .95)) * .4
> ADD SAL-BONUS TO SAL-COMM-PAID
> WHEN SAL-PO-ASKING >= 94
> MULTIPLY SAL-SLD-P BY .045 GIVING SAL-COMM-PAID
> WHEN SAL-PO-ASKING >= 93
> MULTIPLY SAL-SLD-P BY .04 GIVING SAL-COMM-PAID
> WHEN SAL-PO-ASKING >= 92
> MULTIPLY SAL-SLD-P BY .035 GIVING SAL-COMM-PAID
> WHEN SAL-PO-ASKING >= 91
> MULTIPLY SAL-SLD-P BY .03 GIVING SAL-COMM-PAID
> WHEN SAL-PO-ASKING >= 90
> MULTIPLY SAL-SLD-P BY .025 GIVING SAL-COMM-PAID
> WHEN OTHER
> MULTIPLY SAL-SLD-P BY .025 GIVING SAL-COMM-PAID
> COMPUTE SAL-PENALTY = (SAL-ASKING-P * .95) - SAL-SLD-P
> SUBTRACT SAL-PENALTY FROM SAL-COMM-PAID
> END-EVALUATE.
>
> It appears to have a problem with the numeric literals 95-90. The exact
> compile error I get is:
> E Selection object or THROUGH/THRU invalid; found '95'
>
> and it says the same thing for 94-90. Any ideas?
>
> KL

Your sytax is wrong ...

        evaluate sal-po-asking
         when >= 95
                blah
         when >= 94
                blah blah
         when >= 93
                 etc etc

Donald