************correction, thanks :

lnMaxLineas = memlines(valdincode.codegen)

For nCnt = 1 to lnMaxLineas
lcComando = alltrim(UPPER(mline(valdincode.codegen,nCnt)))

Do Case
Case inlist(ALLT(lcComando),"{DO WHILE}","{IF}")
nCnt = nCnt +1
lcExpr =alltrim(UPPER(mline(valdincode.codegen,nCnt)))
nCnt = nCnt +1
nCnt2 = nCnt
Do WHILE (&lcExpr)
lcComando= alltrim(UPPER(mline(valdincode.codegen,nCnt)))
&lcComando
nCnt = nCnt+1
IF inlist(allt(mline(valdincode.codegen,nCnt)),"ENDIF","ENDDO")
nCnt=nCnt2
ENDIF
Enddo
endcase
endfor