请帮忙改写一个SAS程序

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我现在有一个SAS程序，一共有２０个问题（Q１-Q２０）， 每个问题的基本程序都一样，只有两处不同，第一就是每个问题都有一个不同的TITLE， 譬如说 对于Q１： TITLE＂Q１：WHAT IS YOUR NAME＂， 对于Q２ ：TITLE ＂Q２：WHAT IS YOUR DOB＂等等。第二个不同就是把程序里的Q１变成Q２，Q３。。。。。

我只会把同样的程序复制２０遍，然后改一下里面的TITLE内容并且把Q１什么的带换一下。如果需要修改某部分程序，要修改２０次才行，

1. Title5 h=10pt "Q1)  Process: What is your Name";
   
2. proc sql;
   
3. create table loc_Q1 as
   
4. select distinct upcase(Target)as Target, Region, reviewtype,
   
5. sum(Q1='Yes' or Q1='No') as total , sum(Q1='Yes') as yes_count, calculated yes_count / calculated total as per format=percent9.2
   
6. from sasuser.Demo
   
7. where Target Contains "&Target" and input("&FromDate.",mmddyy10.)<= (sigDate)<=input ("&todate.",mmddyy10.)
   
8. group by Region, reviewtype; quit;
   
9. 
   
10. proc report nowd data=loc_Q1;
    
11. column Region region_name reviewtype,(yes_count total Percentage)
    
12. ("Region Total" Region_yes Region_all Region_per);
    
13. define Region /group 'Region' noprint;
    
14. define region_name /computed 'Region';
    
15. define reviewtype / 'Review Type' across;
    
16. define yes_count/analysis 'Yes Number';
    
17. define total/analysis 'Total Number';
    
18. define percentage/computed "Percentage" format=percent8.2;
    
19. define Region_yes/computed "YES Number"   ;
    
20. define Region_all/"Total Number" Computed;
    
21. define region_per/computed "Percentage" format=percent8.2;
    
22. 
    
23.    compute region_name /char; region_name=Region;if region_name='' then region_name='Total';endcomp;
    
24.    compute percentage;   _c5_ = _c3_/_c4_;   _c8_= _c6_/_c7_;   endcomp;
    
25.    compute Region_yes ;Region_yes= sum(_c3_ ,_c6_);endcomp;
    
26.    compute Region_all;Region_all=sum(_c4_,_c7_);endcomp;
    
27.    compute Region_per;region_per=_c9_/_c10_;endcomp;
    
28. rbreak after /summarize ;
    
29. run;

复制代码

请高手帮我精简一下程序。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：sas程序 calculate proc sql Distinct sasuser 程序

This is a good example using macro and macro variables. Try the follows

/* 1.
  Replace the number in TITLE5 with a macro reference &num, so the title5 becomes title&num
  Replace the Q1 in your code with a macro reference &QQ,
  Replace the text in the title with a macro reference &titletext, so the first line of you code become
Title&num h=10pt “&QQ)   &titletext”;
*/

/* 2. Change your code to a macro named mymacro, then compile the macro */
%macro mymacro;

Your code here

%mend mymacro;


/* 3. Assign the values to the macro variables, then submit the macro as */
%let num=1;
%let QQ=Q1;
%let titletext= Process: What is your Name;
%mymacro

/* 4. Repeat the step 3 when you change the values of the macro variables */

Thanks very much.
with this macro, I change the num, QQ, and titletext, the program will run one time which mean only one question processed.
If you do not mind, can I ask whether there's a way i can run all these 20 questions in one time.

lovedieer 发表于 2013-3-12 20:35
Thanks very much.
with this macro, I change the num, QQ, and titletext, the program will run one t ...

try this

data A;
input num qq $2.  @6 titletext  $50.;
datalines;
1 Q1 Process: What is your Name
2 Q2 Process: what is your city
3 Q3 Process: what is your address
;run;

%macro mymacro;
     title&num h=10pct "&QQ   &titletext";
      proc print data=a;
          run;
%mend mymacro;

data _null_;
     set a;
         call symput('num', num);
         call symput('QQ', QQ);
         call symput('titletext', titletext);
         call execute('%mymacro');
run;

Thank you very much. I am learning macro now. just finish reading the contents and need practice.

yongyitian 发表于 2013-3-12 21:56
try this

data A;

Great. And I wonder if there is any method to eliminate the warning about the title statement in the log window. Thanks.

Eternal0601 发表于 2013-3-12 22:31
Great. And I wonder if there is any method to eliminate the warning about the title statement in t ...

I run the code again, did not see any warning message. But the title is not shown in the html output window. I don't know why. What is warning you got?

yongyitian 发表于 2013-3-12 22:51
I run the code again, did not see any warning message. But the title is not shown in the html outp ...

NOTE: CALL EXECUTE generated line.
1   + title           1 h=10pct "Q1   Process: What is your Name                        ";
WARNING: The TITLE statement is ambiguous due to invalid options or unquoted text.
1   +                                                                                            proc
print data=a;           run;

NOTE: There were 3 observations read from the data set WORK.A.
NOTE: PROCEDURE PRINT used (Total process time):
      real time           0.32 seconds
      cpu time            0.03 seconds


2   + title           2 h=10pct "Q2   Process: what is your city                        ";
WARNING: The TITLE statement is ambiguous due to invalid options or unquoted text.
2   +                                                                                            proc
print data=a;           run;

NOTE: There were 3 observations read from the data set WORK.A.
NOTE: PROCEDURE PRINT used (Total process time):
      real time           0.00 seconds
      cpu time            0.00 seconds


3   + title           3 h=10pct "Q3   Process: what is your address                     ";
WARNING: The TITLE statement is ambiguous due to invalid options or unquoted text.
3   +                                                                                            proc
print data=a;           run;

NOTE: There were 3 observations read from the data set WORK.A.
NOTE: PROCEDURE PRINT used (Total process time):
      real time           0.00 seconds
      cpu time            0.00 seconds

yongyitian 发表于 2013-3-12 22:51
I run the code again, did not see any warning message. But the title is not shown in the html outp ...

I got it. &num in the title statement will be returned as '1'  '2'  '3', which cause the warning in the log window. After removing &num in the statement, there is no such error.

http://listserv.uga.edu/cgi-bin/ ... ;L=sas-l&P=2440

I did several modification with your code to fit my program. and it works great. Thank you very much.