YIKES!!!
What a mess!!!

Got me!!??!!

Tried this out before I went home....

Will take a close look when I get home...

Tommy

ps... here is the result.... but how do you format it to keep it looking
correct on the UT???

**********************************************
*Here is how it looks after beautify...
IF NOT LenderRevInit(m.tcFileName)
IF VARTYPE(oJC)='O'
oJC.CurAppStat='I'
ENDIF
* set flag to abort due to failure to perform proper database setup
RETURN .F.
ENDIF

WITH THISFORM
.LOCKSCREEN=.T.
LOCATE FOR !EMPTY(BldMstr.LName)
IF !FOUND()
= MESSAGEBOX('No record to process!)
MESSAGEBOXif vartype(oJC)='O'
MESSAGEBOXif vartype(oJC)='OoJC.CurAppStat='I'
MESSAGEBOXif vartype(oJC)='OoJC.CurAppStat='Iendif'
* set flag to abort due to failure to perform proper database setup
RETURN .F.
ENDIF
******************************************************************