SAS Base 中的无效 DO 循环控制信息

Question

我需要为每一行查找按用户和 ID_option 分组的最后 3 小时使用情况（使用情况是数据集中的列之一）。每行（行）代表一条记录（3 分钟时间间隔内）。例如（包括所需列 sum_usage_3hr）：

User  ID_option          time             usage        sum_usage_3hr
1         a1        12OCT2017:11:20:32       3             10
1         a1        12OCT2017:10:23:24       7             14
1         b1        12OCT2017:09:34:55       12            12
2         b1        12OCT2017:08:55:06       4              6
1         a1        12OCT2017:07:59:53       7              7
2         b1        12OCT2017:06:59:12       2              2

我已将下面的代码用于哈希 table:

data want;
 if _n_=1 then do;
  if 0 then set have(rename=(usage=_usage));
  declare hash h(dataset:'have(rename=(usage=_usage))',hashexp:20);
  h.definekey('user','id_option','time');
  h.definedata('_usage');
  h.definedone();
 end;
set have;
sum_usage_3hr=0;
do i=time-3*3600 to time ;
 if h.find(key:user,key:id_option,key:i)=0 then sum_usage_3hr+_usage;
end;
drop _usage i;
run;

但我得到一个错误：无效的 DO 循环控制信息，INITIAL 或 TO 表达式丢失或者 BY 表达式丢失、为零或无效。如果我添加：输出; 结尾：就在 "run;" 上面，它给了我一个错误：'No matching DO/Select statement'。任何人都知道是什么导致了这个问题？我也有首先对 table 进行排序的版本，并给了我同样的错误。谢谢

实施答案后：

User  ID_option          time             usage   sum_usage_3hr   col_i_got
1         a1        12OCT2017:11:22:32       3         12             3      
1         a1        12OCT2017:11:20:24       0          9             3
1         a1        12OCT2017:10:34:55       2          9             2
1         a1        12OCT2017:09:55:06       0          7             2
1         a1        12OCT2017:09:43:45       0          7             0
1         a1        12OCT2017:08:59:53       7          7             7
1         a1        12OCT2017:06:59:12       0          0             7

Answer 1

试试这个：

问题一：

输入：

data have;
input User  ID_option  $        time            usage    ;
informat time datetime18.;
format time datetime18.;
cards;
1         a1        12OCT2017:11:20:32       3
1         a1        12OCT2017:10:23:24       7
1         b1        12OCT2017:09:34:55       12
2         b1        12OCT2017:08:55:06       4
1         a1        12OCT2017:07:59:53       7
2         b1        12OCT2017:06:59:12       2
;
run;

代码：

proc sort data=have out=have1;
by user id_option time;
quit;

data have2;
set have1;
by user id_option;
format previous_time datetime18.;
previous_time = lag(time);
previous_usage = lag(usage);
if first.ID_option then previous_time=.;
if previous_time ~= . and intnx("hour",time,-3,"s") <= previous_time <= time then sum_usage_3hr=usage+previous_usage; 
else sum_usage_3hr = usage;
drop previous_time previous_usage;
run;

proc sort data=have2 out=want;
by descending time ;
quit;

输出：

 User   ID_option   time    usage   sum_usage_3hr
    1   a1  12Oct2017 11:20:32  3   10
    1   a1  12Oct2017 10:23:24  7   14
    1   b1  12Oct2017 9:34:55   12  12
    2   b1  12Oct2017 8:55:06   4   6
    1   a1  12Oct2017 7:59:53   7   7
    2   b1  12Oct2017 6:59:12   2   2

问题2：

输入：

data have;
input user1  ID_option  $        time            usage    ;
informat time datetime18.;
format time datetime18.;
cards;
1         a1        12OCT2017:11:22:32       3
1         a1        12OCT2017:11:20:24       0
1         a1        12OCT2017:10:34:55       2
1         a1        12OCT2017:09:55:06       0
1         a1        12OCT2017:09:43:45       0
1         a1        12OCT2017:08:59:53       7
1         a1        12OCT2017:06:59:12       0
;
run;

代码：

proc sql;
create table want as
select user1,id_option,time,min(usage) as usage,sum(usage1) as sum_usage_3hr
from
(
select a.*,b.time as time1 ,b.usage as usage1
from
have a
left join
have b
on a.user1 = b.user1 and a.id_option = b.id_option and b.time <= a.time
where  intck("hour",a.time ,b.time) >= -3
)
group by 1,2,3
order by time desc;
quit;

输出：

user1   ID_option   time    usage   sum_usage_3hr
1   a1  12Oct2017 11:22:32  3   12
1   a1  12Oct2017 11:20:24  0   9
1   a1  12Oct2017 10:34:55  2   9
1   a1  12Oct2017 9:55:06   0   7
1   a1  12Oct2017 9:43:45   0   7
1   a1  12Oct2017 8:59:53   7   7
1   a1  12Oct2017 6:59:12   0   0

如有任何疑问，请告诉我。

SAS Base 中的无效 DO 循环控制信息

Invalid DO loop control information in SAS Base

hashtable

sas

proc-sql