Wesley_Groleau wrote about a re-implementation of a VMS Indexed_IO
package:
= I can't offer it to the public, but something similar might be a
= useful thing if someone wanted to re-invent it.
= Just imagine some form of search tree and/or hash mechanism,
= only replace the access types with Direct_IO.Count

You might be interested in:

   Indexed sequential files in Ada: a didactical example
   http://www.cs.kuleuven.ac.be/~dirk/ada-belgium/software/#IND

on the "Free Ada Software provided by Belgian Ada users" part of the
Ada-Belgium web-server.

The text of that item on our software page is:

-------
Indexed sequential files in Ada: a didactical example

Author: Marc A. Gobin, Royal Military Academy, Brussels
Status: Source code available.
Platforms: portable, tested with Meridian (Ada 83) and GNAT (Ada 95) on
  PC/DOS.
Entry added: 1996/10/23.
Entry last changed: 1997/03/16.

Reference: "Indexed Sequential Files in Ada: a Didactical Example",
  by Marc A. Gobin, Ada-Belgium Newsletter, Nov 1996, Pages 85-91,
  Volume 4

Abstract:
As an introduction to a course on implementing data bases, the working
of an indexed sequential file system is explained. Indexed sequential
files are not included in the Ada reference manual, but can (easily ?)
be implemented. To serve its purpose the implementation should be easy
to explain, easy to use and as efficient as possible.
In a paper presented at the 1996 Ada-Belgium Seminar the main features
of an indexed sequential package are explained and the different
choices and restrictions are justified. The result is a quite efficient
package for defining and using the traditional index sequential
concepts.
Note: the entire package is available as freeware and can be obtained
in source form here. The package is Ada83 compatible.

The following files are available:

* indexed.doc: a copy of the author's paper in the Ada-Belgium
  Newsletter (MS Word 6.0 document);
* indexed.ppt: a copy of the author's presentation at the 1996
  Ada-Belgium Seminar (Powerpoint file);
* indexed.ada: the source code.
-------

Check out the URL mentioned above if you would like to download one of
these files or to contact the author.

Hope this helps.

Dirk ([log in to unmask] for Ada-Belgium e-mail)

--
Dirk Craeynest            | Email [log in to unmask] | Ada-Belgium
Offis nv/sa - Aubay Group | Phone +32(2)725.40.25         | Ada-Europe
Weiveldlaan 41/32         |       +32(2)729.97.36 (work)  | ACM SIGAda
B-1930 Zaventem, Belgium  | Fax   +32(2)725.40.12         | Team Ada

+-------------/ E-mail: [log in to unmask]
|Ada-Belgium /     WWW: http://www.cs.kuleuven.ac.be/~dirk/ada-belgium/
|on Internet/      FTP: ftp://ftp.cs.kuleuven.ac.be/pub/Ada-Belgium
+----------/ Mail-list: [log in to unmask]

*** Intl. Conference on Reliable Software Technologies - Ada-Europe'2002
*** June 17-21, 2002, Vienna, Austria *** http://www.ada-europe.org/ ***