工厂扩建项目
/****************************************************************//*S A S S A M P L E L I B R A R Y*//* *//*名称：PMEX02*//*标题：工厂扩建项目*//*产品：或*//*系统：所有*//*关键词：CPM*//*程序：CPM、PRINT、NETDRAW、GANTT、SORT、GPLOT*//*数据：*//* *//*支持：更新：*//*REF：项目管理范例书示例2*//*MISC：Burman，项目规划优先网络*//*和控制*//****************************************************************/goptions边界hpos=80 vpos=43fby=瑞士ftitle=瑞士htitle=2ftext=瑞士htext=1.5；图案1 v=实心c=蓝色；pattern2 v=e c=蓝色；图案3 v=实心c=红色；图案4 v=e c=红色；图案5 v=x2 c=红色；图案6 v=实心c=绿色；图案7 v＝e c＝品红色；图案8 v=固体c=洋红；图案9 v=x1 c=青色；标题“工厂扩建项目”；数据事实数据；格式id$28。；输入动作s1 s2 s3 s4 s5 s6 s7 s8 dur id&；卡；1 3 . . . . . . . 3级场地2 1 . . . . . . . 1拆除油漆库3 11 5 5 4 4 . . . 6开挖基础4 10 10 7 7 . . . . 10铸造基础5 17 18 10 20 20 21 23 24 20新区域的铸造底座6 26 . . . . . . . 4压力机铸造底座7 8 8 . . . . . . 6安装钢结构8 29 9 . . . . . . 9复合屋面和墙体9 17 18 20 21 23 24 . . 2拆除旧墙10 17 18 20 21 23 24 . . 10浇铸地板11 10 . . . . . . . 4铺设地下电缆12 26 . . . . . . . 6搬迁服务13 15 . . . . . . . 3准备开口14 15 . . . . . . . 5订购滚轮门15 . . . . . . . . 2安装滚轮门16 17 . . . . . . . 5订购2个新长椅17 18 . . . . . . . 1安装新工作台18 27 28 31 . . . . . 4张重新摆放的4张旧长椅19 20 . . . . . . . 5订购4台新机器20 21 . . . . . . . 6安装新机器21 27 28 30 . . . . . 16台Re-site 8台旧机器22 23 . . . . . . . 5订购2台新的小型压力机23 24 . . . . . . . 4安装新的小型压力机24 6 12 . . . . . . 12台Re-site 4台旧小型压力机25 26 . . . . . . . 5订购2台新的大型压力机26 31 . . . . . . . 9安装新的大型压力机27 . . . . . . . . 2安装成品仓库墙壁28 . . . . . . . . 4安装成品货架29 17 18 20 21 23 . . . 3在新区域安装照明设备30 31 . . . . . . . 2延伸涂漆部分31 . . . . . . . . 2油漆通道;proc-cpm-data=factdata-out=factoutdate='01nov90'd之前完成；活动行为；id id；持续时间；继任者s1-s8；运行；过程排序数据=事实；通过e_start；运行；title 2“初始时间表”；proc打印数据=factout noobs；var id e_start e_finish l_start l_finish t_float；运行；标题2“指示关键活动的网络”；模式1 v=e；图案2 c=红色；proc-netdraw数据=事实图形；actnet/activity=行为继承人=（s1-s8）id=（id）压缩separateracs font=simplex carcs=blue；运行；proc-netdraw数据=事实图形；actnet/activity=行为继承人=（s1-s8）id=（id）separateracs carcs=蓝色；运行；模式1 v=s；pattern2c=蓝色；数据滞后；输入动作l1$l2$l3$l4$l5$l6$l7$l8$；卡；三。FF_10 SS_3 FF_5 SS_3。4 FF_5 SS_5 FF_13 SS_15。5 FS_10 FS_10 FF_5 SS_10 SS_26 SS_26 SS _16 SS_166 FS_10。7 FF_3 SS_2。10 . . SS_8 SS_8 SS _8 SS_3。14 FS_5。16英尺14英寸。19 FS_35。20 FF_12。22 FS_28。23 FF_9。25 FS_49。;数据事实数据；合并事实数据滞后；通过行为；运行；proc-cpm-data=factdata-out=factout1date='01nov90'd之前完成；活动行为；id id；持续时间；后继s1-s8/lag=（l1-l8）；运行；过程排序数据=事实1；通过e_start；运行；标题2“非标准关系附表”；proc打印数据=factout1 noobs；var id e_start e_finish l_start l_finish t_float；运行；/*资源代码：C混凝土队*//*D挖掘和拆除人员*//*E电气人员*//*F机器安装人员*//*O自己的员工*//*P隔墙和包层人员*//*R索具组*/数据资源；输入c d e f o p r；卡；. 1 . . . . .. 1 . . . . .. 1 . . . . .1 . . . . . .1 . . . . . .1 . . . . . .. . . . . . 1. . . . . 1 .. 1 . . . . .1 . . . . . .. . 1 . . . .. . 1 . . . .. . . . . . 1. . . . 1 . .. . . . . . 1. . . . 1 . .. . . 1 . . .. . . 1 . . .. . . . 1 . .. . . 1 . . .. . . 1 . . .. . . . 1 . .. . . 1 . . .. . . 1 . . .. . . . 1 . .. . . 1 . . .. . . . . 1 .. . . . . 1 .. . 1 . . . .. . . . . 1 .. . . . 1 . .;数据事实数据；合并factdata资源；运行；proc-cpm-data=factdata-out=factout2date='90年11月1日之前完成资源=频率；活动行为；id id；持续时间；后继s1-s8/lag=（l1-l8）；资源配置；运行；title2“机器安装人员使用对比”；符号1 i=阶梯j w=2 l=1；符号2 i=阶梯j w=2 l=2；legend1 label=（'Schedule Followed'）value=（“早开始”“晚开始”）横截=2；axis1标签=（“需要人员”）；轴2标签=无；proc gplot数据=fressug；绘图（ef-lf）*时间/覆盖vaxis=轴1haxis=轴2图例=图例1；运行；数据频率；输入obstype$period c d e f o p r；卡；重新键入。1 1 1 1 1 1 1reslevel 0 1 1 1 1 11 1 1 1;proc cpm数据=事实数据输出=事实输出3日期=2001年11月90日之前完成资源=fresusg1树脂=freslvl；活动行为；id id；持续时间；后继s1-s8/lag=（l1-l8）；资源c d e f o p r/obstype=obstype周期=周期延迟=0 infeasdiagnostic延迟分析；运行；标题2“资源有限的时间表”；proc打印数据=fresusg1；var时间rc ac rd ad re ae rf af ro ao rp ap rr ar；运行；proc打印数据=事实3；变量id s_start s_finish r_delay delay_r suppl_r；运行；数据频率1；输入obstype$period c d e f o p r；卡；超水平。1 . . 1 . 1 .;数据频率1；设置freslvl freslvl1；运行；proc-cpm-data=factdata-out=factout4date='90年11月1日之前完成资源=fresusg2树脂=freslvl1；活动行为；id id；持续时间；后继s1-s8/lag=（l1-l8）；资源c d e f o p r/obstype=obstype周期=周期延迟=0；运行；过程排序数据=事实4；通过s_start；运行；标题2“补充资源附表”；proc-gantt图形数据=事实4；图表/压缩nojobnum；id id；运行；符号1 i=阶梯j w=2 l=1；符号2 i=阶梯j w=2 l=2；符号3 i=阶梯j w=4 l=3；title2“机器安装人员使用对比”；legend2 label=（'Schedule Followed'）value=（'Early Start''Late Start''Constrained'）横截=2；proc gplot数据=fresusg2；绘图（ef lf rf）*_time_/覆盖vref=1lvref=4vaxis=轴1haxis=轴2图例=图例2；运行；title2“资源使用对比”；proc打印数据=fresusg2；var ec lc rc ac ef lf rf af ep lp rp ap；运行；数据频率2；输入obstype$period res_name$c d e f o p r；卡；阿尔特拉特。c 1 1。altprty公司。c 12。阿尔特拉特。f。1 1 1 . .altprty公司。f。2 1 3 . .阿尔特拉特。p。1 1 1altprty公司。p。3 1 2;数据频率2；设置freslvl-freslvl2；运行；数据fdata；设置factdata；最小值=1；运行；proc-cpm-data=fdata-out=factout5date='90年11月1日之前完成资源=fresusg3树脂=freslvl2；活动行为；id id；持续时间；后继s1-s8/lag=（l1-l8）；资源c d e f o p r/obstype=obstypenoe_start nol_start minsegmtdur=最小值period=时段延迟=0 resi=res_name；运行；proc打印数据=事实5；变量id segmt_no dur c d e f o p r uc ud ue uf uo up ur；运行；数据伪；设置事实5；保留tstart；如果segmt_no=。则tstart=s_start；运行；proc sort data=dummy；通过tstart；运行；title2“备用资源计划”；proc-gantt图形数据=dummy；图表/压缩nojobnum nolegend；id id；运行；数据虚拟（drop=segmt_no）；设置假人；如果uc=1，则resource='C'；如果ud=1，则resource='D'；如果ue=1，则resource='E'；如果uf=1，则resource='F'；如果uo=1，则resource='O'；如果up=1，则resource='P'；如果ur=1，则resource='R'；如果资源=“”，则删除；运行；proc sort data=dummy；按资源；运行；title2“资源特定计划”；proc-gantt图形数据=dummy；chart/compress nojobnum nolegend dupok跳过=2；按资源；id id；运行；