Terry,

You need an ENDSCAN.

-Dan

>Dear lookers-over-the-shoulder
>
>My compiler won't let me out of the method wherein lies this code. It objects to the "Else". If I comment out the "Scan Rest" command it's happy. Can anyone see the problem? Beats the c**p out of me!
>

>If SEEK( lcSeekKey)	&& then RZSTOP recs already set up for this route combo
>  If Not FLOCK()
>      = MESSAGEBOX( "Route: " + lcRoute + ", Gen: " + lcGen + ", Dir: " + lcDirectn + "." + CHR(13) + ;
>  	  	  "Another user has the Route-Zones-Stops Link Table locked." + CHR(13) + ;
>  	  	  "Cannot continue with saving this Route's Zones and Stops.", MB_ICONINFORMATION, ;
>  	  	  "Route-Zones-Stops Link Table Locked")
>      llSuccess		          = .F.
>      Scan Rest 	For RTE_NO    = tcRoute ;
>		And RTE_LET   = tcGen ;
>		And DIRECTN   = tcDirectn	&& so we're done with this RGD
>  Else
>      Delete All	For RTE_NO    = tcRoute ;
>		And RTE_LET   = tcGen ;
>		And  DIRECTN  = tcDirectn
>      Skip				&& In case above delete fails - not know where we'd be in table
>      llSuccess		     = TABLEUPDATE(.T.)
>      UNLOCK
>  EndIf Not FLOCK()
>EndIf SEEK()
>

>
>Terry