options ls=80 ps=70;                                                            
data wcoast;                                                                    
file 'wcoast.lst';                                                              
infile 'wcoast.asc' dlm=',';                                                    
input id $ num1 @;                                                              
put @1 'ID' @9 'Number of points' @30 'Longitude' @47 'Latitude';               
put @1 id @15 num1 @;                                                           
num=num1* -1;                                                                   
array long{197};                                                                
array lat{197};                                                                 
do i = 1 to num;                                                                
input long{i} lat{i};                                                           
put @30 long {i} 9.4 @45 lat{i} 9.4;                                            
end;                                                                            
run;