Script question

[joebacon]

I've tweaked a script that John Poole posted to build 500 sets and it's ready to go. EXCEPT what do I need to put at the end to make it go back to the req. prompt for the next set I want to build ? I think it might have something to do with "end if".
Thanks for any help!
Everybody have a great 4th.

 

[johnpoole]

i usually move the req: to the end, then have it loop, that means i can go to the ld, start the script, the 1st line would be transmit new.. to make any script loop (repeat)

loop: (for an anchor)
goto loop

the work loop could be any non reserved word..ie anyword: can be an anchor end if would used for an exception, end if "sch "

john poole
bellsouth business
columbia,sc

 

[joebacon]

I'm sorry,not following you! Where/how would you loop this script? I added goto loop at the end, and when I tried to compile it ... got an error that endproc was missing


proc main
transmit "ld 20 "

transmit "new^M"
waitfor "TYPE: "
transmit "500^M"
waitfor "CDEN " forever
transmit "^M"
waitfor "DES "
transmit "new^M"
waitfor "CUST "
transmit "0^M"
waitfor "WRLS "
transmit "^M"

waitfor " CPND "
transmit "^M"
waitfor " VMB "
transmit "^M"
waitfor "AST "
transmit "^M^M"
waitfor "HUNT "
transmit "2222^M"
waitfor "TGAR "
transmit "^M"
waitfor "LDN "
transmit "^M"
waitfor "NCOS "
transmit "^M"
waitfor "RNPG "
transmit "^M"
waitfor "SGRP "
transmit "^M"
waitfor "CLS "
transmit "lpa mwa fna hta tld cnia ccsa ^M"
waitfor "rco "
transmit "^M"
waitfor "SCI "
transmit "^M"
waitfor "MLWU_LANG"
transmit "0^M"
waitfor "PLEV "
transmit "^M"
waitfor "FTR "
transmit "FDN 2222^M"
waitfor "FTR "
transmit "^M"
waitfor "req: "

 

[johnpoole]

try this one

proc main

  
   set txpace 30  ;this line slows the script down to match
                  ;our slower baud rates
   loop:
  
   transmit "new^M"
   waitfor "TYPE: "
   transmit "500^M"
   waitfor "CDEN " forever 
   transmit "^M"
   waitfor "DES  "
   transmit "new^M"
   waitfor "CUST "
   transmit "0^M"
   waitfor "WRLS "
   transmit "^M"
  
   waitfor "  CPND " 
   transmit "^M"
   waitfor "  VMB "
   transmit "^M"
   waitfor "AST  "
   transmit "^M^M"
   waitfor "HUNT "
   transmit "2222^M"
   waitfor "TGAR "
   transmit "^M"
   waitfor "LDN  "
   transmit "^M"
   waitfor "NCOS "
   transmit "^M"  
   waitfor "RNPG "
   transmit "^M"
   waitfor "SGRP "
   transmit "^M"
   waitfor "CLS  "
   transmit "lpa mwa fna hta tld cnia ccsa ^M"
   waitfor "rco "
   transmit "^M"
   waitfor "SCI  "
   transmit "^M"
   waitfor "MLWU_LANG"
   transmit "0^M"
   waitfor "PLEV "
   transmit "^M"
   waitfor "FTR "
   transmit "FDN 2222^M"
   waitfor "FTR "
   transmit "^M"
   waitfor "req: "
goto loop
endproc

loop can be any string that aspect does not have in the used tables.. so the 1st loop, i use loop: then looptwo: etc, the forever may not be needed at the cden prompt, i use that when a script is waiting for me,

john poole
bellsouth business
columbia,sc

 

[joebacon]

Thanks a ton!! That works great Now the line that slows the script down, could I change that number to lets say 15 if I wanted it to run a little quicker?

 

[johnpoole]

15 is slower, think of it as a percentage of full speed. if your switch does not need it, just ;it out. i use set txpace due to starting scripting back when 300 baud was way to quick for most techs. i was told by a manager that no one could read that fast anyway!!!.. now 19.2 seems slow to run scripts, but it's way better then rls 6.. btw, that was dos procomm, with no compile, and the web was black and white, txt

john poole
bellsouth business
columbia,sc

 

[himdp]

Well John, I can remember when Telex worked at 50 Baud and High Speed telex was 110. Regarding "txpace" I think there is a misunderstanding. My help file for Procomm Plus 4.8 says "txpace integer
Determines the length of pauses between transmitted characters. This command corresponds to the Transmit pacing (ms): field in the Setup, System, System Options dialog. Valid values range from 0 to 999, in milliseconds. fetch returns an integer equal to the current transmit pacing value." This implies that a lower number is faster. Although my version does run on that new fangled Windows

 

[johnpoole]

mine does work on windows version procom, i see the help file on txpace, any txpace setting slows the screen down by adding that pause between the characters, on larger files, such as the bars script i posted, it helps, it may not be needed with todays pc's but on older dos based procom, it was the final "secert" that allowed my scripts to run without transmiting a few exrta keystorkes after ^M. tty speed when i started in comm was 33 baud, chaning gears to increase that to 66 or 99 (100) was not usually done due to the mech adjustments had to be withen 1/10,000 to run at that speed. just proves i'm old, but i guess great grand children proved that a while back, thanks for the input, btw without windows i couldn't build dll links between excel and my scripts. that allows data entry direct from an excell to the switch.. very clean if you need to duplicate a database, usually from a non meridian to a meridian. i have one now (still in progress) that will connect to a rolm and request the data base, sort it, and put it back in a 81c.. so far it only does the stations, but i'm working on other areas..

john poole
bellsouth business
columbia,sc

 

[kirchenlo]

Hi I will post you a script that I use to configure new sets. I read actually the data from a excel file, I will post the layout as well. It will loop until the file is finished.

;Zentrale Variablen
;===================

integer waittime=25




;Programmteil Meridian 1
;========================

proc TEL3904

param string TN,DN,Hunt,EHT,EFD,FDN,PUG

;Einleitung Programmierung M2616D
;===============================

;transmit "NEW"
mspause waittime
transmit "^M"
waitfor "TYPE:"
mspause waittime
;transmit "2616D"
mspause waittime
transmit "^M"

;Eingabe der TN
;===============

waitfor "TN"
mspause waittime
;transmit Loop
;mspause waittime
;transmit " "
;mspause waittime
;transmit Shelf
;mspause waittime
;transmit " "
;transmit Card
;mspause waittime
;transmit " "
;mspause waittime
;transmit Unit
;mspause waittime
;transmit "^M"

mspause waittime
transmit TN
mspause waittime
transmit "^M"


;Eingabe DES
;============

waitfor "DES"
mspause waittime
transmit "M3904"
mspause waittime
transmit "^M"

;Eingabe Customer
;=================

waitfor "CUST"
mspause waittime
transmit "0"
mspause waittime
transmit "^M"


;Frage nach KBA
;==============

waitfor "KBA"
mspause waittime
transmit "^M"

;Frage nach DBA
;==============

waitfor "DBA"
mspause waittime
transmit "^M"

;Frage nach FDN
;===============

waitfor "FDN"
mspause waittime
transmit fDN
mspause waittime
transmit "^M"

;Eingabe TGAR
;=============

waitfor "TGAR"
mspause waittime
transmit "^M"

;Eingabe LDN
;===========

waitfor "LDN"
mspause waittime
transmit "^M"

;Eingabe NCOS
;=============

waitfor "NCOS"
mspause waittime
transmit "0"
mspause waittime
transmit "^M"

;Eingabe RNPG
;==============

waitfor "RNPG"
mspause waittime
transmit PUG
mspause waittime
transmit "^M"

;Eingabe SSU
;============

waitfor "SSU"
mspause waittime
transmit "10"
mspause waittime
transmit "^M"

;Eingabe XLST
;=============

waitfor "XLST"
mspause waittime
TRANSMIT "2"
mspause waittime
transmit "^M"

;Eingabe SCPW
;=============

waitfor "SCPW"
mspause waittime
transmit "0"
mspause 50
transmit DN
mspause 15
transmit "^M"

;Eingabe SGRP
;=============

waitfor "SGRP"
mspause waittime
transmit "^M"

;Eingabe SFLT
;=============

waitfor "SFLT"
mspause waittime
transmit "^M"

;Eingabe CAC
;============

waitfor "CAC"
mspause waittime
transmit "^M"

;Eingabe Class of Service
;=========================

waitfor "CLS"
;mspause waittime
;transmit CLS
;mspause waittime
;transmit " "
mspause waittime
transmit "TLD MRA FNA HTA LNA CFXA GPUA DPUA CCSA "
mspause waittime
transmit "AHA ARHA CFTA HFA ADD MWA CNDA DNDA "
mspause waittime
transmit "SFA NAMA PUA GPUA DPUA CRPA DRDA IRA"
mspause waittime
transmit "^M"

;RCO Eingabe
;============

waitfor "RCO"
mspause waittime
transmit "^M"

;Eingabe Redirection Nummern /HUNT/EHT/EFD
;===========================================


waitfor "EFD"
mspause waittime
transmit EFD
mspause waittime
transmit "^M"

waitfor "HUNT"
mspause waittime
transmit HUNT
mspause waittime
transmit "^M"

waitfor "EHT"
mspause waittime
transmit EHT
mspause waittime
transmit "^M"

waitfor "LHK"
mspause waittime
transmit "^M"

;LNRS Eingabe
;============

waitfor "LNRS"
mspause waittime
transmit "24"
mspause waittime
transmit "^M"

;SCI Eingabe
;============

waitfor "SCI"
mspause waittime
transmit "^M"

;LPK Eingabe
;============

waitfor "LPK"
mspause waittime
transmit "5"
mspause waittime
transmit "^M"

;FCAR Eingabe
;============

waitfor "FCAR"
mspause waittime
transmit "^M"

;AST Eingabe
;============

waitfor "AST"
mspause waittime
transmit "^M"

;IAPG Eingabe
;============

waitfor "IAPG"
mspause waittime
transmit "^M"

;MLWU Eingabe
;============

waitfor "MLWU_LANG"
mspause waittime
transmit "^M"

;DNDR Eingabe
;============

waitfor "DNDR"
mspause waittime
transmit "^M"

;Tastenbelegung M2616D (Tasten von 0 - 15)
;=========================================

waitfor "KEY"
mspause waittime
transmit "0"
mspause waittime
transmit " "
mspause waittime
transmit "SCR"
mspause waittime
transmit " "
mspause waittime
transmit DN
transmit "^M"
waitfor "DNRO"
transmit "^M"
waitfor "DNRI"
transmit "^M"
waitfor "CPND"
transmit "^M"
waitfor "VMB"
transmit "^M"



waitfor "KEY"
mspause waittime
transmit "4"
mspause waittime
transmit " "
mspause waittime
transmit "ADL"
mspause waittime
transmit "^M"

waitfor "KEY"
mspause waittime
transmit "5"
mspause waittime
transmit " "
mspause waittime
transmit "DSP"
mspause waittime
transmit "^M"

waitfor "KEY"
mspause waittime
transmit "1"
mspause waittime
transmit " "
mspause waittime
transmit "ADL"
mspause waittime
transmit "^M"

waitfor "KEY"
mspause waittime
transmit "2"
mspause waittime
transmit " "
mspause waittime
transmit "ADL"
mspause waittime
transmit "^M"

waitfor "KEY"
mspause waittime
transmit "3"
mspause waittime
transmit " "
mspause waittime
transmit "ADL"
mspause waittime
transmit "^M"

waitfor "KEY"
mspause waittime
transmit "6"
mspause waittime
transmit " "
mspause waittime
transmit "ADL"
mspause waittime
transmit "^M"

waitfor "KEY"
mspause waittime
transmit "7"
mspause waittime
transmit " "
mspause waittime
transmit "ADL"
mspause waittime
transmit "^M"

waitfor "KEY"
mspause waittime
transmit "8"
mspause waittime
transmit " "
mspause waittime
transmit "ADL"
mspause waittime
transmit "^M"

waitfor "KEY"
mspause waittime
transmit "9"
mspause waittime
transmit " "
mspause waittime
transmit "ADL"
mspause waittime
transmit "^M"

waitfor "KEY"
mspause waittime
transmit "10"
mspause waittime
transmit " "
mspause waittime
transmit "ADL"
mspause waittime
transmit "^M"

waitfor "KEY"
mspause waittime
transmit "11"
mspause waittime
transmit " "
mspause waittime
transmit "ADL"
mspause waittime
transmit "^M"

waitfor "KEY"
mspause waittime
transmit "19"
mspause waittime
transmit " "
mspause waittime
transmit "cfw "
mspause waittime
transmit "4"
mspause waittime
transmit "^M"

waitfor "KEY"
mspause waittime
transmit "18"
mspause waittime
transmit " "
mspause waittime
transmit "AO6"
mspause waittime
transmit "^M"

waitfor "KEY"
mspause waittime
transmit "9"
mspause waittime
transmit " "
MSPAUSE WAITTIME
transmit "ADL"
mspause waittime
transmit "^M"

waitfor "KEY"
mspause waittime
transmit "22"
mspause waittime
transmit " "
mspause waittime
transmit "RNP"
mspause waittime
transmit "^M"

waitfor "KEY"
mspause waittime
transmit "23"
mspause waittime
transmit " "
mspause waittime
transmit "SCC "
mspause waittime
transmit DN
mspause waittime
transmit "^M"


waitfor "KEY"
mspause waittime
transmit "17"
mspause waittime
transmit " "
mspause waittime
transmit "TRN"
mspause waittime
transmit "^M"

waitfor "KEY"
mspause waittime
transmit "16"
mspause waittime
transmit " "
mspause waittime
transmit "MWK 888"
mspause waittime
transmit "^M"

waitfor "KEY"
mspause waittime
transmit "20"
mspause waittime
transmit " "
mspause waittime
transmit "RGA"
mspause waittime
transmit "^M"

waitfor "KEY"
mspause waittime
transmit "21"
mspause waittime
transmit " "
mspause waittime
transmit "PRK"
mspause waittime
transmit "^M"

waitfor "KEY"
mspause waittime
transmit "24"
mspause waittime
transmit " "
mspause waittime
transmit "PRS"
mspause waittime
transmit "^M"

waitfor "KEY"
mspause waittime
transmit "25"
mspause waittime
transmit " "
mspause waittime
transmit "CHG"
mspause waittime
transmit "^M"

waitfor "KEY"
mspause waittime
transmit "26"
mspause waittime
transmit " "
mspause waittime
transmit "CPN"
mspause waittime
transmit "^M"

waitfor "KEY"
mspause waittime
transmit "^M"

;Warten auf Eingabe Prompt
;==========================

waitfor "REQ:"
mspause waittime

endproc


;Programmteil um die Parameter aus einer Textdatei einzulesen
;=============================================================

proc main

integer var0=0,var1=1,var2=2,var3=3,var4=4,var5=5,var6=6,var7=7,var8=8,var9=9,var10=10,var11=11
;STRING Card,Unit,DN,datei,stp="STOP",line ;NA,Busy,

string TN,DN,datei,stp="STOP",line,HUNT,EHT,FDN,EFD,PUG

sdlginput "Script Source File" "Please enter Source File Name:" datei ;Frage nach Dateiname

fopen 1 datei read text

while not feof 1

fgets 1 line

strextract DN line ";" var1
strextract TN line ";" var0
;strextract Shelf line ";" var2
;strextract Card line ";" var1
;strextract Unit line ";" var2
;strextract Busy line ";" var4
;strextract NA line ";" var5
strextract EFD line ";" var5
strextract FDN line ";" var4
strextract HUNT line ";" var2
strextract EHT line ";" var3
strextract PUG line ";" var6


if strcmp TN stp
exitwhile

else

call TEL3904 with TN,DN,Hunt,EHT,EFD,FDN,PUG

endif


endwhile

fclose 1

endproc


Layout of the fiel I use:

211;4;12
255;4;13
260;4;14
265;4;15
stop;;

You need to adopt the settings in the script, use it just as an example.

 

[johnpoole]

might work if i had a version of procom that was not the english ver. clean script.

john poole
bellsouth business
columbia,sc