I would use Perl Regular Expressions and do it like this: This code will eliminate characters a-z and A-Z (ASCII codes 65 to 90) (others can be added of course!) if they appear at least two times in sequence and are surrounded by so called word boundaries. data Test; infile cards; input; s = _infile_; do i=65 to 90; s = prxchange(cats("s/\b", byte(i),"{2,}\b//i"), -1, s); end; s = strip(compbl(s)); cards; AAA VVVVVVVVVVVVVVVVVVVVVV EEEEEEEEEEEEEEEEEEEEEEEEEE RTYUY QWEPO ZZZZZZZZZZZZZ KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KOOL GONE RUN ; RUN ; Kind Regards Thomas
... View more