1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| data corr;
input No $ Lat1 $ 3-12 Latn1 $ 13-22 Lon1 $23-33 Lonn1 $34-44;
cards;
1 47,085833 47,128765 -74,993333 -74,676693
2 47,832155 47,832544 -74,025477 -74,025483
3 49,366944 49,36698 -69,984722 -69,98477
4 48,650833 48,65088 -69,475466 -69,38694
;
run;
data corr2;
set corr;
Lat1_num=input(substr(lat1,1,6),numx8.3) ;
Latn1_num=input(substr(Latn1,1,6),numx8.3) ;
Lon1_num=input(substr(Lon1,1,7),numx8.3) ;
Lonn1_num=input(substr(Lonn1,1,7),numx8.3) ;
drop Lat1 Latn1 Lon1 Lonn1 ;
rename Lat1_num= Lat1 Latn1_num=Latn1 Lon1_num=Lon1 Lonn1_num=Lonn1;
run;
data corr3;
set corr2;
IF ((LAT1 NE LATN1) OR (LON1 NE LONN1)) THEN OUTPUT corr3;
RUN; |