Re: Last RRN

[boothm@xxxxxxxxxxxxxxxxx]

Would something like this work for you?  Where DB1RRN would be the RRN of 
the highest record.  I would prefer to use   C    *END   CHAIN (E)        but 
that is fairly new and you may not have it on your machine.  I 
am unsure about the "BLOCK(*NO)" so I use it, just in case.


FGCKFL1 IF   E     K DISK    INFDS(DB1) BLOCK(*NO) 

 * Get the record Number, to know which record 
 * to update/process: 
D DB1             DS 
D DB1RRN                397    400B 0 

C     *HiVal        Setll     RGCKF1 
C                   READP     RGCKF1            58
  
_______________________
Booth Martin
booth@martinvt.com
http://www.MartinVT.com
_______________________




"Raikov, Lo" <RaikovL@mki.com.au>
Sent by: owner-midrange-l@midrange.com
06/02/2000 03:50 AM
Please respond to MIDRANGE-L

 
        To:     "'MIDRANGE-L@midrange.com'" <MIDRANGE-L@midrange.com>
        cc: 
        Subject:        Last RRN

                  Can anybody think of an easy way to obtain the highest 
used RRN in
a DB file? Changing the file to REUSEDLT(*NO), writing to it and 
extracting
RRN from INFDS data area and then changing the file back to REUSEDLT(*YES)
looks a bit too tricky for my taste.

                 Lo 
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to 
MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: 
david@midrange.com
+---




+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---