>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 >