Trace or IDU snapshot repeater script

; TRAC.WAS How to run a continuous 'TRAC' command
; 10th October 2008
; NOTE!
; This program will only work with a WINDOWS version of Procomm Plus.
; The " ; " denotes that the data on the program file line is ignored,
; when the script is run.

; Follow the instructions by Ticking the box's on the screen & locating your source file.
; You might need to change the "Transmit Pacing" depending on the software version!
; A higher number is needed to slow the program down for older processors.

; 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.

;#include "vkeys.inc" ; You must have this file "vkeys.inc"
; ; located within the "Aspect" folder!


PROC MAIN

integer event
STRING C_FILE="C:\Program Files\Symantec\Procomm Plus\ASPECT\COM_FILE"
; Change the Aspect Drive/path if it's required!. i.e. (C:\PROGRA~1\) etc.
string s_tx_list = "0,5,10,15,20,25,50,100,200,300,400,500,600,700,800,900,2000"
string s_tx_item = "20"
STRING COMMAND

When Target 0 "OVL013 " CALL OVL013
When Target 1 "OVL428 " CALL OVL428
When Target 2 "OVL111 " CALL OVL111
When Target 3 "SCH0101 " CALL SCH0101
When Target 4 "SCH0510 " CALL OVL013
When Target 5 "SCH101" CALL SCH0101
When Target 6 "SCH0099 " CALL OVL013
When Target 7 "TFC000 " CALL OVL013
When Target 8 "NPR003 " CALL NPR003
; When Target 9 "TRA100 " CALL TRA100

fopen 0 C_FILE readwrite text
fgets 0 COMMAND

dialogbox 0 69 20 247 328 2 "Use either TRAC, TRAD etc in LD 80 or STAT, IDU etc in LD 32"
editbox 1 83 23 104 11 COMMAND
pushbutton 2 194 21 40 13 "Accept" OK DEFAULT
combobox 3 200 50 34 96 DROPDOWNLIST s_tx_list s_tx_item
text 4 2 2 237 12 "Enter 'TRAC' Command in LD 80 for Call Traces" center
text 5 16 90 200 11 "Trace a DN = TRAC (Customer, Directory Number)" left
text 6 16 100 200 11 "Trace a Trunk = TRAC (Route, Member)" left
text 7 16 110 200 11 "Trace a Digital Trunk = TRAD (Loop, Channel Number)" left
text 8 16 120 200 11 "Trace a Key (Opt 11) = TRAK (Card, Unit, Key)" left
text 9 16 130 200 11 "Trace a Key (Opt 21-81) = TRAC (L,S,C,U, Key)" left
text 10 16 140 200 11 "Trace a Unit (Opt 11) = TRAK (Card, Unit)" left
text 11 16 150 200 11 "Trace a Unit (Opt 21-81) = TRAC (L,S,C,U)" left
text 12 16 160 200 11 "Trace Attendant Loops (Opt 11) = TRAO (Card, Unit)" left
text 13 16 170 200 11 "Trace Attendant Loops (Opt 51-81) = TRAO (L,S,C,U)" left
groupbox 14 13 75 221 105 " All of the commands listed below are found in LD 80 "
groupbox 15 13 182 221 110 " All of the commands listed below are found in LD 32 "
text 16 16 200 200 11 "Stat a Card (Opt 11) = STAT (Card or Slot Number)" left
text 17 16 210 200 11 "Stat a Card (Opt 21-81) = STAT (L,S,C)" left
text 18 16 220 200 11 "Stat a TN (Opt 11) = STAT (Card, Unit)" left
text 19 16 230 200 11 "Stat a TN (Opt 21-81) = STAT (L,S,C,U)" left
text 20 16 240 200 11 "Identify a Digital TN (Opt 11) = IDU (Card, Unit)" left
text 21 16 250 200 11 "Identify a Digital TN (Opt 21-81) = IDU (L,S,C,U)" left
text 22 16 260 200 11 "Identify a IPE Card (Opt 11) = IDC (Card or Slot Number)" left
text 23 16 270 200 11 "Identify a IPE Card (Opt 21-81) = IDC (L,S,C)" left
text 24 16 280 200 11 "Identify Firmware on Taurus sets = FSUM ALL" left
text 25 76 47 120 11 "Select the systems Transmit Pacing. " right
text 26 67 59 130 11 "User a higher number on older software!." right
groupbox 27 15 296 220 28 "Notes"
text 28 23 310 206 11 "(L,S,C,U) = (Opt 21-81) Loop, Shelf, Card and Unit Number" left
enddialog

while 1
dlgevent 0 event
switch event


case 2
exitwhile
endcase


endswitch
endwhile

fclose 0

fopen 0 C_FILE create text
fputs 0 COMMAND

start:
PAUSE 1
TRANSMIT COMMAND
TRANSMIT "^M"
WAITFOR "."

GOTO start

ENDPROC

PROC OVL013
pause 1
transmit "****^M"
pause 2
; waitfor ">"
transmit "LD 80^M"
pause 2
ENDPROC

PROC OVL111
transmit "****^M"
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 SCH0101
pause 1
transmit "****^M"
; waitfor ">"
; USERMSG "Please press Enter & wait 30 seconds as the TTY is already logged in!"
ENDPROC

PROC NPR003
pause 1
transmit "****^M"
pause 1
; waitfor ">"
transmit "LD 80^M"
pause 1
ENDPROC

PROC TRA100
pause 1
transmit "****^M"
pause 2
; waitfor ">"
transmit "LD 32^M"
pause 2
ENDPROC