具有单个输入数据集的BOM表
/***************************************************************//* *//*S A S S A M P L E L I B R A R Y*//* *//*姓名：BOME01*//*标题：带有单输入数据集的BOM表*//*（bome01）*//*产品：或*//*系统：所有*//*钥匙：或PPLOT*//*程序：BOM、PRINT、NETDRAW*//*数据：*//* *//*支持：更新：*//*参考编号：*//*MISC：BOM程序章节中的示例1*//*物料清单簿*//* *//***************************************************************//*输入数据集*/数据SlBOM1；输入父$6。描述$24。单位：6美元。（成分1-成分3）（6美元）（Qty1-Qty3）（4.0）;数据线；LA01灯LA每个B100 S100 A100 1 1 1B100底座组件每个1100 1200 1300 1 1 11400年4月。S100黑色阴影每个。A100套筒组件每个1500 1600 1700 1 1 11100成品轴每个2100 26。1200个6直径钢板，每个。每个1300个轮毂。1400 1/4-20螺丝每个。1500钢支架每个1400 2。1600个单向插座每个。1700接线组件每个2200 2300 12 1。2100 3/8钢管英寸。2200 16-规格灯线脚。2300标准插头端子每个。;/*显示输入数据集*/proc打印数据=SlBOM1 noobs；标题为“ABC灯具公司”；title3“PROC BOM输入数据集”；运行；/*创建缩进BOM表和汇总明细表*/proc bom data=SlBOM1 out=IndBOM1汇总=汇总BOM1；结构/部件=父级parent=父级组件=（Comp1-Comp3）数量=（Qty1-Qty3）id=（描述单位）；运行；/*显示缩进的BOM表数据*/proc打印数据=IndBOM1 noobs；变量_级别_父级_部件_描述质量_每个质量_棒单位Paren_ID Part_ID_Prod_；标题为“ABC灯具公司”；title3“缩进材料清单，LA01部分”；运行；进程排序数据=SumBOM1；第_部分；运行；proc打印数据=SumBOM1 noobs；标题为“ABC灯具公司”；title3“总结零件清单，第1期”；运行；/*绘制树状图以说明产品结构*//*每条记录表示树中的一个节点*/数据IndBOM1a（drop=Part_ID）；设置IndBOM1；Paren_ID=零件ID；运行；/*提取父零件信息*/数据IndBOM1b；设置IndBOM1（保持=Paren_ID Part_ID）；运行；/*为运行NETDRAW准备数据集*/数据TreBOM1；设置IndBOM1a IndBOM1b；运行；/*指定图形选项*/goptions hpos=32 vpos=80边界；pattern1 v=s c=蓝色；title h=5 j=c‘多级物料清单图’；脚注h=2 j=l'节点显示ID号、部件号和所需数量'；/*调用PROC NETDRAW以显示BOM树*/proc netdraw data=TreBOM1（其中=（Paren_ID NE.））out=NetOUT；actnet/act=Paren_ID suc=Part_ID ID=（Paren_ID_Part_Qty_Per）ctext=白色htext=3 font=瑞士carcs=黑色ybetween=3 x between=8中心ID树pcompress-rotatetext-rotate箭头=0直线节点nolabel；运行；