×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

Extra! Basic Error Disk Full Error

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

RE: Extra! Basic Error Disk Full Error

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,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Extra! Basic Error Disk Full Error

(OP)
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

RE: Extra! Basic Error Disk Full Error

What code is line 90?

Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Extra! Basic Error Disk Full Error

(OP)
WRITE #2,Ret1$,Ret1a$,Ret1b$

RE: Extra! Basic Error Disk Full Error

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

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Extra! Basic Error Disk Full Error

(OP)
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)

RE: Extra! Basic Error Disk Full Error

What kind of mainframe are you hitting?

And what terminal are you emulatong?

Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Extra! Basic Error Disk Full 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,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Extra! Basic Error Disk Full Error

(OP)
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

RE: Extra! Basic Error Disk Full Error

3270 to an IBM mainfame? Just curious.

Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Extra! Basic Error Disk Full Error

(OP)
Yes, I believe so

RE: Extra! Basic Error Disk Full Error

(OP)
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

RE: Extra! Basic Error Disk Full Error

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

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Extra! Basic Error Disk Full Error

(OP)
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!

RE: Extra! Basic Error Disk Full Error

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,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

RE: Extra! Basic Error Disk Full Error

(OP)
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.

RE: Extra! Basic Error Disk Full Error

Please start a new thread for this question.

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

Skip,

glassesJust traded in my OLD subtlety...
for a NUance!tongue

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

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

Click Here to join Tek-Tips and talk with other members!

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close