filename source URL "%STR(http://www.abc.com)" debug;
data temp1;
format webpage $1000.00;
infile source lrecl=32767 delimiter=">";
input
webpage @@;
run;
data temp2;
set temp1;
informat name $30.00;
informat num $6.00;
where webpage like "%</a" and (kindex(webpage,'0')>0 or kindex(webpage,'1')>0 or kindex(webpage,'2')>0 or kindex(webpage,'3')>0 or kindex(webpage,'4')>0 or kindex(webpage,'5')>0 or kindex(webpage,'6')>0 or kindex(webpage,'7')>0 or kindex(webpage,'8')>0 or kindex(webpage,'9')>0)
webpage=substrn(webpage,1,find(webpage,"</a")-1);
name=substrn(webpage,1,length(webpage)-7);
num=substrn(webpage,length(name)+2,6);
drop webpage;
run;