RE: Update the first 1500 records that need updating -- RPG400-L

With a counting function, such as: -

CREATE FUNCTION QGPL/INCR (COUNTER INTEGER)
RETURNS INTEGER
LANGUAGE RPGLE
SPECIFIC QGPL/INCR
NOT DETERMINISTIC
NO SQL
CALLED ON NULL INPUT
SCRATCHPAD 4
DISALLOW PARALLEL
FINAL CALL
EXTERNAL NAME 'QGPL/INCR'
PARAMETER STYLE DB2SQL ;

You can do the update as follows: -

Update file
Set Field=Value
Where Field=Value
And incr(0) <= number of rows to update

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Shore
Sent: 05 December 2007 15:01
To: RPG programming on the AS400 / iSeries
Subject: RE: Update the first 1500 records that need updating

I finally got around to testing the SQL statement that Steve suggested
The subselect SELECT RRN(F) from FILEA F where FIELDA='X'
Fetch first 1500 rows only
worked fine on its own
but when I attempted to run the whole thing, like Robert, I received
Keyword FETCH not expected. Valid tokens: ) UNION EXCEPT.

I'll probably have to write a quick RPG program instead.
Thanks to everyone who replied to my request

Alan Shore

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

Robert Rogerson

<robertrogerson@c

inram.com>
To
Sent by: RPG programming on the AS400 /

rpg400-l-bounces@ iSeries <rpg400-l@xxxxxxxxxxxx>

midrange.com
cc

Subject
12/05/2007 09:12 RE: Update the first 1500 records

AM that need updating

Please respond to

RPG programming

on the AS400 /

iSeries

<rpg400-l@midrang

e.com>

I had the same solution but FETCH was not allowed in the subselect.

Rob

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of SJL
Sent: December 4, 2007 5:07 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Update the first 1500 records that need updating

This should work:

UPDATE FILEA F
SET FIELDA = 'N' where RRN(F) in

(
SELECT RRN(F) from FILEA F where FIELDA='X'
Fetch first 1500 rows only
)

- sjl

----- Original Message -----
From: "Alan Shore" <AlanShore@xxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Tuesday, December 04, 2007 3:23 PM
Subject: Update the first 1500 records that need updating

Hi everyone
(Hopefully) A quick sql question.
I have a simple SQL update
UPDATE FILEA SET FIELDA = 'N' WHERE FIELDA = 'X'

However there are thousands of records that will be updated. I only
need

update the first 1500 of these records (no other selection criteria,
just the first 1500)

Is this possible?
If so, how?

Thanks in advance

Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx
"If you're going through Hell, keep going" - Winston Churchill
--
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.