|
midrange.com
* This is an example of using a S/36 alt-index
* file which has 2 non-contiguous key fields:
* 1 - 1..14
* 2 - 19..22
* Note that the 'F' spec says that the key is 1 byte long,
* and begins in position 1. It doesn't matter; because we
* have told the program that it is an indexed file, it is
* going to use the ACTUAL key fields, not what is defined
* here.
* Poor programming, but is intended only as an example.
finvneai ip f 240 1aidisk keyloc(1)
d ds
d RealKey 24
d vndr 7 0 overlay(RealKey:1)
d invc 10 overlay(RealKey:8)
d indt 7 0 overlay(RealKey:18)
iinvneai ns 01
i p 1 4 0invndr
i 5 14 ininvc
i 15 16 0inbmm
i 17 18 0inbnbr
i p 19 22 0inindt
c eval vndr = invndr
c eval invc = ininvc
c eval indt = inindt
c RealKey dsply
Rob Berendt
<rob@dekko.com> To: RPG400-L@midrange.com
Sent by: cc:
owner-rpg400-l@mi Subject: Re: Internally
defined by key value?
drange.com
04/18/00 04:35 PM
Please respond to
RPG400-L
You do NOT have to use a RPG36 type.
tomh@simas.com on 04/18/2000 04:30:48 PM
Please respond to RPG400-L@midrange.com@Internet
To: RPG400-L@midrange.com@Internet
cc:
Fax to:
Subject: Re: Internally defined by key value?
Member type: 'RPG36' (maybe also for 'RPG')
For contiguous keys:
position 29-30: key length
position 31: 'A'
position 32: 'I' (eye)
position 37-38: beginning key position
For non-contiguous keys, you may want to build a S/36 style alternate index
(using SSP command BLDINDEX); there's a different 'F'-spec format if this
is the case:
position 29-30: combined length of all keys
position 35-38: 'EXTK'
Hope that helps...
Jim Langston
<jlangston@conexfr To:
"RPG400-L@midrange.com" <RPG400-L@midrange.com>
eight.com> cc:
Sent by: Subject: Internally
defined by key value?
owner-rpg400-l@mid
range.com
04/18/00 12:05 PM
Please respond to
RPG400-L
I have a duel format physical file I need to open, and so am opening
it as UP F (Update Primare, File Described). In the I specs I am
declaring one variable for the buffer. In the D specs I am using ExtName
for my file layouts, and basing that on my file. All is fine and dandy.
But... when I normally open files I also specify they be opened by Key,
by specifiing the K. I know that if I don't specify the K then the records
will come in arrival sequence. RPG won't let me specify K in a File
described file.
So, what do I do? How do I get key sequence by a file described file?
Regards,
Jim Langston
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
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.
