Convert existing 2616's to 3904's

[RandalSw]

I have to convert a large # of existing 2616's to 3904's. I have built a template in OTM, but, there must be a better way.

 

[johnpoole]

not with otm, with scripts it takes about 45 sec per station. the script prints a tnb of the stations and saves that to a file... open it in excel and modify that.. set type and keys.. either by hand or with a macro, save that as a tab delimited and run the second script.. just went through that with almost 300 stations... under 4 hours total

john poole
bellsouth business
columbia,sc

 

[RandalSw]

Sounds great. Where can I find them?

 

[Johnthephoneguy]

you can paste this into your aspect script editor in procomm and it works great. you will have to tweak it to your PBX though, run it a few times until it will build the set without stopping, usually a prompt that diff releases have not the same, then edit accordingly. build an excel spreadsheet that matches the DESC OLDTN NEWTN etc fields and it will pull the data from the spreadsheet and build as many sets as you want, all 100% correct(if you input correctly on the spreadsheet)



;DESC OLDTN NEWTN TYPE ACD POSID DN NAME
;A061 148 0 4 0 172 0 4 0 3905 3500 551514 431514 CSR


proc main

string xdesc, xoldtn, xnewtn, xtype, xacd, xdn, xpos, xname ; variables to be extracted from input string from file.
string FName ; Declaration of File name to be opened.
string LineBuffer ; Declaration of variable LineBuffer for Line to be read from file.
string nloop = "True"
string LChar = "F"
integer nItem = 0, Len = 2 ; nItem - next comma delimited field in LineBuffer
statmsg "Enter the name of the source file that has DESC, OLDTN, NEWTN, TYPE, ACD, POSID, DN, and NAME defined."
sdlginput "Source File for 3905 Sets" "Enter File Name :" FName
if isfile FName ; Make sure file exists.
fopen 0 FName READ ; Open file for read.
while not feof 0
fgets 0 linebuffer
while not feof 0 ; Loop while not end of file.
statclear
statmsg "Processing file input"
strextract xdesc LineBuffer "," nItem ; Extract description from input string
if not nullstr xdesc ; See if we're at the end of list.
nItem++
;usermsg xdesc ; Increment our item pointer.
endif
strextract xoldtn LineBuffer "," nItem ; Extract tn from input string
if not nullstr xoldtn ; See if we're at the end of list.
nItem++ ; Increment our item pointer.
;usermsg xoldtn
endif

strextract xnewtn LineBuffer "," nItem ; Extract tn from input string
if not nullstr xnewtn ; See if we're at the end of list.
nItem++ ; Increment our item pointer.
;usermsg xnewtn
endif

strextract xtype LineBuffer "," nItem ; Extract tn from input string
if not nullstr xtype ; See if we're at the end of list.
nItem++ ; Increment our item pointer.
;usermsg xtype
endif

strextract xacd LineBuffer "," nItem ; Extract acd from input string
if not nullstr xacd ; See if we're at the end of list.
nItem++ ; Increment our item pointer.
;usermsg xacd
endif
strextract xpos LineBuffer "," nItem ; Extract DN from input string
if not nullstr xpos ; See if we're at the end of list.
nItem++ ; Increment our item pointer.
;usermsg xpos
endif

strextract xdn LineBuffer "," nItem ; Extract position ID from input string
if not nullstr xdn ; See if we're at the end of list.
nItem++ ; Increment our item pointer.
;usermsg xdn

endif

strextract xname LineBuffer "," nItem ; Extract position ID from input string
if not nullstr xname ; See if we're at the end of list.
nItem++ ; Increment our item pointer.
;usermsg xname

endif


;3905 code
if strcmp nloop "True"
transmit "ld 20^M"
endif

waitfor "REQ:"
transmit "new^M"

waitfor "TYPE: "
transmit xtype
transmit "^M"

waitfor "TN "
transmit xnewtn
transmit "^M"

waitfor "DES "
transmit xdesc
transmit "^M"

waitfor "CUST "
transmit "0^M"

waitfor "KBA"
transmit "^M"

waitfor "DBA"
transmit "^M"

waitfor "FDN "
transmit "6245^M"

waitfor "TGAR "
transmit "1^M"

waitfor "LDN "
transmit "^M"

waitfor "NCOS "
transmit "1^M"

waitfor "RNPG "
transmit "^M"

waitfor "SSU "
transmit "^M"

waitfor "SGRP "
transmit "^M"

waitfor "CLS "
transmit "MCTA LNA IRA OLA TDD CDMA CFXA CNDA DNDA DPUA FNA HFA HTA SFA MWA ^M"

waitfor "RCO "
transmit "^M"

waitfor "HUNT "
transmit "6245^M"

waitfor "LHK "
transmit "0^M"

waitfor "LNRS "
transmit "^M"

waitfor "SCI "
transmit "^M"

waitfor "LPK "
transmit "1^M"

waitfor "PLEV "
transmit "2^M"

waitfor "AST "
transmit "^M"

waitfor "IAPG "
transmit "^M"

waitfor "MLWU_LANG "
transmit "^M"

waitfor "MLNG "
transmit "^M"

waitfor "DNDR "
transmit "^M"

waitfor "KEY "
transmit "0 scr "
transmit xdn
transmit " 0"
transmit "^M"

waitfor "CPND"
transmit "^M"
waitfor "VMB"
transmit "^M"

waitfor "KEY"
transmit "5 mik^M"

waitfor "KEY "
transmit "3 ao6^M"

waitfor "KEY"
transmit "4 trn^M"

waitfor "KEY "
transmit "1 TRC^M"

waitfor "KEY "
transmit "^M"

nloop = "False"
NItem = 0

fgets 0 linebuffer

endwhile
endwhile

waitfor "REQ:"
transmit "****^M"
fclose 0 ; Close file opened for read.
statclear

else
errormsg "Couldn't open file `"%s`"." FName
statclear
endif


endproc

JohnThePhoneGuy

"If I can't fix it, it's not broke!

 

[RandalSw]

Thanks, I appreciate that.

 

[Johnthephoneguy]

Of course edit the Tgar and NCOS, CLS to what you would use in your PBX, but this works great.

JohnThePhoneGuy

"If I can't fix it, it's not broke!