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 SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Help with dialing out more than one number

Status
Not open for further replies.

nasserz

Technical User
May 25, 2002
7
0
0
US
HELP....

The script below dials teh first number but never goes to the 2nd number.

Any help is appreciated!

Thanks a million............


proc main

;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;* The EOD process needs to clear the eod_b and eod_e flags at the ;
;* beginning of the EOD process. ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;


string DialNum1 = "410-555-1212"

string DialNum2 = "301-555-12512"

integer nbr=1

string sDisc = "Disconnecting"
string ThisDate
string ThisTime
string ErrMsg


ErrMsg = "EOD Did not complete within the specified time. Please re-run script! This message was generated on "

clear

while nbr = 1

if isfile "c:\temp\eod_b"
clear
Termputs 1 0 ">>> Found eod_b flag <<< waiting for eod_e flag...."
;* Termwrites ">>> Found eod_b flag <<< waiting for eod_e flag...."
pause 5 ;* Pause for n seconds. This is the 2 diff between EDO_E and EOD_B
if not isfile "c:\temp\eod_e"
delfile "c:\temp\eod_b"

;***********************
Make_Call1()
Termputs 15 0 "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"

Clear_call()
Termputs 16 0 "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"

Make_Call2()
Termputs 17 0 "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"

;***********************



ThisDate = $date
ThisTime = $time24
strcat ThisDate " at "
strcat ThisDate ThisTime
strcat ErrMsg ThisDate
Termputs 8 0 ErrMsg ; * This is PRINT @(0,8)
exit
;*
else
Termputs 2 0 " "
Termputs 3 0 ">>> Found eod_e flag <<<"
Termputs 4 0 "==============================================================="

pause 1
delfile "c:\temp\eod_b"
pause 1
delfile "c:\temp\eod_e"
endif
;*
else
pause 300 ;* Sleep for n minutes to check on eod_b flag
endif

endwhile

endproc



proc Make_Call1
dialnumber DATA DialNum1 ; Dial Number.
waitfor "Red Hat"
pause 10
endproc

proc Make_Call2
dialnumber DATA DialNum2 ; Dial Number.
waitfor "Red Hat"
pause 10
endproc

Proc Clear_call
yield
hangup
endproc
 
When I tried to compile your script, I received a couple errors because DialNum1 and DialNum2 are not defined in the two Make_Call procedures. You will need to either make those two variables global variables by defining and intializing them prior to the proc main command, move the definition to the individual procedures, or rework your script to pass the numbers to the scripts. I think once you choose one of those options, your script should work as expected.

aspect@aspectscripting.com
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top