阵列下标超出范围SAS

Question

我有一个包含3个变量的数据集：id，日期和交易金额。尝试运行此代码时出现以下错误：

DATA new;
SET old;
BY id date;
RETAIN dt1- dt400   amt1- amt400;
ARRAY TFL{400} dt1 - dt400;
ARRAY TAM{400} amt1 - amt400;
IF first.id THEN DO;
      CALL MISSING(of TFL{*});
      CALL MISSING(of TAM{*});
END;
z = INTCK('DAY', '31JUL2018'd,date);
TFL{z} = date;
TAM{z} = net_expenditure;
IF last.id THEN OUTPUT;
RUN;

错误：第39行第1列的数组下标超出范围。

有人可以帮助我了解如何调试此问题吗？