[PROC FREQ] OneWayFreqs output data set 생성하기

기본으로 제공되는 결과 양식을 조금 수정하여 보기 좋게 변경하는 예제입니다.

ods listing close;

ods output OneWayFreqs=outfreq;                                                  

                                                                                  

proc freq data=sashelp.class;                                                    

   tables age sex;                                                                

run;                                                                              

                                                                                  

ods output close;                                                                

ods listing;                                                                      

                                                                                  

proc print data=outfreq label;                                                    

run;                                                                              

                                                                                  

/* 테이블 양식 정리 */    

data allfreq;                                                                    

   retain table column_value;                                                    

   set outfreq;                                                                  

   keep table column_value frequency percent cumfrequency cumpercent;  

   table=scan(table,1,' ');  

   column_value=trim(left(vvaluex(table)));                                      

   label table='Table'                                                            

         column_value='Column_Value';                                            

run;                                                                              

                                                                                  

proc print data=allfreq label;                                                    

run;

데이터 셋 찾기

데이터셋 이름을 파라메터로 입력하면 어떤 라이브러리에 있는지 찾아주는 매크로 입니다.

 

%macro findDataSet(dsname);

    proc sql noprint;

        select  libname into :lib separated by ','

        from    sashelp.vmember

        where   memname=upcase("& dsname") and memtype='DATA'

        ;

    quit;

    %put Data Set [& dsname]은 [&lib] Library에 있습니다;

%mend findDataSet;

%findDataSet(adomsg);

화면에서 매크로 변수 값 입력

거의 20년전에 베이직이나 포트란으로 코딩하던 향수를 불러 일으키네요. ^^

화면에서 매크로 변수값을 입력하는 간단한 예제 입니다.

%WINDOW INFO

  #5 @6 '작업년월을 입력하세요(jobbaseym)[yyyymm]:'

  #5 @50 JOBBASEYM 6 ATTR=UNDERLINE;

%DISPLAY INFO;

%LET JOBBASEYM=%TRIM(&JOBBASEYM);

%LET YEAR=%SUBSTR(&JOBBASEYM,1,4);

%PUT *********************;

%PUT [작업년월]:&JOBBASEYM;

%PUT [작업연도]:&YEAR;

%PUT *********************;

입력 화면에 컬러를 추가하는 예제입니다.

%window info color=gray  

  #3 @5 '환영합니다'

  #5 @5 'ID를 입력하세요:'                                                                                                          

  #5 @26 id 8 attr=underline                                                                                                            

  #7 @5 '오늘은 '                                                                                                                    

  #7 @15 "%sysfunc(today(),yymmdds10.)" attr=rev_video color=pink

  #7 @25 '일 입니다'

  #12 @29 'Press ENTER to continue.';

%display info;                                                                                                                          

                                                                                                                                        

%put [입력된 ID : &id];