Capture File Question

[krayten]

Hi,

My code correctly activates the capturefile that I need, but I'm having problems closing the capturefile. It appears that the data isn't available in that file until the file is closed ( for writing? ) by attachmate.

Trying all the usual Sess0.Capture = 0 type of stuff to no avail.

Does anyone have any samples of doing this?

Much appreciated!

Stuart

 

[SkipVought]

Hi,

There is no Capture property, method or other keyword in Extra AFAIK.

Please post your code in question.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[krayten]

Hi Skip,

Thanks. Here is the extract:-



' This section of code contains the recorded events

'SETUP THE CAPTURE FILE

Sess0.CaptureSetup "C:\TestCapture.txt",1,1,0

' LD 20
Sess0.Screen.Sendkeys("ld 20<Ctrl+M>")

' Wait for REQ
Sess0.Screen.WaitForStream("REQ")

' Send PRT
Sess0.Screen.Sendkeys("PRT<Ctrl+M>")

' Wait For Type
Sess0.Screen.WaitForStream("TYPE")

' Send DNB
Sess0.Screen.Sendkeys("DNB<Ctrl+M>")

' Wait For CUST
Sess0.Screen.WaitForStream("CUST")

' Send CUST 0
Sess0.Screen.Sendkeys("0<Ctrl+M>")

' Wait For DN
Sess0.Screen.WaitForStream("DN")

' Send the DN
Sess0.Screen.Sendkeys("52200<Ctrl+M>")

'Wait For DATE,PAGE & DES
Sess0.Screen.WaitForStream("DATE")
Sess0.Screen.Sendkeys("<Ctrl+M>")
Sess0.Screen.WaitForStream("PAGE")
Sess0.Screen.Sendkeys("<Ctrl+M>")
Sess0.Screen.WaitForStream("DES")
Sess0.Screen.Sendkeys("<Ctrl+M>")

'Wait For NACT
Sess0.Screen.WaitForStream("NACT")
Sess0.Screen.Sendkeys("<Ctrl+M>")

' Wait for REQ
Sess0.Screen.WaitForStream("REQ")


'Send CR
Sess0.Screen.SendKeys("END<Ctrl+M>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)

' THIS IS WHERE I NEED THE CAPTURE TO TERMINATE
Set Sess0.Capture = FALSE
Set Capture = FALSE

'System.TimeoutValue = OldSystemTimeout


End Sub


Hope this helps and I appreciate the quick response!

Stuart

 

[SkipVought]

You might check thread99-975438 and FAQ in this forum and in forum99.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]