Stop endless loop script

[Mike Wilson]

Good afternoon.

I have a lengthy script that I'm working in the Interactive Window with. It contains an error that puts the script into an infinite loop when run. Haven't found the cause yet. Is there a method to break the loop-stop the script without having to Ctrl-Alt-Delete?

Thanks,

Mike W

[Stan Mathews]

Good afternoon.

I have a lengthy script that I'm working in the Interactive Window with. It contains an error that puts the script into an infinite loop when run. Haven't found the cause yet. Is there a method to break the loop-stop the script without having to Ctrl-Alt-Delete?

Thanks,

Mike W

I would save the script rather than just working in the interactive and put a debug(1) just after the loop starts. Then you can decide to halt it at any time.

[Mike Wilson]

Loosing fetch_next()

Stan,

The following script goes through records in a table looking for a particular value and when found it copies fields of that record and enters them to a second table. The script will not hold the increment on the first table and looses the fetch_next(), resets to the first record of the table, after a couple of opening of the second table. I say this because if I remove the script highlighted in red, it increments through the first table appropriately ( the msg_box displays the increments). Is there something in/missing that is detaching the fetch_next() statement? Is there a better way?

Thank in advance.

Mike W

' find mom's alone
dim demo as p
dim tbl as p
dim numchk as C
dim zfamnum as N=0
dim zfrnum as N=0
dim lookone as N=0
dim seeone as N
dim cycle as N=0

tbl = table.open("demographics")
query.filter = ".T."
query.order="familynumber"
query.options=""
xi = tbl.query_create()
tbl.fetch_first()
while .not. tbl.fetch_eof()
    cycle = cycle + 1
       if cycle = 20 then
            goto haltme
       end if
   zfamnum = tbl.Familynumber
   zfrnum = tbl.Friendnumber
        ui_msg_box("REC","cyle="+cycle+" family="+zfamnum)
   lookone = zfamnum +.01
   numchk=convert_type(zfrnum,"C")
        if ".02" $ numchk then
	   seeone=a5_get_records_in_query("demographics","Friendnumber ="+s_quote(lookone))
	     if seeone = 0 then 
	        ui_msg_box("SINGLE MOM",numchk+"  alone")
[COLOR="Red"]	         zlastname = tbl.Lastname
		zfirstname = tbl.Firstname
		zmiddlename = tbl.Middlename
		zcommonname = tbl.Commonname
		zfullname = tbl.Fullname
		zalphaname = tbl.Alphafullname
		demo = table.open("demoprobe")
		query.filter = ".t."
		query.order=""
		query.options=""
		dxi = tbl.query_create()
		demo.enter_begin()
		demo.friendnumber = zfrnum
		demo.familynumber = zfamnum
		demo.lastname = zlastname
		demo.firstname = zfirstname
		demo.middlename = zmiddlename
		demo.Commonname = zcommonname
		demo.fullname = zfullname
		demo.alphafullname = zalphaname
		demo.enter_end(.t.)
		dxi.drop()
		demo.close()[/COLOR]
	   end if
        end if
     tbl.fetch_next()
end while
haltme:
xi.drop()
tbl.close()

ui_msg_box("wife alone","All done")
end

[Tom Cone Jr]

possible solution ???

Mike,

query.filter = ".t."
query.order=""
query.options=""
dxi = tbl.query_create()
demo.enter_begin()

If seeone is zero you're running a query against the demographics table, since you use the "tbl" pointer established for that table. Don't you mean this?

query.filter = ".t."
         query.order=""
	 query.options=""
	 dxi = [COLOR="Red"]demo[/COLOR].query_create()
	 demo.enter_begin()

I think this is why you're losing the record pointer as you step through the demographics table.

Having said that I don't see any reason you must open and close the second table each time seeone is zero. Open it once before the While Loop begins. Close it when your script ends.

Furthermore, it's probably not necessary to run a query against the demoprobe table each time you want to enter a new record. I'm not seeing anything in the script which requires that any query be run against the demoprobe table.

-- tom

[Mike Wilson]

Yes! Wrong table pointer

Tom,

Your eyes have saved me once again. With that simpe change, it ran like a champ!

As an official descendant of the Cherokee nation (my great, great grandmother was promiscuous) I do hereby grant you the honorary Cherokee title of Tom �Eagle Eye� Crone. May the Force continue with you.

All kidding aside, I am a sapling (seasonal reference) in the A5 world and I appreciate your help a great deal. I �block� together codes that have worked in other places and then go from there. How aprepo your comments about needless query and closing the second table because I was wondering that myself, exactly! I figured it might not be necessary, but not hurt, and only inefficient, and after the script worked, I would start paring it down and discover, through trial, the essentials.

You saved me a great deal of time and consternation. Thank you! Time to pare and learn�

Mike W

[CALocklin]

Using Debug or a second pair of eyes is the best way to solve a problem like this.

However, if you really need to halt a long running script, see the "Halt Script" page in the help file.