*!***********************************************
>*!
>*! Procedure: GOEOF
>*!
>*!***********************************************
>PROCEDURE GoEOF
>LPARAMETER sel
>* Usage: GoEOF("tablename"), parameter is optional.
>IF EMPTY(m.sel)
> m.sel= SELECT()
>ENDIF
>IF ! EOF(m.sel)
> LOCAL setFilt, setDel
> setFilt= FILTER(m.sel)
> setDel= SET('Deleted')
> SET DELETED OFF
> IF EMPTY(m.setFilt)
> GO BOTTOM IN (m.sel)
> SKIP IN (m.sel)
> ELSE
> LOCAL oldSel
> oldSel= SELECT()
> SELECT (m.sel)
> SET FILTER TO
> GO BOTTOM
> SKIP
> SET FILTER TO &setFilt
> SELECT (m.oldSel)
> ENDIF
> IF m.setDel = 'ON'
> SET DELETED ON
> ENDIF
>ENDIF
><\PRE>
>HTH
Thanks.Chuck Henry