COMO COMBINAR UN CICLO "DO" Y UNA INSTRUCCION "IF/ELSE"

use c\\earnfox\emplist
clear
?
wait "do you want the names capitalized (y/n)" to yesno
?
do while.not.eof()
if upper (yes no)="y"
?upper (trim(fname)+" "+iname
else
?proper(trim(fname)+" "+iname
end if
skip
enddo
?
use
wait