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

Interesting.
so are we.

Alan Shore

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

"SJL"
<sjl_abc@hotmail.
com> To
Sent by: "RPG programming on the AS400 /
rpg400-l-bounces@ iSeries" <rpg400-l@xxxxxxxxxxxx>
midrange.com cc

Subject
12/05/2007 11:03 Re: Update the first 1500 records
AM that need updating

Please respond to
RPG programming
on the AS400 /
iSeries
<rpg400-l@midrang
e.com>

It worked for me, but I'm on V5R4...
- sjl

----- Original Message -----
From: "Alan Shore" <AlanShore@xxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Wednesday, December 05, 2007 9:00 AM
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.

--------------------------------------------------------------------------------

--
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.