RE: S/36-mode alt indexes

[Mark Allen <allenmark@xxxxxxxx>]

Oh boy digging into the memory archives here.  Alt indexes were the way
the S/36 handled non-contiguous key fields, the key field start was
always one, and  IIRC it tacked the actual key fields onto the end of
the file (i.e. that's why you see the logival record of 334 (320 plus
the two key fields of 7 each).  Don't recall how you could actually
determine the "real" key fields in the physical, (IDDU?)

Mark Allen
I.S. Manager
Wilkes Telephone & Electric
A Dycom Company
Phone: (706) 678-9565
Email: allenmark@nu-z.net
http://www.nu-z.net




:-----Original Message-----
:From: rpg400-l-admin@midrange.com
:[mailto:rpg400-l-admin@midrange.com] On Behalf Of Dan Bale
:Sent: Tuesday, April 30, 2002 12:59 PM
:To: rpg400-l@midrange.com
:Subject: S/36-mode alt indexes
:
:
:Having to partially dissect a 9000-line RPG-II program and
:came across a file spec for a file that is an alternate index.
: I'm really confused.  Does IBM do some blackbox stuff for
:alt. indexes?  I know that they are logical files.  The
:physical record is 320 bytes in length, but the logical record
:is 334 and a DSPFFD list puts the two key fields defined for
:the alternate index in 321-327 & 328-334.
:
:Also, the RPG program's F-spec for this file shows the start
:position for this key as 1 (does it matter for alt. indexes?)
:
:- Dan Bale
:(I am *NOT* "Dale"
:http://archive.midrange.com/midrange-:l/200105/msg00281.html )
:SAMSA, Inc. 989-790-0507
:DBale@SAMSA.com <mailto:DBale@SAMSA.com>
:  Quiquid latine dictum sit altum viditur.
:  (Whatever is said in Latin seems profound.)
:
:_______________________________________________
:This is the RPG programming on the AS400 / iSeries (RPG400-L)
:mailing list To post a message email: RPG400-L@midrange.com To
:subscribe, unsubscribe, or change list options,
:visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
:or email: RPG400-L-request@midrange.com
:Before posting, please take a moment to review the archives
:at http://archive.midrange.com/rpg400-l.
: