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!

Register Log in
  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Procomm Script for Option 11

Status
Not open for further replies.
spanton

spanton

Technical User
Joined
Aug 2, 2003
Messages
584
Location
US
Does anyone have a script that perfrom morning routine and perform a backup?
 
Sort by date Sort by votes
here's one i just modified for the opt 11, it does the login, sets the time to match the pc, if that's a network time, pc's system wide now match the sets to the mocro second. then it does a ld 43 edd

Code: 
proc main
   set txpace 30
   
  
  
 transmit "****^M"
    waitfor ">"
    transmit "john^M"
   
   transmit "****^M"
    waitfor ">"
   transmit "logi xxxx^M"	;change these xx's to your login name
   waitfor "PASS?"
   transmit "xxxx^M"		;change these xx's to your password
   call myproc
   
      
    waitfor ">"
    transmit "ld 43^M"
    waitquiet 1
    transmit "edd^M" 
   
    endproc
    
    proc myproc   
integer iDay, iMonth, iYear, iMin, iHour, iSec
string sSend
  
   ltimeints $LTIME iYear iMonth iDay iHour iMin iSec
   
   strfmt sSend "STAD %02d %02d %d %02d %02d %02d" iDay iMonth iYear iHour iMin iSec
   set txpace 30
   transmit "****^M"
   waitfor ">"
   
   pause 2
   
   transmit "ld 2^M"
   waitfor "."
   
   transmit "TTAD^M"
   waitfor "."
   transmit sSend
   transmit "^M"
   waitfor "."
   
   pause 2
   transmit "TTAD^M"
  
   pause 2
   transmit "****^M"
 
  endproc

if you need any other procedures added let me know. in the 81 i scpu's and edd again

john poole
bellsouth business
columbia,sc
 
Upvote 0 Downvote
can the script turn on a capture file and step thru ld 60, ld 96, ld 48, ld 37...etc..and then do a backup to PC?
 
Upvote 0 Downvote
i can have it do that, the save to path on your procomm needs to be adjusted to your network drive. i'll add those commands and post it for you.

john poole
bellsouth business
columbia,sc
 
Upvote 0 Downvote
you'll have to post it, the management here has given me the final warning about emails and phone numbers.. thanks

john poole
bellsouth business
columbia,sc
 
Upvote 0 Downvote
i'll try that from work, thanks

john poole
bellsouth business
columbia,sc
 
Upvote 0 Downvote
i'll work on that script tomorrow after a short deer hunt and a turkey. what commands in 48 do you want?

here's a quick way to use your midn to do the same thing


Code: 
proc main
waitfor "    "  forever
capture on
pause 900 
captue off
endproc

two things that are unique to your site, line 3 waitfor: within those quotes paste the lst word of your midn.. at line 5, the pause 900, 15 minutes may need to be adjusted to the length or your midnight routines.. if your 11 does not edd each night or lacks a command you think you need. you can add or delete loads in ovly ld 17. by default ld 43 is not there but the switch backs up if the checksum does not match on all files.. so any change forces a edd.. that is a carry over from tape drives that ate tapes.. (i'm old) i run 43 in all switches... i learned scripts in the old dos days, if you think you need those skills, do a script record and modify those, it is a lot faster then the old days. the record function, complile function and the internet all are great tools


john poole
bellsouth business
columbia,sc
 
Upvote 0 Downvote
Thanks John,
In ld 48, I stat aml, elan and msdl in group 0 and 1.
 
Upvote 0 Downvote
John did you have a chance to modify your script per Spanton's wants? I would be interested in getting a print out of the script.

Thanks!
 
Upvote 0 Downvote
i'll try to get that done today.

john poole
bellsouth business
columbia,sc
 
Upvote 0 Downvote
make sure your drol has all the maint commands that you feel the need to trac..
Code: 
ld 22 


  
REQ  prt
TYPE ovly

OVLY
  SID  722
  BKGD 044
  PBXH X
  TODR 01
  DROL 030 034 036 038 043 044 045 060 135 137
  MULTI_USER ON

then start this script each day before you leave, the start time is adjustable

Code: 
;wait for clock.. sync time to pc, run and capture midnights

proc main
   
   string TimeStr             ; String to contain time.

  
   TimeStr = "11:00:59"       ; Assign time to time string.
   waituntil TimeStr 
   
  set txpace 30
   
  
  
 transmit "****^M"
    waitfor ">"
    transmit "john^M"
   
   transmit "****^M"
    waitfor ">"
   transmit "logi xxxx^M"    ;change these xx's to your login name
   waitfor "PASS?"
   transmit "xxxx^M"        ;change these xx's to your password
   call myproc
   
    capture on  
    waitfor ">"
    transmit "ld 135^M"
    waitquiet 1
    transmit "midn^M" 
    pause 3600
   
    endproc
    
    proc myproc   
integer iDay, iMonth, iYear, iMin, iHour, iSec
string sSend
  
   ltimeints $LTIME iYear iMonth iDay iHour iMin iSec
   
   strfmt sSend "STAD %02d %02d %d %02d %02d %02d" iDay iMonth iYear iHour iMin iSec
   set txpace 30
   transmit "****^M"
   waitfor ">"
   
   pause 2
   
   transmit "ld 2^M"
   waitfor "."
   
   transmit "TTAD^M"
   waitfor "."
   transmit sSend
   transmit "^M"
   waitfor "."
   
   pause 2
   transmit "TTAD^M"
  
   pause 2
   transmit "****^M"
 

endproc




john poole
bellsouth business
columbia,sc
 
Upvote 0 Downvote
hi friend, anybody know if from procomm i can capture from some LD's like ld 21, ld 22, ld 20, etc but across ip? or some script for OTM for this, 'cause i have more than 20 sites and need automatic program for this, thanks.
 
Upvote 0 Downvote
if your using otm, then your using otm. if your going to use scripts then yes, procomm can be scripted to do anything you can do with a keyboard, only perfect everytime. if you need switch information, then start a script recorder, dial into the switch, (or ip) turn capture on, send the commands, stop the recorder, name the script. pull that up in editor and edit any mistakes, make site changes and save an the site name.. if you have a script for each site, then build a master script that does a call proc to run them one at a time..

john poole
bellsouth business
columbia,sc
 
Upvote 0 Downvote
I wrote this script to make getting bayfaces easier. I hope it helps. 1 note if the system you are on is release 24 or lower remove all the lines for LD 117.

proc main
set capture overwrite on
set capture file fname
capture on
transmit "LD 21^M"
waitfor "REQ"
transmit "LTM^M"
waitfor "CUST"
transmit "0^M"
waitfor "ROUT"
transmit "^M"
waitfor "ACOD"
transmit "^M"
waitfor "REQ" forever
transmit "PRT^M"
waitfor "TYPE"
transmit "RDB^M"
waitfor "CUST"
transmit "0^M"
waitfor "ROUT"
transmit "^M"
waitfor "ACOD"
transmit "^M"
waitfor "REQ" forever
transmit "PRT^M"
waitfor "TYPE"
transmit "CDB^M"
waitfor "CUST"
transmit "0^M"
waitfor "REQ" forever
transmit "END^M"
waitfor ">"
transmit "LD 22^M"
waitfor "REQ"
transmit "TID^M"
waitfor "REQ" forever
transmit "ISSP^M"
waitfor "REQ" forever
transmit "PRT^M"
waitfor "TYPE"
transmit "PKG^M"
waitfor "REQ" forever
transmit "SLT^M"
waitfor "REQ" forever
transmit "PRT^M"
waitfor "TYPE"
transmit "CFN^M"
waitfor "REQ" forever
transmit "END^M"
waitfor ">"
transmit "LD 48^M"
waitfor "."
transmit "STAT ELAN^M"
waitfor "." forever
transmit "****^M"
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 "SETS^M"
waitfor "FEAT"
transmit "^M"
waitfor "NACT" forever
transmit "^M"
waitfor "REQ"
transmit "END^M"
waitfor ">"
transmit "LD 117^M"
waitfor "=>"
transmit "INV GENERATE CARDS^M"
waitfor "MAT010" forever
transmit "INV PRT CARDS^M"
waitfor "=>" forever
transmit "INV GENERATE SETS^M"
waitfor "MAT011" forever
transmit "INV PRT SETS^M"
waitfor "=>" forever
transmit "****^M"
waitfor ">"
transmit "LD 135^M"
waitfor "."
transmit "STAT CPU^M"
waitfor "." forever
transmit "****"
waitfor ">"
transmit "LD 137^M"
waitfor "." forever
transmit "STAT^M"
waitfor "." forever
transmit "STAT ELNK^M"
waitfor "." forever
transmit "****"
waitfor ">"
capture off
endproc
 
Upvote 0 Downvote
Hello Mluckie1 & John.
I've been amending one of my listing scripts & I have included some of the extra items listed above. My script is designed to list out most of the data in text files & is useful to zip up & keep safe.
As usual, I've gone a bit mad in adding some help features for any one who is not used to using Procomm.

Feel free is trying it out & please let me know if it can be improved in any way.

; List_All.was 9th December 2005

; Script to provide a list of Nortel system information.

; NOTE!
; This program will only work with a WINDOWS version of Procomm Plus.

; The script will run even if you are already logged in, I have used "ADMIN2"
; "0000" as the default name & code. Amend line 2025 if needed for system login.

; Run this file to capture a list of all the details listed within the file.
; It should work on all Meridian Versions & I have allowed "TARGET" prompt's
; to be used to enable the script to keep on going without stopping.
; I would advise you to change the TTY port that you are using to have
; USER = "SCH" only. & Put back in the other settings after you have
; finished running the script file.

; If you want to PRINT OUT in LD 117 the "INV GENERATE CARDS,INV PRT CARDS" &
; "INV GENERATE SETS, INV PRT SETS" commands etc, then remove the ";" prompts near
; to the area of lines 1300 & make sure that your TTY has USER = MTC, along with "SCH".

; The " ; " denotes that the data on the program script is ignored when
; the file is run.

; This program file should remain unaltered & only copies made from it for whatever
; use is required. P.S. I suggest that you make it a "READ ONLY" file. & store it on
; your P.C's HARD DRIVE.

STRING F_Time
INTEGER EVENT
INTEGER TX_PACE=50

PROC MAIN

when TARGET 1 "NACT " call NACT
when TARGET 2 "USERID? " call USER_ID
when TARGET 3 "AUTH006 " call AUTH006
when TARGET 4 "SCH5294 " call SCH5294
when TARGET 5 "SCH0099 " call SCH5294
when TARGET 6 "SCH0705 " call SCH0705
when TARGET 7 "SCH8796 " call SCH8796
when TARGET 8 "SCH0808 " call SCH0808
when TARGET 9 "MARP " call CARR_RETURN
when TARGET 10 "OVL013 " call OVL013
when TARGET 11 "OVL309 " call OVL013
when TARGET 12 "SCH0111 " call SCH5289
when TARGET 13 "CPND_LANG " call CARR_RETURN
when TARGET 14 "SCH5289 " call SCH5289
when TARGET 15 "SPWD " call SPWD_0000
when TARGET 16 "ESN071 " call CARR_RETURN
when TARGET 17 "TEN " call CARR_RETURN
When target 18 "OVL111 " CALL OVL111
When target 19 "OVL428 " CALL OVL428
when TARGET 20 "Use the PRT" call Use_the_PRT
when TARGET 21 "KEM_RANGE " call CARR_RETURN

CALL LOGI
CALL LIST_ALL
CALL LOGO

ENDPROC

PROC LIST_ALL

STATMSG "Start"
dialogbox 0 173 62 188 201 2 "Obtain Meridian Listings as separate text files"
pushbutton 3 133 177 40 13 "OK" OK DEFAULT
pushbutton 4 77 177 40 13 "Cancel"
radiogroup 6 TX_PACE
radiobutton 18 13 50 80 11 "50 Default Speed"
radiobutton 19 13 73 80 11 "100"
radiobutton 20 13 96 80 11 "200 Medium Speed"
radiobutton 21 13 118 80 11 "300"
radiobutton 22 13 141 80 11 "400 Slowest Speed"
endgroup
groupbox 26 3 33 95 131 "TXPace"
enddialog

while 1
dlgevent 0 event
switch event
case 0
endcase

case 1
endcase

case 3
exitwhile
endcase

case 4
exit
endcase

endswitch
endwhile
if TX_PACE == 19
set TXPACE 100
endif
if TX_PACE == 20
set TXPACE 200
endif
if TX_PACE == 21
set TXPACE 300
endif
if TX_PACE == 22
set TXPACE 400
endif


TRANSMIT "****"
SET CAPTURE FILE "CFN.TXT"
CAPTURE ON
STATMSG "WRITING CFN.TXT (LD 22) ISS"
TRANSMIT "LD 22^M"
WAITFOR "REQ"
TRANSMIT "ISS^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
STATMSG "WRITING CFN.TXT (LD 22) ISSP"
WAITFOR "REQ"
TRANSMIT "ISSP^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
STATMSG "WRITING CFN.TXT (LD 22) TID"
WAITFOR "REQ"
TRANSMIT "TID^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
STATMSG "WRITING CFN.TXT (LD 22) SLT"
WAITFOR "REQ"
TRANSMIT "SLT^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
STATMSG "WRITING CFN.TXT (LD 22) CFN"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE " 2
TRANSMIT "CFN^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
STATMSG "WRITING CFN.TXT (LD 22) PKG"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE " 2
TRANSMIT "PKG^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

TRANSMIT "****"
TRANSMIT "LD 97^M"
STATMSG "WRITING CFN.TXT (LD 97) XPE"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE " 2
TRANSMIT "XPE^M"
; WAITFOR "XPEC " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
STATMSG "WRITING CFN.TXT (LD 97) SUPL"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE " 2
TRANSMIT "SUPL^M"
; WAITFOR "SUPL " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "CDB.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING CDB.TXT (LD 21) CDB"
TRANSMIT "LD 21^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
; WAITFOR "TYPE" 2
TRANSMIT "CDB^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING CDB.TXT (LD 21) CLID"
TRANSMIT "PRT^M"
; WAITFOR "TYPE" 2
TRANSMIT "CLID^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
; WAITFOR "RNGE " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "DDSL.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING DDSL.TXT (LD 74) DDSL"
TRANSMIT "LD 74^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
; WAITFOR "TYPE" 2
TRANSMIT "DDSL^M"
; WAITFOR "DDSL " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"

STATMSG "WRITING DDSL.TXT (LD 74) LSSL"
WAITFOR "REQ"
TRANSMIT "PRT^M"
; WAITFOR "TYPE" 2
TRANSMIT "LSSL^M"
; WAITFOR "LSSL " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "RDB.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING RDB.TXT (LD 21) RDB"
TRANSMIT "LD 21^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
; WAITFOR "TYPE" 2
TRANSMIT "RDB^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
; WAITFOR "ROUT " 2
TRANSMIT "^M"
; WAITFOR "ACOD " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "LTM.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING LTM.TXT (LD 21) LTM"
TRANSMIT "LD 21^M"
WAITFOR "REQ"
TRANSMIT "LTM^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
; WAITFOR "ROUT " 2
TRANSMIT "^M"
; WAITFOR "ACOD " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

TRANSMIT "****"

STATMSG "WRITING LTM.TXT (LD 20) COT"
TRANSMIT "LD 20^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
; WAITFOR "TYPE" 2
TRANSMIT "COT^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CDEN " 2
TRANSMIT "^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"

STATMSG "WRITING LTM.TXT (LD 20) RDC"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "RDC^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"

STATMSG "WRITING LTM.TXT (LD 20) VDC"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "VDC^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"

STATMSG "WRITING LTM.TXT (LD 20) DID"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "DID^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CDEN " 2
TRANSMIT "^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"

STATMSG "WRITING LTM.TXT (LD 20) TIE"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "TIE^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CDEN " 2
TRANSMIT "^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"

STATMSG "WRITING LTM.TXT (LD 20) VGW"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "VGW^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CDEN " 2
TRANSMIT "^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
; WAITFOR "XTRK " 2
TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING LTM.TXT (LD 20) IPTI"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "IPTI^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CDEN " 2
TRANSMIT "^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
; WAITFOR "XTRK " 2
TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "FCR.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING FCR.TXT (LD 49) FCR"
TRANSMIT "LD 49^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "FCR^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
; WAITFOR "CRNO " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING FCR.TXT (LD 49) IDC"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "IDC^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
; WAITFOR "DCNO " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "DISA.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING DISA.TXT (LD 21) DISA"
TRANSMIT "LD 24^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "DIS^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
; WAITFOR "DN " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "ESN.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING ESN.TXT (LD 86) ESN"
TRANSMIT "LD 86^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "CUST " 2
TRANSMIT "0^M"
; WAITFOR "FEAT " 2
TRANSMIT "ESN^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING ESN.TXT (LD 86) DMI"

TRANSMIT "PRT^M"
WAITFOR "CUST " 2
TRANSMIT "0^M"
WAITFOR "FEAT " 2
TRANSMIT "DGT^M"
; WAITFOR "DMI " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING ESN.TXT (LD 86) RLI"

TRANSMIT "PRT^M"
WAITFOR "CUST " 2
TRANSMIT "0^M"
WAITFOR "FEAT " 2
TRANSMIT "RLB^M"
; WAITFOR "RLI " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING ESN.TXT (LD 86) NAS"

TRANSMIT "PRT^M"
WAITFOR "CUST " 2
TRANSMIT "0^M"
WAITFOR "FEAT " 2
TRANSMIT "NAS^M"
; WAITFOR "TBL " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "DSC.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING DSC.TXT (LD 87) DSC"
TRANSMIT "LD 87^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "CUST " 2
TRANSMIT "0^M"
WAITFOR "FEAT " 2
TRANSMIT "CDP^M"
WAITFOR "TYPE " 2
TRANSMIT "DSC^M"
; WAITFOR "DSC " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING DSC.TXT (LD 87) TSC"

TRANSMIT "PRT^M"
WAITFOR "CUST " 2
TRANSMIT "0^M"
WAITFOR "FEAT " 2
TRANSMIT "CDP^M"
WAITFOR "TYPE " 2
TRANSMIT "TSC^M"
; WAITFOR "TSC " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING DSC.TXT (LD 87) LSC"

TRANSMIT "PRT^M"
WAITFOR "CUST " 2
TRANSMIT "0^M"
WAITFOR "FEAT " 2
TRANSMIT "CDP^M"
WAITFOR "TYPE " 2
TRANSMIT "LSC^M"
; WAITFOR "LSC " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING DSC.TXT (LD 87) NCTL"

TRANSMIT "PRT^M"
WAITFOR "CUST " 2
TRANSMIT "0^M"
WAITFOR "FEAT " 2
TRANSMIT "NCTL^M"
; WAITFOR "NRNG " 2
TRANSMIT "0 99^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "SPN.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING SPN.TXT (LD 90) AC1 SUM"
TRANSMIT "LD 90^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "CUST " 2
TRANSMIT "0^M"
WAITFOR "FEAT " 2
TRANSMIT "NET^M"
; WAITFOR "TRAN " 2
TRANSMIT "SUM^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING SPN.TXT (LD 90) AC1 SPN"
TRANSMIT "PRT^M"
WAITFOR "CUST " 2
TRANSMIT "0^M"
WAITFOR "FEAT " 2
TRANSMIT "NET^M"
WAITFOR "TRAN " 2
TRANSMIT "AC1^M"
WAITFOR "TYPE " 2
TRANSMIT "SPN^M"
; WAITFOR "SPN " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING SPN.TXT (LD 90) AC1 LOC"
TRANSMIT "PRT^M"
WAITFOR "CUST " 2
TRANSMIT "0^M"
WAITFOR "FEAT " 2
TRANSMIT "NET^M"
WAITFOR "TRAN " 2
TRANSMIT "AC1^M"
WAITFOR "TYPE " 2
TRANSMIT "LOC^M"
; WAITFOR "LOC " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING SPN.TXT (LD 90) AC1 HLOC"
TRANSMIT "PRT^M"
WAITFOR "CUST " 2
TRANSMIT "0^M"
WAITFOR "FEAT " 2
TRANSMIT "NET^M"
WAITFOR "TRAN " 2
TRANSMIT "AC1^M"
WAITFOR "TYPE " 2
TRANSMIT "HLOC^M"
; WAITFOR "HLOC " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING SPN.TXT (LD 90) AC1 NPA"
TRANSMIT "PRT^M"
WAITFOR "CUST " 2
TRANSMIT "0^M"
WAITFOR "FEAT " 2
TRANSMIT "NET^M"
WAITFOR "TRAN " 2
TRANSMIT "AC1^M"
WAITFOR "TYPE " 2
TRANSMIT "NPA^M"
; WAITFOR "NPA " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING SPN.TXT (LD 90) AC1 NXX"
TRANSMIT "PRT^M"
WAITFOR "CUST " 2
TRANSMIT "0^M"
WAITFOR "FEAT " 2
TRANSMIT "NET^M"
WAITFOR "TRAN " 2
TRANSMIT "AC1^M"
WAITFOR "TYPE " 2
TRANSMIT "NXX^M"
; WAITFOR "NXX " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING SPN.TXT (LD 90) AC2 SPN"
TRANSMIT "PRT^M"
WAITFOR "CUST " 2
TRANSMIT "0^M"
WAITFOR "FEAT " 2
TRANSMIT "NET^M"
WAITFOR "TRAN " 2
TRANSMIT "AC2^M"
WAITFOR "TYPE " 2
TRANSMIT "SPN^M"
; WAITFOR "SPN " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING SPN.TXT (LD 90) AC2 LOC"
TRANSMIT "PRT^M"
WAITFOR "CUST " 2
TRANSMIT "0^M"
WAITFOR "FEAT " 2
TRANSMIT "NET^M"
WAITFOR "TRAN " 2
TRANSMIT "AC2^M"
WAITFOR "TYPE " 2
TRANSMIT "LOC^M"
; WAITFOR "LOC " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING SPN.TXT (LD 90) AC2 HLOC"
TRANSMIT "PRT^M"
WAITFOR "CUST " 2
TRANSMIT "0^M"
WAITFOR "FEAT " 2
TRANSMIT "NET^M"
WAITFOR "TRAN " 2
TRANSMIT "AC2^M"
WAITFOR "TYPE " 2
TRANSMIT "HLOC^M"
; WAITFOR "HLOC " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING SPN.TXT (LD 90) AC2 NPA"
TRANSMIT "PRT^M"
WAITFOR "CUST " 2
TRANSMIT "0^M"
WAITFOR "FEAT " 2
TRANSMIT "NET^M"
WAITFOR "TRAN " 2
TRANSMIT "AC2^M"
WAITFOR "TYPE " 2
TRANSMIT "NPA^M"
; WAITFOR "NPA " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING SPN.TXT (LD 90) AC2 NXX"
TRANSMIT "PRT^M"
WAITFOR "CUST " 2
TRANSMIT "0^M"
WAITFOR "FEAT " 2
TRANSMIT "NET^M"
WAITFOR "TRAN " 2
TRANSMIT "AC2^M"
WAITFOR "TYPE " 2
TRANSMIT "NXX^M"
; WAITFOR "NXX " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "2250.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING 2250.TXT (LD 20) 1250"
TRANSMIT "LD 20^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "1250^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING 2250.TXT (LD 20) 2250"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "2250^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING CONS.TXT (LD 20) PWR"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "PWR^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CDEN " 2
TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "FFC.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING FFC.TXT (LD 57) FFC"
TRANSMIT "LD 57^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "FFC^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
; WAITFOR "CODE " 2
TRANSMIT "ALL^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "GHT.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING GHT.TXT (LD 20) GHT"
TRANSMIT "LD 20^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "GHT^M"
; WAITFOR "LSNO " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "SCL.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING SCL.TXT (LD 20) SSC"
TRANSMIT "LD 20^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "SCL^M"
; WAITFOR "LSNO " 2
TRANSMIT "^M"
WAITFOR "RNGE " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING SCL.TXT (LD 20) PRE Translation list"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "PRE^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "CPK.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING CPK.TXT (LD 50) Call Park DN"
TRANSMIT "LD 50^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "CPK^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "CPND.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING CPND.TXT (LD 95) CPND BLOCK"
TRANSMIT "LD 95^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "CPND^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING CPND.TXT (LD 95) NAMES"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "NAME^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
; WAITFOR "CPND_LANG " 2
; TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
WAITFOR "DIG " 2
TRANSMIT "^M"
WAITFOR "DN " 2
TRANSMIT "ALL^M"
WAITFOR "SHRT " 2
TRANSMIT "YES^M"
WAITFOR "DCNO " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING CPND.TXT(LD 95) DDI NAMES"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "NAME^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
; WAITFOR "CPND_LANG " 2
; TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
WAITFOR "DIG " 2
TRANSMIT "^M"
WAITFOR "DN " 2
TRANSMIT "^M"
WAITFOR "DCNO " 2
TRANSMIT "1^M"
WAITFOR "IDC " 2
TRANSMIT "ALL^M"
WAITFOR "SHRT " 2
TRANSMIT "YES^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "NAME^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
; WAITFOR "CPND_LANG " 2
; TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
WAITFOR "DIG " 2
TRANSMIT "^M"
WAITFOR "DN " 2
TRANSMIT "^M"
WAITFOR "DCNO " 2
TRANSMIT "2^M"
WAITFOR "IDC " 2
TRANSMIT "ALL^M"
WAITFOR "SHRT " 2
TRANSMIT "YES^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "ACD.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING ACD.TXT (LD 23) ACD QUEUES"
TRANSMIT "LD 23^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE " 2
TRANSMIT "ACD^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
; WAITFOR "ACDN " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"

STATMSG "WRITING ACD.TXT (LD 23) CONTROL DN'S"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE " 2
TRANSMIT "CDN^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
; WAITFOR "CDN " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"

STATMSG "WRITING ACD.TXT (LD 20) MAIL SETS"
WAITFOR "REQ"
TRANSMIT "****"
MSPAUSE 250
TRANSMIT "LD 20^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "SL1^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CDEN " 2
TRANSMIT "^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
; WAITFOR "TEN " 2
; TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
; WAITFOR "DES " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "2008^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
; WAITFOR "TEN " 2
; TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
WAITFOR "DES " 2
TRANSMIT "PILOT^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
; CAPTURE OFF

STATMSG "WRITING ACD.TXT (LD 23) NACD QUEUES"
TRANSMIT "****"
TRANSMIT "LD 23^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "NACD^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
; WAITFOR "ACDN " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"

STATMSG "WRITING ACD.TXT (LD 23) SCB"

WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "SCB^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"

STATMSG "WRITING ACD.TXT (LD 23) ADS"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE " 2
TRANSMIT "ADS^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "RART.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING RART.TXT (LD 56) RART"
TRANSMIT "LD 56^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "RART^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
; WAITFOR "ROUT " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING RART.TXT (LD 56) TBAR"

TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "TBAR^M"
; WAITFOR "ART " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "PAD.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING PAD.TXT (LD 73) PAD"
TRANSMIT "LD 73^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "PRI2^M"
; WAITFOR "FEAT " 2
TRANSMIT "PAD^M"
; WAITFOR "PDCA " 2
TRANSMIT "^M"
; WAITFOR "TNLS " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING PAD.TXT (LD 73) PAD" ; DTI PAD
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "DTI^M"
; WAITFOR "FEAT " 2
TRANSMIT "PAD^M"
; WAITFOR "PDCA " 2
TRANSMIT "^M"
; WAITFOR "TNLS " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING PAD.TXT (LD 73) PRI2 LPTI"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "PRI2^M"
; WAITFOR "FEAT " 2
TRANSMIT "LPTI^M"
; WAITFOR "LOOP " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING PAD.TXT (LD 73) PRI2 SYTI"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "PRI2^M"
; WAITFOR "FEAT " 2
TRANSMIT "SYTI^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING PAD.TXT (LD 73) DTI2 LPTI"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "DTI2^M"
; WAITFOR "FEAT " 2
TRANSMIT "LPTI^M"
; WAITFOR "LOOP " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING PAD.TXT (LD 73) DTI2 SYTI"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "DTI2^M"
; WAITFOR "FEAT " 2
TRANSMIT "SYTI^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING PAD.TXT (LD 73) DTI2 SICA"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "DTI2^M"
; WAITFOR "FEAT " 2
TRANSMIT "ABCD^M"
; WAITFOR "SICA " 2
TRANSMIT "^M"
; WAITFOR "TNLS " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING PAD.TXT (LD 73) DDB"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "DDB^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "SAR.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING SAR.TXT (LD 88) AUT"
TRANSMIT "LD 88^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "AUT^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
; WAITFOR "SPWD " 2
; TRANSMIT "0000^M" ;#### Change this code as required!
; WAITFOR "CODE " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "****^M"

STATMSG "WRITING SAR.TXT (LD 88) AUB"
TRANSMIT "LD 88^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "AUB^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
; WAITFOR "SPWD " 2
; TRANSMIT "0000^M" ;#### Change this code as required!
WAITQUIET 5 FOREVER
TRANSMIT "****^M"

STATMSG "WRITING SAR.TXT (LD 88) SAR"
TRANSMIT "LD 88^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "SAR^M"
; WAITFOR "CUST " 2
TRANSMIT "0^M"
; WAITFOR "SPWD " 2
; TRANSMIT "0000^M" ;#### Change this code as required!
; WAITFOR "TEN " 2
; TRANSMIT "^M"
WAITFOR "SGRP " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "****^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "BRI.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING BRI.TXT (LD 27) MISP"
TRANSMIT "LD 27^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
; WAITFOR "TYPE" 2
TRANSMIT "MISP^M"
; WAITFOR "LOOP " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING BRI.TXT (LD 27) DSL"
TRANSMIT "PRT^M"
; WAITFOR "TYPE" 2
TRANSMIT "DSL^M"
; WAITFOR "DSL " 2
TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
; WAITFOR "DES " 2
TRANSMIT "^M"
; WAITFOR "NACT " 2
; TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "TONE.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING TONE.TXT (LD 56) FTC"
TRANSMIT "LD 56^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "FTC^M"
WAITFOR "TABL " 2
TRANSMIT "^M"
WAITFOR "USER " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING TONE.TXT (LD 56) MCAD"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "MCAD^M"
; WAITFOR "WCAD " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "IP_INFO.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING IP_INFO.TXT (LD 117) ELNK"
TRANSMIT "LD 117^M"
; WAITFOR "=>"
TRANSMIT "PRT ELNK^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
; WAITFOR "=>"

STATMSG "WRITING IP_INFO.TXT (LD 117) HOST"
TRANSMIT "PRT HOST^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
; WAITFOR "=>"

STATMSG "WRITING IP_INFO.TXT (LD 117) MASK"
TRANSMIT "PRT MASK^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
; WAITFOR "=>"

STATMSG "WRITING IP_INFO.TXT (LD 117) ROUTE"
TRANSMIT "PRT ROUTE^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
; WAITFOR "=>"

STATMSG "WRITING IP_INFO.TXT (LD 117) ZONE"
TRANSMIT "PRT ZONE ALL^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
; WAITFOR "=>"

; STATMSG "WRITING IP_INFO.TXT (LD 117) INV GENERATE CARDS"
; transmit "INV GENERATE CARDS^M"
; waitfor "MAT010" forever
; TRANSMIT "***^M"
;; WAITFOR "=>"

; STATMSG "WRITING IP_INFO.TXT (LD 117) INV PRT CARDS"
; transmit "INV PRT CARDS^M"
; waitfor "=>" forever
; TRANSMIT "***^M"
;; WAITFOR "=>"

; STATMSG "WRITING IP_INFO.TXT (LD 117) INV GENERATE SETS"
; transmit "INV GENERATE SETS^M"
; waitfor "MAT011" forever
; TRANSMIT "***^M"
;; WAITFOR "=>"

; STATMSG "WRITING IP_INFO.TXT (LD 117) INV PRT SETS"
; transmit "INV PRT SETS^M"
; waitfor "=>" forever
; transmit "****^M"

CAPTURE OFF
TRANSMIT "****"

SET CAPTURE FILE "DIGITAL.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING DIGITAL.TXT (LD 20) ARIE"
TRANSMIT "LD 20^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "ARIE^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
; WAITFOR "TEN "
; TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
; WAITFOR "DES " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING DIGITAL.TXT (LD 20) M3901"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "3901^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CDEN " 2
TRANSMIT "^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
; WAITFOR "TEN "
; TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
; WAITFOR "DES " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING DIGITAL.TXT (LD 20) M3902"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "3902^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CDEN " 2
TRANSMIT "^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
; WAITFOR "TEN "
; TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
; WAITFOR "DES " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING DIGITAL.TXT (LD 20) M3903"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "3903^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CDEN " 2
TRANSMIT "^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
; WAITFOR "TEN "
; TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
; WAITFOR "DES " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING DIGITAL.TXT (LD 20) M3904"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "3904^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CDEN " 2
TRANSMIT "^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
; WAITFOR "TEN "
; TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
; WAITFOR "DES " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING DIGITAL.TXT (LD 20) M3905"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "3905^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CDEN " 2
TRANSMIT "^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
; WAITFOR "TEN "
; TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
; WAITFOR "DES " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING DIGITAL.TXT (LD 20) I2001"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "I2001^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
; WAITFOR "TEN "
; TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
; WAITFOR "DES " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING DIGITAL.TXT (LD 20) I2002"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "I2002^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
; WAITFOR "TEN "
; TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
; WAITFOR "DES " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING DIGITAL.TXT (LD 20) I2004"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "I2004^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
; WAITFOR "TEN "
; TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
; WAITFOR "DES " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"

STATMSG "WRITING DIGITAL.TXT (LD 20) I2050"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "I2050^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
; WAITFOR "TEN "
; TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
; WAITFOR "DES " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"


CAPTURE OFF

SET CAPTURE FILE "500.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING 500.TXT (LD 20)"
TRANSMIT "LD 20^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "500^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CDEN " 2
TRANSMIT "^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
; WAITFOR "TEN "
; TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
; WAITFOR "DES " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "DNB.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING DNB.TXT (LD 20) DNB"
TRANSMIT "LD 20^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "DNB^M"
WAITFOR "CUST " 2
TRANSMIT "^M"
; WAITFOR "DN " 2
TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "TEN "
; TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
; WAITFOR "DES " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "TNB.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING TNB.TXT (LD 20) TNB"
TRANSMIT "LD 20^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "TYPE" 2
TRANSMIT "TNB^M"
; WAITFOR "TN " 2
TRANSMIT "^M"
; WAITFOR "CDEN " 2
TRANSMIT "^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
; WAITFOR "TEN "
; TRANSMIT "^M"
; WAITFOR "DATE " 2
TRANSMIT "^M"
; WAITFOR "PAGE " 2
TRANSMIT "^M"
; WAITFOR "DES " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
TRANSMIT "***^M"
WAITFOR "REQ"
CAPTURE OFF

SET CAPTURE FILE "STAT.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING STAT.TXT (LD 135) STAT CPU"
TRANSMIT "LD 135^M"
waitfor "."
transmit "STAT CPU^M"
waitfor "." forever
transmit "****"
; waitfor ">"

STATMSG "WRITING STAT.TXT (LD 137) STAT ELNK"
transmit "LD 137^M"
waitfor "." forever
transmit "STAT^M"
waitfor "." forever
transmit "STAT ELNK^M"
waitfor "." forever
transmit "****"
; waitfor ">"

STATMSG "WRITING STAT.TXT (LD 48) STAT ELAN"
transmit "LD 48^M"
waitfor "."
transmit "STAT ELAN^M"
waitfor "." forever
transmit "****^M"
; waitfor ">"
CAPTURE OFF

SET CAPTURE FILE "LD81SETS.TXT"
CAPTURE ON
TRANSMIT "****"
STATMSG "WRITING LD81SETS.TXT (LD 20) LIST SETS"
TRANSMIT "LD 81^M"
WAITFOR "REQ"
TRANSMIT "LST^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
; waitfor "DATE "
transmit "^M"
; waitfor "PAGE "
transmit "^M"
WAITFOR "DES " 2
TRANSMIT "^M"
WAITFOR "FEAT " 2
TRANSMIT "SETS^M"
WAITFOR "FEAT " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
; WAITFOR "NACT " 2
; TRANSMIT "****^M"
; WAITFOR "REQ"

STATMSG "WRITING LD81SETS.TXT (LD 20) COUNT SETS"
TRANSMIT "CNT^M"
; WAITFOR "CUST " 2
TRANSMIT "^M"
; waitfor "DATE "
transmit "^M"
; waitfor "PAGE "
transmit "^M"
WAITFOR "DES " 2
TRANSMIT "^M"
WAITFOR "FEAT " 2
TRANSMIT "SETS^M"
WAITFOR "FEAT " 2
TRANSMIT "^M"
WAITQUIET 5 FOREVER
; WAITFOR "NACT " 2
; TRANSMIT "****^M"

TRANSMIT "***^M"
WAITFOR "REQ"
transmit "****"
waitfor ">"
CAPTURE OFF


CALL EDIT_LOG

USERMSG "CHECK CALLPILOT AGENTS `n CHECK SAR,AUTS & AUB (LD 88)"

ENDPROC

PROC EDIT_LOG

STRING CMD

dialogbox 0 85 65 390 234 3 "Edit Log Files"
pushbutton 1 50 21 42 16 "Edit CFN"
pushbutton 2 50 46 42 16 "Edit CDB"
pushbutton 3 50 68 42 16 "Edit DDSL"
pushbutton 4 50 91 42 16 "Edit RDB"
pushbutton 5 50 115 42 16 "Edit LTM"
pushbutton 6 50 138 42 16 "Edit FCR"
pushbutton 27 110 21 42 16 "Edit DISA"
pushbutton 7 110 46 42 16 "Edit ESN"
pushbutton 8 110 68 42 16 "Edit DSC"
pushbutton 9 110 91 42 16 "Edit SPN"
pushbutton 10 110 115 42 16 "Edit 2250"
pushbutton 11 110 138 42 16 "Edit FFC"
pushbutton 12 169 21 42 16 "Edit GHT"
pushbutton 14 169 46 42 16 "Edit SCL"
pushbutton 15 169 68 42 16 "Edit CPK"
pushbutton 16 169 91 42 16 "Edit CPND"
pushbutton 17 169 115 42 16 "Edit ACD"
pushbutton 18 169 138 42 16 "Edit RART"
pushbutton 19 234 21 42 16 "Edit PAD"
pushbutton 13 234 46 42 16 "Edit SAR"
pushbutton 25 234 68 42 16 "Edit BRI"
pushbutton 20 234 91 42 16 "Edit DIG"
pushbutton 21 234 115 42 16 "Edit 500"
pushbutton 22 234 138 42 16 "Edit TONE"
pushbutton 28 294 21 42 16 "Edit DNB"
pushbutton 29 294 46 42 16 "Edit IP"
pushbutton 23 166 195 54 22 "OK" OK DEFAULT
groupbox 24 16 2 356 180 ""
groupbox 26 154 184 82 38 ""
groupbox 34 23 8 356 180 ""
pushbutton 30 294 68 42 16 "Edit TNB"
pushbutton 31 294 91 42 16 "Edit STAT"
pushbutton 32 294 115 42 16 "Edit Sets"
pushbutton 33 294 138 42 16 "Spare"
enddialog
while 1
dlgevent 0 event
switch event
case 0
endcase


case 1
Cmd = "edit CFN.TXT"
DOS Cmd maximized
endcase

case 2
cmd = "edit CDB.TXT"
DOS Cmd maximized
endcase

case 3
Cmd = "edit DDSL.TXT"
DOS Cmd maximized
endcase

case 4
cmd = "edit RDB.TXT"
DOS Cmd maximized
endcase


case 5
Cmd = "edit LTM.TXT"
DOS Cmd maximized
endcase

case 6
cmd = "edit FCR.TXT"
DOS Cmd maximized
endcase

case 7
Cmd = "edit ESN.TXT"
DOS Cmd maximized
endcase

case 8
cmd = "edit DSC.TXT"
DOS Cmd maximized
endcase

case 9
Cmd = "edit SPN.TXT"
DOS Cmd maximized
endcase

case 10
cmd = "edit 2250.TXT"
DOS Cmd maximized
endcase

case 11
Cmd = "edit FFC.TXT"
DOS Cmd maximized
endcase

case 12
cmd = "edit GHT.TXT"
DOS Cmd maximized
endcase

case 13
Cmd = "edit SAR.TXT"
DOS Cmd maximized
endcase

case 14
cmd = "edit SCL.TXT"
DOS Cmd maximized
endcase

case 15
Cmd = "edit CPK.TXT"
DOS Cmd maximized
endcase

case 16
cmd = "edit CPND.TXT"
DOS Cmd maximized
endcase

case 17
Cmd = "edit ACD.TXT"
DOS Cmd maximized
endcase

case 18
cmd = "edit RART.TXT"
DOS Cmd maximized
endcase

case 19
Cmd = "edit PAD.TXT"
DOS Cmd maximized
endcase

case 20
cmd = "edit DIGITAL.TXT"
DOS Cmd maximized
endcase

case 21
cmd = "edit 500.TXT"
DOS Cmd maximized
endcase

case 22
cmd = "edit TONE.TXT"
DOS Cmd maximized
endcase

case 25
cmd = "edit BRI.TXT"
DOS Cmd maximized
endcase

case 27
cmd = "edit DISA.TXT"
DOS Cmd maximized
endcase

case 28
cmd = "edit DNB.TXT"
DOS Cmd maximized
endcase

case 29
cmd = "edit IP_INFO.TXT"
DOS Cmd maximized
endcase

case 30
cmd = "edit TNB.TXT"
DOS Cmd maximized
endcase

case 31
cmd = "edit STAT.TXT"
DOS Cmd maximized
endcase

case 32
cmd = "edit LD81SETS.TXT"
DOS Cmd maximized
endcase

case 23
exitWHILE
endcase

endswitch
endwhile

ENDPROC

Proc NACT
Transmit "REQ^M~~^M***^M"
endproc

Proc CARR_RETURN
Transmit "^M"
endproc

Proc SCH5289
Transmit "~~***^M~~"
endproc

Proc AUTH006
Transmit "~~****^M"
; waitfor ">"
Transmit "LD 88^M"
; waitfor "REQ"
endproc

Proc SCH5294
Transmit "~~~**^M"
endproc

Proc SCH0705
Transmit "~~~**^M"
endproc

Proc SCH8796
Transmit "~~****^M"
; waitfor ">"
Transmit "LD 88^M"
waitfor "REQ"
endproc

Proc SCH0808
Transmit "~~~**^M"
endproc

Proc OVL013
Transmit "~~~****^M"
endproc

PROC OVL111
transmit "****"
waitfor ">"
USERMSG "Script failed, as the TTY user is NOT logged into the system!"
exit
ENDPROC

PROC OVL428
USERMSG "Script failed. The Login name & password combination is invalid. Check the password & login name & try again.!"
exit
ENDPROC

Proc SPWD_0000
Transmit "~~0000^M"
endproc

Proc Use_the_PRT
Transmit "PRT INTRAZONE^M"
Waitfor "=>"
Transmit "PRT INTERZONE^M"
Waitfor "=>"
endproc

PROC LOGI
TRANSMIT "~~~~LOGI ~ADMIN2^M" ; Change / Remove Name as required!
WAITFOR "PASS?"
MSPAUSE 50
TRANSMIT "0000^M" ; Change this if required to a new password!
MSPAUSE 250
ENDPROC

PROC LOGO
TRANSMIT "****"
MSPAUSE 100
; TRANSMIT "LOGO^M" ; Uncheck this box if you want to log out!

F_Time=$TIME
usermsg "Text files for viewing Meridian Listings is Complete`n`n at %s" F_TIME
ENDPROC

Proc USER_ID
Transmit "ADMIN2^M" ; "USERID is a new prompt on Login at V04.50!
endproc

All the best

Firebird Scrambler
Meridian Programmer in the UK

 
Upvote 0 Downvote
By the way, anybody who uses the Conversion Utility Excel spreadsheet program, may like to use this script below.

; D_Higham_NETTY_0.was 9th December 2005
; How to provide a list of the Meridian "NETWORK" Information as NETTY.CAP etc
; For use with Dave Higham's Netty.XLS program.

; NOTE!
; This program will only work with a WINDOWS version of Procomm Plus.

; To use this script file, Please make sure that you have access to overlays..
; LD 86, 87 & 90.
; The script will run even if you are already logged in, I have used "ADMIN2" &
; "0000" as the default name & code. Amend line 333 if needed for system login.
; It make's no difference if you have already logged into the Meridian!.
; This script file will collect all of the customer's networking information using
; Customer "0".
; It's best if the TTY that you are using has only "SCH" allowed as it will help to
; prevent any other messages appearing on the log output file.
; I have found it best to check the log file before I use the NETTY.XLS Excel
; program.
; This script will start a log file automatically "capture on" when you run this
; compiled file
; If you have more than one customer, Then you can change the "CUST" number to "1"
; etc.
; After this script file has run, Make sure that the "capture off" icon has closed.
; Load up Dave Higham's NETTY.XLS file. Click on the "Browse" button & navigate to
; the path that your log file is stored on. Finally click on the "Convert to Excel"
; button & you will get a nice printout (I hope!).
; I would recommend that you KEEP the captured log file for a while because the
; NETTY.XLS program does have one little error & that is it does not show "DMI'S"
; that are listed against "SPN'S" which use's LDID etc.
; You may well find that your Excel list will have many spare "DMI'S" & "RLI'S" etc.
; Do a check on these, before you tidy them up on the Meridian & also save a copy
; of the NETTY.XLS file (Just in case a problem occurs after any changes!).

STRING F_Time
INTEGER EVENT
INTEGER TX_PACE=50

PROC MAIN
CALL LOGI
CALL NETTY
CALL LOGO
ENDPROC

PROC NETTY

STATMSG "Start"
dialogbox 0 173 62 188 201 2 "Obtain a Meridian networking list for use with the Netty Excel program"
1 SORT ; ##(Change path if reqd!)
pushbutton 3 133 177 40 13 "OK" OK DEFAULT
pushbutton 4 77 177 40 13 "Cancel"
radiogroup 6 TX_PACE
radiobutton 18 13 50 80 11 "50 Default Speed"
radiobutton 19 13 73 80 11 "100"
radiobutton 20 13 96 80 11 "200 Medium Speed"
radiobutton 21 13 118 80 11 "300"
radiobutton 22 13 141 80 11 "400 Slowest Speed"
endgroup
groupbox 26 3 33 95 131 "TXPace"
enddialog

set capture file "C:\PROGRAM FILES\PROCOMM PLUS\CAPTURE\NETTY.*"
;## Change to match your Capture Folder!.

while 1
dlgevent 0 event
switch event
case 0
endcase

case 1
endcase

case 3
exitwhile
endcase

case 4
exit
endcase

endswitch
endwhile
if TX_PACE == 19
set TXPACE 100
endif
if TX_PACE == 20
set TXPACE 200
endif
if TX_PACE == 21
set TXPACE 300
endif
if TX_PACE == 22
set TXPACE 400
endif

Capture On

; LIST LD 86 ALL CUSTOMER 0 DMI & RLI INFORMATION

TRANSMIT "LD 86^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "CUST"
TRANSMIT "0^M"
WAITFOR "FEAT"
TRANSMIT "DGT^M"
; WAITFOR "DMI"
TRANSMIT "~^M"
WAITFOR "REQ" FOREVER
TRANSMIT "~^M"
Pause 4
TRANSMIT "~^M"
WAITFOR "REQ"

TRANSMIT "PRT^M"
WAITFOR "CUST"
TRANSMIT "0^M"
WAITFOR "FEAT"
TRANSMIT "RLB^M"
; WAITFOR "RLI"
TRANSMIT "~^M"
WAITFOR "REQ" FOREVER
PAUSE 2
TRANSMIT "~^M"
WAITFOR "REQ"
TRANSMIT "END^M"

; LIST LD 87 ALL CUSTOMER 0 CDP INFORMATION

TRANSMIT "LD 87^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "CUST"
TRANSMIT "0^M"
WAITFOR "FEAT"
TRANSMIT "CDP^M"
WAITFOR "TYPE"
TRANSMIT "DSC^M"
; WAITFOR "DSC"
TRANSMIT "^M~^M"
WAITFOR "REQ" FOREVER
TRANSMIT "~^M"

WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "CUST"
TRANSMIT "0^M"
WAITFOR "FEAT"
TRANSMIT "CDP^M"
WAITFOR "TYPE"
TRANSMIT "TSC^M"
; WAITFOR "TSC"
TRANSMIT "^M~^M"
WAITFOR "REQ" FOREVER
TRANSMIT "~^M"

WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "CUST"
TRANSMIT "0^M"
WAITFOR "FEAT"
TRANSMIT "CDP^M"
WAITFOR "TYPE"
TRANSMIT "LSC^M"
; WAITFOR "LSC"
TRANSMIT "^M~^M"
WAITFOR "REQ" FOREVER
TRANSMIT "~^M"
WAITFOR "REQ"
TRANSMIT "END^M"

; LIST LD 90 ALL CUSTOMER 0 SPN AC1/AC2 INFORMATION

TRANSMIT "LD 90^M"
WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "CUST"
TRANSMIT "0^M"
WAITFOR "FEAT"
TRANSMIT "NET^M"
WAITFOR "TRAN"
TRANSMIT "AC1^M"
WAITFOR "TYPE"
TRANSMIT "SPN^M"
; WAITFOR "SPN"
TRANSMIT "^M~^M"
WAITFOR "REQ" FOREVER
TRANSMIT "~^M"

WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "CUST"
TRANSMIT "0^M"
WAITFOR "FEAT"
TRANSMIT "NET^M"
WAITFOR "TRAN"
TRANSMIT "AC1^M"
WAITFOR "TYPE"
TRANSMIT "HLOC^M"
; WAITFOR "HLOC"
TRANSMIT "^M~^M"
WAITFOR "REQ" FOREVER
TRANSMIT "~^M"

WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "CUST"
TRANSMIT "0^M"
WAITFOR "FEAT"
TRANSMIT "NET^M"
WAITFOR "TRAN"
TRANSMIT "AC1^M"
WAITFOR "TYPE"
TRANSMIT "LOC^M"
; WAITFOR "LOC"
TRANSMIT "^M~^M"
WAITFOR "REQ" FOREVER
TRANSMIT "~^M"

WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "CUST"
TRANSMIT "0^M"
WAITFOR "FEAT"
TRANSMIT "NET^M"
WAITFOR "TRAN"
TRANSMIT "AC1^M"
WAITFOR "TYPE"
TRANSMIT "NPA^M"
; WAITFOR "NPA"
TRANSMIT "^M~^M"
WAITFOR "REQ" FOREVER
TRANSMIT "~^M"

WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "CUST"
TRANSMIT "0^M"
WAITFOR "FEAT"
TRANSMIT "NET^M"
WAITFOR "TRAN"
TRANSMIT "AC1^M"
WAITFOR "TYPE"
TRANSMIT "NXX^M"
; WAITFOR "NXX"
TRANSMIT "^M~^M"
WAITFOR "REQ" FOREVER
TRANSMIT "~^M"

WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "CUST"
TRANSMIT "0^M"
WAITFOR "FEAT"
TRANSMIT "NET^M"
WAITFOR "TRAN"
TRANSMIT "AC2^M"
WAITFOR "TYPE"
TRANSMIT "SPN^M"
; WAITFOR "SPN"
TRANSMIT "^M~^M"
WAITFOR "REQ" FOREVER
TRANSMIT "~^M"

WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "CUST"
TRANSMIT "0^M"
WAITFOR "FEAT"
TRANSMIT "NET^M"
WAITFOR "TRAN"
TRANSMIT "AC2^M"
WAITFOR "TYPE"
TRANSMIT "HLOC^M"
; WAITFOR "HLOC"
TRANSMIT "^M~^M"
WAITFOR "REQ" FOREVER
TRANSMIT "~^M"

WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "CUST"
TRANSMIT "0^M"
WAITFOR "FEAT"
TRANSMIT "NET^M"
WAITFOR "TRAN"
TRANSMIT "AC2^M"
WAITFOR "TYPE"
TRANSMIT "LOC^M"
; WAITFOR "LOC"
TRANSMIT "^M~^M"
WAITFOR "REQ" FOREVER
TRANSMIT "~^M"

WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "CUST"
TRANSMIT "0^M"
WAITFOR "FEAT"
TRANSMIT "NET^M"
WAITFOR "TRAN"
TRANSMIT "AC2^M"
WAITFOR "TYPE"
TRANSMIT "NPA^M"
; WAITFOR "NPA"
TRANSMIT "^M~^M"
WAITFOR "REQ" FOREVER
TRANSMIT "~^M"

WAITFOR "REQ"
TRANSMIT "PRT^M"
WAITFOR "CUST"
TRANSMIT "0^M"
WAITFOR "FEAT"
TRANSMIT "NET^M"
WAITFOR "TRAN"
TRANSMIT "AC2^M"
WAITFOR "TYPE"
TRANSMIT "NXX^M"
; WAITFOR "NXX"
TRANSMIT "^M~^M"
WAITFOR "REQ" FOREVER
TRANSMIT "~^M"

ENDPROC

PROC LOGI
TRANSMIT "~~~~LOGI ~ADMIN2^M" ; Change / Remove as required!
WAITFOR "PASS?"
MSPAUSE 100
TRANSMIT "0000^M" ; Change this if required to a new password!
MSPAUSE 250
ENDPROC

PROC LOGO
TRANSMIT "****"
MSPAUSE 100
; TRANSMIT "LOGO^M" ; Uncheck this box if you want to log out!

F_Time=$TIME
usermsg "Netty Script Collection Complete`n`n at %s" F_TIME

Capture Off
ENDPROC



All the best

Firebird Scrambler
Meridian Programmer in the UK

 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

LidLock Technologies
  • Locked
  • Solved
Option 11 SDI Cabling
Replies
4
Views
776
bignose21
bignose21
LidLock Technologies
  • Locked
  • Solved
Option 11 RJ-21 Pinout
Replies
3
Views
674
LidLock Technologies
LidLock Technologies
LidLock Technologies
  • Locked
  • Question Question
Option 11 Universal Trunk Card Pinout
Replies
2
Views
629
SoftwareRT
SoftwareRT
nihaalrai236
  • Locked
  • Question Question
Nortel Option 11C RLS 25 asking for "MODL"
Replies
4
Views
1K
Firebird Scrambler
Firebird Scrambler
ATMFIRE
  • Locked
  • Question Question
OPTION 11C keys actiation
Replies
3
Views
773
Firebird Scrambler
Firebird Scrambler

Part and Inventory Search

Sponsor

Back
Top