BOM表宏一章中的示例（bommacro）
/**************************************************************//*S A S S A M P L E L I B R A R Y*//* *//*姓名：BOMMACRO*//*标题：BOM宏一章中的示例（bommacro）*//*产品：或*//*系统：所有*//*关键字：或*//*程序：BOM，打印*//*数据：*//* *//*支持：更新：*//*参考：*//*其他：*//* *//**************************************************************/title“BOM后处理宏章节示例”；/**************************************************************输入数据集**************************************************************//*零件主记录*/数据PMaster；输入第8部分。描述$24。单位$8。交付周期8.0;数据线；1100成品竖井每个2个1200 6直径钢板每3块1300轮毂各2个1400 1/4-20螺钉各1个1500钢支架各2个1600个单向插座每个2个1601三通插座各2个1700接线组件每个12100 3/8钢管英寸32200 16号线规灯线脚22210 14号线规灯线脚22300标准插头端子每个1A100单向插座组件。每个1A101三通插座组件。每个1B100底座总成每个1LA01灯LA每个2S100黑色阴影每个2;/*产品结构记录*/数据ParComp；格式SDate EDate date9。；输入父$8。组件$8。质量每4.0Fscrap 6.2版LTOff 4.0版本S日期10。E日期10。;数据线；LA01 A100 1。2 . .LA01 B100 1。LA01 S100 1。B100 1100 1。B100 1200 1。B100 1300 1。1 . .B100 1400 4美元。3 . .A100 1500 1。A100 1600 1。A100 1700 1。A101 1500 1。A101 1601 1。A101 1700 1。1100 2100 26 0.2 . . .1500 1400 2 . . . .1700 2200 12 0.1 . . 2001年3月7日1700 2210 12 0.1 . 2001年4月8日。1700 2300 1 . . . .;/*创建缩进BOM表数据集*/proc bom data=ParComp pmdata=PMaster out=IndBOM；结构/零件=零件leadtime=交付周期parent=父级component=组件数量=QtyPer系数=Fscrap偏移=LTOffid=（描述单位）rid=（SDate EDate）；运行；/*显示缩进的BOM表数据*/过程打印数据=IndBOM；var级别父级Paren_ID部件ID描述数量Fscrap Qty_Prod Unit LeadTime Tot_Lead LTOff Tot_Off日期EDate_Prod_；标题为“ABC灯具公司”；title3“缩进物料清单”；运行；%bomrmlb（root='A100'，in=IndBOM，数量=QtyPer，factor=Fscrap，提前期=leadtime，偏移量=LTOff，out=BomOut1，drop=Paren_ID Part_ID_Prod_）；/**************************************************************报表宏**************************************************************//*BOMRMLB：缩进BOM表*/proc打印数据=BomOut1 noobs；var _级别_父级_部件_描述数量/废料数量_棒单位交付周期总时间_读取LTOff总时间_关闭SDate EDate；标题为“ABC灯具公司”；title2“%BOMRMLB宏”；title3“缩进材料清单，第A100部分”；运行；/*BOMRMLW：缩进的使用位置列表*/%bomrmlw（root='1400'，in=IndBOM，qtused=qtyused，out=BomOut2，drop=零件ID零件ID质量_Prod）；proc打印数据=BomOut2；var _级别_父级_部件_描述每个废料数量使用单位的数量交付周期总计_读取LTOff总计_关闭SDate EDate_Prod_；标题为“ABC灯具公司”；title2“%BOMRMLW宏”；title3“缩进的用途清单，第1400部分”；运行；/*BOMRMLW：缩进的使用位置列表*/%bomrslb（root='B100'，in=IndBOM，out=BomOut3）；proc打印数据=BomOut3 noobs；var _父_部件_每个废料单元的描述数量交付周期LTOff SDate EDate；标题为“ABC灯具公司”；title2“%BOMRSLB宏”；标题3“B100部分单层材料清单”；运行；/*BOMRSLW：单层使用列表*/%bomrslw（root='1400'，in=IndBOM，数量=QtyPer，rid=日期EDate，qtyused=使用的数量，out=BomOut4）；proc打印数据=BomOut4 noobs；var_Parent_Desc QtyUsed Fscrap Unit提前期LTOff日期EDate；标题为“ABC灯具公司”；title2“%BOMRSLW宏”；title 3“单级使用列表，第1400部分”；运行；/*BOMRSUB：汇总BOM表*/%bomrsub（root='LA01'，in=IndBOM，数量=QtyPer，qtyreq=qtyreq，rid=SDate EDate LTOff Fscrap，req=50，out=BomOut5）；proc打印数据=BomOut5 noobs；var _ Part _ Desc Unit LeadTime QtyReq；标题为“ABC灯具公司”；title2“%BOMRSUB宏”；title3“材料清单汇总，第LA01部分：要求=50”；运行；/*BOMRSUW：汇总使用位置列表*/%bomrsuw（root='1400'，in=IndBOM，数量=QtyPer，qtyused=使用的数量，rid=D日期E日期LTOff废料，输出=BomOut6）；proc打印数据=BomOut6 noobs；var _ Part _ Desc Unit LeadTime QtyUsed；标题为“ABC灯具公司”；title2“%BOMRSUW宏”；标题3“第1400部分汇总用途清单”；运行；/**************************************************************事务宏**************************************************************//*新产品结构记录*/数据ParComp1；格式SDate EDate date9。；输入父对象$8。_第8部分。质量每4.0Fscrap 6.2版长期停用4.0S日期10。E日期10。;数据线；1700 1400 1 . . . .;/*显示新产品结构记录*/proc打印数据=ParComp1 noobs；var _父对象_部件_每Fscrap数量LTOff日期EDate；标题为“ABC灯具公司”；标题3“产品结构记录”；母级1700，部件1400'；运行；/*BOMTCNP：复制和粘贴事务*/%bomtcnp（root='1400'，attach='1700'，in=IndBOM，psdata=ParComp1，数量=QtyPer，偏移=LTOff，系数=Fscrap，leadtime=交付周期，id=描述单位，rid=日期EDate，输出=BomOut7）；proc打印数据=BomOut7；var _级别_父亲_零件ID描述数量Fscrap Qty_Prod Unit LeadTime Tot_Lead LTOff Tot_Off日期EDate_Prod_；标题为“ABC灯具公司”；title2“%BOMTCNP宏”；title3“缩进物料清单”；运行；/*BOMTDEL：多重删除事务*/%bomtdel（root='2200'，in=IndBOM，out=BomOut8）；proc打印数据=BomOut8；var _级别_父亲_零件ID描述数量Fscrap Qty_Prod Unit LeadTime Tot_Lead LTOff Tot_Off日期EDate_Prod_；标题为“ABC灯具公司”；title2“%BOMTDEL宏”；title3“缩进物料清单”；运行；/*BOMTREP：多重替换事务*/%bomtrep（root='A100'，repby='A101'，in=IndBOM，数量=QtyPer，offset=LTOff，factor=Fscrap，leadtime=交付周期，id=描述单位，rid=日期EDate，del=1，out=BomOut9）；proc打印数据=BomOut9；var级别父级Paren_ID部件ID描述数量Fscrap Qty_Prod Unit LeadTime Tot_Lead LTOff Tot_OffS日期EDate_Prod_；标题为“ABC灯具公司”；title2“%BOMTREP宏”；title3“缩进物料清单”；运行；/*BOMTSAE：同为例外事务*//*零件主记录*/数据PMaster1；输入第8部分。描述$24。单位$8。交付周期8.0;数据线；LA03 LA灯，带3路插座，每个2个;/*显示新产品结构记录*/proc打印数据=PMaster1 noobs；标题为“ABC灯具公司”；标题3“零件主记录”；零件LA03’；运行；%bomtsae（root='LA03'，sameas='LA01'，except='A100'，repby='A101'，in=IndBOM，pmdata=PMaster1，part=part，quantity=QtyPer，offset=LTOff，factor=Fscrap，leadtime=交付周期，id=描述单位，rid=日期EDate，out=BomOut10）；过程打印数据=BomOut10；var级别父级Paren_ID部件ID描述数量Fscrap Qty_Prod Unit LeadTime Tot_Lead LTOff Tot_Off日期EDate_Prod_；标题为“ABC灯具公司”；title2“%BOMTSAE宏”；title3“缩进材料清单，LA03部分”；运行；