Monday, August 28, 2006

Sas macro format

текст

DATA _NULL_;
FILE PRINT;
RUN;
%MACRO FORMAT(VAL=VAL,LOW=,START=,STOP=,COUNT=);
PROC FORMAT;
VALUE &VAL
%DO X=&START %TO &STOP %BY &COUNT;
%LET Y=%SYSEVALF(&X-5/10);
&LOW<-&Y="&LOW-&Y"
%LET LOW=%SYSEVALF(&Y+5/10);
%PUT &LOW;
%END;
;
%MEND FORMAT;

%FORMAT(LOW=0,START=1,STOP=5,COUNT=1) ;

data next;
DO VALUE=1 TO 5 BY 0.05;
OUTPUT;
END;
run;

proc print;
format value val.;
RUN;

No comments: