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!

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

looking for procomm script. 2

Status
Not open for further replies.

TAnselm

Vendor
Mar 10, 2006
791
US
Does anyone have a script that will run a constant stream of IDU's for all digital sets on a particular shelf?

Knowledge: Your number one stupidity condom...
 
This is my little "TRAC" script that can also be used in LD 32 to IDU sets etc. It has error correction built in in case you forget to be in the correct overlay, I.E. 80 or 32 etc.

; 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



All the best

Firebird Scrambler
Meridian Programmer in the UK

If it's working, then leave it alone!.
 
here's a real simple one, you need a file with your tn's followed by a comma names tn.wud in the same folder as your file..
Code:
Proc main

  
   
   
   string tn
  	
  	
   
   integer count
   string szline
   fopen 0 "tnb.wud" read

   while not feof 0
   SZLINE = "1"
   fgets 0 szline

    strtok tn szline ","  1      
    
   set txpace 50
    transmit "idu "
  mspause 2
   transmit tn
  mspause 1
  transmit "^M"
 
    count += 1
   endwhile
   fclose 0
 
   call main
   
   endproc


runs in my box


john poole
bellsouth business
columbia,sc
 
Thanks all.
I'll try them out tomorrow and let you know how they work.

Knowledge: Your number one stupidity condom...
 
Ok, so far I've tried JP's script and it was not quite right...

I made the following changes and it worked like a charm.
Changed fopen 0 "tnb.wud" read to fopen 0 "tn.wud" read
added waitfor "." in this location:

transmit "^M"

waitfor "."

count += 1
endwhile
fclose 0

Getting ready to test your script next Firebird.


Knowledge: Your number one stupidity condom...
 
Very cool menu system Firebird, but it doesn't work.

Trac works like a charm. However when I tried to do a STAT on 56 0 0, it doesn't revert back to LD 32.

If I start out in load 32 it works fine. If I start out anywhere else it trys to go to load 80 and then of course does nothing. see below.

OVL000
>****
OVL000
>***
OVL000
>stat 56
OVL013
> 0
OVL013
> 0
OVL014
>****
OVL000
>LD 80
TRA000
MARP NOT ACTIVATED

.*

.***

.
OVL000
>LD 80
TRA000
MARP NOT ACTIVATED

.stat 56 0 0

TRA100

.stat 56 0 0

TRA100

.stat 56 0 0

TRA100

.stat 56 0 0

TRA100

either way it was cool so stars to the both of you.

Knowledge: Your number one stupidity condom...
 
firebirds are like a work of art, mine are more like a paint by number..

john poole
bellsouth business
columbia,sc
 
My TRAC script was originally done, just to carry out traces in LD 80. I added in extra prompts and commands at a later date. You are correct in stating that you should already be in the correct overlay, but it's easy to forget when running scripts.

Anyway, I'm glad it's working for you. I've added this script onto the FAQ section along with some others of mine.

All the best

Firebird Scrambler
Meridian Programmer in the UK

If it's working, then leave it alone!.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top