使用PROC BOM（bome10）聚合预测
/**************************************************************//* *//*S A S S A M P L E L I B R A R Y*//* *//*姓名：BOME10*//*标题：使用PROC BOM（bome10）聚合预测*//*产品：或*//*系统：所有*//*关键字：或*//*程序：BOM、打印、排序、SQL*//*数据：*//* *//*支持：更新：*//*参考：*//*MISC：BOM程序章节中的示例10*//*物料清单簿*//* *//**************************************************************//*输入数据集*/数据需求10；格式化父项$14。孩子14美元。代码$2；输入父项和子项&代码$pct nitems；数据线；配送中心1仓库1 DC 1。配送中心1仓库2 DC 1。配送中心2仓库3 DC 1。配送中心2仓库4 DC 1。配送中心2仓库5 DC 1。仓库1仓库01仓库1。仓库1仓库02 WH 1。仓库1仓库03 WH 1。仓库2仓库04 WH 1。仓库2仓库05 WH 1。仓库3仓库06 WH 1。仓库3仓库07 WH 1。仓库3仓库08 WH 1。仓库4仓库09 WH 1。仓库4仓库10 WH.5。仓库5仓库11 WH 1。仓库5仓库10 WH.5。仓库01。ST.公司。1002号商店。ST.公司。20存储03。ST.公司。10仓库04。ST.公司。20存储05。第。1006号仓库。ST.公司。20存储07。ST.公司。10存储08。ST.公司。20存储09。ST.公司。10存储10。ST.公司。20存储11。ST.公司。10;/*创建层次结构*/过程bom数据=需求10输出=indbom10；结构/部件=父级parent=父级组件=子数量=pctid=（nitems代码）；运行；/*按相反顺序对输出数据集进行排序*/proc排序数据=indbom10；通过降序part _id；运行；/*通过层次结构汇总预测*/数据累加10；设置indbom10；数组项[3]dcitems whitems stitems；保留dcitems whitems stitems 0；做i=1到_level；如果nitems，则items[i]=items[i]+pct*nitems；结束；如果是nitems，则items[level+1]=items[_level+1]+nitems；产出；do i＝_级别+1到3；项目[i]=0；结束；运行；/*显示每个门店的预测*/过程排序数据=累加10（其中=（code=“ST”））out=商店10nodupkey；第_部分；运行；proc打印数据=存储10个noobs；title 1“ABC灯具公司”；title3“商店总计”；变量部件代码机构；运行；/*显示每个仓库的汇总预测*/过程排序数据=累加10（其中=（代码=“WH”））out=房屋10nodupkey；第_部分；运行；proc打印数据=houses10 noobs；标题1“ABC灯具公司”；标题3“仓库总计”；var_Part_代码空白；运行；/*显示每个配送中心的汇总预测*/过程排序数据=累加10（其中=（代码=“DC”））输出=dcs10nodupkey；第_部分；运行；proc打印数据=dcs10 noobs；标题1“ABC灯具公司”；标题3“配送中心总计”；格式_部件_$14；变量部件代码数据项；运行；