You also could use SCAN(). But I would like to use Perl Regular Expression. Check CALL PRXNEXT(). Code: Program data have; a="0 - Nothing entered or found. 1 - One or more expression- or else - entered. 99 - Missing"; run; data want; set have; length var $ 100; do i=1 to countw(a,,'d'); var=catx(' ',scan(a,i,,'kd'),scan(a,i,,'d'));output; end; run; Xia Keshan
... View more