Looking forward to VFP8 release...

>
>Or, also as Garret suggested, for VFP8, something along these lines:
>

>TRY
>   USE HOME(2) + "data\customer" IN 0 EXCLUSIVE
>CATCH TO OERR
>   MESSAGEBOX(TRANSFORM(OERR.MESSAGE) + CHR(13) + ;
>      "LINE #:" + TRANSFORM(OERR.LINENO) + CHR(13) + ;
>      "LINE:" + TRANSFORM(OERR.LINECONTENTS), ;
>      16, "ERROR IN " + TRANSFORM(OERR.PROCEDURE))
>FINALLY
>ENDTRY
>