data string;
informat string1 string2 string3 $100.;
infile cards dlm=',';
input string1 $ x $;
count=0;
max_len=0;
drop i string2 string3 len x;
if index(string1,'222') > 0 then do;
string2 = translate(tranwrd(string1,'0','|'),'|','13456798 0');
put string2=;
do i = 1 to countc(string2,'|');
string3=scan(string2,i,'|');
put i= string3=;
len=length(compbl(strip(scan(string2,i,'|'))));
max_len=max(max_len,len);
count=(len > 3) + count;
end;
end;
cards;
0000011220221000022222111111222222222220100022222222222222222222222220,x
22222222222000000222,x
2122,x
2220222022122221,x
11100000000000000101100000000000000000000,x
0022222222222222222,x
0022222222222222222,x
11100020002000222222222222222222222222222222222222222,x
;;;
run;
... View more