Very Computer

Thanx for reading this...

Here's part of the code...

p_Month = MONTH(EOW)
use EM excl
do case
        case p_Month = 1
        scan for hire_date < {02/01/97}
                ** 1st, set grant and ent.
                replace grant with 80.0, entitlement with 80.0  
                ** Next, re-calc for pos. balance.
                replace carryover with balance, ;  
                        balance with grant ;
                        for balance >= 0.0
                ** Now, re-calc for neg. balance.
                replace balance with (grant + balance), ;  
                        carryover with 0.0 ;
                        for balance < 0.0                    
        endscan

        case p_Month = 2
        ...SNIP...

endcase

The other 11 months are similar to case p_Month = 1.

I thought scan...endscan was supposed to loop thru EVERY record that
matches the for condition AND execute all the statements within.  In
this case however, the trace window shows that the scan EXITS after it
processes the first record.  The other records that meet this criteria
do not get processed and replaced as per the code.

Please tell me why this is happening, and how to fix it.  I need the
replacements to run against ALL records that match the scans' "for
condition".

Thanx much for your help.  RH

.

Quote:>            replace carryover with balance, ;  
>                    balance with grant ;
>                    for balance >= 0.0

Andy

ENDSCAN is just a glorified CONTINUE (yes, often more efficient, faster,
cleaner, whatever.)  If a command within the SCAN loop moves the pointer
to EOF, when you hit ENDSCAN you're done.

You need to save the record position before your REPLACE FORs, and
re-position the pointer before the ENDSCAN.  Try:

scan for hire_date < {02/01/97}
        * SAVE POSITION
        hrec = recno()

        replace balance with (grant + balance), ;
                carryover with 0.0 ;
                for balance < 0.0
        etc.....

        * RESTORE POSITION
        go hrec
endscan

--
Bill Bardon
Elkhorn, Nebraska

Hello,

If you haven't already been told or figured it out by now, the reason is
the FOR clause on your REPLACE statements.

The FOR clause cases the REPLACE to process the entire table, picking only
the records that match, and it leaves the record pointer at the end of the
file.  So when your ENDSCAN hits, there are no more records to process.

Try

SCAN
   lcRecord = RECNO
   REPLACE ....  FOR ....

   GO lcRecord
ENDSCAN

Regards
Mark

Steve Andrews

IF balance < 0
    REPLACE ;
        balance with (grant + balance), ;
        carryover with 0.0
ELSE
    REPLACE ;
        carryover with balance, ;
        balance with grant ;
ENDIF

Btw. now you are replacing ALL records meeting the FOR condition in
REPLACE command, not only those meeting both FORs in REPLACE and SCAN
commands, so the REPLACEs are actually redundant..

Peter

--
 =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

    University of Zilina, Moyzesova 20, 01001 Zilina, Slovakia
 =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=