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

gqm2008

2990

收藏 2012-03-25

我现在有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

附件列表

sas.rar

大小:115.92 KB

马上下载

请下载492kb的那个

本附件包括：

zuotu.sas
sample.sas7bdat

扫码加我拉你入群

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

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

全部回复

gqm2008

2012-3-25 17:30:28

自己顶一下，在线等

扫码加我拉你入群

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

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

gqm2008

2012-3-25 17:51:21

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

扫码加我拉你入群

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

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

gqm2008

2012-3-25 19:01:56

求教高手啊！

扫码加我拉你入群

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

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

gqm2008

2012-3-25 19:06:22

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

扫码加我拉你入群

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

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

gqm2008

2012-3-25 20:05:24

求高人解答！

扫码加我拉你入群

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

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

点击查看更多内容…

bobguy

2012-3-25 21:10:15

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);

扫码加我拉你入群

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

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

可~乐

2012-3-26 00:14:12

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

复制代码

扫码加我拉你入群

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

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

gqm2008

2012-3-26 02:13:05

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

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

扫码加我拉你入群

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

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

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群