do _n_=1 to 100;
   if x="a"||put(_n_,z3.) then y="a";
end;

关于format还有一点，'a001'-'a100'并不只表示if语句中的那列值，它表示的是按照字符的顺序排序位于'a001'或之后，而且位于'a100'或之前的任意字符串。

proc format;
   value $tmp "a001"-"a100"="a";
run;

data test;
    input x :$20.;
        y=put(x,$tmp.);
        put x= y=;
        cards;
a001
a0HAHAHAHA
a0whatever
a00whatever
;

哦 我明白了 谢谢你！~

You can try this as well:

data test;
do _n_=1 to 600;
    x="a"||put(_n_,z3.);
        output;
end;
run;

data test2;
set test;
Pattern = "/a00?|a100/i"; * Define PRX *;
PRX = prxparse(Pattern); * Compile PRX *;
Match_Result = prxmatch(PRX,x); * Search for PRX *;
if Match_Result eq 1;
drop PRX Match_Result Pattern;
run;