1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
| data test;
input var1 $50.;
cards;
FR2180041026051921183X08642
;
run;
data test1 (drop =i j);
set test;
length var2 $100.;
retain var2;
var2="";
do i =1 to length(var1)+1;
j=substr(var1,i,1);
if j IN ('a','A') THEN j=10;
else if j IN ('b','B') THEN j=11;
else if j IN ('c','C') THEN j=12;
else if j IN ('d','D') THEN j=13;
else if j IN ('e','E') THEN j=14;
else if j IN ('f','F') THEN j=15;
else if j IN ('g','G') THEN j=16;
else if j IN ('h','H') THEN j=17;
else if j IN ('i','I') THEN j=18;
else if j IN ('j','J') THEN j=19;
else if j IN ('k','K') THEN j=20;
else if j IN ('l','L') THEN j=21;
else if j IN ('m','M') THEN j=22;
else if j IN ('n','N') THEN j=23;
else if j IN ('o','O') THEN j=24;
else if j IN ('p','P') THEN j=25;
else if j IN ('q','Q') THEN j=26;
else if j IN ('r','R') THEN j=27;
else if j IN ('s','S') THEN j=28;
else if j IN ('t','T') THEN j=29;
else if j IN ('u','U') THEN j=30;
else if j IN ('v','V') THEN j=31;
else if j IN ('w','W') THEN j=32;
else if j IN ('x','X') THEN j=33;
else if j IN ('y','Y') THEN j=34;
else if j IN ('z','Z') THEN j=35;
var2=compress(catx('',var2,j));
end;
run; |
Partager