>1.)After Append Blank fires....the Scan does not go to the next record...
>2.) If I comment out APPEND BLANK..then if will go...
>
>What can I do. I tried using Insert Into..and still same issue
>3.)z2 is a Cursor that is ReadWrite
>***********************************************************************************************
>SELECT z2
>
>SCAN
>
> SELECT zafl
> SEEK z2.zbpile + str(z2.zbshee,7)+ z2.zbmark ORDER ZBZONE
>
> IF FOUND()
>
> SELECT z2
> APPEND BLANK
> replace z2.zone WITH '99'
>
> ENDIF
>
>
>ENDSCAN
>***********************************************************************************************

You can scan into a z2 copy.
If z2 have not an order active, you can scan into z2

SELECT z2
EndRec = RECCOUNT()+1 && otherwise you scan the appended record with '99'
SCAN ALL WHILE RECNO()<>m.EndRec FOR SEEK(zbpile + str(zbshee,7)+ zbmark,"zafl","ZBZONE")
     
      rno = RECNO()
      APPEND BLANK 
      replace zone WITH '99'
      GO m.rno

ENDSCAN