Re: Last RRN

[Mike.Barton@xxxxxxxxxxxx]

>     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.

How about the following code. Simply overide DSPFILP to your desired file. After
the READP
the highest RRN is in LRRN.


    FDSPFILP IF  F    8192            DISK
    F                                              KINFDS FILEDS
    IFILEDS      DS
    I                                    B 397 4000LRN
    C           *HIVAL    SETGTDSPFILP
    C                     READPDSPFILP                  99


+---
| 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
+---