Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Procedure Doesn't Execute
Message
From
01/05/2001 09:28:51
Rebecca Stottlemire
Kansas State Department of Commerce
Topeka, Kansas, United States
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00501782
Message ID:
00501915
Views:
19
Hi---this morning we tried the PROGRAM() and it did exactly the same thing.
It stops on the line with the DO race_proc WITH 1,1 and just sits there.
If you look at the task list, it shows as not responding but if you
look at the operating system, it shows 100% CPU use, and memory
fluxuating. Eventually, I have to crash it to get out.

This is really wierd because sometimes it goes right on through and
sometimes it stops and there doesn't seem to be any consistency to why.

Any more ideas,
Thanks,


>Technically, yes. I used the PROGRAM() function so you will not have to change any code if the the name of the PRG file [rpta_procs] changes. PROGRAM() returns the currently executing .PRG file name.
>
>>We did try:
>>
>>DO race_proc IN rpta_procs WITH 1,1
>>
>>Is this the same as what you're suggesting??
>>Thanks,
>>
>>
>>>What if you changed it to:
>>>
>>>DO race_proc WITH 1,1 in program()
>>>
>>>>Another puzzle.
>>>>I have a click event on a form's button that calls a procedure:
>>>>
>>>>DO eta9002 IN rpta_procs
>>>>
>>>>Then, in the eta9002 code another procedure that's called:
>>>>
>>>>DO race_proc WITH 1,1
>>>>
>>>>The race_proc is also in rpta_procs, so we're there,
>>>>but it just stops and sits. The profiler shows a hit on
>>>>the line that says DO race_proc WITH 1,1 but it never actually
>>>>goes down and does race_proc. The funny thing is that sometimes
>>>>it does do it, but mostly it just stops and sits.
>>>>
>>>>I have checked the data carefully to be sure there's nothing in
>>>>there screwing us up. Does anybody understand this?????
>>>>
>>>>Thanks,
>>>>Becky
Previous
Reply
Map
View

Click here to load this message in the networking platform