topic Re: Create 4 digit length in the text in SAS Programming

Create 4 digit length in the text

ybz12003 — Sat, 14 Mar 2020 16:06:18 GMT

Hello,

I have a sample test dataset. I would like to put 0 in front of the digit shown the result column.

data test;
      infile datalines dsd;
  input Name : $300. Result : $200. ;
datalines;
	01,  0001
	4000, 4000,
	78790, 78790,
	2, 0002,
	111, 0111
;

run;

Re: Create 4 digit length in the text

Reeza — Sat, 14 Mar 2020 16:10:57 GMT

Read it in as a number and use the Z4 format which will add zeros.

results_padded = put(input(result, 8.), z4.);

Re: Create 4 digit length in the text

ed_sas_member — Sat, 14 Mar 2020 16:17:30 GMT

Hi @ybz12003

You can use the following approach to achieve this:

data want;
	set test;
	length result2 $ 200;
	if input(Name, 8.) < 1000 then result2 = put(input(Name, 8.), z4.);
	else result2 = Name;
run;

Best,

Re: Create 4 digit length in the text

ybz12003 — Sat, 14 Mar 2020 16:17:58 GMT

The code change 78790 to 79E3. Not the one I want.

Re: Create 4 digit length in the text

mkeintz — Sat, 14 Mar 2020 16:52:28 GMT

You can make your own format:

proc format;
  picture myfmt
     0 -    9999='9999'
 99999<-   99999='99999'
 999999<-  999999='999999';
run;

data x;
  input x;
  format x myfmt. ;
  format x mfmt. ;
datalines;
01
4000
78790
2
111
;
proc print;run;

Edited change. The PICTURE statement above replaced this VALUE statement:

  value myfmt
      0 -  9999=[z4.] 
  99999&lt;- 99999=[z5.]
 999999&lt;-999999=[z6.]  ;

Re: Create 4 digit length in the text

Tom — Sat, 14 Mar 2020 18:44:26 GMT

@ybz12003 wrote:

Hello,

I have a sample test dataset. I would like to put 0 in front of the digit shown the result column.
data test;
      infile datalines dsd;
  input Name : $300. Result : $200. ;
datalines;
	01,  0001
	4000, 4000,
	78790, 78790,
	2, 0002,
	111, 0111
;

run;

Do you actually have the 8 leading spaces in the values of NAME implied by starting your lines of data in column 9 instead of column 1? If so then using the $ informat instead of the $CHAR informat will eliminate the leading spaces. Worse if those lines of data start with a tab character you might end up with the actual tab character in the data if you are using SAS/Studio instead of Display Manager to edit and submit your SAS code.

Assuming the values of NAME do not have either leading spaces, embedded space (or tabs), then you could just right align the values and replace the leading spaces with zeros. Adjust the length of the right aligned value to have a minimum of 4 characters.

result = translate(putc(name,cats('$',max(4,length(name)),'.-R')),'0',' ');

Note this will convert a missing value (all blank value) into '0000'.