data a;                                                                                                                                       
input jan1996 feb1996 mar1996  apr1996 may1996;                                                                                                
cards;                                                                                                                                         
1 2 3 4 5                                                                                                                                      
2 3 4 5 6                                                                                                                                      
;                                                                                                                                             
run;                                                                                                                                          
proc sql;                                                                                                                                      
select name into: namevar separated by " " from  dictionary.columns where libname="WORK" and memname="A";                                      
quit;                                                                                                                                          
                                                                                                                                               
%put &namevar.;                                                                                                                                
data b;                                                                                                                                       
set a;                                                                                                                                         
array month    &namevar. ;                                                                                                                    
run;