>LPARAMETERS lcInput >CLOSE ALL > >LOCAL lcMsg >lcMsg = "" > >IF PARA() < 1 > lcInput = "[no parameter passed]" >ENDIF > >ON ERROR DO error_check WITH ERROR(), MESSAGE(), MESSAGE(1), PROGRAM(), LINENO() >SET PROC TO testPrg > >lnTest = 4 + "5" &&THE ERROR should be created here > >lcMsg = "The passed parameter is: " + lcInput + CHR(13) >lcMsg = lcMsg + "Version with Debug" >MESSAGEBOX(lcMsg) > >CLEAR ALL >CLOSE ALL > >FUNCTION error_check > LPARAMETER mnum, mmsg, mcode,mprg,mlineno > LOCAL lcMsgErr > lcMsgErr = "" > > lcMsgErr = "Error Number: " > lcMsgErr = lcMsgErr + ALLTRIM(STR(mnum)) + CHR(13) > lcMsgErr = lcMsgErr + "Message: " > lcMsgErr = lcMsgErr + ALLTRIM(mmsg) + CHR(13) > lcMsgErr = lcMsgErr + "Code: " > lcMsgErr = lcMsgErr + ALLTRIM(mcode) + CHR(13) > lcMsgErr = lcMsgErr + "Function: " > lcMsgErr = lcMsgErr + ALLTRIM(mprg) + CHR(13) > lcMsgErr = lcMsgErr + "Line Number: " > lcMsgErr = lcMsgErr + ALLTRIM(STR(mlineno)) > > MESSAGEBOX(lcMsgErr) >ENDFUNC >>Then I compiled to versions of the exe one with DEBUG and one with NO DEBUG option set from project info.