{已解決}从一个表中读出多个数据，然后以每个数据为宏变量，调用一个宏程序

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我现在有n个商品的 销售数据，我现在想把 每个商品 的销量和 价格 按时间序列做图，然后保存下来。

现有数据为 data sample， 我对其中的商品id做一个统计， 即用

data test；
set sample；
by ITEM_CODE1；
if first.ITEM_CODE1;
run;

得到表 test




test中有n个商品的ITEM_CODE1，然后让sas依次读取表中的商品ITEM_CODE1，然后执行宏 Marco plot，得出的图名称为此商品的 ITEM_CODE1，最后把结果保存在指定文件夹中。
感谢楼下 可～乐朋友的帮助，现修改代码如下，但是sas跑不出来，希望大家帮忙看看：



在sas中输入以下代码，






%Macro plot(itemcode);*此宏为做图，大家可略过，主要就是传递宏变量 &itemcode
data sample1;
set sample;
where ITEM_CODE1="&itemcode";
run;


data sampledate;
merge sample1 store048.date;
by date;
run;


proc sort data=sampledate;
by  ITEM_CODE1 date;
run;


data sample11;
set sampledate;
by ITEM_CODE1 date;
if first.date then daily_sales=0;
daily_sales+QTY;
if last.date then output;
run;


data sample11;
set sample11;
keep date daily_sales;
run;
proc sort data=sample11;
by date;
run;


data sampleprice;
merge sample1 store048.date;
by date;
retain netprice;
if not missing(price) then netprice=price;
run;


data sampleprice;
set sampleprice;
keep date netprice;
run;


data sampleprice;
set sampleprice;
by date;
if first.date;
run;


data mergesample;
merge sampleprice sample11;
by date;
run;


title "&itemcode";
proc gplot data=mergesample;
plot netprice*date;
plot2 daily_sales*date;
symbol1 i=join;
symbol2 i=needle;
run;


%mend;




proc sort data=sample out=test(keep=ITEM_CODE1) nodupkey;
        by ITEM_CODE1;
run;


%macro test;


%let dsid=%sysfunc(open(work.test,i));


%let rc=%sysfunc(fetch(&dsid));
        %do %while(&rc=0);
                %let itemcode=%sysfunc(trim(%sysfunc(left(%sysfunc(getvarc(&dsid,1))))));
                %plot(&itemcode);
                %let rc=%sysfunc(fetch(&dsid));     
        %end;
                %let rc=%sysfunc(close(&dsid));      

%mend;




简而言之，就是目前有数据集 sample，和表test， 利用宏将test中的 ITEM_CODE1 值赋予 &itemcode；
将 itemcode 从test中读出，然后执行 marco plot， 循环，最后得到所有的图。

数据表见附件 sas.rar (492.77 KB) 本附件包括：

• sample.sas7bdat
• test.sas7bdat

2012-3-26 02:25:42 上传

请下载492kb的那个

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：宏程序 NODUPKEY sysfunc missing Sample 文件夹 朋友 程序 统计

自己顶一下，在线等

重新编辑了一下，求教大家了！

求教高手啊！

抱着热心求问的态度，请大家给点帮助，非常感谢！

求高人解答！

The sample program should have all ingredients needed for your problem. Good luck.


data t1;
    do prod='PROD1','PROD2','PROD3';
            do date=today( ) - 30 to today ( ) by 1;
                    n=ceil(ranuni(123)*10);
                        do i=1 to n;
                          
                          price= 10*ranuni(123)+5;
                          cost=  10*ranuni(123);
                          net_profit=price-cost;
                          itermnb+1;
              output;
                        end;
                end;
         end;
         drop n i;
         format date yymmdd10.;
run;

proc print;run;


%macro plotit(dsn=, prod=);

proc means data=&dsn nway;
class  date;
var net_profit ;
output out=stat mean=net_profit n=daily_sales;
where prod="&prod";
run;

goption reset=all;

symbol1 i=j line=1 value=star color=red;
symbol2 i=j line=2 value=dot color=green;

proc gplot data=stat;
plot net_profit*date;
plot2 daily_sales*date;
run;
quit;
%Mend plotit;

%plotit(dsn=t1, prod=PROD1);
%plotit(dsn=t1, prod=PROD2);
%plotit(dsn=t1, prod=PROD3);

恩，你试试运行看看下面程序

1. %Marco plot(itemcode);
   
2. data sample1;
   
3. set sample;
   
4. where ITEM_CODE1="&itemcode";
   
5. run;
   
6. 
   
7. data sampledate;
   
8. merge sample1 store048.date;
   
9. by date;
   
10. run;
    
11. 
    
12. proc sort data=sampledate;
    
13. by  ITEM_CODE1 date;
    
14. run;
    
15. 
    
16. data sample11;
    
17. set sampledate;
    
18. by ITEM_CODE1 date;
    
19. if first.date then daily_sales=0;
    
20. daily_sales+QTY;
    
21. if last.date then output;
    
22. run;
    
23. 
    
24. data sample11;
    
25. set sample11;
    
26. keep date daily_sales;
    
27. run;
    
28. proc sort data=sample11;
    
29. by date;
    
30. run;
    
31. 
    
32. data sampleprice;
    
33. merge sample1 store048.date;
    
34. by date;
    
35. retain netprice;
    
36. if not missing(price) then netprice=price;
    
37. run;
    
38. 
    
39. data sampleprice;
    
40. set sampleprice;
    
41. keep date netprice;
    
42. run;
    
43. 
    
44. data sampleprice;
    
45. set sampleprice;
    
46. by date;
    
47. if first.date;
    
48. run;
    
49. 
    
50. data mergesample;
    
51. merge sampleprice sample11;
    
52. by date;
    
53. run;
    
54. 
    
55. title 'STORE048 COFFEE NESTLE COFFEE MATE 200g';
    
56. proc gplot data=mergesample;
    
57. plot netprice*date;
    
58. plot2 daily_sales*date;
    
59. symbol1 i=join;
    
60. symbol2 i=needle;
    
61. run;
    
62. 
    
63. %mend;
    
64. 
    
65. 
    
66. proc sort data=sample out=test(keep=ITEM_CODE1) nodupkey;
    
67.         by ITEM_CODE1;
    
68. run;
    
69. 
    
70. %macro test;
    
71. *打开存放参数的数据集;
    
72. %let dsid=%sysfunc(open(work.test,i));
    
73. 
    
74. *fetch是为了判断是否读取完数据集记录，若已读完，则返回-1，否则返回0，赋给宏变量rc;
    
75. %let rc=%sysfunc(fetch(&dsid));
    
76.         %do %while(&rc=0);
    
77.                 *trim是去掉字符右边的空格，left是去掉字符左边的空格，getvarc(&dsid,1)是读取数据集的第一列，
    
78.                 读取第二列则为getvarc(&dsid,2),getvarc是针对字符，若该列是数值型的则为getvarn(&dsid,2);
    
79.                 %let itemcode=%sysfunc(trim(%sysfunc(left(%sysfunc(getvarc(&dsid,1))))));
    
80.                 %plot(&itemcode); *传参数到你所要调用的宏;
    
81.                 %let rc=%sysfunc(fetch(&dsid));        *同上fetch;
    
82.         %end;
    
83.                 %let rc=%sysfunc(close(&dsid));        *关闭数据集;
    
84. 
    
85. %mend;
    
86. 
    
87. %test;

复制代码

可~乐 发表于 2012-3-26 00:14
恩，你试试运行看看下面程序

我已经重新编辑原文，上传了两个附件，麻烦帮忙测试下，我这里尝试了下跑不出来；感谢