RE: Access Key for a Sub File ?

[Geo Joseph <GJOSEPH@xxxxxxxxxxxxxxxxx>]

Hi
        I hope this method will help u.
        Intialize RRN to 1 and Chain the Subfile using RRN in a loop by
incrementing the RRN by 1untill matching (Greater than or Equal to)
record for Vocher given in the Position field is found.
        If Matching record is found then Move the current RRN to
SFLRCDNBR field and EXFMT the Control Record.

Geo Joseph

> ----------
> From:         Adhip C Lahiri[SMTP:Adhip.C.Lahiri@aexp.com]
> Reply To:     MIDRANGE-L@midrange.com
> Sent:         Thursday, February 18, 1999 5:29 PM
> To:   MIDRANGE-L
> Subject:      Access Key for a Sub File ?
> 
> Folks,
>       I have a fairly complicated code that amongst other things
> has  a one-shot build subfile which also has a subfile field called
> Voucher.
> I need to implement a new "position to"  using a  Starting Voucher
> search 
> field in the control.
> Remember i donot intend to re-build the subfile everytime  or do it
> page by 
> page.
> All I need to do is filter the view for the user using the SFLRCDNBR
> using 
> that RRN
> that corresponds to anything greater than the search Voucher in the
> control.
> Can you help me relate(Key) to that RRN record in the Subfile with one
> of its 
> constituent fields (Voucher) ?
> I may add the original build has an ascending order wrt to the Voucher
> Nos. 
> anyway.
> 
> Any thoughts/suggestions most welcome.........
> 
> -Adhip
> 
> E-mail:Adhip.C.Lahiri@aexp.com
> Addr: American Express (India) Ltd. ,Delhi
>  
> +---
> | 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
+---