Re: Interupting an rpg sql search

["Doug Davie" <dougdavie@xxxxxxxxx>]

Examine your QQRYTIMLMT system value.


On Jan 18, 2008 9:26 AM, tim <tim2006@xxxxxxxxxxx> wrote:
> Here is the code I am refering to. The user may want to search for %beauty%
> in the name field of the client file. The client file has about 1/2 million
> records. So this may take a while. This also needs to be done interactive
> since they want what they want when they want it :)
>
> Dynstm is built by user requirements. So it can be more complicated.
>
> Dynstm = select * from clientfile where upper(name) like '%ZONE%'
>                and city = 'NY' fetch first 25 rows only
>
> exec sql set option datfmt=*usa;
> exec sql prepare s2 from :dynstm;
> exec sql declare c2 cursor for s2;
> exec sql open c2;
> exec sql fetch c2 into :thefileds;
> dow sqlcod = 0;
>        blah blah blah
> enddo
>
> The user will hit enter and can wait as long as a minute. So, in turn, they
> close out the client access window which really makes a mess.
>
>
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of rob@xxxxxxxxx
> Sent: Friday, January 18, 2008 8:57 AM
> To: RPG programming on the AS400 / iSeries
>
> Subject: Re: Interupting an rpg sql search
>
> I take it you're talking about the RPG we all know and love and not some
> client/server version like VARPG?
> I don't think you'll find a whole lot on "event programming" with RPG or
> RPGLE.  That's what might interrupt a long running process.
> You're pretty much restricted to ENDJOB or SysReq.  (Typically mapped to
> Shift-Esc on a PC keyboard).  Normally you'd use option 2.  However, on
> some long runners like that, I've had to use option 90 to force a sign off
> because option 2 would tell me something like it couldn't be halted during
> the middle of some critical operation or some such thing.
>
> I'd really evaluate that SQL statement.  Traditional wisdom is to do a
> STRDBG UPDPROD(*YES) and do not specify a program name.  After the program
> is done you can do a DSPJOBLOG and you'll see tons of SQL stuff in there
> to look at.
>
> Another consideration is CHGQRYA QRYTIMLMT(15)
>
> After doing a little poking around, you might post the SQL statement and
> we can see if you really flubbed it up.  Hey, even I've made mistakes. :-)
>
> I don't suppose there's some way to throw a halt indicator?  (Ducking and
> running.)
>
> Rob Berendt
> --
> Group Dekko Services, LLC
> Dept 01.073
> PO Box 2000
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
>
>
>
>
>
> "tim" <tim2006@xxxxxxxxxxx>
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 01/18/2008 08:43 AM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
>
>
> To
> "'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
> cc
>
> Subject
> Interupting an rpg sql search
>
>
>
>
>
>
> I have a SQLRPGLE program that does a search using "like" over a large
> file.
> The search can take a bit a time in some cases. I would like to be able to
> stop the search by hitting a key (say esc key tied to an attention
> program).
>
>
>
> Can this be done? Or are there other techniques I can use. I've tried the
> "fetch first 25 rows only" clause, but the search still can take a long
> time.
>
>
>
>
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.