In this code, it may be better to use SCAN/ENDSCAN instead of DO WHILE !EOF() because:

- SCAN will automatically set the alias back
- SCAN will automatically SKIP
- SCAN is faster


>Hi All:
>
>Here is a do While loop that I have. The problem is that it exits after the first iteration itself.
>
>

do while not eof()
>        mclaim_no = paylisttotal.claim_no
>	mclaim_pay = paylisttotal.amt_paid
>		
>        IF mclaim_no <> 0
>	   SELECT (feesubmit+feesubmit1+feesubmit2+feesubmit3+;
>		feesubmit4+feesubmit5+feesubmit6) as fee_billed;
>		from services ;
>		into cursor CurrentClaim nofilter ;
>		where services.claim_no = mclaim_no
>		
>	   Update services set services.amt_paid = mclaim_pay ,;
>		services.paid_date = date() ,;
>		services.close_rec = "YES" ;
>		where services.claim_no = mclaim_no
>	   IF mclaim_pay = CurrentClaim.Fee_Billed
>		UPDATE services set services.paid = "YES",;
>		   services.closeclaim = "YES",;
>		   services.closedate = DATE();
>		   WHERE services.claim_no = mclaim_no
>	   ENDIF
>	ENDIF
>	mclaim_no = 0
>	mclaim_pay = 0
>	
>	SKIP
>	if eof()
>	  exit
>	else
>	  loop
>	endif
>ENDDO

>
>
>Where am I going wrong? Thanks in advance.