QUICK procedure problem.

[Michael Lee]

I'm not completely sure what you're trying to do here. Your message seemed to
start talking about a performance problem and then it changed to talking about
an infinite loop issue. What exactly is this procedure trying to do? Why do you
add a record just after deleting it? Are you really trying to update the field?
If so just to a let to the original file and a PUT without the RESET option. If
not, please explain what the procedure is supposed to be doing.

Michael Lee
MCL Systems Inc.


Steve Huckvale wrote:

> All,
>
> Can anyone help me with a piece of QUICK screen code (current version 7.09E
> on MPEix) which is causing no end of problems to me.  Currently I have
> several screens running a while retrieving sequential construct to perform
> updates on selected records from an IMAGE dataset with over 100,000 records.
> These screens were fine in the early days when the dataset in question was
> smaller but now they're a major drain on CPU time which I need to plug.  My
> current (non-)solution is the code below;
>
> ********************************************************
>
> file MYFILE designer open 1
> file MYFILE alias MYFILEALIASED open 2
> ...
> procedure internal UPDATEMYFILE
> begin
>   while retrieving MYFILE viaindex MYKEY using THISKEY
>   begin
>     let NONKEYFIELD of MYFILEALIASED = "XYZ"
>     put MYFILEALIASED reset
>     delete MYFILE
>     put MYFILE
>   end
> end
>
> ********************************************************
>
> This seems to work fine until the 'while retrieving' loop hits the records
> added via the alias and (I think) loops infinitely.  Without the alias I
> only get to update one record, as soon as I PUT to the dataset the record
> pointers get lost and the while retrieve construct falls through.
>
> My apologies in advance if this is elementary stuff, I'm afraid it's
> inherited code and whilst I've done the 'Intro to Powerhouse' course I'm
> still waiting to get on 'Advanced Part 1' which I believe covers QUICK quite
> comprehensively.  In the meantime I'd be most grateful if somebody could
> point me in the right direction towards a solution.
>
> Steve Huckvale
> Cosworth Racing Ltd.
>
> = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
> Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
> powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
> This list is closed, thus to post to the list, you must be a subscriber.

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.