生成支持Web的甘特图（gantte26）
/****************************************************************//*S A S S A M P L E L I B R A R Y*//* *//*姓名：GANTTE26*//*标题：生成支持Web的甘特图（gantte26）*//*产品：或*//*系统：所有*//*钥匙：GANTT*//*程序：CPM、SORT、GANTT*//*数据：*//* *//*支持：更新：*//*参考：GANTT章节中的示例26（PM用户指南）*//*MISC：有关主机MVS和CMS，请参阅下面的注释*//* *//****************************************************************/%文件名（b，Gantt_Sum，htm）；ods html body=b（url=“Gantt_Sum.htm”）；/*在主机MVS和CMS上，应添加gpath=选项*//*使用有效路径名访问上述命令行*/数据链接；格式法案$30。成功30美元。父母20美元。；输入动作&succ&parent&days；数据线；测量当前销量预测未来销量需求评估2文献调查制造商演示市场调查5确定当前用户预测未来需求需求评估2预测未来容量准备网络规范需求评估2制造商演示确定供应商市场调查5预测未来需求准备网络规范需求评估2确定供应商。市场调查2准备网络规范。需求评估2编制RFQ评估供应商响应供应商选择4准备电缆计划采购电缆现场准备4评估供应商响应，通知最终候选供应商选择15采购电缆安装电缆现场准备22通知最终候选人谈判价格/配置供应商选择1安装电缆。现场准备10谈判价格/配置准备采购订单供应商选择3编制采购订单。供应商选择1服务器功能规范服务器详细设计专用硬件5采购LAN硬件接收网络硬件网络安装25服务器详细设计服务器编码专用硬件10接收网络硬件安装LAN硬件网络安装4服务器编码测试服务器代码专用硬件10安装LAN硬件测试网络安装7测试服务器代码安装/集成服务器专用硬件5测试网络。网络安装5安装/集成服务器。特殊硬件2开始采购需求评估。开始采购市场调查。需求评估供应商选择。需要评估现场准备。市场调查编制网络规范。供应商选择网络安装。供应商选择特殊硬件。现场准备安装局域网硬件。网络安装网络可用。可用的特殊硬件网络。;proc排序数据=lanact；通过行为；运行；proc-cpm数据=lanact-out=lanoutexpand interval=workday date='03年11月3日；母公司/wbs eso；活动行为；持续天数；继承人继承；运行；数据局域网；设置布局；长度webvar$500；长度webvar2$500；/*WEBVAR用于顶层摘要图表*/webvar='alt='|quote('活动：'||trim（left（act））||'0D'x||“-------------------------”||'0D'x||'提前开始：'||put（e_Start，datetime.）||'0D'x||'提前完成：'||put（e_Finish，datetime.）||'0D'x||'延迟开始：'||put（l_Start，datetime.）||'0D'x||'最晚完成时间：'||put（l_Finish，datetime.）||'HREF=#W'||trim（wbs_code）/*链接到锚*/;/*WEBVAR2用于详细图表*/webvar2='alt='|quote('活动：'||trim（left（act））||'0D'x||“-------------------------”||'0D'x||'提前开始：'||put（e_Start，datetime.）||'0D'x||'提前完成：'||put（e_Finish，datetime.）||'0D'x||'延迟开始：'||put（l_Start，datetime.）||'0D'x||'最晚完成时间：'||put（l_Finish，datetime.）;运行；进程排序数据=lanweb；通过wbs_code；运行；ods清单关闭；goptions重置=所有设备=gif；/*使用向下钻取操作创建摘要甘特图*/title1 h=2“甘特图示例26”；title2 h=1.5“项目汇总甘特图”；/*设置所需的模式和符号语句*/模式1 c=绿色v=s；模式2 c=绿色v=e；图案3 c=红色v=s；goptions cback=white htext=1.1；proc-gantt数据=lanweb；身份行为wbs_code；其中proj_lev=1；label act='SUBPROJECT'wbs_code='wbs代码'；图表/p压缩nojobnum刻度=2.5mindate='03年10月30日最大日期='04年2月29日cprec=黑色持续时间=天mininterval=周ref='30oct03:00:00'到'01mar04:00:00't（截至dtmonth）再贴标签html=网络变量act=act-suck=suc；运行；/*定义宏以生成详细信息图表*/%宏观政策；ods html锚=“W&wbs.”设备=gif；title1 h=2“甘特图示例26”；title2 h=1.5“WBS=&WBS的详细甘特图。”；/*设置所需的模式和符号语句*/模式1 c=绿色v=s；模式2 c=绿色v=e；图案3 c=红色v=s；goptions cback=白色；proc-gantt数据=lanweb；身份行为wbs_code；其中索引（wbs_code，“&wbs.”）=1；label act='SUBPROJECT'wbs_code='wbs代码'；图表/p压缩nojobnum刻度=2.5mindate='03年10月30日最大日期='04年2月29日cprec=黑色持续时间=天mininterval=周ref='30oct03:00:00'到'01mar04:00:00't（截至dtmonth）reflabel html=webvar2act=act-suck=suc；运行；%修补；/*生成每个详细甘特图*/%甘德（0.1）；%甘德（0.2）；%甘德（0.3）；%甘德（0.4）；%甘德（0.5）；%甘德（0.6）；ods-html关闭；