Contact US

Question

Extra! Basic Error Disk Full Error

jschmidt1 (IS/IT--Management)

(OP)

20 Oct 18 04:26

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

SkipVought (Programmer) · Answer 1 · 2018-10-20 13:35:13

Hi,

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

Do Until Sess0.Screen.WaitForCursor(row, col)
   DoEvents
Loop

...where row & col are the screen coordinates where the Cursor comes to rest after sending a command, like .WaitForCursor(5, 2)

2. Your Access Method: You really only need 3 variables to do the job with proper loops...

CODE

‘Stuff before your Do While loop
Do While Not EOF(1)

   Input #1,acnt$

   ACNT$ = LEFT$(ACNT$,16) 

   WRITE #2,acnt$

   Sess0.Screen.Sendkeys("<Reset>")
   Sess0.Screen.Sendkeys("<Clear>")
   Sess0.Save
   Do Until Sess0.Screen.WaitForCursor(row, col)
      DoEvents
   Loop 
   Sess0.Screen.Sendkeys("cis "& acnt$)
   Sess0.Screen.Sendkeys("<Enter>")	
   Do Until Sess0.Screen.WaitForCursor(row, col)
      DoEvents
   Loop 
   Sess0.Screen.Sendkeys("css")
   Sess0.Screen.Sendkeys("<Enter>")	
   Do Until Sess0.Screen.WaitForCursor(row, col)
      DoEvents
   Loop 

   For i = 1 To 3
      For rw = 5 To 19
         Ret1$ = Sess0.Screen.Getstring(rw,04,04)
         Ret1a$ = Sess0.Screen.Getstring(rw,26,05)
         Ret1b$ = Sess0.Screen.Getstring(rw,72,08)

         WRITE #2,Ret1$,Ret1a$,Ret1b$
      Next

      Sess0.Screen.Sendkeys("<Enter>")
      Do Until Sess0.Screen.WaitForCursor(row, col)
         DoEvents
      Loop 
      Sess0.Save
   Next
XXX:
LOOP

CLOSE #1

msgbox "Your macro is complete, have a nice day."
End Sub

Skip,
_{Just traded in my OLD subtlety...

for a NUance!}

jschmidt1 (IS/IT--Management) · Answer 2 · 2018-10-20 17:43:09

Skip, thank you very much for your help! I tested the code, and it gave me the same error, but at line 90 this time (at the write) it successfully went through 227 records before failing, is there a way to clear the memory after the write?

Thank you again for all your help!
James

SkipVought (Programmer) · Answer 3 · 2018-10-20 17:46:27

What code is line 90?

Skip,
_{Just traded in my OLD subtlety...

for a NUance!}

jschmidt1 (IS/IT--Management) · Answer 4 · 2018-10-20 17:55:19

RE: Extra! Basic Error Disk Full Error

jschmidt1 (IS/IT--Management)

(OP)

20 Oct 18 17:55

WRITE #2,Ret1$,Ret1a$,Ret1b$

SkipVought (Programmer) · Answer 5 · 2018-10-20 18:23:56

“it successfully went through 227 records before failing,”

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

jschmidt1 (IS/IT--Management) · Answer 6 · 2018-10-20 18:35:18

It's running at the same speed, the odd thing is that I have not been able to determine a rhyme or reason for when it fails.. There are times where it will go through a small amount of records and fail (the smallest amount of records I got through before failure was 60, and the largest is about 1200). I'm not making any changes, just re-running it and I will get through a different number of records each time. I have been watching the performance tab on Task Manager, and don't see the PC being over worked, I'm at a loss (for the record, my machine had 8GB ram, so should be more than enough for this)

SkipVought (Programmer) · Answer 7 · 2018-10-20 19:52:06

What kind of mainframe are you hitting?

And what terminal are you emulatong?

Skip,
_{Just traded in my OLD subtlety...

for a NUance!}

SkipVought (Programmer) · Answer 8 · 2018-10-20 19:57:45

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

jschmidt1 (IS/IT--Management) · Answer 9 · 2018-10-20 20:07:15

It's a 3270 emulator, yes the N drive is a network drive, I'll have to check with them on Monday. I didn't consider that the network drive drive could be the issue, I'm going to write to the C drive to see if that makes a difference, I'll let you know how that run goes

SkipVought (Programmer) · Answer 10 · 2018-10-20 20:20:10

3270 to an IBM mainfame? Just curious.

Skip,
_{Just traded in my OLD subtlety...

for a NUance!}

jschmidt1 (IS/IT--Management) · Answer 11 · 2018-10-20 20:25:16

RE: Extra! Basic Error Disk Full Error

jschmidt1 (IS/IT--Management)

(OP)

20 Oct 18 20:25

Yes, I believe so

jschmidt1 (IS/IT--Management) · Answer 12 · 2018-10-20 20:34:20

Running it from my desktop makes it fly, and I cant slow it down. I think it's going so fast that it cant keep up with the screens

SkipVought (Programmer) · Answer 13 · 2018-10-20 20:42:12

“I think it's going so fast that it cant keep up with the screens”

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

jschmidt1 (IS/IT--Management) · Answer 14 · 2018-10-23 17:01:20

Skip,
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!

SkipVought (Programmer) · Answer 15 · 2018-10-23 17:20:02

Great,

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

jschmidt1 (IS/IT--Management) · Answer 16 · 2018-10-25 02:57:42

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

Sess0.Screen.Sendkeys("<Reset>")
   Sess0.Screen.Sendkeys("<Clear>")
   Sess0.Save
    Do Until Sess0.Screen.WaitHostQuiet(g_HostSettleTime) 
      DoEvents
   Loop 
   Sess0.Screen.Sendkeys("cis "& acnt$)
   Sess0.Screen.Sendkeys("<Enter>")
   Sess0.Screen.Sendkeys("css")
   Sess0.Screen.Sendkeys("<Enter>")
    Do Until Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
     DoEvents
      Loop

        For i = 1 To 3
            For rw = 5 To 19
        
                Ret1$ = Sess0.Screen.Getstring(rw,05,04)
                Ret1a$ = Sess0.Screen.Getstring(rw,26,05)
                Ret1b$ = Sess0.Screen.Getstring(rw,72,08)
         
                WRITE #2,acnt$,Ret1$,Ret1a$,Ret1b$
         
       Next
       
        Sess0.Screen.Sendkeys("<Pf8>")	
'        If Sess0.Screen.Getstring(02,52,02) <> Sess0.Screen.Getstring(02,60,02)+1 then
        Do Until Sess0.Screen.Getstring(02,52,02) = Sess0.Screen.Getstring(02,60,02)+1
            DoEvents 
        Loop
              
        For j = 1 To 3
            For rws = 5 To 19  
                Ret1$ = Sess0.Screen.Getstring(rws,05,04)
                Ret1a$ = Sess0.Screen.Getstring(rws,26,05)
                Ret1b$ = Sess0.Screen.Getstring(rws,72,08)   
  
                WRITE #2,acnt$,Ret1$,Ret1a$,Ret1b$
                

         Next
            Sess0.Screen.Sendkeys("<Enter>")
'           Do Until Sess0.Screen.WaitForCursor(01, 02) 'Kept as alernative in event 'Do Until' below doesn't work
            Do Until Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
                DoEvents
            Loop 
            Sess0.Save
     Next
XXX: 
LOOP


CLOSE #1

msgbox "Your macro is complete, have a nice day."
End Sub

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.

SkipVought (Programmer) · Answer 17 · 2018-10-25 03:07:06

Please start a new thread for this question.

Your For...Next pairs don’t match.

Skip,
_{Just traded in my OLD subtlety...

for a NUance!}

Come Join Us!

Posting Guidelines

Extra! Basic Error Disk Full Error

Extra! Basic Error Disk Full Error

Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

CODE

CODE

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

CODE -->

RE: Extra! Basic Error Disk Full Error

Red Flag This Post

Red Flag Submitted

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Join Tek-Tips^® Today!

Contact US

Come Join Us!

Posting Guidelines

Extra! Basic Error Disk Full Error

Extra! Basic Error Disk Full Error

Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

CODE

CODE

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

RE: Extra! Basic Error Disk Full Error

CODE -->

RE: Extra! Basic Error Disk Full Error

Red Flag This Post

Red Flag Submitted

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Join Tek-Tips® Today!

Join Tek-Tips^® Today!