集成装配项目（evm1）
/***************************************************************//* *//*S A S S A M P L E L I B R A R Y*//* *//*名称：evm1*//*标题：集成装配项目（evm1）*//*产品：或*//*系统：所有*//*关键字：或*//*PROCS：CPM、排序、挣值宏*//*数据：*//* *//*支持：更新：*//*参考：*//*MISC：挣值管理宏中的示例1*//*项目管理章节*//* *//***************************************************************//*提供基线进度输入*/数据iatdata；格式id$25。；格式日期日期7。；输入活动$suc$suc2$lag2$dur date日期7。对齐$id&；数据线；S PD。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 2010年9月21日FLE最终设计审查FP财务报告。FS_0。273 01OCT10 SGE设施准备FC DA。FS_-5。273 . . 制造组件DA IA公司。FS_0。2011年9月26日FLE交付组件FRR IA DA FS_0 FF_0 21。面部准备就绪RvwIA右后。FS_0。42 . . 安装程序集右后T。FS_0。21 . . 准备就绪评审T电视。FF_35。126 01OCT11 SGE测试电视。63 . . 测试验证;/*生产时间表*/proc cpm数据=iatdata输出=iout1date='09年10月1日interval=天xfervars；活动活动；持续时间；id id；后继succ2/lag=（lag-lag2）；校准日期；对齐类型对齐；运行；/*重命名和标记变量*/数据输出1；设置iout1；在id e_start e_finish期间保持活动；rename e_start=开始；rename e_finish=完成；rename dur=持续时间；label dur=持续时间；label id=描述；label activity=活动；label e_start=计划开始时间；labele_finish=计划完成时间；运行；标题“集成装配测试项目”；标题2“初始计划”；proc打印数据=iout1标签；运行；/*基准成本*/数据图标；投入总量；数据线；050015030076015011001400340150250150900500;/*将成本转换为费率，并将这些费率与活动*/数据iatcost；合并iatdata icosts；如果dur>0，则速率=总量/dur；否则速率=0；运行；标题；标题2“预算成本”；proc打印数据=iatcost标签；label activity=活动；标签费率=费率；var活性率；运行；/*计算每日计划值*/%eva计划值(计划=iout1，activity=活动，start=开始，finish=完成，持续时间=持续时间，预算成本=iatcost，rate=比率)；proc打印数据=pv标签；标题“每日计划值”；变量_时间_ PV_日期_；运行；/*提供更新的进度输入*/数据实际；输入活动$8。日期：date7。af：日期7。实际成本pctcomp；格式为af date7。；数据线；S 2009年10月1日09年10月01日0 100PD 2009年10月1日2010年1月29日6.0 100PDR 2010年1月30日至2010年2月19日8.2 100FD 2010年2月20日9月10日100年3月31日2010年8月10日下午。六点四四零FDR 9月11日。八点零八零;标题；title2“状态”；proc打印数据=实际标签；label activity=活动；label as=实际开始时间；label af=实际完成时间；label actcost=实际费率；标签pctcomp=Pct.Comp。；运行；/*将实际进度和速率与初始计划相结合输入*/数据顺序；设定iatcost；保留_序号_ 0；_序列号=序列号+1；运行；proc排序数据=顺序；按活动划分；运行；proc排序数据=实际；按活动；运行；数据iatupd；合并实际订单；按活动；跌落率；重命名newcost=rate；如果实际成本为ne。那么newcost=actcost；else newcost=费率；运行；proc排序数据=iatupd；由seqno签署；运行；数据iatupd；设置iatupd；删除seqno_；运行；/*生成更新的时间表*/proc-cpm-data=iatupd-out=updsched date='01oct09'd间隔=天；活动活性；持续时间；身份识别率pctcomp；后继succ2/lag=（lag-lag2）；校准日期；对齐类型对齐；实际/a_start=asa_finish=af timenow='01oct10'dpctcomp=pctcomp；运行；/*重命名和标记变量*/数据更新；设置updsched；保持活动a_dur id e_start e_finish pctcomp；rename e_start=开始；rename e_finish=完成；rename a _dur=持续时间；label activity=活动；label id=说明；label a_dur=实际持续时间；label e_start=开始；label e_finish=完成；label pctcomp=百分比补偿。；运行；title2“更新计划”；proc打印数据=更新标签；运行；/*产生每日挣值*/%eva获得的价值(revisesched=更新计划，activity=活动，start=开始，finish=完成，actualcost=iatupd，rate=比率)；proc打印数据=ev标签；标题“每日挣值和修订成本”；变量_时间_版本_日期_比率_；运行；/*制定指标*/%eva度量(timenow='30sep10'd，首字母缩写=long)；/*按任务列出的指标*/%eva任务指标(计划=iout1，revisesched=更新计划，activity=活动，start=开始，finish=完成，pctcomp=pctcomp，预算成本=iatcost，实际成本=iatupd，rate=速率，timenow='30sep10'd，首字母缩写=long)；%evg_cost_plot（缩写词=long）；%evg计划plot；%evg索引块；%evg_variance_plot；%evg甘特图(计划=iout1，修订=更新，activity=活动，start=开始，finish=完成，持续时间=持续时间，timenow='30sep10'd，id=pv ev ac cv cvp sv svp，高度=3，比例=1.5)；