Ahora uno de la "nueva escuela" ;-))
d mayus c 'ABCDEFGHIJKLMNÑOPQRSTUVWXYZÁÉÍÓÚ'
d minus c 'abcdefghijklmnñopqrstuvwxyzáéíóú'
/free
setll *loval fichero;
read fichero;
dow not %eof(fichero);
if %scan('RESTO':%xlate(minus:mayus:campo))<>0;
except;
leave;
endif;
read fichero;
enddo;
/end-free
El %xlate, te evita hacer varias búsquedas por las mayúsculas y minúsculas.
Saludos.
Juan Carlos.