%macro kfood;
data work.calorie;
infile...;
input id foodname $ calorie;
run;

求定义宏代码（输入食物id获取卡路里）

data work.kfood;
infile ...;
input...;
     ......;
求调用宏获取卡路里并计算每餐总卡路里和食物种类的代码;

run;
%mend kfood;
%kfood

请问，以上的想法是否可行？
代码应该如何编写？

work.kfood的每个观测的变量有
食物种类 M1-M10 (取值为1-40)
第一天对应的早餐食用克数 A1-A10
第一天对应的午餐食用克数 B1-B10
第一天对应的晚餐食用克数 C1-C10
..........
第三天对应的午餐食用克数 H1-H10
第三天对应的晚餐食用克数 I1-I10
说明，很多食用克数是缺失的。

work.calorie的每个观测的变量有
食物种类 id (取值为1-40) 与work.kfood的变量M1-M10对应.
食物名称 foodname
食物每克卡路里  calorie