Re: Logical file keyed by active RRN

You mean like this?

CREATE TABLE ROB/SHEA (MYFIELD CHAR (1 ) NOT NULL WITH DEFAULT)

INSERT INTO ROB/SHEA VALUES('A')
...

select * from shea 
....+..
MYFIELD
   A 
   B
   C 
*******

DELETE FROM ROB/SHEA WHERE MYFIELD='B'

select * from shea 
....+..
MYFIELD
   A 
   C 
*******

SELECT RRN(SHEA), MYFIELD
FROM ROB/SHEA 
ORDER BY RRN(SHEA) 
....+....1....+....2....+....
       RRN ( SHEA )   MYFIELD
                  1      A 
                  3      C 
********  End of data  ******

Rob Berendt