COMO COMBINAR UN CICLO DO Y UNA INTRUCCION

como combinar un ciclo do y una intruccion
If\else
use c\learnfox\emplist
clear
?
wait"do you want the names capitalized(y\n)"to
?
do while.not.eof()
if upper (yes no)="y"
? upper (trim(fname+" "+ Iname)
else
?proper (trim(fname)+" "+Iname)
end if