RE: Interrupting an rpg sql search -- RPG400-L

Hi Tim
one thing in your e-mail that caught my eye was
"This also needs to be done interactive since they want what they want when
they want it :)"
This can still be done in batch
I created a procedure for some of our users that depending on the value of
the parameters input by them, the processing can take from as quick as 5
minutes to an overnight run.
What I did was have them input an e-mail address that they will be notified
on when the process is finished.
Once that is entered, I send a test transmission to that e-mail address and
then I ask them to confirm that they have in fact received the test
transmission. If they did not receive the test e-mail, but they responded
that they had, then more fool them
Then they input the necessary parameters and the process job would be
submitted to BATCH, with an e-mail sent out when the job was finished.

Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx
"If you're going through Hell, keep going" - Winston Churchill

rpg400-l-bounces@xxxxxxxxxxxx wrote on 01/18/2008 09:26:30 AM:

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

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.