options nocenter; *options obs=6; libname library "~/bulk/cost-reports/hosp/"; * by Jean Roth, 2003-12-19 ; * Please report any problems or errors to jroth@nber.org * NOTE: This program is distributed under the GNU GPL. * See http://www.gnu.org/licenses/ for details. ; * Copyright 2004 shared by the National Bureau of Economic Research and Jean Roth ; %let user=; %macro loop(fyear=,lyear=); %do year=&fyear. %to &lyear.; proc sort data=library.alpha&year.&user. out=xx; by rpt_rec_num; proc print data=xx (obs=6); proc transpose data=xx out=library.alpha&year.&user.t (drop = _NAME_); by rpt_rec_num; var alphnmrc_itm_txt; id varname; run; proc print data=library.alpha&year.&user.t (obs=6); run; %end; %mend; %loop(fyear=1995,lyear=2009); %*loop(fyear=2006,lyear=2006);