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