Here is a simplied version of what I posted before that will write all of the files in one data step. That makes both the code generation easier and the execution faster.
First get the contents and divide into groups. Note that with this verison the sort by VARNUM is critical since postional variable lists (A -- B) will be used later to write the columns. You can change the upper bound of 1000 in the DO loop to control how many variables are written to each file. The lower bound of three is to allow room for the two id variables at the front.
proc contents data=have out=contents(keep=varnum name) noprint ; run;
proc sort data=contents;
where lowcase(name) not in ('studyid','partnum');
by varnum;
run;
data files ;
group+1;
do col=3 to 1000 ;
set contents;
output;
end;
run;
Now use this file to both write the header lines to each of the output files and also write the code needed to write the data lines. Modify the statement that creates the FNAME variable to match your file naming requirement. Note the inclusion of the MOD option in the generated FILE statements. That is because the header line will already be written be this step and the step that writes the data just needs to append to the existing files. Also note it is using a line length of 1,000,000 which should be more than enough for 1,000 variables as long as they aren't all extremely long character variables. SAS can support longer line lengths, but it might depend on your operating system.
filename code temp;
data _null_;
set files ;
by group ;
fname = cats('outfile',group,'.csv');
file csv filevar=fname dsd lrecl=1000000 ;
if first.group then put 'studyid,partnum,' @;
put name @ ;
if last.group then put ;
file code ;
if first.group then put
/ 'file ' fname :$quote. 'dsd mod lrecl=1000000;'
/ 'put ( studyid partnum ' name '-- ' @
;
if last.group then put name ') (+0);' ;
run
Now write the data lines. Notice that the included code only had the FILE and PUT statements so the rest of the data step is just plain code that should be easier to edit. I included loops to handle both the special missing value issue and blanking out tabs, cr and lf characters. I used two SET statements to force STUDYID and PARTNUM to the beginning of the data vector so that the postional variable lists will not include them. I used the INDSNAME= option on the second SET just to make sure there was at least one character variable defined for the _character_ variable list used in the array definition. I also used the DO OVER style loops that SAS is trying to remove from the documentation. It is just so much easier to not have to code indexes for operations that you want to apply to all members of an array.
data _null_;
set have (keep=studyid partnum);
set have (drop=studyid partnum) indsname=__C__;
array __C _character_;
array __N _n_ _numeric_;
do over __C ; __C=translate(__C,' ','090A0D'x); end;
do over __N ; if missing(__N) then __N=.; end;
%include code / source2 ;
run;
Click image to register for webinar
