adding trailing zeros & period to fields

[archibald]

Hi , 

I need to add trailing zeros and period field, any help would be appreciated.

data have;

Input alpha : $5.;

cards;

00100

1019

099

185

1010

0803

12398;

run;

data want;

set have;

test1=substr(alpha,1,3)||'.'|| substr(alpha,4,2); /* add a period to fields*/

run;

 In addition  to adding a period ,  I would  want to add trailing zeros so to have :

test1

001.00

101.90

099.00

185.00

101.00

080.30

123.98;

[sowmya]

You could read the data as below:

data have;

Input alpha;

cards;

00100

1019

099

185

1010

0803

12398;

run;

data formatted;

format new z6.2;

set have;

new=alpha/100;

run;

This should work, however in the example u gave the data is not consistant. For example, if the first row has trainling zeros, how come rest of them dont have.

[archibald]

@sowmya not all the data will need a trailing zeros, as you can see on what the result should look like. 

Thanks!

[Kurt_Bremser · Accepted solution]

data have;
Input alpha : $5.;
cards;
00100
1019
099
185
1010
0803
12398
;
run;

data want;
set have;
substr(alpha,length(alpha)+1) = '00000';
length test1 $6;
test1 = substr(alpha,1,3) !! '.' !! substr(alpha,4);
run;

[archibald]

This is perfect!Thank you very much!

[andreas_lds]

Just replace the blanks in alpha with zeros an your code will produce the required resulsts.

data want;
set have;

alpha = translate(alpha, '0', ' ');
test1=substr(alpha,1,3)||'.'|| substr(alpha,4,2); /* add a period to fields*/
 
run;

[archibald]

Another great solution. Thank youvery much!