NOKIA网元电路开通(停闭)自动化操作程序.doc

河南移动科技进步奖励申报书NOKIA网元电路开通（停闭）自动化操作程序申报单位：河南移动安阳分公司河南移动通信有限责任公司2008年1 月29 日一、 项目基本情况项目名称中文NOKIA网元电路开通（停闭）自动化操作程序英文主要完成人王霄动主要完成单位河南移动安阳分公司网络部主 题 词电路开通、停闭任务来源申报单位自立项目项目起止时间起始：2008 年 1 月 14 日 完成：2008 年1 月 26 日二、 项目简介(不超过800个汉字) 随着网络规模的不断扩大，全区话务量不断增加，各网元之间的互联电路数也在不断增加。日常维护中我们经常需要批量新增或调整（停闭）电路，特别在重大节日前，我们要做好话务量预测，及时开通节日应急电路，做好网络通信保障工作。 节假日时人们之间的相互联络和问候，使节日期间话务量较平时有较大增长，特别是春节返乡人员数量猛增，会严重增加核心网的电路负荷，使得我们节前大批量增开和调整电路成为一种必须要做的工作。传统的增开电路和调整电路使用手工输入指令的方式，从“ET单元状态修改” 、“WUC单元检测” 、“2M传输状态检测” 、“增加电路数据” 、“修改测试电路状态”到“电路放通”的全过程均使用机械输入指令的方式。据统计，如果全程每一步都操作正确，增加一条2M电路数据共需要10余条指令，而且每一步都需要人工判断结果的正确性。就安阳全区范围内，2008年春节话务量预测，大约需要增加500多个2M电路，涉及NOKIA网元大概200-300条，依次推算人工操作共需要2000多条指令，需要消耗大量的人力。在目前维护人员的人数和精力均有限的状况下，如何能提高工作效率就成为迫在眉睫的事情，鉴于此，我们编写MACRO程序。通过MACRO运行，不仅能使整个电路开通（停闭）操作全过程实现“自动化”,而且实现输出结果的“自动化”，减小人工判断的失误。本程序开发后已用于在现网中运行，能大大提高工作效率，节省人力资源。三、项目详细内容1、立项背景网络规模的不断扩大，全区话务量的不断增加，使各网元之间的互联电路数也在不断增加。日常维护中我们经常需要批量新增或调整电路，特别在重大节日前，我们要做好话务量预测，及时开通节日应急电路，做好网络通信保障工作。传统的增开电路和调整电路使用手工输入指令的方式，增加一条2M电路数据需要至少10条指令，而且每一步都需要人工判断结果的正确性，需要消耗大量的人力。鉴于此我们编写MACRO程序，通过MACRO运行，不仅能使整个电路开通（停闭）操作全过程实现“自动化”,而且实现输出结果的“自动化”，减小人工判断的失误，能大大提高工作效率，节省人力资源。2、详细技术内容1. 首先，我们应建立一个名字为“电路信息”的EXCEL文档，并建立5个SHEET“电路开通”、“电路停闭”、“电路测试”、“CGR类型”和“时隙公式模板”。如下所示：“CGR类型”是现网中的电路组号（CGR），电路组名称（NCGR）和电路组类型（TYPE）信息。“时隙公式模板”是一个2M电路1-31时隙中，1条测试电路和剩余其它30条电路的信息。（0时隙用来传送告警和同步，不用来传送话音，增加电路只需增加1-31时隙。）“电路开通”是2M电路开通的信息列表，一条2M电路所用ET，开在那个电路组（CGR），系统号（CCSPCM），电路组类型（通过excel的vlookup函数在SHEET“CGR类型”中查找的结果，只要B列输入，D列会自动生成）。“电路停闭”是2M电路停闭的信息列表，停闭2M电路的ET信息，所属电路组（CGR），所属局向的名称（通过excel的vlookup函数在SHEET“CGR类型”中查找的结果，只要B列输入，C列会自动生成）。“电路测试”是有关2M电路的ET信息，所选2M电路的测试时隙，同时生成2M电路内除测试时隙外的其它所有时隙的表达式（通过通过excel的vlookup函数在SHEET“时隙公式模版”中查找的结果，只要B列输入，C列会自动生成）。说明：以上所建立的5个SHEET表中，“CGR类型”和“时隙公式模版”是提取现网中的数据做为参照数据，其作用是为“电路开通”、“电路停闭”和“电路测试”三个SHEET通过程序与网元交互奠定基础。“电路开通”是用于电路开通程序执行时原始数据的提供，并输出程序的执行结果，程序执行结果包括：ET单元的原始状态、ET状态的迁徙过程、ET单元的最终状态、2M电路的传输状态，ET所WUC单元的类型，新增电路操作是否成功。“电路停闭”是用于停闭电路时原始数据的提供和执行结果的输出，原始数据包括ET信息和电路所属CGR，程序执行结果包括2M上1-31时隙电路的原始状态、电路状态迁徙过程、电路最终状态、删除电路执行结果是否成功、电路打死后ET的状态迁徙及其最终状态。“电路测试”用于新增电路数据后对新入网电路的人工测试，任选一个时隙作为测试电路，把其修改为测试状态，并在电路测试正常后，放通该2M上的1-31时隙的所有电路。2编写MACRO程序：分为“电路开通”、“电路测试”、“电路放通”和“电路停闭”四个程序，分别实现不同的操作。电路开通：function main ()string ET_excel,CGR_excel,CCSPCM_excel,CGRtype_excel;string ET,CGR,CCSPCM,CGRtype,ETstate,PCMstate;string line;integer file_excel,row_ne; deviceopen(AYMSC3); row_ne=2; file_excel=ddeconnect(EXCEL,电路信息.xls电路开通);if (file_excel = 0)while(messagebox(请重新检查是否打开了网元列表.xls)=OK) abort(请重新检查是否打开了网元列表.xls); endwhileendif ET_excel=dderequest(file_excel,strprint(R%dC1,row_ne); CGR_excel=dderequest(file_excel,strprint(R%dC2,row_ne); CCSPCM_excel=dderequest(file_excel,strprint(R%dC3,row_ne); CGRtype_excel=dderequest(file_excel,strprint(R%dC4,row_ne); strscan(CGR_excel,%s,CGR); strscan(CCSPCM_excel,%s,CCSPCM); strscan(CGRtype_excel,%s,CGRtype); strscan(ET_excel,%s,ET); while (ETEND) tx(ZUSI:ET,%s:;n,ET); if (getline(line,WORKING STATE OF UNITS) logseek(CURRENT,1); getline(line); strfetch(line,18-22,ETstate); ddedata(file_excel,strprint(R%dC5,row_ne),ETstate); else pause(0,strprint(ET-%s不存在, ET); abort(ET数值范围超出,ET); endif while (ETstateWO-EX) if (ETstate=SE-NH) tx(ZUSC:ET,%s:SE;n,ET); if (getline(line,NEW STATE = SE-OU) ddedata(file_excel,strprint(R%dC6,row_ne),SE-OU); else pause(0,strprint(ET-%s状态修改失败,请检查ET单元,ET); abort(ET%s单元异常,ET); endif tx(ZUSI:ET,%s:;n,ET); if (getline(line,WORKING STATE OF UNITS) logseek(CURRENT,1); getline(line); strfetch(line,18-22,ETstate); endif elseif (ETstate=SE-OU) tx(ZUSC:ET,%s:TE;n,ET); if (getline(line,NEW STATE = TE-EX) ddedata(file_excel,strprint(R%dC6,row_ne),TE-EX); else pause(0,strprint(ET状态修改失败,请检查ET单元); abort(ET%s异常,ET); endif tx(ZUSI:ET,%s:;n,ET); if (getline(line,WORKING STATE OF UNITS) logseek(CURRENT,1); getline(line); strfetch(line,18-22,ETstate); endifelseif (ETstate=TE-EX) tx(ZUSC:ET,%s:WO;n,ET); if (getline(line,NEW STATE = WO-EX) ddedata(file_excel,strprint(R%dC6,row_ne),WO-EX); else pause(0,strprint(ET状态修改失败,请检查ET单元); abort(ET%s异常,ET); endif tx(ZUSI:ET,%s:;n,ET); if (getline(line,WORKING STATE OF UNITS) logseek(CURRENT,1); getline(line); strfetch(line,18-22,ETstate); endifendif endwhile row_ne=row_ne+1; ET_excel=dderequest(file_excel,strprint(R%dC1,row_ne); strscan(ET_excel,%s,ET); endwhile row_ne=2;/检查传输状态ET_excel=dderequest(file_excel,strprint(R%dC1,row_ne);strscan(ET_excel,%s,ET); while (ETEND) tx(ZYEF:ET,%s:;n,ET); if(getline(line,PCM SERVICE STATE) logseek(CURRENT,1); getline(line); strfetch(line,13-18,PCMstate); if (PCMstate=PCM OK) ddedata(file_excel,strprint(R%dC7,row_ne),传输正常); else pause(0,strprint(请检查2M传输); abort(ET%s传输异常,ET); endif endif row_ne=row_ne+1; ET_excel=dderequest(file_excel,strprint(R%dC1,row_ne); strscan(ET_excel,%s,ET); endwhile row_ne=2;/检查WUC单元与电路组类型是否一致，如果一致则增加电路数据 ET_excel=dderequest(file_excel,strprint(R%dC1,row_ne); strscan(ET_excel,%s,ET); while (ETEND) tx(ZUSI:ET,%s:;n,ET); if (getline(line,BSU) ddedata(file_excel,strprint(R%dC8,row_ne),BSU); if (CGRtype=BSU) tx(ZRCA:CGR=%s:CRCT=%s-1&-31,:CCSPCM=%s:;n,CGR,ET,CCSPCM); if (getline(line,CIRCUITS ADDED TO CIRCUIT GROUP) ddedata(file_excel,strprint(R%dC9,row_ne),增加电路成功); else pause(0,strprint(ET-%s电路增加失败，请检查,ET); abort(ET-%s增加电路操作失败,ET); endif elseif (CGRtype=CCSU) pause(0,strprint(WUC单元和电路组类型不一致); abort(ET%与要加入的电路组不匹配,ET); endifelseif (getline(line,CCSU) ddedata(file_excel,strprint(R%dC8,row_ne),CCSU); if (CGRtype=CCSU) tx(ZRCA:CGR=%s:CRCT=%s-1&-31,:CCSPCM=%s:;n,CGR,ET,CCSPCM); if (getline(line,CIRCUITS ADDED TO CIRCUIT GROUP) ddedata(file_excel,strprint(R%dC9,row_ne),增加电路成功); else pause(0,strprint(ET-%s电路增加失败，请检查,ET); abort(ET-%s增加电路操作失败,ET); endif elseif (CGRtype=BSU) pause(0,strprint(WUC单元和电路组类型不一致); abort(ET%与要加入的电路组不匹配,ET); endifendif row_ne=row_ne+1; ET_excel=dderequest(file_excel,strprint(R%dC1,row_ne); CGR_excel=dderequest(file_excel,strprint(R%dC2,row_ne); CCSPCM_excel=dderequest(file_excel,strprint(R%dC3,row_ne); CGRtype_excel=dderequest(file_excel,strprint(R%dC4,row_ne); strscan(ET_excel,%s,ET); strscan(CGR_excel,%s,CGR); strscan(CCSPCM_excel,%s,CCSPCM); strscan(CGRtype_excel,%s,CGRtype); endwhile endfunction程序功能：从“电路开通”中读取ET，CGR，CCSPCM和CGR类型信息CCS程序开始查询ET状态（SE-NH）ZUSI：ET，835；ET状态迁徙（SE-OU）ZUSC：ET，835：SE；ET状态迁徙（TE-EX）ZUSC：ET，835：TE；ET状态迁徙（WO-EX）ZUSC：ET，835：WO；检查2M传输ZYEF：ET，835；检测ET WUC单元类型ZUSI：ET，835；添加电路数据ZRCA:CGR=1000:CRCT=835-1&-31:CCSPCM=98；程序结束添加电路成功后，选择测试时隙进行电路测试电路测试：function main ()string ET_excel,TSL_excel;string ET,TSL,TSLstate,line;integer file_excel,row_ne; deviceopen(AYMSC3); row_ne=2; file_excel=ddeconnect(EXCEL,电路信息.xls电路测试); if (file_excel = 0)while(messagebox(请重新检查是否打开了网元列表.xls)=OK) abort(请重新检查是否打开了网元列表.xls); endwhileendif ET_excel=dderequest(file_excel,strprint(R%dC1,row_ne); TSL_excel=dderequest(file_excel,strprint(R%dC2,row_ne); strscan(ET_excel,%s,ET); strscan(TSL_excel,%s,TSL); while (ETEND) tx(ZCEC:CRCT=%s-%s:SE;n,ET,TSL); if (getline(line,CRCT CGR) logseek(CURRENT,1); getline(line); strfetch(line,35-39,TSLstate); ddedata(file_excel,strprint(R%dC4,row_ne),TSLstate); else pause(0,strprint(%s-%s电路状态修改失败,ET,TSL); abort(电路状态修改失败); endif tx(ZCEC:CRCT=%s-%s:TE;n,ET,TSL); if (getline(line,CRCT CGR) logseek(CURRENT,1); getline(line); strfetch(line,35-39,TSLstate); ddedata(file_excel,strprint(R%dC4,row_ne),TSLstate); else pause(0,strprint(%s-%s电路状态修改失败,ET,TSL); abort(电路状态修改失败); endif if(TSLstate=TE-US) row_ne=row_ne+1; ET_excel=dderequest(file_excel,strprint(R%dC1,row_ne); TSL_excel=dderequest(file_excel,strprint(R%dC2,row_ne); strscan(ET_excel,%s,ET); strscan(TSL_excel,%s,TSL); else ddedata(file_excel,strprint(R%dC4,row_ne),测试电路状态修改失败); endif endwhile endfunction程序功能：从“电路测试”中读取ET和测试时隙的信息检查ET上是否存在电路信息ZRCI:SEA=4:CRCT=835-1；测试电路状态迁徙NU-US到SE-USZCEC:CRCT=835-1:SE；开 始测试电路状态迁徙SE-US到TE-USZCEC:CRCT=835-1:TE；程序结束人工占用测试电路进行话音测试，如果正常则放通所有电路，投入现网中使用电路放通：function main ()string ET_excel,TSL_excel,TSLelse_excel;string ET,TSL,TSLelse,TSLstate,TSLstate1,line;integer file_excel,row_ne; deviceopen(AYMSC3); row_ne=2; file_excel=ddeconnect(EXCEL,电路信息.xls电路测试); if (file_excel = 0)while(messagebox(请重新检查是否打开了网元列表.xls)=OK) abort(请重新检查是否打开了网元列表.xls); endwhileendif ET_excel=dderequest(file_excel,strprint(R%dC1,row_ne); TSL_excel=dderequest(file_excel,strprint(R%dC2,row_ne); TSLelse_excel=dderequest(file_excel,strprint(R%dC3,row_ne); strscan(ET_excel,%s,ET); strscan(TSL_excel,%s,TSL); strscan( TSLelse_excel,%s,TSLelse); while (ETEND) tx(ZCEC:CRCT=%s-%s:SE;n,ET,TSL); if (getline(line,CRCT CGR) logseek(CURRENT,1); getline(line); strfetch(line,35-39,TSLstate); ddedata(file_excel,strprint(R%dC4,row_ne),TSLstate); else pause(0,strprint(%s-%s电路状态修改失败,ET,TSL); abort(电路状态修改失败); endif tx(ZCEC:CRCT=%s-%s:SE;n,ET,TSLelse); if (getline(line,CRCT CGR) logseek(CURRENT,1); getline(line); strfetch(line,35-39,TSLstate1); ddedata(file_excel,strprint(R%dC5,row_ne),TSLstate1); else pause(0,strprint(%s-%s电路状态修改失败,ET,TSLelse); abort(电路状态修改失败); endif if(TSLstate=SE-US&TSLstate1=SE-US) tx(ZCEC:CRCT=%s-1&-31:WO;n,ET); if (getline(line,WO-EX) ddedata(file_excel,strprint(R%dC6,row_ne),WO-EX); else ddedata(file_excel,strprint(R%dC6,row_ne),Abnormal); endif else pause(0,strprint(%s-%s与其它电路状态不一致，请检查,ET,TSL); abort(电路状态不一致); endif row_ne=row_ne+1; ET_excel=dderequest(file_excel,strprint(R%dC1,row_ne); TSL_excel=dderequest(file_excel,strprint(R%dC2,row_ne); TSLelse_excel=dderequest(file_excel,strprint(R%dC3,row_ne); strscan(ET_excel,%s,ET); strscan(TSL_excel,%s,TSL); strscan( TSLelse_excel,%s,TSLelse); endwhileendfunction程序功能：从“电路测试”中读取ET、测试时隙和其余30个时隙信息测试电路状态迁徙TE-US到SE-USZCEC:CRCT=835-1:SE；其余30条电路状态迁徙NU-US到SE-USZCEC:CRCT=835-2&-31:SE；开 始所有电路状态迁徙SE-US到WO-EXZCEC:CRCT=835-1&-31:WO；程序结束至此所有电路已放通，投入现网中使用电路停闭：function main ()string ET_excel,CGR_excel,CIRCUITstate; string ET,CGR,ETstate,line;integer file_excel,row_ne; deviceopen(AYMSC3); row_ne=2; file_excel=ddeconnect(EXCEL,电路信息.xls电路停闭); if (file_excel = 0)while(messagebox(请重新检查是否打开了网元列表.xls)=OK) abort(请重新检查是否打开了网元列表.xls); endwhileendif ET_excel=dderequest(file_excel,strprint(R%dC1,row_ne); CGR_excel=dderequest(file_excel,strprint(R%dC2,row_ne); strscan(ET_excel,%s,ET); strscan(CGR_excel,%s,CGR); while (ETEND)tx(ZRCI:SEA=4:CRCT=%s-1&-31:;n,ET);if (getline(line,CGR) logseek(CURRENT,1); getline(line); strfetch(line,9-13,CIRCUITstate); ddedata(file_excel,strprint(R%dC4,row_ne),CIRCUITstate);while(CIRCUITstateNU-US) if (CIRCUITstate=WO-EX) tx(ZCEC:CRCT=%S-1&-31:SE;n,ET); if (getline(line,EXTERNAL CIRCUIT(S) IN SPECIFIED STATES) logseek(CURRENT,3); getline(line); strfetch(line,35-39,CIRCUITstate); ddedata(file_excel,strprint(R%dC5,row_ne),CIRCUITstate); else pause(0,strprint(ET-%s所包含的31条电路状态不一致, ET); abort(ET所含电路状态不同,ET); endif elseif (CIRCUITstate=SE-EX) tx(ZCEC:CRCT=%S-1&-31:NU;n,ET); if (getline(line,EXTERNAL CIRCUIT(S) IN SPECIFIED STATES) logseek(CURRENT,3); getline(line); strfetch(line,35-39,CIRCUITstate); ddedata(file_excel,strprint(R%dC5,row_ne),CIRCUITstate); else pause(0,strprint(ET-%s所包含的31条电路状态不一致, ET); abort(ET所含电路状态不同,ET); endif else pause(0,strprint(请检查ET-%s电路状态, ET); abort(ET所含电路状态异常,ET); endif endwhileelse pause(0,strprint(ET-%s不存在电路信息, ET); abort(ET-%s无电路,ET); endif tx(ZRCR:CGR=%s:CRCT=%s-1&-31:;n,CGR,ET); if (getline(line,FORMAT : PCM-TSL) ddedata(file_excel,strprint(R%dC6,row_ne),删除电路成功); else pause(0,strprint(删除ET-%s电路失败，请检查, ET); abort(删除电路失败,ET); endif row_ne=row_ne+1; ET_excel=dderequest(file_excel,strprint(R%dC1,row_ne); CGR_excel=dderequest(file_excel,strprint(R%dC2,row_ne); strscan(ET_excel,%s,ET); strscan(CGR_excel,%s,CGR); endwhile row_ne=2; ET_excel=dderequest(file_excel,strprint(R%dC1,row_ne); strscan(ET_excel,%s,ET); while (ETEND) tx(ZUSI:ET,%s:;n,ET); if (getline(line,WORKING STATE OF UNITS) logseek(CURRENT,1); getline(line); strfetch(line,18-22,ETstate); ddedata(file_excel,strprint(R%dC7,row_ne),ETstate); else pause(0,strprint(ET-%s不存在, ET); abort(ET数值范围超出,ET); endif while (ETstateSE-NH) if (ETstate=WO-EX) tx(ZUSC:ET,%s:BL;n,ET); if (getline(line,NEW STATE = BL-EX) ddedata(file_excel,strprint(R%dC8,row_ne),BL-EX); else pause(0,strprint(ET-%s状态修改失败,请检查ET单元,ET); abort(ET%s单元异常,ET); endif tx(ZUSI:ET,%s:;n,ET); if (getline(line,WORKING STATE OF UNITS) logseek(CURRENT,1); getline(line); strfetch(line,18-22,ETstate); delay(5000); endif elseif (ETstate=BL-EX) tx(ZUSC:ET,%s:TE;n,ET); if (getline(line,NEW STATE = TE-EX) ddedata(file_excel,strprint(R%dC8,row_ne),TE-EX); else pause(0,strprint(ET状态修改失败,请检查ET单元); abort(ET%s异常,ET); endif tx(ZUSI:ET,%s:;n,ET); if (getline(line,WORKING STATE OF UNITS) logseek(CURRENT,1); getline(line); strfetch(line,18-22,ETstate); endifelseif (ETstate=TE-EX) tx(ZUSC:ET,%s:SE;n,ET); if (getline(line,NEW STATE = SE-OU) ddedata(file_excel,strprint(R%dC8,row_ne),SE-OU); else pause(0,strprint(ET状态修改失败,请检查ET单元); abort(ET%s异常,ET); endif tx(ZUSI:ET,%s:;n,ET); if (getline(line,WORKING STATE OF UNITS) logseek(CURRENT,1); getline(line); strfetch(line,18-22,ETstate); endif elseif (ETstate=SE-OU) tx(ZUSC:ET,%s:SE;n,ET); if (getline(line,NEW STATE = SE-NH) ddedata(file_excel,strprint(R%dC8,row_ne),SE-NH); else pause(0,strprint(ET状态修改失败,请检查ET单元); abort(ET%s异常,ET); endif tx(ZUSI:ET,%s:;n,ET); if (getline(line,WORKING STATE OF UNITS) logseek(CURRENT,1); getline(line); strfetch(line,18-22,ETstate); endifendif endwhile row_ne=row_ne+1; ET_excel=dderequest(file_excel,strprint(R%dC1,row_ne); strscan(ET_excel,%s,ET); endwhile endfunction程序功能：从“电路停闭”中读取ET、电路组（CGR）信息停闭电路状态迁徙WO-EX到SE-USZCEC:CRCT=835-1&-31:SE；停闭电路状态迁徙SE-US到NU-USZCEC:CRCT=835-2&-31:N