topic How to write all variable name followed by value in quotes while writing a text file from a dataset? in New SAS User

How to write all variable name followed by value in quotes while writing a text file from a dataset?

kumarayas — Fri, 29 Nov 2019 04:57:44 GMT

Example:

TableA

Col1 Col2

abc 123

abd 90

I want to write file like this:

Col1="abc" Col2="123"

Col1="abd" Col2="90"

I don't want to name the variables like this:

Put 'Col1=' col1 ~ 'Col2=' col2 ~ ;

It should print all variables in a dataset.

This doesn't work as it puts only values in quotes:

Put (_ALL_) (~) ;

This puts all variable names and values without quotes:

Put (_ALL_) (=);

Is there a way to combine above two ways or is there any other way to do this?

I am using Base SAS9.4 on windows server 2008 R2

Re: How to write all variable name followed by value in quotes while writing a text file from a data

Ksharp — Fri, 29 Nov 2019 11:58:41 GMT

You could change it later.

filename x temp;
data _null_;
 set sashelp.class;
file x;
put (_all_) (=);
run;

filename want 'c:\temp\want.txt';
data x;
 infile x truncover ;
 input x $200.;
 y=prxchange('s/=?(=(\S+))/="\2"/',-1,x);
 file want ;
 put y;
run;

Re: How to write all variable name followed by value in quotes while writing a text file from a data

MichaelLarsen — Fri, 29 Nov 2019 12:18:00 GMT

Something like this?

%macro exportNamed(Table=,File=);
  %let Lib=%upcase(%scan(&Table,1,.));
  %let Tab=%upcase(%scan(&Table,2,.));
  %if %length(&Tab) = 0 %then %do;
    %let Tab=&Lib;
    %let Lib=WORK;
  %end;
  %let columns=;
  proc sql noprint;
    select name into : columns separated by '#'
    from dictionary.columns
    where libname = "&Lib"
      and memname = "&Tab" 
    order by npos;
  quit;

  filename outfile "&File";
  /* Export the values */
  data _null_;
    set &Table. ;
    file outfile;
    put
    %let _col=;
    %let i = 1;
    %do %until( %length(&_col)=0 );
      %let _col = %qscan(&columns,&i,#);
      %if %length(&_col) > 0 %then %do;
        "&_col.=" '"' &_col +(-1) '"' +1
      %end;
      %let i=%eval(&i + 1);
    %end;
      ;
  run;

  filename outfile clear;
%mend;

%ExportNamed(Table=sashelp.class,File=myfile.txt);

The result:

Age="14" Height="69" Weight="112.5" Name="Alfred" Sex="M"
Age="13" Height="56.5" Weight="84" Name="Alice" Sex="F"
Age="13" Height="65.3" Weight="98" Name="Barbara" Sex="F"
Age="14" Height="62.8" Weight="102.5" Name="Carol" Sex="F"
Age="14" Height="63.5" Weight="102.5" Name="Henry" Sex="M"
Age="12" Height="57.3" Weight="83" Name="James" Sex="M"
Age="12" Height="59.8" Weight="84.5" Name="Jane" Sex="F"
Age="15" Height="62.5" Weight="112.5" Name="Janet" Sex="F"
Age="13" Height="62.5" Weight="84" Name="Jeffrey" Sex="M"
Age="12" Height="59" Weight="99.5" Name="John" Sex="M"
Age="11" Height="51.3" Weight="50.5" Name="Joyce" Sex="F"
Age="14" Height="64.3" Weight="90" Name="Judy" Sex="F"
Age="12" Height="56.3" Weight="77" Name="Louise" Sex="F"
Age="15" Height="66.5" Weight="112" Name="Mary" Sex="F"
Age="16" Height="72" Weight="150" Name="Philip" Sex="M"
Age="12" Height="64.8" Weight="128" Name="Robert" Sex="M"
Age="15" Height="67" Weight="133" Name="Ronald" Sex="M"
Age="11" Height="57.5" Weight="85" Name="Thomas" Sex="M"
Age="15" Height="66.5" Weight="112" Name="William" Sex="M"

Re: How to write all variable name followed by value in quotes while writing a text file from a data

Tom — Fri, 29 Nov 2019 19:23:52 GMT

It is easy to do with character variables.

678   data _null_;
679    set sashelp.class (obs=2);
680    format _character_ $quote. ;
681    put (_all_) (=);
682   run;

Name="Alfred" Sex="M" Age=14 Height=69 Weight=112.5
Name="Alice" Sex="F" Age=13 Height=56.5 Weight=84

Why would you want quotes around numeric values? Perhaps you can build your won QUOTE format for numeric variables using PROC FORMAT.

Or you can use CALL VNEXT() to loop through the variable names and VVALUEX() to get the formatted values of the variables. You will need to invent two new variable names that do not conflict with any of your existing variable names.

What do you want to do with leading spaces in the displayed values? Here is code that removes them for numeric variables only.

%let dsn=sashelp.class(obs=2);

data _null_;
 set &dsn ;
 length __name $32 __value $32767 ;
 do while (1=1);
   call vnext(__name);
   if __name = '__name' then leave;
   __value=vvaluex(__name);
   if vtypex(__name)='N' then __value=left(__value);
   put __name +(-1) '=' __value :$quote. @;
 end;
 put;
run;

Name="Alfred" Sex="M" Age="14" Height="69" Weight="112.5"
Name="Alice" Sex="F" Age="13" Height="56.5" Weight="84"

Re: How to write all variable name followed by value in quotes while writing a text file from a data

kumarayas — Mon, 02 Dec 2019 04:09:43 GMT

Thanks. It works really well.

Re: How to write all variable name followed by value in quotes while writing a text file from a data

kumarayas — Mon, 02 Dec 2019 04:12:04 GMT

It works but is quite slow for large datasets.