I was going thru some of my old programs and found this one bit long, can you help me edit this into few lines of codes instead of this long (this route is in DO CASE, looks like I need another DO CASE within DO CASE?):
IF m.instnum = SPACE(4)
m.obt=1
WAIT WINDOW 'Inputs not completed' TIMEOUT 1
ELSE
IF m.borrnum1 = SPACE(3)
m.obt=2
WAIT WINDOW 'Inputs not completed' TIMEOUT 1
ELSE
IF m.borrnum2 = SPACE(2)
m.obt=3
WAIT WINDOW 'Inputs not completed' TIMEOUT 1
ELSE
IF m.borrnum3 = SPACE(4)
m.obt=4
WAIT WINDOW 'Inputs not completed' TIMEOUT 1
ELSE
IF m.seqnum = SPACE(2)
m.obt=5
WAIT WINDOW 'Inputs not completed' TIMEOUT 1
ELSE
IF m.namelast = SPACE(13)
m.obt=6
WAIT WINDOW 'Inputs not completed' TIMEOUT 1
ELSE
IF m.namefirst = SPACE(12)
m.obt=7
WAIT WINDOW 'Inputs not completed' TIMEOUT 1
ELSE
IF m.addr1 = SPACE(25)
m.obt=8
WAIT WINDOW 'Inputs not completed' TIMEOUT 1
ELSE
IF m.loanamount = 0
m.obt=12
WAIT WINDOW 'Inputs not completed' TIMEOUT 1
ELSE
IF m.intrate = SPACE(5)
m.obt=13
WAIT WINDOW 'Inputs not completed' TIMEOUT 1
ELSE
IF m.sepdate = SPACE(6)
m.obt=16
WAIT WINDOW 'Inputs not completed' TIMEOUT 1
ELSE
IF m.nxtpaydue = SPACE(6)
m.obt=17
WAIT WINDOW 'Inputs not completed' TIMEOUT 1
ELSE
IF m.seqcode = SPACE(1)
m.obt=18
WAIT WINDOW 'Inputs not completed' TIMEOUT 1
ELSE
IF m.mpd = SPACE(3)
m.obt=19
WAIT WINDOW 'Inputs not completed' TIMEOUT 1
ELSE
IF m.zipcode=SPACE(5)
m.zipcode='00000'
ENDIF
APPEND BLANK
GATHER MEMVAR
SCATTER MEMVAR BLANK
WAIT WINDOW 'Record has been saved' TIMEOUT 1
STORE 0 TO m.choice4,m.exitnewl
m.users=gcLoginId
m.intrate='12000'
m.seqnum='01'
m.seqcode='1'
m.obt=1
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
Today is tomorrow's yesterday.