Extra! Basic Error Disk Full Error
Extra! Basic Error Disk Full Error
(OP)
I'm hoping someone could help me, I'm self taught writing macros, and am driving myself crazy with the following error "Disk Full Line Number 276 Stopping macro playback" My macro screen scrapes various values on the CSS screen, and writes those values to textpad. I have not been able to determine how the disk is full. There are times I run the macro and it fails after 60 records, I stop it, make no changes, rerun it and it will fail after 1200 records. Below is my code (I know it's not pretty, but it works until the memory fills)Speaking of which, I will be watching the task manager, and never see it run out of memory, etc. Thank you in advance for any help you can offer!
Sub Main()
Dim Sessions As Object
Dim System As Object
Set System = CreateObject("EXTRA.System")
If (System is Nothing) Then
Msgbox "Could not create the EXTRA System object. Stopping macro playback."
STOP
End If
Set Sessions = System.Sessions
If (Sessions is Nothing) Then
Msgbox "Could not create the Sessions collection object. Stopping macro playback."
STOP
End If
'--------------------------------------------------------------------------------
g_HostSettleTime = 109
OldSystemTimeout& = System.TimeoutValue
If (g_HostSettleTime > OldSystemTimeout) Then
System.TimeoutValue = g_HostSettleTime
End If
Dim Sess0 As Object
Set Sess0 =GetObject("C:\Program Files\EXTRA!\Sessions\Session1.edp")
If (Sess0 is Nothing) Then
Msgbox "Could not create the Session object. Stopping macro playback."
STOP
End If
If Not Sess0.Visible Then Sess0.Visible = TRUE
Sess0.Screen.WaitHostQuiet(g_HostSettleTime
Close #1
Close #2
Open "N:\OPS\COLLECTNS\Restricted\Management\JSchmidt\Macros\ROL500 Input.txt" For INPUT As #1
Open "N:\OPS\COLLECTNS\Restricted\Management\JSchmidt\Macros\ROL500 Output.txt" For OUTPUT As #2
Dim Sess1 as Object
Dim scr as Object
Do While Not EOF(1)
Input #1,acnt$
ACNT$ = LEFT$(ACNT$,16)
Sess0.Screen.Sendkeys("<Reset>")
Sess0.Screen.Sendkeys("<Clear>")
Sess0.Save
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("cis "& acnt$)
Sess0.Screen.Sendkeys("<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("css")
Sess0.Screen.Sendkeys("<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Ret1$ = Sess0.Screen.Getstring(05,04,04)
Ret1a$ = Sess0.Screen.Getstring(05,26,05)
Ret1b$ = Sess0.Screen.Getstring(05,72,08)
Ret2$ = Sess0.Screen.Getstring(06,04,04)
Ret2a$ = Sess0.Screen.Getstring(06,26,05)
Ret2b$ = Sess0.Screen.Getstring(06,72,08)
Ret3$ = Sess0.Screen.Getstring(07,04,04)
Ret3a$ = Sess0.Screen.Getstring(07,26,05)
Ret3b$ = Sess0.Screen.Getstring(07,72,08)
Ret4$ = Sess0.Screen.Getstring(08,04,04)
Ret4a$ = Sess0.Screen.Getstring(08,26,05)
Ret4b$ = Sess0.Screen.Getstring(08,72,08)
Ret5$ = Sess0.Screen.Getstring(09,04,04)
Ret5a$ = Sess0.Screen.Getstring(09,26,05)
Ret5b$ = Sess0.Screen.Getstring(09,72,08)
Ret6$ = Sess0.Screen.Getstring(10,04,04)
Ret6a$ = Sess0.Screen.Getstring(10,26,05)
Ret6b$ = Sess0.Screen.Getstring(10,72,08)
Ret7$ = Sess0.Screen.Getstring(11,04,04)
Ret7a$ = Sess0.Screen.Getstring(11,26,05)
Ret7b$ = Sess0.Screen.Getstring(11,72,08)
Ret8$ = Sess0.Screen.Getstring(12,04,04)
Ret8a$ = Sess0.Screen.Getstring(12,26,05)
Ret8b$ = Sess0.Screen.Getstring(12,72,08)
Ret9$ = Sess0.Screen.Getstring(13,04,04)
Ret9a$ = Sess0.Screen.Getstring(13,26,05)
Ret9b$ = Sess0.Screen.Getstring(13,72,08)
Ret10$ = Sess0.Screen.Getstring(14,04,04)
Ret10a$ = Sess0.Screen.Getstring(14,26,05)
Ret10b$ = Sess0.Screen.Getstring(14,72,08)
Ret11$ = Sess0.Screen.Getstring(15,04,04)
Ret11a$ = Sess0.Screen.Getstring(15,26,05)
Ret11b$ = Sess0.Screen.Getstring(15,72,08)
Ret12$ = Sess0.Screen.Getstring(16,04,04)
Ret12a$ = Sess0.Screen.Getstring(16,26,05)
Ret12b$ = Sess0.Screen.Getstring(16,72,08)
Ret13$ = Sess0.Screen.Getstring(17,04,04)
Ret13a$ = Sess0.Screen.Getstring(17,26,05)
Ret13b$ = Sess0.Screen.Getstring(17,72,08)
Ret14$ = Sess0.Screen.Getstring(18,04,04)
Ret14a$ = Sess0.Screen.Getstring(18,26,05)
Ret14b$ = Sess0.Screen.Getstring(18,72,08)
Ret15$ = Sess0.Screen.Getstring(19,04,04)
Ret15a$ = Sess0.Screen.Getstring(19,26,05)
Ret15b$ = Sess0.Screen.Getstring(19,72,08)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Save
Ret16$ = Sess0.Screen.Getstring(05,04,04)
Ret16a$ = Sess0.Screen.Getstring(05,26,05)
Ret16b$ = Sess0.Screen.Getstring(05,72,08)
Ret17$ = Sess0.Screen.Getstring(06,04,04)
Ret17a$ = Sess0.Screen.Getstring(06,26,05)
Ret17b$ = Sess0.Screen.Getstring(06,72,08)
Ret18$ = Sess0.Screen.Getstring(07,04,04)
Ret18a$ = Sess0.Screen.Getstring(07,26,05)
Ret18b$ = Sess0.Screen.Getstring(07,72,08)
Ret19$ = Sess0.Screen.Getstring(08,04,04)
Ret19a$ = Sess0.Screen.Getstring(08,26,05)
Ret19b$ = Sess0.Screen.Getstring(08,72,08)
Ret20$ = Sess0.Screen.Getstring(09,04,04)
Ret20a$ = Sess0.Screen.Getstring(09,26,05)
Ret20b$ = Sess0.Screen.Getstring(09,72,08)
Ret21$ = Sess0.Screen.Getstring(10,04,04)
Ret21a$ = Sess0.Screen.Getstring(10,26,05)
Ret21b$ = Sess0.Screen.Getstring(10,72,08)
Ret22$ = Sess0.Screen.Getstring(11,04,04)
Ret22a$ = Sess0.Screen.Getstring(11,26,05)
Ret22b$ = Sess0.Screen.Getstring(11,72,08)
Ret23$ = Sess0.Screen.Getstring(12,04,04)
Ret23a$ = Sess0.Screen.Getstring(12,26,05)
Ret23b$ = Sess0.Screen.Getstring(12,72,08)
Ret24$ = Sess0.Screen.Getstring(13,04,04)
Ret24a$ = Sess0.Screen.Getstring(13,26,05)
Ret24b$ = Sess0.Screen.Getstring(13,72,08)
Ret25$ = Sess0.Screen.Getstring(14,04,04)
Ret25a$ = Sess0.Screen.Getstring(14,26,05)
Ret25b$ = Sess0.Screen.Getstring(14,72,08)
Ret26$ = Sess0.Screen.Getstring(15,04,04)
Ret26a$ = Sess0.Screen.Getstring(15,26,05)
Ret26b$ = Sess0.Screen.Getstring(15,72,08)
Ret27$ = Sess0.Screen.Getstring(16,04,04)
Ret27a$ = Sess0.Screen.Getstring(16,26,05)
Ret27b$ = Sess0.Screen.Getstring(16,72,08)
Ret28$ = Sess0.Screen.Getstring(17,04,04)
Ret28a$ = Sess0.Screen.Getstring(17,26,05)
Ret28b$ = Sess0.Screen.Getstring(17,72,08)
Ret29$ = Sess0.Screen.Getstring(18,04,04)
Ret29a$ = Sess0.Screen.Getstring(18,26,05)
Ret29b$ = Sess0.Screen.Getstring(18,72,08)
Ret30$ = Sess0.Screen.Getstring(19,04,04)
Ret30a$ = Sess0.Screen.Getstring(19,26,05)
Ret30b$ = Sess0.Screen.Getstring(19,72,08)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Save
Ret31$ = Sess0.Screen.Getstring(05,04,04)
Ret31a$ = Sess0.Screen.Getstring(05,26,05)
Ret31b$ = Sess0.Screen.Getstring(05,72,08)
Ret32$ = Sess0.Screen.Getstring(06,04,04)
Ret32a$ = Sess0.Screen.Getstring(06,26,05)
Ret32b$ = Sess0.Screen.Getstring(06,72,08)
Ret33$ = Sess0.Screen.Getstring(07,04,04)
Ret33a$ = Sess0.Screen.Getstring(07,26,05)
Ret33b$ = Sess0.Screen.Getstring(07,72,08)
Ret34$ = Sess0.Screen.Getstring(08,04,04)
Ret34a$ = Sess0.Screen.Getstring(08,26,05)
Ret34b$ = Sess0.Screen.Getstring(08,72,08)
Ret35$ = Sess0.Screen.Getstring(09,04,04)
Ret35a$ = Sess0.Screen.Getstring(09,26,05)
Ret35b$ = Sess0.Screen.Getstring(09,72,08)
Ret36$ = Sess0.Screen.Getstring(10,04,04)
Ret36a$ = Sess0.Screen.Getstring(10,26,05)
Ret36b$ = Sess0.Screen.Getstring(10,72,08)
Ret37$ = Sess0.Screen.Getstring(11,04,04)
Ret37a$ = Sess0.Screen.Getstring(11,26,05)
Ret37b$ = Sess0.Screen.Getstring(11,72,08)
Ret38$ = Sess0.Screen.Getstring(12,04,04)
Ret38a$ = Sess0.Screen.Getstring(12,26,05)
Ret38b$ = Sess0.Screen.Getstring(12,72,08)
Ret39$ = Sess0.Screen.Getstring(13,04,04)
Ret39a$ = Sess0.Screen.Getstring(13,26,05)
Ret39b$ = Sess0.Screen.Getstring(13,72,08)
Ret40$ = Sess0.Screen.Getstring(14,04,04)
Ret40a$ = Sess0.Screen.Getstring(14,26,05)
Ret40b$ = Sess0.Screen.Getstring(14,72,08)
Ret41$ = Sess0.Screen.Getstring(15,04,04)
Ret41a$ = Sess0.Screen.Getstring(15,26,05)
Ret41b$ = Sess0.Screen.Getstring(15,72,08)
Ret42$ = Sess0.Screen.Getstring(16,04,04)
Ret42a$ = Sess0.Screen.Getstring(16,26,05)
Ret42b$ = Sess0.Screen.Getstring(16,72,08)
Ret43$ = Sess0.Screen.Getstring(17,04,04)
Ret43a$ = Sess0.Screen.Getstring(17,26,05)
Ret43b$ = Sess0.Screen.Getstring(17,72,08)
Ret44$ = Sess0.Screen.Getstring(18,04,04)
Ret44a$ = Sess0.Screen.Getstring(18,26,05)
Ret44b$ = Sess0.Screen.Getstring(18,72,08)
Ret45$ = Sess0.Screen.Getstring(19,04,04)
Ret45a$ = Sess0.Screen.Getstring(19,26,05)
Ret45b$ = Sess0.Screen.Getstring(19,72,08)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Save
WRITE #2,acnt$,Ret1$,Ret1a$,Ret1b$,Ret2$,Ret2a$,Ret2b$,Ret3$,Ret3a$,Ret3b$,Ret4$,Ret4a$,Ret4b$,Ret5$,Ret5a$,Ret5b$,Ret6$,Ret6a$,Ret6b$,Ret7$,Ret7a$,Ret7b$,Ret8$,Ret8a$,Ret8b$,Ret9$,Ret9a$,Ret9b$,Ret10$,Ret10a$,Ret10b$,Ret11$,Ret11a$,Ret11b$,Ret12$,Ret12a$,Ret12b$,Ret13$,Ret13a$,Ret13b$,Ret14$,Ret14a$,Ret14b$,Ret15$,Ret15a$,Ret15b$,Ret16$,Ret16a$,Ret16b$,Ret17$,Ret17a$,Ret17b$,Ret18$,Ret18a$,Ret18b$,Ret19$,Ret19a$,Ret19b$,Ret20$,Ret20a$,Ret20b$,Ret21$,Ret21a$,Ret21b$,Ret22$,Ret22a$,Ret22b$,Ret23$,Ret23a$,Ret23b$,Ret24$,Ret24a$,Ret24b$,Ret25$,Ret25a$,Ret25b$,Ret26$,Ret26a$,Ret26b$,Ret27$,Ret27a$,Ret27b$,Ret28$,Ret28a$,Ret28b$,Ret29$,Ret29a$,Ret29b$,Ret30$,Ret30a$,Ret30b$,Ret31$,Ret31a$,Ret31b$,Ret32$,Ret32a$,Ret32b$,Ret33$,Ret33a$,Ret33b$,Ret34$,Ret34a$,Ret34b$,Ret35$,Ret35a$,Ret35b$,Ret36$,Ret36a$,Ret36b$,Ret37$,Ret37a$,Ret37b$,Ret38$,Ret38a$,Ret38b$,Ret39$,Ret39a$,Ret39b$,Ret40$,Ret40a$,Ret40b$,Ret41$,Ret41a$,Ret41b$,Ret42$,Ret42a$,Ret42b$,Ret43$,Ret43a$,Ret43b$,Ret44$,Ret44a$,Ret44b$,Ret45$,Ret45a$,Ret45b$
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
XXX:
LOOP
CLOSE #1
msgbox "Your macro is complete, have a nice day."
End Sub
Sub Main()
Dim Sessions As Object
Dim System As Object
Set System = CreateObject("EXTRA.System")
If (System is Nothing) Then
Msgbox "Could not create the EXTRA System object. Stopping macro playback."
STOP
End If
Set Sessions = System.Sessions
If (Sessions is Nothing) Then
Msgbox "Could not create the Sessions collection object. Stopping macro playback."
STOP
End If
'--------------------------------------------------------------------------------
g_HostSettleTime = 109
OldSystemTimeout& = System.TimeoutValue
If (g_HostSettleTime > OldSystemTimeout) Then
System.TimeoutValue = g_HostSettleTime
End If
Dim Sess0 As Object
Set Sess0 =GetObject("C:\Program Files\EXTRA!\Sessions\Session1.edp")
If (Sess0 is Nothing) Then
Msgbox "Could not create the Session object. Stopping macro playback."
STOP
End If
If Not Sess0.Visible Then Sess0.Visible = TRUE
Sess0.Screen.WaitHostQuiet(g_HostSettleTime
Close #1
Close #2
Open "N:\OPS\COLLECTNS\Restricted\Management\JSchmidt\Macros\ROL500 Input.txt" For INPUT As #1
Open "N:\OPS\COLLECTNS\Restricted\Management\JSchmidt\Macros\ROL500 Output.txt" For OUTPUT As #2
Dim Sess1 as Object
Dim scr as Object
Do While Not EOF(1)
Input #1,acnt$
ACNT$ = LEFT$(ACNT$,16)
Sess0.Screen.Sendkeys("<Reset>")
Sess0.Screen.Sendkeys("<Clear>")
Sess0.Save
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("cis "& acnt$)
Sess0.Screen.Sendkeys("<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("css")
Sess0.Screen.Sendkeys("<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Ret1$ = Sess0.Screen.Getstring(05,04,04)
Ret1a$ = Sess0.Screen.Getstring(05,26,05)
Ret1b$ = Sess0.Screen.Getstring(05,72,08)
Ret2$ = Sess0.Screen.Getstring(06,04,04)
Ret2a$ = Sess0.Screen.Getstring(06,26,05)
Ret2b$ = Sess0.Screen.Getstring(06,72,08)
Ret3$ = Sess0.Screen.Getstring(07,04,04)
Ret3a$ = Sess0.Screen.Getstring(07,26,05)
Ret3b$ = Sess0.Screen.Getstring(07,72,08)
Ret4$ = Sess0.Screen.Getstring(08,04,04)
Ret4a$ = Sess0.Screen.Getstring(08,26,05)
Ret4b$ = Sess0.Screen.Getstring(08,72,08)
Ret5$ = Sess0.Screen.Getstring(09,04,04)
Ret5a$ = Sess0.Screen.Getstring(09,26,05)
Ret5b$ = Sess0.Screen.Getstring(09,72,08)
Ret6$ = Sess0.Screen.Getstring(10,04,04)
Ret6a$ = Sess0.Screen.Getstring(10,26,05)
Ret6b$ = Sess0.Screen.Getstring(10,72,08)
Ret7$ = Sess0.Screen.Getstring(11,04,04)
Ret7a$ = Sess0.Screen.Getstring(11,26,05)
Ret7b$ = Sess0.Screen.Getstring(11,72,08)
Ret8$ = Sess0.Screen.Getstring(12,04,04)
Ret8a$ = Sess0.Screen.Getstring(12,26,05)
Ret8b$ = Sess0.Screen.Getstring(12,72,08)
Ret9$ = Sess0.Screen.Getstring(13,04,04)
Ret9a$ = Sess0.Screen.Getstring(13,26,05)
Ret9b$ = Sess0.Screen.Getstring(13,72,08)
Ret10$ = Sess0.Screen.Getstring(14,04,04)
Ret10a$ = Sess0.Screen.Getstring(14,26,05)
Ret10b$ = Sess0.Screen.Getstring(14,72,08)
Ret11$ = Sess0.Screen.Getstring(15,04,04)
Ret11a$ = Sess0.Screen.Getstring(15,26,05)
Ret11b$ = Sess0.Screen.Getstring(15,72,08)
Ret12$ = Sess0.Screen.Getstring(16,04,04)
Ret12a$ = Sess0.Screen.Getstring(16,26,05)
Ret12b$ = Sess0.Screen.Getstring(16,72,08)
Ret13$ = Sess0.Screen.Getstring(17,04,04)
Ret13a$ = Sess0.Screen.Getstring(17,26,05)
Ret13b$ = Sess0.Screen.Getstring(17,72,08)
Ret14$ = Sess0.Screen.Getstring(18,04,04)
Ret14a$ = Sess0.Screen.Getstring(18,26,05)
Ret14b$ = Sess0.Screen.Getstring(18,72,08)
Ret15$ = Sess0.Screen.Getstring(19,04,04)
Ret15a$ = Sess0.Screen.Getstring(19,26,05)
Ret15b$ = Sess0.Screen.Getstring(19,72,08)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Save
Ret16$ = Sess0.Screen.Getstring(05,04,04)
Ret16a$ = Sess0.Screen.Getstring(05,26,05)
Ret16b$ = Sess0.Screen.Getstring(05,72,08)
Ret17$ = Sess0.Screen.Getstring(06,04,04)
Ret17a$ = Sess0.Screen.Getstring(06,26,05)
Ret17b$ = Sess0.Screen.Getstring(06,72,08)
Ret18$ = Sess0.Screen.Getstring(07,04,04)
Ret18a$ = Sess0.Screen.Getstring(07,26,05)
Ret18b$ = Sess0.Screen.Getstring(07,72,08)
Ret19$ = Sess0.Screen.Getstring(08,04,04)
Ret19a$ = Sess0.Screen.Getstring(08,26,05)
Ret19b$ = Sess0.Screen.Getstring(08,72,08)
Ret20$ = Sess0.Screen.Getstring(09,04,04)
Ret20a$ = Sess0.Screen.Getstring(09,26,05)
Ret20b$ = Sess0.Screen.Getstring(09,72,08)
Ret21$ = Sess0.Screen.Getstring(10,04,04)
Ret21a$ = Sess0.Screen.Getstring(10,26,05)
Ret21b$ = Sess0.Screen.Getstring(10,72,08)
Ret22$ = Sess0.Screen.Getstring(11,04,04)
Ret22a$ = Sess0.Screen.Getstring(11,26,05)
Ret22b$ = Sess0.Screen.Getstring(11,72,08)
Ret23$ = Sess0.Screen.Getstring(12,04,04)
Ret23a$ = Sess0.Screen.Getstring(12,26,05)
Ret23b$ = Sess0.Screen.Getstring(12,72,08)
Ret24$ = Sess0.Screen.Getstring(13,04,04)
Ret24a$ = Sess0.Screen.Getstring(13,26,05)
Ret24b$ = Sess0.Screen.Getstring(13,72,08)
Ret25$ = Sess0.Screen.Getstring(14,04,04)
Ret25a$ = Sess0.Screen.Getstring(14,26,05)
Ret25b$ = Sess0.Screen.Getstring(14,72,08)
Ret26$ = Sess0.Screen.Getstring(15,04,04)
Ret26a$ = Sess0.Screen.Getstring(15,26,05)
Ret26b$ = Sess0.Screen.Getstring(15,72,08)
Ret27$ = Sess0.Screen.Getstring(16,04,04)
Ret27a$ = Sess0.Screen.Getstring(16,26,05)
Ret27b$ = Sess0.Screen.Getstring(16,72,08)
Ret28$ = Sess0.Screen.Getstring(17,04,04)
Ret28a$ = Sess0.Screen.Getstring(17,26,05)
Ret28b$ = Sess0.Screen.Getstring(17,72,08)
Ret29$ = Sess0.Screen.Getstring(18,04,04)
Ret29a$ = Sess0.Screen.Getstring(18,26,05)
Ret29b$ = Sess0.Screen.Getstring(18,72,08)
Ret30$ = Sess0.Screen.Getstring(19,04,04)
Ret30a$ = Sess0.Screen.Getstring(19,26,05)
Ret30b$ = Sess0.Screen.Getstring(19,72,08)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.Sendkeys("<Enter>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Save
Ret31$ = Sess0.Screen.Getstring(05,04,04)
Ret31a$ = Sess0.Screen.Getstring(05,26,05)
Ret31b$ = Sess0.Screen.Getstring(05,72,08)
Ret32$ = Sess0.Screen.Getstring(06,04,04)
Ret32a$ = Sess0.Screen.Getstring(06,26,05)
Ret32b$ = Sess0.Screen.Getstring(06,72,08)
Ret33$ = Sess0.Screen.Getstring(07,04,04)
Ret33a$ = Sess0.Screen.Getstring(07,26,05)
Ret33b$ = Sess0.Screen.Getstring(07,72,08)
Ret34$ = Sess0.Screen.Getstring(08,04,04)
Ret34a$ = Sess0.Screen.Getstring(08,26,05)
Ret34b$ = Sess0.Screen.Getstring(08,72,08)
Ret35$ = Sess0.Screen.Getstring(09,04,04)
Ret35a$ = Sess0.Screen.Getstring(09,26,05)
Ret35b$ = Sess0.Screen.Getstring(09,72,08)
Ret36$ = Sess0.Screen.Getstring(10,04,04)
Ret36a$ = Sess0.Screen.Getstring(10,26,05)
Ret36b$ = Sess0.Screen.Getstring(10,72,08)
Ret37$ = Sess0.Screen.Getstring(11,04,04)
Ret37a$ = Sess0.Screen.Getstring(11,26,05)
Ret37b$ = Sess0.Screen.Getstring(11,72,08)
Ret38$ = Sess0.Screen.Getstring(12,04,04)
Ret38a$ = Sess0.Screen.Getstring(12,26,05)
Ret38b$ = Sess0.Screen.Getstring(12,72,08)
Ret39$ = Sess0.Screen.Getstring(13,04,04)
Ret39a$ = Sess0.Screen.Getstring(13,26,05)
Ret39b$ = Sess0.Screen.Getstring(13,72,08)
Ret40$ = Sess0.Screen.Getstring(14,04,04)
Ret40a$ = Sess0.Screen.Getstring(14,26,05)
Ret40b$ = Sess0.Screen.Getstring(14,72,08)
Ret41$ = Sess0.Screen.Getstring(15,04,04)
Ret41a$ = Sess0.Screen.Getstring(15,26,05)
Ret41b$ = Sess0.Screen.Getstring(15,72,08)
Ret42$ = Sess0.Screen.Getstring(16,04,04)
Ret42a$ = Sess0.Screen.Getstring(16,26,05)
Ret42b$ = Sess0.Screen.Getstring(16,72,08)
Ret43$ = Sess0.Screen.Getstring(17,04,04)
Ret43a$ = Sess0.Screen.Getstring(17,26,05)
Ret43b$ = Sess0.Screen.Getstring(17,72,08)
Ret44$ = Sess0.Screen.Getstring(18,04,04)
Ret44a$ = Sess0.Screen.Getstring(18,26,05)
Ret44b$ = Sess0.Screen.Getstring(18,72,08)
Ret45$ = Sess0.Screen.Getstring(19,04,04)
Ret45a$ = Sess0.Screen.Getstring(19,26,05)
Ret45b$ = Sess0.Screen.Getstring(19,72,08)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Save
WRITE #2,acnt$,Ret1$,Ret1a$,Ret1b$,Ret2$,Ret2a$,Ret2b$,Ret3$,Ret3a$,Ret3b$,Ret4$,Ret4a$,Ret4b$,Ret5$,Ret5a$,Ret5b$,Ret6$,Ret6a$,Ret6b$,Ret7$,Ret7a$,Ret7b$,Ret8$,Ret8a$,Ret8b$,Ret9$,Ret9a$,Ret9b$,Ret10$,Ret10a$,Ret10b$,Ret11$,Ret11a$,Ret11b$,Ret12$,Ret12a$,Ret12b$,Ret13$,Ret13a$,Ret13b$,Ret14$,Ret14a$,Ret14b$,Ret15$,Ret15a$,Ret15b$,Ret16$,Ret16a$,Ret16b$,Ret17$,Ret17a$,Ret17b$,Ret18$,Ret18a$,Ret18b$,Ret19$,Ret19a$,Ret19b$,Ret20$,Ret20a$,Ret20b$,Ret21$,Ret21a$,Ret21b$,Ret22$,Ret22a$,Ret22b$,Ret23$,Ret23a$,Ret23b$,Ret24$,Ret24a$,Ret24b$,Ret25$,Ret25a$,Ret25b$,Ret26$,Ret26a$,Ret26b$,Ret27$,Ret27a$,Ret27b$,Ret28$,Ret28a$,Ret28b$,Ret29$,Ret29a$,Ret29b$,Ret30$,Ret30a$,Ret30b$,Ret31$,Ret31a$,Ret31b$,Ret32$,Ret32a$,Ret32b$,Ret33$,Ret33a$,Ret33b$,Ret34$,Ret34a$,Ret34b$,Ret35$,Ret35a$,Ret35b$,Ret36$,Ret36a$,Ret36b$,Ret37$,Ret37a$,Ret37b$,Ret38$,Ret38a$,Ret38b$,Ret39$,Ret39a$,Ret39b$,Ret40$,Ret40a$,Ret40b$,Ret41$,Ret41a$,Ret41b$,Ret42$,Ret42a$,Ret42b$,Ret43$,Ret43a$,Ret43b$,Ret44$,Ret44a$,Ret44b$,Ret45$,Ret45a$,Ret45b$
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
XXX:
LOOP
CLOSE #1
msgbox "Your macro is complete, have a nice day."
End Sub
RE: Extra! Basic Error Disk Full Error
I see several issues. 1) your Wait method and 2) your access method.
1. Your Wait method: You wouldn’t leave your house in the morning, pre-determining that each time you encountered an intersection
you would a) stop your car, b) Wait 109 seconds then c) immediately proceed into the intersection, without regard to anything or
anyone in the intersection, would you? Of course not! Each intersection is different, but in every case, you rely on feedback to
inform you how to proceed.
Likewise, when you used a terminal emulator vai code, since the mainframe may respond virtually immediately or with a significant
UNPREDICTABLE delay, you must use feedback to determine when to safely proceed. A fixed Wait period is not acceptable, neither is
stacking a few more, “just in case”.
I used this technique quite successfully:
CODE
2. Your Access Method: You really only need 3 variables to do the job with proper loops...
CODE
Skip,
Just traded in my OLD subtlety...
for a NUance!
RE: Extra! Basic Error Disk Full Error
Thank you again for all your help!
James
RE: Extra! Basic Error Disk Full Error
Skip,
Just traded in my OLD subtlety...
for a NUance!
RE: Extra! Basic Error Disk Full Error
RE: Extra! Basic Error Disk Full Error
Is that how many records you got before? You previously mentioned 1200.
Did it run any faster/slower?
Can’t find a reason for memory to get bloated. Don’t know a method to flush memory.
Skip,
Just traded in my OLD subtlety...
for a NUance!
RE: Extra! Basic Error Disk Full Error
RE: Extra! Basic Error Disk Full Error
And what terminal are you emulatong?
Skip,
for a NUance!
RE: Extra! Basic Error Disk Full Error
Your N drive is mapped. To a network drive?
You might check that. There might be some partitoning by your IT guys on your sub-server folder?
Skip,
Just traded in my OLD subtlety...
for a NUance!
RE: Extra! Basic Error Disk Full Error
RE: Extra! Basic Error Disk Full Error
Skip,
Just traded in my OLD subtlety...
for a NUance!
RE: Extra! Basic Error Disk Full Error
RE: Extra! Basic Error Disk Full Error
RE: Extra! Basic Error Disk Full Error
Not if you’re using a WaitFor... method of feedback to get out of the Do Until...Loops after any SendKeys().
Skip,
Just traded in my OLD subtlety...
for a NUance!
RE: Extra! Basic Error Disk Full Error
Running the macro from my desktop did the trick! Thank you for all the work you did cleaning up the layout of my code, and working though my questions this past weekend; this code is going to make my life so much easier! Thank you again!
RE: Extra! Basic Error Disk Full Error
Trouble shooting an emulator from afar is a tad tricky. For some reason I was thinking “memory” error.
Then I remembered the thread title. And I do recall, in the misty past, experiencing full disk errors on my partition of
a shared server, when it looked like there was ample unused space. But then again, I’m a old codger with some foggy memory
of some things.
Skip,
Just traded in my OLD subtlety...
for a NUance!
RE: Extra! Basic Error Disk Full Error
I'm hoping you won't mind helping me out again! I'm being asked to show the same data on subsequent pages of the statement. (the original code took the 3 returns on the 1st page of the statement. ) One issue with that is there could be any number of pages or each month, so I tried using the Getstring function to determine the number of pages, "Sess0.Screen.Getstring(02,52,02)" shows page number of the statement you are on, and "Sess0.Screen.Getstring(02,60,02)" shows the total number of pages for that month's statement; you navigate through the pages using Pf8. The information I need on the subsequent pages is in the same location on the screen as page 1. The final iteration I tried was adding the 'For j' section thinking I could get it to loop through the additional pages before hitting enter and looping to go to the second 'For i'.
CODE -->
When I try to compile the code, I receive "FOR and NEXT statements must be in same block" on the last LOOP.
Thank you again for your help! I'm running out of hair to pull out.
RE: Extra! Basic Error Disk Full Error
Your For...Next pairs don’t match.
Skip,
for a NUance!