×

Good News Everybody!

The new search engine is LIVE!

Please report any problems to david (at) midrange.com.





NICE
Thanks Sue.
Just tested it and it works perfectly



Alan Shore

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



Sue Romano
<slromano@xxxxxxx
com> To
Sent by: rpg400-l@xxxxxxxxxxxx
rpg400-l-bounces@ cc
midrange.com
Subject
RE: Update the first 1500 records
12/05/2007 02:26 that need updating
PM


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






FETCH FIRST N ROWS is only supported in the outer level of a query and in a
derived table, not in a subquery (which is where you are trying to use it).
What you can do is push the clause one level deeper into a derived table.

UPDATE FILEA F
SET FIELDA = 'N' where RRN(F) in
( SELECT R FROM
(
SELECT RRN(F) R from FILEA F where FIELDA='X'
Fetch first 1500 rows only
) X
)

This has been supported since V5R2.

Sue Romano
i5/OS SQL parser


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



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

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2026 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.