53%
if %sysfunc(fileref(&outref)) > 0 %then %
do;
54 filename &outref temp;
58%let vars=%upcase(%mf_getvarlist(&libds));
60%
if %trim(X&vars)=X %then %
do;
61 %put &sysmacroname: Table &libds has no columns!!;
72%
do i=1 %to %sysfunc(countw(&vars));
73 %let var=%scan(&vars,&i);
74 %let fmt=%lowcase(%mf_getvarformat(&libds,&var,force=1));
79%
do i=1 %to %sysfunc(countw(&vars));
87 file &outref mod dlm=
'|' lrecl=32767;
90 line=
'|`'!!cats(%mf_getvarlist(&libds,dlm=%str(%)!!
' `|`'!!cats%()))!!
' `|';
94%
if %upcase(&showlog)=YES %then %
do;
95 options ps=max lrecl=max;
98 if _n_=1 then putlog
"# &libds" /;