/*Create Position Statement Program*/
/*By Kaz Uekawa April 26 2006*/
/*Create position statement for creating text-version of SAS data sets*/
/*(1) Open POSITION_INFORMATION_TAKER.xls.*/
/*(2) Change the "spaces" column of POSITION_INFORMATION_TAKER. Default is 3.*/
/*(3) when you run syntax below, SAS will populate the excel sheet with relevant info.*/

%let dataset=sashelp.class;
%let excelname=POSITION_INFORMATION_TAKER.xls;
%let mainfolder =G:\temp; /*The excel file has to be stored here*/

/*about how many variables.  If less than 500 you don't have to change this setting*/
%let suji=500;

libname main "&mainfolder";
data XXX;set &dataset;
suji=_N_;
if suji=1;
drop suji;
run;

proc contents data=xxx position;
ods output variables=ue;
run;

data ue;
set ue;
if type="Num" then sign=" ";
if type ne "Num" then sign="$";
run;
proc sort;
by pos;
run;


FILENAME ddedata DDE
"excel|&mainfolder\[&excelname]Sheet1!r2c1:r&suji.c1" notab;
FILENAME ddecmds DDE "excel|system";
data _null_;
set ue;
file ddedata;
put Variable '09'x  ;
run;

FILENAME ddedata DDE
"excel|&mainfolder\[&excelname]Sheet1!r2c2:r&suji.c2" notab;
FILENAME ddecmds DDE "excel|system";
data _null_;
set ue;
file ddedata;
put sign '09'x  ;
run;