Hurricane Rita 3

breakbuddy1 · Sep 21, 2005

is on the way to Texas.. besides backing up the PBX on the floppy, what kind of printed information should I keep on hand? I was burned the last time we had such an outage only because the floppy's that we had were deemed "corrupt". I didn't buy it because it would have told me otherwise that the backup wasn't successful right? So as far as hard copies? PRT RDB, CDB, ACD info. what else?

thanks and stay safe,
-bb1.

pbxn · Sep 21, 2005

SInce you know it is coming, I would make more than one copy of your backup. If you have mail, ditto.
As far as on hand, you could go to pepedog.com, do a dnb dump, that would take care of all sets. Then RDB, ADAN, CDB, CDP, DMI, ACD, etc.

johnpoole · Sep 21, 2005

best, way to go, before you leave the island. remove the cmdu and take it with you.. after you power down. if i had to leave it powered up. i would split the cores and take the standby for a vacation.. cequ supl xpe ddb att tnb dnb cfn adan rdb ltm.. i would save that data to txt files and keep a couple of soft copies.. hard copies are usless as for as using scripts to enter data or even trying to locate info..good luck, (and take a bible)

john poole
bellsouth business
columbia,sc

CraigUK · Sep 21, 2005

I would also do a PRT of all TNBs' and save them as a .txt file.

CraigUK

mluckie1 · Sep 21, 2005

Don't forget LD 86(DMI's, RLI's, ESN), LD 87(CDP, DSC, NCTL), and 90(AC1, AC2). DDB in ld 73.

johnpoole · Sep 22, 2005

don't you just love ot when tech support's next question is "How fast can you type?"

john poole
bellsouth business
columbia,sc

wolfi24 · Sep 22, 2005

Good Luck for you and all people in Texas !

Wolfi

SpelingChampeon · Sep 22, 2005

Time permitting, if you dont have more than 1 backup copy of Meridian Mail.. I have gone to the extent of logging into MMail via modem, and doing a PRINT SCREEN of all my auto-attendant pages, and general setup options. The more time you have, the more screen shots. Good Luck!

jamie2 · Sep 22, 2005

Breakbuddy... If you use procomm scripts, here is a gui script I came across that will do all the prints mentioned above easily and will name them and place them all in one directory.

;[----------] GLOBAL VARIABLES [--------]

string tnString
string dnString
string rdbstring
string digstring
integer Radio200

;-------------] MAIN Procedure [-----

proc Main

when dialog 0 call GetSelection

BeginStart ()

endproc

;--------------------------] Opens Print Menu [------------------

proc BeginStart

dialogbox 0 64 56 274 260 71 "Meridian GUI"

groupbox 1 15 2 255 40 "Print Specific Commands."

text 2 20 12 94 15 "Print TN (Enter LSCU)." left

editbox 3 92 12 50 10 tnString

text 4 20 25 94 15 "Print DN (Enter DN)." left

editbox 5 92 25 40 10 dnString

text 6 150 12 94 15 "Print Route." left

editbox 7 210 12 40 10 rdbString

text 8 150 25 94 15 "Print DIG." left

editbox 9 210 25 40 10 digString

groupbox 10 15 50 115 165 "Print DN Commands"

groupbox 20 15 220 115 35 "Print TN Commands"

groupbox 30 135 50 135 205 "System Print Commands"

radiogroup 200 Radio200
radiobutton 201 20 60 108 11 "All Unused DN's."
radiobutton 202 20 70 108 11 "Unused DN's starting with 1."
radiobutton 203 20 80 108 11 "Unused DN's starting with 2."
radiobutton 204 20 90 108 11 "Unused DN's starting with 3."
radiobutton 205 20 100 108 11 "Unused DN's starting with 4."
radiobutton 206 20 110 108 11 "Unused DN's starting with 5."
radiobutton 207 20 120 108 11 "Unused DN's starting with 6."
radiobutton 208 20 130 108 11 "Unused DN's starting with 7."
radiobutton 209 20 140 108 11 "Unused DN's starting with 8."
radiobutton 210 20 150 108 11 "Unused DN's starting with 9."
radiobutton 211 20 160 108 11 "Print ACD DN's."
radiobutton 212 20 170 108 11 "List ACD DN's."
radiobutton 213 20 180 108 11 "Print CDN's."
radiobutton 214 20 190 108 11 "List Phantoms."
radiobutton 215 20 200 108 11 "List DN's with CFXA."
radiobutton 216 20 230 108 11 "Unused TN's [Analog]."
radiobutton 217 20 240 108 11 "Unused TN's [Digital]."
radiobutton 218 140 60 127 11 "Customer Data Block [CDB]."
radiobutton 219 140 70 127 11 "Route Data Block [RDB]."
radiobutton 220 140 80 127 11 "Trunk Members [LTM]."
radiobutton 221 140 90 127 11 "Networking [NET] Data."
radiobutton 222 140 100 127 11 "Configuration Record [CFN]"
radiobutton 223 140 110 127 11 "Common Equipment [CEQU]"
radiobutton 224 140 120 127 11 "System Parameters (PARM]."
radiobutton 225 140 130 127 11 "Issue and Package [ISS -N- PKG]"
radiobutton 226 140 140 127 11 "History File [AHST]."
radiobutton 227 140 150 127 11 "Incoming Digit Conversion [IDGT]."
radiobutton 228 140 160 127 11 "Features and Options [FTR]."
radiobutton 229 140 170 127 11 "Flexible Featue Codes [FFC]."
radiobutton 230 140 180 127 11 "Attendant Console Data [ATT]"
radiobutton 231 140 190 127 11 "List DID Trunks."
radiobutton 232 140 200 127 11 "List COT Trunks."
radiobutton 233 140 210 127 11 "List TIE Trunks."
radiobutton 234 140 220 127 11 "List RAN's."
radiobutton 235 140 230 127 11 "List All Trunks."
radiobutton 236 140 240 127 11 "Print Entire System."
endgroup
pushbutton 100 0 0 0 0 "SEND" DEFAULT
enddialog
endproc

; --------------] Event Handler [ ------------------------

proc GetSelection

integer event
dlgevent 0 event
switch event

case 3
PrtTN ()
tnString = "0"
dlgupdate 0 3
endcase

case 5
PrtDN ()
dnString = ""
dlgupdate 0 5
endcase

case 7
Prtroute ()
rdbString = ""
dlgupdate 0 7
endcase

case 9
PrtDIG ()
digString = ""
dlgupdate 0 9
endcase

case 200
switch Radio200
case 201
PrtALLDN()
dlgupdate 0 201

endcase
case 202
PrtDN1()
dlgupdate 0 202

endcase
case 203
PrtDN2()
dlgupdate 0 203

endcase
case 204
PrtDN3()
dlgupdate 0 204

endcase
case 205
PrtDN4()
dlgupdate 0 205

endcase
case 206
PrtDN5()
dlgupdate 0 206

endcase
case 207
PrtDN6()
dlgupdate 0 207

endcase
case 208
PrtDN7()
dlgupdate 0 208

endcase
case 209
PrtDN8()
dlgupdate 0 209

endcase
case 210
PrtDN9()
dlgupdate 0 210

endcase
case 211
PrtACD()
dlgupdate 0 211

endcase
case 212
LstACD()
dlgupdate 0 212

endcase
case 213
PrtCDN()
dlgupdate 0 213

endcase
case 214
LstPhantom()
dlgupdate 0 214

endcase
case 215
LstCFXA()
dlgupdate 0 215

endcase
case 216
PrtAnalog()
dlgupdate 0 216

endcase
case 217
PrtDigital()
dlgupdate 0 217

endcase
case 218
PrtCDB()
dlgupdate 0 218

endcase
case 219
PrtRDB()
dlgupdate 0 219

endcase
case 220
PrtLTM()
dlgupdate 0 220

endcase
case 221
PrtNET()
dlgupdate 0 221

endcase
case 222
PrtCFN()
dlgupdate 0 222
endcase

case 223
PrtCEQU()
dlgupdate 0 223
endcase

case 224
PrtPARM()
dlgupdate 0 224
endcase

case 225
PrtIssPkg()
dlgupdate 0 225
endcase

case 226
PrtAHST()
dlgupdate 0 226
endcase

case 227
PrtIDC()
dlgupdate 0 227
endcase

case 228
PrtFTR()
dlgupdate 0 228
endcase

case 229
PrtFFC()
dlgupdate 0 229
endcase

case 230
PrtATT()
dlgupdate 0 230
endcase

case 231
PrtDID()
dlgupdate 0 231
endcase

case 232
PrtCOT()
dlgupdate 0 232
endcase

case 233
PrtTIE()
dlgupdate 0 233
endcase

case 234
PrtRAN()
dlgupdate 0 234
endcase

case 235
PrtTRK()
dlgupdate 0 235
endcase

case 236
ENTIRE()
dlgupdate 0 236
endcase

endswitch
endcase
endswitch

endproc

;---------------------------- PROCEDURE SECTION ---------------------------------*

proc PrtTN
printcapture ON
When TARGET 0 "SCH" call GetCode
transmit "****^M"
waitfor ">"
transmit "LD 20^M"
waitfor "REQ:"
transmit "PRT^M"
waitfor "TYPE:"
transmit "TNB^M"
waitfor "TN"
Pause 1
transmit tnString
transmit "^M"
waitfor "SPWD"
transmit "^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "NACT"
transmit "^M"
printcapture OFF
endproc

proc PrtDN
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "DNB^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DN"
transmit dnString
transmit "^M"
waitfor "DATE"
transmit "~^M"
waitfor "PAGE"
transmit "~^M"
waitfor "DES"
transmit "~^M"
waitfor "NACT"
transmit "~^M"
endproc

proc PrtDig
String Name = "DIG"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE"
transmit "DIG^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DGRP"
transmit digString
transmit "^M"
waitfor "DMEM"
transmit "^M"
transmit "^M"
waitfor "REQ"
capture off
endproc

proc Prtroute
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 21~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE"
transmit "RDB^M"
waitfor "CUST"
transmit "0~^M"
waitfor "ROUT"
transmit rdbString
transmit "^M"
transmit "^M"
waitfor "REQ"
endproc

proc PrtALLDN
string Name = "AllDNs"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "LUDN^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DN"
transmit "^M"
waitfor "REQ"
capture off

endproc

proc PrtDN1
string Name = "LUDN_1xxx"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "LUDN^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DN"
transmit "1^M"
waitfor "REQ"
capture off

endproc

proc PrtDN2
string Name = "LUDN_2xxx"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "LUDN^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DN"
transmit "2^M"
waitfor "REQ"
capture off

endproc

proc PrtDN3
string Name = "LUDN_3xxx"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "LUDN^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DN"
transmit "3^M"
waitfor "REQ"
capture off

endproc
proc PrtDN4
string Name = "LUDN_4xxx"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "LUDN^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DN"
transmit "4^M"
waitfor "REQ"
capture off

endproc

proc PrtDN5
string Name = "LUDN_5xxx"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "LUDN^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DN"
transmit "5^M"
waitfor "REQ"
capture off

endproc

proc PrtDN6
string Name = "LUDN_6xxx"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "LUDN^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DN"
transmit "6^M"
waitfor "REQ"
capture off

endproc

proc PrtDN7
string Name = "LUDN_7xxx"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "LUDN^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DN"
transmit "7^M"
waitfor "REQ"
capture off

endproc

proc PrtDN8
string Name = "LUDN_8xxx"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "LUDN^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DN"
transmit "8^M"
waitfor "REQ"
capture off

endproc

proc PrtDN9
string Name = "LUDN_9xxx"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "LUDN^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DN"
transmit "9^M"
waitfor "REQ"
capture off

endproc

proc PrtAnalog
string Name = "LUVU_Analog"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "LUVU~^M"
waitfor "TYPE:"
transmit "500^M"
waitfor "TN"
transmit "^M"
waitfor "CDEN"
transmit "^M"
waitfor "REQ"
capture off
endproc

proc PrtDigital
string Name = "LUVU_Digital"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "LUVU~^M"
waitfor "TYPE:"
transmit "2000^M"
waitfor "TN"
transmit "^M"
waitfor "REQ"
capture off

endproc

proc PrtCDB
String Name = "CDB"
set capture file Name
capture on
transmit "****~^M"
waitfor ">"
transmit "LD 21~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "CDB^M"
waitfor "CUST"
transmit "0~^M"
transmit "^M"
waitfor "REQ:"
capture off
endproc

proc PrtRDB
String Name = "RDB"
set capture file Name
capture on
transmit "****~^M"
waitfor ">"
transmit "LD 21~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "RDB^M"
waitfor "CUST"
transmit "0~^M"
transmit "^M"
waitfor "ROUT"
transmit "^M"
waitfor "ACOD"
transmit "^M"
waitfor "REQ:"
capture off

endproc

proc PrtLTM
String Name = "LTM"
set capture file Name
capture on
transmit "****~^M"
waitfor ">"
transmit "LD 21~^M"
waitfor "REQ:"
transmit "LTM~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "ROUT"
transmit "^M"
waitfor "ACOD"
transmit "^M"
waitfor "REQ:"
capture off
endproc

proc PrtNET
String Name = "NET"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 21~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE"
transmit "NET^M"
waitfor "CUST"
transmit "0~^M"
waitfor "REQ"
capture off
endproc

proc PrtCFN
String Name = "CFN"
set capture file Name
capture on
transmit "****~^M"
waitfor ">"
transmit "LD 22~^M"
waitfor "REQ"
transmit "PRT~^M"
waitfor "TYPE"
transmit "CFN^M"
waitfor "REQ"
capture off
endproc

proc PrtCEQU
String Name = "CEQU"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 22~^M"
waitfor "REQ"
transmit "PRT~^M"
waitfor "TYPE"
transmit "CEQU^M"
waitfor "REQ"
capture off
endproc

proc PrtPARM
String Name = "PARM"
set capture file Name
capture on
transmit "****~^M"
waitfor ">"
transmit "LD 22~^M"
waitfor "REQ"
transmit "PRT~^M"
waitfor "TYPE"
transmit "PARM^M"
waitfor "REQ"
capture off
endproc

proc PrtIssPkg
String Name = "IssPkg"
set capture file Name
capture on
transmit "****~^M"
waitfor ">"
transmit "LD 22~^M"
waitfor "REQ"
transmit "ISS~^M"
waitfor "REQ"
transmit "PRT~^M"
waitfor "TYPE"
transmit "PKG^M"
waitfor "REQ"
capture off
endproc

proc PrtAHST
String Name = "AHST"
set capture file Name
capture on
transmit "****~^M"
waitfor ">"
transmit "LD 22~^M"
waitfor "REQ"
transmit "PRT~^M"
waitfor "TYPE"
transmit "AHST^M"
waitfor "REQ"
capture off
endproc

proc PrtIDC
String Name = "IDGT"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 49~^M"
waitfor "REQ"
transmit "PRT~^M"
waitfor "TYPE"
transmit "IDC^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DCNO"
transmit "^M"
waitfor "REQ"
capture off
endproc

proc PrtFTR
String Name = "FTR"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 21~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE"
transmit "FTR^M"
waitfor "CUST"
transmit "0~^M"
waitfor "REQ"
capture off
endproc

proc PrtFFC
String Name = "FFC"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 21~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE"
transmit "FFC^M"
waitfor "CUST"
transmit "0~^M"
waitfor "REQ"
capture off
endproc

proc PrtATT
String Name = "ATT"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 21~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE"
transmit "ATT^M"
waitfor "CUST"
transmit "0~^M"
waitfor "REQ"
capture off
endproc

proc PrtACD
string Name = "ACD"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 23~^M"
waitfor "REQ"
transmit "PRT~^M"
waitfor "TYPE"
transmit "ACD^M"
waitfor "CUST"
transmit "0~^M"
waitfor "ACDN"
transmit "^M"
waitfor "REQ"
capture off
endproc

proc PrtCDN
string Name = "CDN"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 23~^M"
waitfor "REQ"
transmit "PRT~^M"
waitfor "TYPE"
transmit "CDN^M"
waitfor "CUST"
transmit "0~^M"
waitfor "CDN"
transmit "^M"
waitfor "REQ"
capture off
endproc

proc PrtDID

String Name = "DID"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "DID^M"
waitfor "TN"
transmit "^M"
waitfor "CDEN"
transmit "^M"
waitfor "CUST"
transmit "^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"
waitfor "REQ:"
capture off
endproc

proc PrtCOT
String Name = "COT"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "COT^M"
waitfor "TN"
transmit "^M"
waitfor "CDEN"
transmit "^M"
waitfor "CUST"
transmit "^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"
waitfor "REQ:"
capture off
endproc

proc PrtTIE
String Name = "TIE"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "TIE^M"
waitfor "TN"
transmit "^M"
waitfor "CDEN"
transmit "^M"
waitfor "CUST"
transmit "^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"
waitfor "REQ:"
capture off
endproc

proc PrtRAN
String Name = "RAN"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "RAN^M"
waitfor "TN"
transmit "^M"
waitfor "CUST"
transmit "^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"
waitfor "REQ:"
capture off
endproc

proc PrtTRK
String Name = "TRK"
set capture file Name
capture on
usermsg "Depending on System size - This may take a moment."
transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "TRK^M"
waitfor "TN"
transmit "^M"
waitfor "CDEN"
transmit "^M"
waitfor "CUST"
transmit "^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"
waitfor "REQ:"
capture off
endproc

proc LstACD
string Name = "ListACD"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 81~^M"
waitfor "REQ"
transmit "LST~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "ACD~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT"
transmit "^M"
waitfor "REQ"
capture off
endproc

proc LstPhantom
string Name = "Phantom"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 81~^M"
waitfor "REQ"
transmit "LST~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "DCFW~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT"
transmit "^M"
waitfor "REQ"
capture off
endproc

proc LstCFXA
string Name = "CFXA"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 81~^M"
waitfor "REQ"
transmit "LST~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "CFXA~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT"
transmit "^M"
waitfor "REQ"
capture off
endproc

proc Entire
string Name = "M_System"
set capture file Name
capture on
usermsg "Grab a cup of coffee. This may take a while."
transmit "****~^M"
waitfor ">"
; ------------------------ Load 2 Information --------------
transmit "LD 02~^M"
waitfor "."
transmit "TTAD"

waitfor "."
transmit "tsid"

waitfor "."
transmit "tshc 0 "

waitfor "."
transmit "tshs"

waitfor "."
transmit "tops"

waitfor "."
transmit "topc 0 "

waitfor "."
transmit "topn 0 "

waitfor "."
transmit "****^M"

;------------------------------ List Commands --------------------
;------------ Counts --------------

waitfor ">"
transmit "LD 81~^M"
waitfor "REQ"
transmit "CNT~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "500~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"

waitfor "REQ"
transmit "CNT~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "2000~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"

waitfor "REQ"
transmit "CNT~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "ACD~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"

waitfor "REQ"
transmit "CNT~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "MWA~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"

;---------------500 Sets -------------

waitfor "REQ"
transmit "LST~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "500~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"

;-------------2000 TYPE ------------
waitfor "REQ"
transmit "LST~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "2000~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"

;--------------ACD'S -----------------
waitfor "REQ"
transmit "LST~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "ACD~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "LUDN^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DN"
transmit "^M"

waitfor "REQ:"
transmit "LUVU~^M"
waitfor "TYPE:"
transmit "500^M"
waitfor "TN"
transmit "^M"
waitfor "CDEN" FOREVER
transmit "^M"

waitfor "REQ:" FOREVER
transmit "LUVU~^M"
waitfor "TYPE:"
transmit "2000^M"
waitfor "TN"
transmit "^M"

waitfor "REQ:" FOREVER
transmit "****^M"
waitfor ">"
transmit "LD 21~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "CDB^M"
waitfor "CUST"
transmit "0~^M"
transmit "^M"
waitfor "REQ:"

transmit "****~^M"
waitfor ">"
transmit "LD 21~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "RDB^M"
waitfor "CUST"
transmit "0~^M"
transmit "^M"
waitfor "ROUT"
transmit "^M"
waitfor "ACOD"
transmit "^M"
waitfor "REQ:"

transmit "****~^M"
waitfor ">"
transmit "LD 21~^M"
waitfor "REQ:"
transmit "LTM~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "ROUT"
transmit "^M"
waitfor "ACOD"
transmit "^M"
waitfor "REQ:"

transmit "****~^M"
waitfor ">"
transmit "LD 21~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE"
transmit "NET^M"
waitfor "CUST"
transmit "0~^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 22~^M"
waitfor "REQ"
transmit "PRT~^M"
waitfor "TYPE"
transmit "CFN^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 22~^M"
waitfor "REQ"
transmit "PRT~^M"
waitfor "TYPE"
transmit "CEQU^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 22~^M"
waitfor "REQ"
transmit "PRT~^M"
waitfor "TYPE"
transmit "PARM^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 22~^M"
waitfor "REQ"
transmit "ISS~^M"
waitfor "REQ"
transmit "PRT~^M"
waitfor "TYPE"
transmit "PKG^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 49~^M"
waitfor "REQ"
transmit "PRT~^M"
waitfor "TYPE"
transmit "IDC^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DCNO"
transmit "^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 21~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE"
transmit "FTR^M"
waitfor "CUST"
transmit "0~^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 21~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE"
transmit "FFC^M"
waitfor "CUST"
transmit "0~^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 21~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE"
transmit "ATT^M"
waitfor "CUST"
transmit "0~^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 23~^M"
waitfor "REQ"
transmit "PRT~^M"
waitfor "TYPE"
transmit "ACD^M"
waitfor "CUST"
transmit "0~^M"
waitfor "ACDN"
transmit "^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 23~^M"
waitfor "REQ"
transmit "PRT~^M"
waitfor "TYPE"
transmit "CDN^M"
waitfor "CUST"
transmit "0~^M"
waitfor "CDN"
transmit "^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "TRK^M"
waitfor "TN"
transmit "^M"
waitfor "CDEN"
transmit "^M"
waitfor "CUST"
transmit "^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"
waitfor "REQ:"

transmit "****~^M"
waitfor ">"
transmit "LD 81~^M"
waitfor "REQ"
transmit "LST~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "DCFW~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT"
transmit "^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 81~^M"
waitfor "REQ"
transmit "LST~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "CFXA~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT"
transmit "^M"
waitfor "REQ"
capture off
usermsg "System Capture is complete. View M_System.cap"

endproc

Proc GetCode
;string GetCode
;string stringname="MerPRNT"

;rget GetCode 7
;transmit "!"
transmit "ERR SCH"

;comwrite GetCode 4
transmit "^M"
;transmit "*~^M"

usermsg "There was a Service Change Error. Pleae view error and try again. The Print Menu will restart."
;execute stringname
endproc

jamie2 · Sep 22, 2005

Here is the rest of the script above... Remove the & symbol from the above script at the end - before appending the rest of the this. Also this script will print out any SCH codes it encounters automatically.

transmit "^M"
waitfor "CUST"
transmit "^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"
waitfor "REQ:"
capture off
endproc

proc PrtTIE
String Name = "TIE"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "TIE^M"
waitfor "TN"
transmit "^M"
waitfor "CDEN"
transmit "^M"
waitfor "CUST"
transmit "^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"
waitfor "REQ:"
capture off
endproc

proc PrtRAN
String Name = "RAN"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "RAN^M"
waitfor "TN"
transmit "^M"
waitfor "CUST"
transmit "^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"
waitfor "REQ:"
capture off
endproc

proc PrtTRK
String Name = "TRK"
set capture file Name
capture on
usermsg "Depending on System size - This may take a moment."
transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "TRK^M"
waitfor "TN"
transmit "^M"
waitfor "CDEN"
transmit "^M"
waitfor "CUST"
transmit "^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"
waitfor "REQ:"
capture off
endproc

proc LstACD
string Name = "ListACD"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 81~^M"
waitfor "REQ"
transmit "LST~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "ACD~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT"
transmit "^M"
waitfor "REQ"
capture off
endproc

proc LstPhantom
string Name = "Phantom"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 81~^M"
waitfor "REQ"
transmit "LST~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "DCFW~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT"
transmit "^M"
waitfor "REQ"
capture off
endproc

proc LstCFXA
string Name = "CFXA"
set capture file Name
capture on
When TARGET 0 "SCH" call GetCode
transmit "****~^M"
waitfor ">"
transmit "LD 81~^M"
waitfor "REQ"
transmit "LST~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "CFXA~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT"
transmit "^M"
waitfor "REQ"
capture off
endproc

proc Entire
string Name = "M_System"
set capture file Name
capture on
usermsg "Grab a cup of coffee. This may take a while."
transmit "****~^M"
waitfor ">"
; ------------------------ Load 2 Information --------------
transmit "LD 02~^M"
waitfor "."
transmit "TTAD"

waitfor "."
transmit "tsid"

waitfor "."
transmit "tshc 0 "

waitfor "."
transmit "tshs"

waitfor "."
transmit "tops"

waitfor "."
transmit "topc 0 "

waitfor "."
transmit "topn 0 "

waitfor "."
transmit "****^M"

;------------------------------ List Commands --------------------
;------------ Counts --------------

waitfor ">"
transmit "LD 81~^M"
waitfor "REQ"
transmit "CNT~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "500~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"

waitfor "REQ"
transmit "CNT~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "2000~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"

waitfor "REQ"
transmit "CNT~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "ACD~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"

waitfor "REQ"
transmit "CNT~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "MWA~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"

;---------------500 Sets -------------

waitfor "REQ"
transmit "LST~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "500~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"

;-------------2000 TYPE ------------
waitfor "REQ"
transmit "LST~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "2000~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"

;--------------ACD'S -----------------
waitfor "REQ"
transmit "LST~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "ACD~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "LUDN^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DN"
transmit "^M"

waitfor "REQ:"
transmit "LUVU~^M"
waitfor "TYPE:"
transmit "500^M"
waitfor "TN"
transmit "^M"
waitfor "CDEN" FOREVER
transmit "^M"

waitfor "REQ:" FOREVER
transmit "LUVU~^M"
waitfor "TYPE:"
transmit "2000^M"
waitfor "TN"
transmit "^M"

waitfor "REQ:" FOREVER
transmit "****^M"
waitfor ">"
transmit "LD 21~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "CDB^M"
waitfor "CUST"
transmit "0~^M"
transmit "^M"
waitfor "REQ:"

transmit "****~^M"
waitfor ">"
transmit "LD 21~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "RDB^M"
waitfor "CUST"
transmit "0~^M"
transmit "^M"
waitfor "ROUT"
transmit "^M"
waitfor "ACOD"
transmit "^M"
waitfor "REQ:"

transmit "****~^M"
waitfor ">"
transmit "LD 21~^M"
waitfor "REQ:"
transmit "LTM~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "ROUT"
transmit "^M"
waitfor "ACOD"
transmit "^M"
waitfor "REQ:"

transmit "****~^M"
waitfor ">"
transmit "LD 21~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE"
transmit "NET^M"
waitfor "CUST"
transmit "0~^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 22~^M"
waitfor "REQ"
transmit "PRT~^M"
waitfor "TYPE"
transmit "CFN^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 22~^M"
waitfor "REQ"
transmit "PRT~^M"
waitfor "TYPE"
transmit "CEQU^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 22~^M"
waitfor "REQ"
transmit "PRT~^M"
waitfor "TYPE"
transmit "PARM^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 22~^M"
waitfor "REQ"
transmit "ISS~^M"
waitfor "REQ"
transmit "PRT~^M"
waitfor "TYPE"
transmit "PKG^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 49~^M"
waitfor "REQ"
transmit "PRT~^M"
waitfor "TYPE"
transmit "IDC^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DCNO"
transmit "^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 21~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE"
transmit "FTR^M"
waitfor "CUST"
transmit "0~^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 21~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE"
transmit "FFC^M"
waitfor "CUST"
transmit "0~^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 21~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE"
transmit "ATT^M"
waitfor "CUST"
transmit "0~^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 23~^M"
waitfor "REQ"
transmit "PRT~^M"
waitfor "TYPE"
transmit "ACD^M"
waitfor "CUST"
transmit "0~^M"
waitfor "ACDN"
transmit "^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 23~^M"
waitfor "REQ"
transmit "PRT~^M"
waitfor "TYPE"
transmit "CDN^M"
waitfor "CUST"
transmit "0~^M"
waitfor "CDN"
transmit "^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 20~^M"
waitfor "REQ:"
transmit "PRT~^M"
waitfor "TYPE:"
transmit "TRK^M"
waitfor "TN"
transmit "^M"
waitfor "CDEN"
transmit "^M"
waitfor "CUST"
transmit "^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "NACT" FOREVER
transmit "^M"
waitfor "REQ:"

transmit "****~^M"
waitfor ">"
transmit "LD 81~^M"
waitfor "REQ"
transmit "LST~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "DCFW~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT"
transmit "^M"
waitfor "REQ"

transmit "****~^M"
waitfor ">"
transmit "LD 81~^M"
waitfor "REQ"
transmit "LST~^M"
waitfor "CUST"
transmit "0~^M"
waitfor "DATE"
transmit "^M"
waitfor "PAGE"
transmit "^M"
waitfor "DES"
transmit "^M"
waitfor "FEAT"
transmit "CFXA~^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT"
transmit "^M"
waitfor "REQ"
capture off
usermsg "System Capture is complete. View M_System.cap"

endproc

Proc GetCode
;string GetCode
;string stringname="MerPRNT"

;rget GetCode 7
;transmit "!"
transmit "ERR SCH"

;comwrite GetCode 4
transmit "^M"
;transmit "*~^M"

usermsg "There was a Service Change Error. Pleae view error and try again. The Print Menu will restart."
;execute stringname
endproc

AnnetteLee · Sep 22, 2005

WOW!!!

johnpoole · Sep 22, 2005

someone has to much time on their hands, i'll compile that one tomorrow, do you know the tech that took the time to put that together?

john poole
bellsouth business
columbia,sc

AnnetteLee · Sep 23, 2005

Hey thanks jamie2 I think everyone should have a back up and for those of us that live in Cal. (just in case the big one hits) it is nice to have this perhaps every 6 months or a year to back things up just in case.

jamie2 · Sep 23, 2005

John:

The techs name is Charles and goes by Chas2002 on another forum site - I believe...

techman3030 · Sep 23, 2005

Thank You for posting it. That is a nice script, also thank Charles for us.

Firebird Scrambler · Sep 23, 2005

Just to let you guy's know, I've been updating pepedog.com's Conversion utility program. There have been many changes made to it to include the latest IP stuff inc "PCA" sets etc.
I can send you all a copy if you require one. Just follow the link below & email me with a subject line request of "Nortel Conversion Utility program". One of the things that I have done, is to merge all of his programs into one workbook.
I've still got plenty to do to update it, but it keeps me busy!.
By the way, I do know "pepedog"! He has already had a previous copy from me of his utility program a while ago to look at.

All the best

Firebird Scrambler
Meridian Programmer in the UK

http://mysite.freeserve.com/firebird_scrambler

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Hurricane Rita 3

breakbuddy1

Technical User

pbxn

IS-IT--Management

johnpoole

Programmer

CraigUK

Technical User

mluckie1

Technical User

johnpoole

Programmer

wolfi24

IS-IT--Management

SpelingChampeon

Technical User

jamie2

Programmer

jamie2

Programmer

AnnetteLee

Technical User

johnpoole

Programmer

AnnetteLee

Technical User

jamie2

Programmer

techman3030

MIS

Firebird Scrambler

Programmer

Part and Inventory Search

Sponsor