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,'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,'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
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
