巧用RBF解决S1240交换机用户割接中的相关问题

搜索高级搜索

原创毕业论文

巧用RBF解决S1240交换机用户割接中的相关问题(二)

作者: 浏览:185次

免费专业论文
政治工作论文
计算机论文
营销专业论文
工程管理论文范文
医药医学论文范文
法律论文范文
生物专业论文
物理教学论文范文
人力资源论文范文
化学教学论文范文
电子专业论文范文
历史专业论文
电气工程论文
社会学专业论文
英语专业论文
行政管理论文范文
语文专业论文
电子商务论文范文
焊工钳工技师论文
社科文学论文
教育论文范文
数学论文范文
物流论文范文
建筑专业论文
食品专业论文
财务管理论文范文
工商管理论文范文
会计专业论文范文
专业论文格式
化工材料专业论文
英语教学专业论文
电子通信论文范文
旅游管理论文范文
环境科学专业论文
经济论文
人力资源论文范文
营销专业论文范文
财务管理论文范文
物流论文范文
财务会计论文范文
数学教育论文范文
数学与应用数学论文
电子商务论文范文
法律专业论文范文
工商管理论文范文
汉语言文学论文
计算机专业论文
教育管理论文范文
现代教育技术论文
小学教育论文范文
机械模具专业论文
报告,总结,申请书
心理学论文范文
学前教育论文范文

收费计算机专业论文范文

收费计算机专业论文
Delphi
ASP
VB
JSP
ASP.NET
VB.NET
java
VC
pb
VS
dreamweaver
c#.net
vf
VC++
计算机论文

毕业论文范文题目：巧用RBF解决S1240交换机用户割接中的相关问题(二)，论文范文关键词：巧用RBF解决S1240交换机用户割接中的相关问题(二)
巧用RBF解决S1240交换机用户割接中的相关问题(二)毕业论文范文介绍开始：

五、程序源代码及相关注释

REM MAC MAIN
DEF MAC MAIN
;
;-------------------------------------------------
;DESIGNED BY LIAOZHICAI ,RONGAN TELECOM,2006-12-8
;REDESIGNED AT 2007-11-25
;-------------------------------------------------
;
SET ERR
RET UWA .ERR_LIST
REM .ERR,.ERRCOUNT,.DN_COUNT
RES ERR
DEF .ERR=0,.ERRCOUNT=0,.DN_COUNT=0          ＝＝》定义全局变量，ERR用于进行出
GET UWA .ERR_LIST                                错判断，ERRCOUNT进行错误计数，
                                                 DN_COUNT则对执行成功号码计数
:DN_LIST                                         ERR_LIST用于暂存不成功号码

:RESULT
RET UWA .ERR_LIST
REM MAC DN_LIST
REM .ERR,.ERRCOUNT,.DN_COUNT
EM

REM MAC ERRDEAL
DEF MAC ERRDEAL                            ＝＝》出错判断及处理模块
.ERR=0
BAS=A
IF .ERRCOUNT>=40T                          ＝＝》超过40个错误则中断执行
:RESULT
RET UWA .ERR_LIST
REM .ERR,.ERRCOUNT,.DN_COUNT
EXIT
END
SCA RBF,1,1K,'NOT SUCCESSFUL'
IF RCX<>0
.ERR=1
BYT .ERR_LIST+.ERRCOUNT*8T=' %0'
.ERRCOUNT=.ERRCOUNT+1
RET MAC
END
SCA RBF,1,1K,'CHGNBR'                   ＝＝》有改号音用户不执行，视为出错
IF RCX<>0
.ERR=1
BYT .ERR_LIST+.ERRCOUNT*8T=' %0'
.ERRCOUNT=.ERRCOUNT+1
RET MAC
END
EM

REM MAC RESULT
DEF MAC RESULT                        ＝＝》执行结果汇总显示模块
BAS=T
ADD .C=0
ADD .DN0,.DN1,.DN2,.DN3,.DN4,.DN5,.DN6,.DN7
CLR
LOC 2,15
TIME
WRI ''
WRI '                SUCCESSFUL DN NUMBER IS : ',.DN_COUNT
WRI ''
IF .ERRCOUNT=0
WRI '       CONGRATULATION , NO ERROR OCCURS ! (-_-)(-_-)(-_-)(-_-)'
WRI ''
RET MAC
ENDIF
IF .ERRCOUNT>=40T
WRI '     ALERT:       O V E R F L O W !!! (*@*)(*@*)(*@*)(*@*)'
WRI ''
ENDIF
WRI '                   NOT SUCCESSFUL DN NUMBER IS :',.ERRCOUNT
WRI ''
WRI '                     LIST AS FOLLOWS ,YOU MUST CHECK IT : '
WRI ''
BAS=A

COU .ERRCOUNT ＝＝》读取ERR_LIST列表，将不成功号码按3个一行显示
IF .C<.ERRCOUNT
.DN0=BYT .ERR_LIST+.C*8T
.DN1=BYT .ERR_LIST+.C*8T+1T
.DN2=BYT .ERR_LIST+.C*8T+2T
.DN3=BYT .ERR_LIST+.C*8T+3T
.DN4=BYT .ERR_LIST+.C*8T+4T
.DN5=BYT .ERR_LIST+.C*8T+5T
.DN6=BYT .ERR_LIST+.C*8T+6T
.DN7=BYT .ERR_LIST+.C*8T+7T
WRI ' ',&
WRI '%(.DN0)%(.DN1)%(.DN2)%(.DN3)%(.DN4)%(.DN5)%(.DN6)%(.DN7)',&\.C=.C+1
END
IF .C-.C/3*3=0
WRI ''
ENDIF
IF .C>40T
EXIT
ENDIF

ENDC
WRI ''
WRI ''
EM

REM MAC A
DEF MAC A ＝＝》普通用户割接模块
;
;--------------------------------------------------
;DESIGNED BY LIAOZHICAI ,RONGAN TELECOM,2006-12-8
;P0=MOVEDN,P1=NEWEN
;USED FOR S1240 E74L204
;--------------------------------------------------
;
ADD .NA1,.NA2,.NA3,.NA4
ADD .TN1,.TN2,.TN3,.TN4
ADD .BCGID_1,.BCGID_2,.BCGID
ADD .SUBGRP_1,.SUBGRP_2,.SUBGRP
ADD .OCB_0,.OCB_1,.OCB=0
ADD .SUBCTRL=0,.PASSWORD=0
ADD .DHZL_1=0,.DHZL_2=0
ADD .TOTALBAR=0
ADD .COU=0,.COU_CTRL=0
ADD .SUBCTRL0='',.SUBCTRL1='',.SUBCTRL2=''
BAS=T
SUF=T
COU 8T
ADD .F%(.COU)=''
.COU=.COU+1
ENDC
.COU=0

<4296:DN=K'%0.\:LAST ＝＝》显示号码，并获取相关信息

SCA RBF,1,1K,'BCGID'
IF RCX<>0
BAS=T
.BCGID_1=BYT RBF+RCX+7T
.BCGID_2=BYT RBF+RCX+8T
BAS=A
.BCGID='%(.BCGID_1)%(.BCGID_2)'
BAS=T
:BCGUSER %(.BCGID),%0,%1
RET MAC
ENDBCG

:ERRDEAL %0 ＝＝》对指令执行结果进行分析，出错则中断
IF .ERR=1
RET MAC
ENDERR

SCA RBF,1,1K,'H''' ＝＝》读取号码的原设备号值
BAS=T
IF RCX<>0
.NA1=BYT RBF+RDX+2T
.NA2=BYT RBF+RDX+3T
.NA3=BYT RBF+RDX+4T
.NA4=BYT RBF+RDX+5T
.TN1=BYT RBF+RDX+18T
.TN2=BYT RBF+RDX+19T
.TN3=BYT RBF+RDX+20T
.TN4=BYT RBF+RDX+21T
BAS=A
ADD .NA_ORIG='%(.NA1)%(.NA2)%(.NA3)%(.NA4)'
ADD .TN_ORIG='%(.TN1)%(.TN2)%(.TN3)%(.TN4)'
BAS=T
ELS
BAS=A
BYT .ERR_LIST+.ERRCOUNT*8T=' %0'
.ERRCOUNT=.ERRCOUNT+1 ＝＝》空号退出
RET MAC
ENDEN

SCA RBF,1,1K,'SUBGRP'
IF RCX<>0 AND WOR RBF+RDX+9T<>2031H ＝＝》为用户组1则不添加
BAS=T
.SUBGRP_1=BYT RBF+RDX+9T
.SUBGRP_2=BYT RBF+RDX+10T
BAS=A
.SUBGRP='%(.SUBGRP_1)%(.SUBGRP_2)'
BAS=T
.F%(.COU)=',7=',.F%(.COU+1)='%(.SUBGRP)'
.COU=.COU+2
ENDIF

SCA RBF,1,1K,'CGLIP' ＝＝》各项程控功能判断
IF RCX<>0
.F%(.COU)=',23=',.F%(.COU+1)='1&1'
.COU=.COU+2
END

SCA RBF,1,1K,'INTCP'
IF RCX<>0
IF BYT RBF+RDX+8T='M'
.F%(.COU)=',13=',.F%(.COU+1)='6'
.COU=.COU+2
ORIF BYT RBF+RDX+8T='O'
.F%(.COU)=',13=',.F%(.COU+1)='8'
.COU=.COU+2
END
ENDIF

SCA RBF,1,1K,'PAYPHONE'
IF RCX<>0
.F%(.COU)=',10=',.F%(.COU+1)='2&3'
.COU=.COU+2
END

SCA RBF,1,1K,'TOTALBAR'
IF RCX<>0
.TOTALBAR=1
END

SCA RBF,1,1K,'11832304'
IF RCX<>0
.DHZL_1=1
ENDIF

SCA RBF,1,1K,'11832305'
IF RCX<>0
.DHZL_2=1
ENDIF

SCA RBF,1,1K,'PERM' ＝＝》OCB值仅判断首字
IF RCX<>0
IF WOR RBF+RDX+6T=4D45H
.OCB_0='EMER',.OCB_1='G',.OCB=1
ORIF WOR RBF+RDX+6T=4F4CH
.OCB_0='LOCA',.OCB_1='L',.OCB=1
ORIF WOR RBF+RDX+6T=5553H
.OCB_0='SUBU',.OCB_1='RBAN',.OCB=1
ORIF WOR RBF+RDX+6T=414EH
.OCB_0='NAT',.OCB_1='',.OCB=0
ORIF WOR RBF+RDX+6T=4E49H
.OCB_0='INT',.OCB_1='',.OCB=1
ENDIF
ENDIF

SCA RBF,1,1K,'CFWDU'
IF RCX<>0
.SUBCTRL=1
.SUBCTRL%(.COU_CTRL)='&8'
.COU_CTRL=.COU_CTRL+1
ENDIF

SCA RBF,1,1K,'CFWDBSUB'
IF RCX<>0 AND WOR RBF+RDX+9T<>3131H AND WOR RBF+RDX+11T<>3338H
.SUBCTRL=1
.SUBCTRL%(.COU_CTRL)='&4'
.COU_CTRL=.COU_CTRL+1
ENDIF

SCA RBF,1,1K,'CFWDNOR'
IF RCX<>0 AND WOR RBF+RDX+9T<>3131H AND WOR RBF+RDX+11T<>3338H
.SUBCTRL=1
.SUBCTRL%(.COU_CTRL)='&6'
.COU_CTRL=.COU_CTRL+1
ENDIF

SCA RBF,1,1K,'PASSWORD'
IF RCX<>0
.PASSWORD=1
ADD .PASS1=BYT RBF+RDX+11T
ADD .PASS2=BYT RBF+RDX+12T
ADD .PASS3=BYT RBF+RDX+13T
ADD .PASS4=BYT RBF+RDX+14T
.OCB=0
.SUBCTRL=0
ENDIF

<4295:DN=K'%0,EN=H'%(.NA_ORIG)&%(.TN_ORIG),48.\:LAST
:ERRDEAL %0
IF .ERR=1
RET MAC
ENDERR

<4291:DN=K'%0,EN=H'%1.\:LAST
:ERRDEAL %0
IF .ERR=1
RET MAC
ENDERR

BAS=A

IF .DHZL_1=1
<4294:DN=K'%0,CFWD=ACTIVATE&CFWDBSUB&K'11832304.\:LAST
END

IF .DHZL_2=1
<4294:DN=K'%0,CFWD=ACTIVATE&CFWDNOR&K'11832305.\:LAST
END

IF .PASSWORD=1 ＝＝》INTCP与PASSWORD必须分开执行
<4294:DN=K'%0,28=3&2&%(.OCB_0)%(.OCB_1)
<,40=1&27%(.SUBCTRL0)%(.SUBCTRL1)%(.SUBCTRL2)
<,19=1&"%(.PASS1)%(.PASS2)%(.PASS3)%(.PASS4)".
:LAST
ORIF .SUBCTRL=1
<4294:DN=K'%0%(.F0)%(.F1)%(.F2)%(.F3)%(.F4)
<%(.F5)%(.F6)%(.F7),28=3&2&%(.OCB_0)%(.OCB_1)
<,40=1%(.SUBCTRL0)%(.SUBCTRL1)%(.SUBCTRL2).
:LAST
ORIF .OCB=1
<4294:DN=K'%0%(.F0)%(.F1)%(.F2)%(.F3)%(.F4)
<%(.F5)%(.F6)%(.F7),28=3&2&%(.OCB_0)%(.OCB_1).
:LAST
ENDPASS

IF .COU<>0 AND .SUBCTRL=0 AND .OCB=0
<4294:DN=K'%0%(.F0)%(.F1)%(.F2)%(.F3)%(.F4)
<%(.F5)%(.F6)%(.F7).
:LAST
ENDIF
:ERRDEAL %0
IF .ERR=1
RET MAC
ENDERR

IF .TOTALBAR=1
<4294:DN=K'%0,OCB=ADD&TOTALBAR.\:LAST
END

.DN_COUNT=.DN_COUNT+1

REM MAC BCGUSER
DEF MAC BCGUSER ＝＝》与MACRO A类似，改为BCG相关指令
ADD .NA1,.NA2,.NA3,.NA4
ADD .TN1,.TN2,.TN3,.TN4
ADD .BCGID_1,.BCGID_2,.BCGID
ADD .PN_1ST,.PN_2ND,.PN1,.PN2,.PN3,.PN4,.PN5,.PN6,.PN7
ADD .SUBGRP_1,.SUBGRP_2,.SUBGRP
ADD .OCB_0,.OCB_1,.OCB=0
ADD .SUBCTRL=0,.PASSWORD=0
ADD .DHZL_1=0,.DHZL_2=0
ADD .TOTALBAR=0
ADD .COU=0,.COU_CTRL=0
ADD .SUBCTRL0='',.SUBCTRL1='',.SUBCTRL2=''
BAS=T
SUF=T
COU 10T
ADD .F%(.COU)=''
.COU=.COU+1
ENDC
.COU=0

<4381:DN=K'%1.\:LAST
:ERRDEAL %1
IF .ERR=1
RET MAC
ENDERR

SCA RBF,1,1K,'H'''
IF RCX<>0
.NA1=BYT RBF+RDX+2T
.NA2=BYT RBF+RDX+3T
.NA3=BYT RBF+RDX+4T
.NA4=BYT RBF+RDX+5T
.TN1=BYT RBF+RDX+23T
.TN2=BYT RBF+RDX+24T
.TN3=BYT RBF+RDX+25T
.TN4=BYT RBF+RDX+26T
BAS=A
ADD .NA_ORIG='%(.NA1)%(.NA2)%(.NA3)%(.NA4)'
ADD .TN_ORIG='%(.TN1)%(.TN2)%(.TN3)%(.TN4)'
BAS=T
ELS
BAS=A
BYT .ERR_LIST+.ERRCOUNT*8T=' %0'
.ERRCOUNT=.ERRCOUNT+1、
RET MAC
END

SCA RBF,1,1K,'PN'
IF RCX<>0
.PN1=BYT RBF+RDX+5T
.PN2=BYT RBF+RDX+6T
.PN3=BYT RBF+RDX+7T
.PN4=BYT RBF+RDX+8T
.PN5=BYT RBF+RDX+9T
.PN6=BYT RBF+RDX+10T
.PN7=BYT RBF+RDX+11T
BAS=A
.PN_1ST='%(.PN1)%(.PN2)%(.PN3)%(.PN4)' ＝＝》支持最多7位位长的PN
.PN_2ND='%(.PN5)%(.PN6)%(.PN7)'
BAS=T
ENDIF

SCA RBF,1,1K,'SUBGRP'
IF RCX<>0 AND WOR RBF+RDX+9T<>2031H
BAS=T
.SUBGRP_1=BYT RBF+RDX+9T
.SUBGRP_2=BYT RBF+RDX+10T
BAS=A
.SUBGRP='%(.SUBGRP_1)%(.SUBGRP_2)'
BAS=T
.F%(.COU)=',7=',.F%(.COU+1)='%(.SUBGRP)'
.COU=.COU+2
ENDIF

SCA RBF,1,1K,'CGLIP'
IF RCX<>0
.F%(.COU)=',23=',.F%(.COU+1)='1&1'
.COU=.COU+2
END

SCA RBF,1,1K,'INTCP'
IF RCX<>0
IF BYT RBF+RDX+8T='M'
.F%(.COU)=',13=',.F%(.COU+1)='6'
.COU=.COU+2
ORIF BYT RBF+RDX+8T='O'
.F%(.COU)=',13=',.F%(.COU+1)='8'
.COU=.COU+2
END
ENDIF

SCA RBF,1,1K,'BLNGLEV'
IF RCX<>0
IF BYT RBF+RDX+17T='I'
.F%(.COU)=',15=',.F%(.COU+1)='1&2'
.COU=.COU+2
END
ENDIF

SCA RBF,1,1K,'PAYPHONE'
IF RCX<>0
.F%(.COU)=',10=',.F%(.COU+1)='2&3'
.COU=.COU+2
END

SCA RBF,1,1K,'TOTALBAR'
IF RCX<>0
.TOTALBAR=1
END

SCA RBF,1,1K,'11832304'
IF RCX<>0
.DHZL_1=1
ENDIF

SCA RBF,1,1K,'11832305'
IF RCX<>0
.DHZL_2=1
ENDIF

SCA RBF,1,1K,'PERM'
IF RCX<>0
IF WOR RBF+RDX+6T=4D45H
.OCB_0='EMER',.OCB_1='G',.OCB=1
ORIF WOR RBF+RDX+6T=4F4CH
.OCB_0='LOCA',.OCB_1='L',.OCB=1
ORIF WOR RBF+RDX+6T=5553H
.OCB_0='SUBU',.OCB_1='RBAN',.OCB=1
ORIF WOR RBF+RDX+6T=414EH
.OCB_0='NAT',.OCB_1='',.OCB=0
ORIF WOR RBF+RDX+6T=4E49H
.OCB_0='INT',.OCB_1='',.OCB=1
ENDIF
ENDIF

SCA RBF,1,1K,'CFWDU'
IF RCX<>0
.SUBCTRL=1
.SUBCTRL%(.COU_CTRL)='&8'
.COU_CTRL=.COU_CTRL+1
ENDIF

SCA RBF,1,1K,'CFWDBSUB'
IF RCX<>0 AND WOR RBF+RDX+9T<>3131H AND WOR RBF+RDX+11T<>3338H
.SUBCTRL=1
.SUBCTRL%(.COU_CTRL)='&4'
.COU_CTRL=.COU_CTRL+1
ENDIF

SCA RBF,1,1K,'CFWDNOR'
IF RCX<>0 AND WOR RBF+RDX+9T<>3131H AND WOR RBF+RDX+11T<>3338H
.SUBCTRL=1
.SUBCTRL%(.COU_CTRL)='&6'
.COU_CTRL=.COU_CTRL+1
ENDIF

SCA RBF,1,1K,'PASSWORD'
IF RCX<>0
.PASSWORD=1
ADD .PASS1=BYT RBF+RDX+11T
ADD .PASS2=BYT RBF+RDX+12T
ADD .PASS3=BYT RBF+RDX+13T
ADD .PASS4=BYT RBF+RDX+14T
.OCB=0
.SUBCTRL=0
ENDIF

BAS=A
<4380:DN=K'%1,EN=H'%(.NA_ORIG)&%(.TN_ORIG),48.\:LAST
:ERRDEAL %1
IF .ERR=1
RET MAC
ENDERR

<4430:BCGID=%0,EN=H'%(.NA_ORIG)&%(.TN_ORIG),OPTION=REMOVE.\:LAST

<4430:BCGID=%0,EN=H'%2,OPTION=ADD.\:LAST
:ERRDEAL %1
IF .ERR=1
RET MAC
ENDERR

<4378:BCGID=%0,DN=K'%1,EN=H'%2,PN=K'%(.PN_1ST)%(.PN_2ND).\:LAST
:ERRDEAL %1
IF .ERR=1
RET MAC
ENDERR

IF .DHZL_1=1
<4382:DN=K'%1,CFWD=ACTIVATE&CFWDBSUB&K'11832304.\:LAST
END

IF .DHZL_2=1
<4382:DN=K'%1,CFWD=ACTIVATE&CFWDNOR&K'11832305.\:LAST
END

IF .PASSWORD=1
<4382:DN=K'%1,28=3&2&%(.OCB_0)%(.OCB_1)
<,40=1&27%(.SUBCTRL0)%(.SUBCTRL1)%(.SUBCTRL2)
<,19=1&"%(.PASS1)%(.PASS2)%(.PASS3)%(.PASS4)".
:LAST
ORIF .SUBCTRL=1
<4382:DN=K'%1%(.F0)%(.F1)%(.F2)%(.F3)%(.F4)
<%(.F5)%(.F6)%(.F7)%(.F8)%(.F9),28=3&2&%(.OCB_0)%(.OCB_1)
<,40=1%(.SUBCTRL0)%(.SUBCTRL1)%(.SUBCTRL2).
:LAST
ORIF .OCB=1
<4382:DN=K'%1%(.F0)%(.F1)%(.F2)%(.F3)%(.F4)
<%(.F5)%(.F6)%(.F7)%(.F8)%(.F9),28=3&2&%(.OCB_0)%(.OCB_1).
:LAST
ENDPASS

IF .COU<>0 AND .SUBCTRL=0 AND .OCB=0
<4382:DN=K'%1%(.F0)%(.F1)%(.F2)%(.F3)%(.F4)
<%(.F5)%(.F6)%(.F7)%(.F8)%(.F9).
:LAST
ENDIF
:ERRDEAL %1
IF .ERR=1
RET MAC
ENDERR

IF .TOTALBAR=1
<4382:DN=K'%1,OCB=ADD&TOTALBAR.\:LAST
END

.DN_COUNT=.DN_COUNT+1

首页上一页 1 2 下一页尾页 2/2/2

以上为本篇毕业论文范文巧用RBF解决S1240交换机用户割接中的相关问题(二)的介绍部分。

本论文在电子通信论文栏目，由论文网(www.zjwd.net)整理,更多论文,请点论文范文查找