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!

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

Error 121: Fatal exception during script execution 1

Status
Not open for further replies.
rking66

rking66

Technical User
Feb 26, 2003
18
US
I am receiving the message 'Error 121: Fatal exception during script execution' occasionally when using the Procomm dialing queue. I have a fairly simple data collection script that I manually launch after each connection has been established, and this error pops up when the script is attempting to log out of the site event buffer.
I have found a similar thread (thread448-412567) where there is reference to a fix that involves modifying the script with a procedure to grow ASPECT's runtime stack, but I can't seem to get it to compile correctly.
Any help would be greatly appreciated! Thank you
 
Sort by date Sort by votes
Knob,
Thanks for taking a look at this. As you can see, the attached script is fairly basic, and probably not too well written either, but it serves it's purpose quite well. I have noticed that the error seems to occur at the end of the script (which I have placed a comment at)

proc main

integer iDay, iMonth, iYear, iHour, iMin, iSec
string ddate
string report2
string report3
string report1
string report4
string report5

ltimeints $LTIME iYear iMonth iDay iHour iMin iSec
strfmt ddate "%d%02d%02d" iYear iMonth iDay
report1 = $DIALCONNECT
strcat report1 "_trks_"
strcat report1 ddate
strcat report1 ".cap"
set capture query off
set capture path "D:\Program Files\Symantec\Procomm Plus\Capture"
set capture file report1

transmit "LD 20^M"
waitfor "REQ: "
transmit "PRT^M"
waitfor "TYPE: "
transmit "TRK^M"
waitfor "TN "
transmit "^M"
waitfor "CDEN "
transmit "^M"
waitfor "CUST "
transmit "^M"
waitfor "DATE "
transmit "^M"
waitfor "PAGE "
pause 1

capture ON
pause 1

transmit "^M"
waitfor "NACT " FOREVER
pause 1

clear

capture OFF

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


transmit "^M"
waitfor "REQ: "
transmit "PRT^M"
waitfor "TYPE: "
transmit "2250^M"
waitfor "TN "
transmit "^M"
waitfor "CUST "
transmit "^M"
waitfor "DATE "
transmit "^M"
waitfor "PAGE "
pause 1

capture ON
pause 1

transmit "^M"
waitfor "REQ:" 5
if success
pause 1
else
waitfor "NACT "
transmit "^M"
waitfor "REQ: "
endif

pause 2
clear

capture OFF
pause 1


transmit "PRT^M"
waitfor "TYPE: "
transmit "PWR^M"
waitfor "TN "
transmit "^M"
waitfor "CDEN "
transmit "^M"
waitfor "DATE "
transmit "^M"
waitfor "PAGE "
pause 2

capture ON
pause 1


transmit "^M"
waitfor "REQ:" 5
if success
pause 1
else
waitfor "NACT " 1
transmit "^M"
waitfor "REQ: "
endif


pause 2

clear

capture OFF
pause 1


transmit "****^M"
waitfor ">"

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


strfmt ddate "%d%02d%02d" iYear iMonth iDay
report2 = $DIALCONNECT
strcat report2 "_SLT_"
strcat report2 ddate
strcat report2 ".cap"

set capture query off
set capture path "D:\Program Files\Symantec\Procomm Plus\Capture"
set capture file report2



transmit "LD 22^M"
waitfor "REQ "
transmit "SLT"
pause 2

capture ON
pause 1
transmit "^M"

waitfor "REQ "
pause 2

clear
capture OFF
pause 1

transmit "****^M"
waitfor ">"


strfmt ddate "%d%02d%02d" iYear iMonth iDay
report3 = $DIALCONNECT
strcat report3 "_VoiceMail_"
strcat report3 ddate
strcat report3 ".cap"

set capture query off
set capture path "D:\Program Files\Symantec\Procomm Plus\Capture"
set capture file report3



transmit "LD 81^M"
waitfor "REQ "
transmit "LST^M"
waitfor "CUST "
transmit "0^M"
waitfor "DATE "
transmit "^M"
waitfor "PAGE "
transmit "^M"
waitfor "DES "
transmit "^M"
waitfor "FEAT "
transmit "IMA^M"
waitfor "FEAT "
transmit "MMA^M"
waitfor "FEAT "
transmit "VMA^M"
waitfor "FEAT "
pause 2

capture ON
pause 1


transmit "^M"
waitfor "NACT "
pause 2

clear

capture OFF
pause 1



transmit "^M"


strfmt ddate "%d%02d%02d" iYear iMonth iDay
report4 = $DIALCONNECT
strcat report4 "_ATA_FLXA_"
strcat report4 ddate
strcat report4 ".cap"

set capture query off
set capture path "D:\Program Files\Symantec\Procomm Plus\Capture"
set capture file report4



waitfor "REQ "
transmit "LST^M"
waitfor "CUST "
transmit "0^M"
waitfor "DATE "
transmit "^M"
waitfor "PAGE "
transmit "^M"
waitfor "DES "
transmit "^M"
waitfor "FEAT "
transmit "FLXA^M"
waitfor "FEAT "
pause 2

capture ON
pause 1


transmit "^M"
waitfor "NACT "
pause 2
clear

capture OFF
pause 1


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


transmit "^M"


strfmt ddate "%d%02d%02d" iYear iMonth iDay
report5 = $DIALCONNECT
strcat report5 "_SETS_DCFWs_ACDs_"
strcat report5 ddate
strcat report5 ".cap"

set capture query off
set capture path "D:\Program Files\Symantec\Procomm Plus\Capture"
set capture file report5



waitfor "REQ "
transmit "CNT^M"
waitfor "CUST "
transmit "0^M"
waitfor "DATE "
transmit "^M"
waitfor "PAGE "
transmit "^M"
waitfor "DES "
transmit "^M"
waitfor "FEAT "
transmit "SETS^M"
waitfor "FEAT "

pause 2

capture ON
pause 1




transmit "^M"
waitfor "NACT "
transmit "^M"
waitfor "REQ "
transmit "CNT^M"
waitfor "CUST "
transmit "0^M"
waitfor "DATE "
transmit "^M"
waitfor "PAGE "
transmit "^M"
waitfor "DES "
transmit "^M"
waitfor "FEAT "
transmit "DCFW^M"
waitfor "FEAT "
transmit "^M"
waitfor "NACT "
transmit "^M"
waitfor "REQ "
transmit "CNT^M"
waitfor "CUST "
transmit "0^M"
waitfor "DATE "
transmit "^M"
waitfor "PAGE "
transmit "^M"
waitfor "DES "
transmit "^M"
waitfor "FEAT "
transmit "ACD^M"
waitfor "FEAT "
transmit "^M"
waitfor "NACT "
pause 2

clear

capture OFF
pause 1

transmit "^M"
waitfor "REQ " 3
transmit "****^M"

set capture query ON

;Disconnnect

transmit "****^M"
transmit "LOGO^M"
pause 2
transmit "LOGO^M"
waitfor ">" 2
transmit "^]A"
waitfor "Command: " 3
if success
transmit "6^M"


;***Failure Location?
;Error seems to occur immediately after the following line of text appears from the SEB

waitfor "Do you really want to clear mass memory? (Y/N)"


transmit "Y^M"
waitfor "Command: "
transmit "X^M"
else
pause 2
transmit "LOGOUT^M"
pause 2
disconnect
endif

endproc
 
Upvote 0 Downvote
Hi, finally got a chance to look the script over and nothing obvious jumps out at me. Just to be clear on your scenario, you are dialing a group of numbers in Procomm, then after each connect, you are running the script manually instead of launching it automatically from the Connection Directory, correct? And the error does not occur with each connection, only intermittently?

 
Upvote 0 Downvote
Hello Knob,
Yes, you are correct with all of your assumptions. A few things I thought I should add: I am running Procomm Plus 4.8 on a Windows 2003 Server (SP2) with 1 GB RAM, and am using a US Robotics 56K external modem.
 
Upvote 0 Downvote
One possible update you might want to make is at the below link from Symantec's website:


Below also find a version of your script with the growstack code that was pointed out in the other thread. Please let me know if that appears to solve your problem as well.

proc main

integer iDay, iMonth, iYear, iHour, iMin, iSec
string ddate
string report2
string report3
string report1
string report4
string report5

growstack(50)
ltimeints $LTIME iYear iMonth iDay iHour iMin iSec
strfmt ddate "%d%02d%02d" iYear iMonth iDay
report1 = $DIALCONNECT
strcat report1 "_trks_"
strcat report1 ddate
strcat report1 ".cap"
set capture query off
set capture path "D:\Program Files\Symantec\Procomm Plus\Capture"
set capture file report1

transmit "LD 20^M"
waitfor "REQ: "
transmit "PRT^M"
waitfor "TYPE: "
transmit "TRK^M"
waitfor "TN "
transmit "^M"
waitfor "CDEN "
transmit "^M"
waitfor "CUST "
transmit "^M"
waitfor "DATE "
transmit "^M"
waitfor "PAGE "
pause 1

capture ON
pause 1

transmit "^M"
waitfor "NACT " FOREVER
pause 1

clear

capture OFF

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


transmit "^M"
waitfor "REQ: "
transmit "PRT^M"
waitfor "TYPE: "
transmit "2250^M"
waitfor "TN "
transmit "^M"
waitfor "CUST "
transmit "^M"
waitfor "DATE "
transmit "^M"
waitfor "PAGE "
pause 1

capture ON
pause 1

transmit "^M"
waitfor "REQ:" 5
if success
pause 1
else
waitfor "NACT "
transmit "^M"
waitfor "REQ: "
endif

pause 2
clear

capture OFF
pause 1


transmit "PRT^M"
waitfor "TYPE: "
transmit "PWR^M"
waitfor "TN "
transmit "^M"
waitfor "CDEN "
transmit "^M"
waitfor "DATE "
transmit "^M"
waitfor "PAGE "
pause 2

capture ON
pause 1


transmit "^M"
waitfor "REQ:" 5
if success
pause 1
else
waitfor "NACT " 1
transmit "^M"
waitfor "REQ: "
endif


pause 2

clear

capture OFF
pause 1


transmit "****^M"
waitfor ">"

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


strfmt ddate "%d%02d%02d" iYear iMonth iDay
report2 = $DIALCONNECT
strcat report2 "_SLT_"
strcat report2 ddate
strcat report2 ".cap"

set capture query off
set capture path "D:\Program Files\Symantec\Procomm Plus\Capture"
set capture file report2



transmit "LD 22^M"
waitfor "REQ "
transmit "SLT"
pause 2

capture ON
pause 1
transmit "^M"

waitfor "REQ "
pause 2

clear
capture OFF
pause 1

transmit "****^M"
waitfor ">"


strfmt ddate "%d%02d%02d" iYear iMonth iDay
report3 = $DIALCONNECT
strcat report3 "_VoiceMail_"
strcat report3 ddate
strcat report3 ".cap"

set capture query off
set capture path "D:\Program Files\Symantec\Procomm Plus\Capture"
set capture file report3



transmit "LD 81^M"
waitfor "REQ "
transmit "LST^M"
waitfor "CUST "
transmit "0^M"
waitfor "DATE "
transmit "^M"
waitfor "PAGE "
transmit "^M"
waitfor "DES "
transmit "^M"
waitfor "FEAT "
transmit "IMA^M"
waitfor "FEAT "
transmit "MMA^M"
waitfor "FEAT "
transmit "VMA^M"
waitfor "FEAT "
pause 2

capture ON
pause 1


transmit "^M"
waitfor "NACT "
pause 2

clear

capture OFF
pause 1



transmit "^M"


strfmt ddate "%d%02d%02d" iYear iMonth iDay
report4 = $DIALCONNECT
strcat report4 "_ATA_FLXA_"
strcat report4 ddate
strcat report4 ".cap"

set capture query off
set capture path "D:\Program Files\Symantec\Procomm Plus\Capture"
set capture file report4



waitfor "REQ "
transmit "LST^M"
waitfor "CUST "
transmit "0^M"
waitfor "DATE "
transmit "^M"
waitfor "PAGE "
transmit "^M"
waitfor "DES "
transmit "^M"
waitfor "FEAT "
transmit "FLXA^M"
waitfor "FEAT "
pause 2

capture ON
pause 1


transmit "^M"
waitfor "NACT "
pause 2
clear

capture OFF
pause 1


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


transmit "^M"


strfmt ddate "%d%02d%02d" iYear iMonth iDay
report5 = $DIALCONNECT
strcat report5 "_SETS_DCFWs_ACDs_"
strcat report5 ddate
strcat report5 ".cap"

set capture query off
set capture path "D:\Program Files\Symantec\Procomm Plus\Capture"
set capture file report5



waitfor "REQ "
transmit "CNT^M"
waitfor "CUST "
transmit "0^M"
waitfor "DATE "
transmit "^M"
waitfor "PAGE "
transmit "^M"
waitfor "DES "
transmit "^M"
waitfor "FEAT "
transmit "SETS^M"
waitfor "FEAT "

pause 2

capture ON
pause 1




transmit "^M"
waitfor "NACT "
transmit "^M"
waitfor "REQ "
transmit "CNT^M"
waitfor "CUST "
transmit "0^M"
waitfor "DATE "
transmit "^M"
waitfor "PAGE "
transmit "^M"
waitfor "DES "
transmit "^M"
waitfor "FEAT "
transmit "DCFW^M"
waitfor "FEAT "
transmit "^M"
waitfor "NACT "
transmit "^M"
waitfor "REQ "
transmit "CNT^M"
waitfor "CUST "
transmit "0^M"
waitfor "DATE "
transmit "^M"
waitfor "PAGE "
transmit "^M"
waitfor "DES "
transmit "^M"
waitfor "FEAT "
transmit "ACD^M"
waitfor "FEAT "
transmit "^M"
waitfor "NACT "
pause 2

clear

capture OFF
pause 1

transmit "^M"
waitfor "REQ " 3
transmit "****^M"

set capture query ON

;Disconnnect

transmit "****^M"
transmit "LOGO^M"
pause 2
transmit "LOGO^M"
waitfor ">" 2
transmit "^]A"
waitfor "Command: " 3
if success
transmit "6^M"


;***Failure Location?
;Error seems to occur immediately after the following line of text appears from the SEB

waitfor "Do you really want to clear mass memory? (Y/N)"


transmit "Y^M"
waitfor "Command: "
transmit "X^M"
else
pause 2
transmit "LOGOUT^M"
pause 2
disconnect
endif

endproc

proc growstack
param integer kbytes
string locstrs[4] ; approximately 1K stack required
if kbytes
growstack(kbytes - 1) ; 60 recursions result in a 60 K ASPECT memory block.
endif
endproc


 
Upvote 0 Downvote
Hello Knob,
I have put your modified script into action, and am happy to report all is well. Thank you very much for all your help, we don't know what we'd do without you! [thumbsup2]
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

TNieland
  • Locked
  • Question
Procomm capture script stopped capturing data
Replies
0
Views
132
TNieland
TNieland
SherWat
  • Locked
  • Question
Add a bunch of new CPNDs using a script
Replies
4
Views
154
Wanebo
Wanebo
alberto1974
  • Locked
  • Question
Shuffle a list of numbers or strings with aspect script
Replies
1
Views
133
kxboy
kxboy
Mazhaikkaadhalan
  • Locked
  • Question
Procomm script to change the DN
Replies
0
Views
95
Mazhaikkaadhalan
Mazhaikkaadhalan
isey78
  • Locked
  • Question
Procomm Script vs. DDE
Replies
2
Views
90
Firebird Scrambler
Firebird Scrambler

Part and Inventory Search

Sponsor

Back
Top