|
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Fred Horvat
Sent: Monday, June 11, 2007 1:33 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Accessing a File with a Variable Key
Oops, yes the K was needed and I added it. I put that in and
get the following error message now for the SETLL statement.
*RNF7073 30 1 Length of KFLD is not equal to
corresponding key field in
file.
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Kesterson, Randy
Sent: Monday, June 11, 2007 1:06 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Accessing a File with a Variable Key
I'm sure this is not it, but you wouldn't have forgotten the
K in the F spec would you?
______________________________________________________________
______________
__________________
Randy Kesterson, Information Services
Market Transport Services - a UTi Worldwide Company| 110 N
Marine Drive | Portland, OR 97217 | USA
rpkesterson@xxxxxxxxxxxxxxxxxxx | D +1 503.978.4353 | O +1
503.283.2405 x353
| F +1 503.978.4392
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Fred Horvat
Sent: Monday, June 11, 2007 10:00 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Accessing a File with a Variable Key
Did anybody see anything wrong with this code.
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Fred Horvat
Sent: Friday, June 08, 2007 4:19 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Accessing a File with a Variable Key
File is already created but I can not get the program to
compile. Current iteration of the program looks like this.
I am creating the variable length field in the D Spec since I
can not do it in the KFLD line. Then in the EVAL line I am
moving a fixed length field OHPRON into the field and then I
try to access the file. Error *RNF7055 is displayed below.
D W#TRAK 20A VARYING
*
C S1KEY KLIST
C KFLD OHCONO
C KFLD OHCSNO
C KFLD W#TRAK
*
C eval w#trak = ohpron
*RNF7055 C s1key setll shipments1
C read shipments1
34
*RNF7055 30 Factor 1 S1KEY is not valid for the
specified operation.
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Scott Feddersen
Sent: Friday, June 08, 2007 3:31 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Accessing a File with a Variable Key
CREATE INDEX LIBRARY/INDEXNAME ON LIBRARY/FILENAME (
FIELD1 ASC,
FIELD2 ASC,
FIELD3 ASC)
WITH 3 DISTINCT VALUES
You should be able to use the CREATE INDEX to build an index
over the table.
Scott
--
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.