RE: Accessing a File with a Variable Key -- RPG400-L

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

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Fred Horvat
Sent: Friday, June 08, 2007 1:12 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Accessing a File with a Variable Key

The file was created via SQL from a Windows SQL Server onto the iSeries.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Wilt, Charles
Sent: Friday, June 08, 2007 7:45 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Accessing a File with a Variable Key

You using DDS or SQL?

DDS: use the VARLEN keyword on the field.

SQL: define the field as VARCHAR.

Charles

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of David Foxwell
Sent: Friday, June 08, 2007 2:53 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Accessing a File with a Variable Key

This is interesting, can you please explain how to declare a
ley field in a file with variable length ?

----- Original Message -----
From: "Wilt, Charles" <WiltC@xxxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Thursday, June 07, 2007 11:34 PM
Subject: RE: Accessing a File with a Variable Key

Ok,

So you've got bad data in the file, 'ABC '

instead of just
'ABC'.

My recommendation: fix the data and prevent it from being

put in wrong!
;-)

Still, a quick test doesn't show me what the issue is. 'ABC' is
ordered

before 'ABC '

If you do a SETLL, with 'ABC', don't you still see both records?

Or are you trying to CHAIN with 'ABC' and the file has 'ABC

' (or
vice versa)?

Hm, that would be a problem......

The only thing I could think of, would be to either chain with both
values

or do a SETLL and a couple

of reads.

BUT, the reality is, 'ABC' and 'ABC ' are

different. You could
have both records in the

system, you can't consider them the same and expect only

one or the other.

I repeat: fix the data and prevent it from being put in wrong! ;-)

HTH,
Charles

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Scott

Feddersen

Sent: Thursday, June 07, 2007 5:02 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Accessing a File with a Variable Key

The only issue I have had in accessing files with variable length
fields is making sure the trailing blanks have been

trimmed. A 20

byte fixed
length field is 'ABC '. The 20 byte

variable length

field is normally 'ABC'.

Scott Feddersen

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Fred Horvat
Sent: Thursday, June 07, 2007 2:39 PM
To: RPG400-L@xxxxxxxxxxxx
Subject: Accessing a File with a Variable Key

How does one go about accessing file that one of the key

fields is a

variable length field in ILE RPG? I have to add such a

file to an

existing program. Only thing I could think of was with Embedded
SQL.
Is there any other way or is Embedded SQL the only way?

Fred Horvat

horvat@xxxxxxxx

216-426-5692

--
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 e-mail transmission contains information that is intended to be

confidential and privileged. If you receive this e-mail and
you are not a named addressee you are hereby notified that
you are not authorized to read, print, retain, copy or
disseminate this communication without the consent of the
sender and that doing so is prohibited and may be unlawful.
Please reply to the message immediately by informing the
sender that the message was misdirected. After replying,
please delete and otherwise erase it and any attachments from
your computer system. Your assistance in correcting this
error is appreciated.

--
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 e-mail transmission contains information that is intended to be
confidential and privileged. If you receive this e-mail and you are not
a named addressee you are hereby notified that you are not authorized to
read, print, retain, copy or disseminate this communication without the
consent of the sender and that doing so is prohibited and may be
unlawful. Please reply to the message immediately by informing the
sender that the message was misdirected. After replying, please delete
and otherwise erase it and any attachments from your computer system.
Your assistance in correcting this error is appreciated.