集成装配测试项目
/****************************************************************//*S A S S A M P L E L I B R A R Y*//* *//*名称：PMEX04*//*标题：集成装配测试项目*//*产品：或*//*系统：所有*//*关键词：CPM*//*程序：CPM、PRINT、NETDRAW、GANTT、SORT、GCHART、GPLOT、TRANSPOSE*//*数据：*//* *//*支持：更新：*//*REF：项目管理范例书示例4*//*MISC：《项目管理期刊》，1988年4月，第32页*//* *//****************************************************************/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=青色；标题“集成装配测试项目”；数据iatdata；格式id$25。；输入活动$suc$suc2$lag2$dur-id&；卡；S局部放电。SS_0。0开始PD PDR。FS_0。105初步设计PDR FD.公司。FS_0。21初步设计审查FD FDR PM FS_0 SS_126 168最终设计PM财务总监。SS_63号。126采购材料FDR FP FC FS_0 FS_0 21最终设计审查FP财务报告。FS_0。273设施准备FC DA。FS_-5。273制造组件DA IA公司。FS_0。26交付组件FRR IA DA FS_0 FF_0 21面部准备就绪RvwIA右后。FS_0。42安装组件右后T。FS_0。21准备状态审查T电视。FF_35。126测试电视。63测试验证;模式1 v=e；title2“初始网络”；proc-netdraw图形数据=iatdata；actnet/activity=活动成功=（成功成功2）持续时间=dur id=（id）nolabel压缩字体=单工；运行；模式1 v=s；proc-cpm-data=iatdata-out=ioutdate='01oct93'd interval=天；活动活动；持续时间；id id；后继succ2/lag=（lag-lag2）；运行；进程排序数据=iout；通过e_start；运行；title 2“初始时间表”；proc-gantt图形数据=iout；chart/mininterval=每周压缩跳过=2持续时间=dur；id id；运行；数据日期；格式日期日期7。；输入日期date7。对齐$；卡；. .. .. .. .. .1994年9月30日航班1994年10月1日新加坡. .1995年9月30日航班. .. .. .1995年10月1日新加坡. .;数据iatdata；合并iatdata日期；运行；proc cpm数据=iatdata输出=iout1date='01oct93'd interval=day x激情；活动活动；持续时间；id id；后继succ2/lag=（lag-lag2）；校准日期；对齐类型对齐；运行；proc排序数据=iout1；通过e_start；运行；标题2“合并日期限制”；proc-gantt图形数据=iout1；chart/mininterval=周压缩ref='01oct93'd'01oct94'd'01oct95'd lref=2 reflabel跳过=2持续时间=dur；id id；运行；title2“逻辑甘特图”；proc gantt图形数据=iout1预处理数据=iout1；chart/mininterval=月份压缩ref='01oct93'd'01oct194'd'01oct95'd lref=2 reflabel act=活动成功=（成功成功2）lag=（lag-lag2）skip=2标度=6持续时间=dur；id id；运行；数据图标；投入总量；卡；050015030076015011001400340150250150900500;数据iatcost；合并iatdata icosts；如果dur>0，则costper=总量/dur；否则成本=0；运行；proc-cpm data=iatcost-out=iout2 date='93年10月1日'间隔=天资源=成本；活动活动；持续时间；id id；后继succ2/lag=（lag-lag2）；校准日期；对齐类型对齐；资源成本；运行；数据库成本（keep=time bcws cumbcws）；设置costusg；保留cumbcws 0；bcws=生态成本；cumbcws=cumbcws+bcws；运行；数据实际；输入活动$@6作为date7@7月15日。实际成本百分比；格式为af date7。；卡；S 1993年10月1日93年10月0日。PD 1993年10月1日至1994年1月29日6.0。PDR 1994年1月30日至2月19日8.2。FD 1994年2月20日9月31日。1994年8月10日下午。六点四四零FDR 1994年9月11日。八点零八零;数据更新；合并iatcost实际值；如果实际成本为ne。则newcost=实际成本；否则newcost=成本；运行；proc cpm data=iatupd-out=updsched date='93年10月1日'dinterval=天资源=更新成本；活动活动；持续时间；id id；后继succ2/lag=（lag-lag2）；校准日期；对齐类型对齐；资源成本/实际成本-新成本；实际/a_start=asa_finish=af timenow='01oct94'dpctcomp=pct；运行；title2“用实际信息更新的时间表”；proc打印数据=updsched；var id dur costper status a _dur actcost；运行；proc排序数据=更新计划；通过e_start；运行；proc-gantt数据=updsched图形；chart/mininterval=每周压缩timenow='01oct94'd组合持续时间=dur跳过=2；id id；运行；数据成本增加（keep=time _ bcwp acwp cumbcwp cumacwp eac cumeac）；设置updcost；保留cumbcwp 0 cumacwp 0 cumeac 0；如果time<'01oct94，则会这样做；bcwp=生态成本；acwp=每个成本；cumbcwp+bcwp；cumacwp+acwp；结束；否则；cumbcwp=。；cumacwp=。；结束；eac=新成本；cumeac+eac；运行；数据成本；合并基本成本；运行；数据mnthcost；设定成本；月=_time_；年=时间；格式月份monname3。；格式年份。；格式bcws acwp dollar4。；运行；数据成本94；设置mnthcost；如果时间<1994年10月1日；运行；轴3标签=无；标题2“1994财年月度支出预算”；程序gchart数据=成本94；vbar-month/type=sum-sumvar=bcws离散raxis=0到500 x 100 minor=9 autorefmaxis=轴3 gaxis=轴3组=年份nozero宽度=5；label bcws=“数千”；运行；退出；标题2“实际月度支出——1994财年”；程序gchart数据=成本94；vbar月/类型=总和sumvar=acwp离散raxis=0到500 x 100 minor=9 autorefmaxis=轴3 gaxis=轴3组=年份nozero宽度=5；label acwp=“数千”；运行；退出；数据成本图（keep=日期美元id）；设定成本；格式日期日期7。；日期=时间；如果cumbcws为ne。然后做；美元=cumbcws；id=1；产出；结束；如果cumbcwp ne。然后做；美元=cumbcwp；id=2；产出；结束；如果cumacwp ne。然后做；美元=cumacwp；id=3；产出；结束；如果cumeac ne。然后做；美元=cumeac；id=4；产出；结束；运行；图例1框架value=（f=swiss-justify=l‘BCWS’‘BCWP’‘ACWP’’‘EAC’）label=（f=瑞士“图例：”）；轴1宽度=2订单=（93年10月1日至96年10月01日）值=（f=瑞士）标签=无；轴2宽度=2值=（f=瑞士）标签=（f=瑞士）；符号1 i=连接w=2 l=1；符号2 i=连接w=2 l=2；符号3 i=连接w=2 l=3 c=青色；符号4 i=连接w=2 l=34 c=洋红色；数据budcomp（keep=_time_bac）；设置basecost-end=lastobs；bac=cumbcws；如果是lastobs；运行；数据actcomp（keep=time _ eac）；set-upcost-end=lastobs；eac=cumeac；如果是lastobs；运行；数据完成（keep=time _ bac eac）；合并budcomp-actcomp；运行；%annomac；数据注释1；%dclanno；%系统（2,2,4）设置完成；长度实验室16美元。；x1=时间+25；y1=bac；y2=eac；lab=put（'$'||left（bac）||'K'，$10.）；%标签（x1，y1，实验室，*，0,0,1.2，双工，C）；lab=put（'$'||left（eac）||'K'，$10.）；%标签（x1，y2，实验室，*，0,0,1.2，双工，C）；运行；title2“挣值分析”；proc gplot data=costplot anno=anno1；绘图美元*日期=id/hminor=11href='94年10月1日’图例=图例1haxis=轴1vaxis=轴2；格式美元6。；label dollars=“数千”；运行；退出；数据（keep=time cumbcwp cumbcws cumacwp costvar schvar）；设定成本；如果_time_='30sep94'd；costvar=（cumbcwp-cumacwp）/cumbcwp；schvar=（cumbcwp cumbcws）/cumbcws；运行；数据eva（drop=time）；合并现在完成；compvar=（bac-eac）/bac；progcomp=cumbcwp/bac；label bac=“竣工预算（bac）”；label eac=“竣工估算（eac）”；label cumbcwp='BCWP'；label cumbcws='BCWS'；label cumacwp='ACWP'；label costvar='成本差异%'；label schvar=“进度偏差%”；label compvar=“完工时的估计差异%”；label progcomp=“程序已完成%”；运行；proc转置数据=eva-out=eva1；变量progcomp cumbcwp cumbcws cumacwp costvar schvar bac eac compvar；运行；proc打印标签数据=eva1；id标签；变量列1；label _label_=“统计”；label col1=“值”；运行；