00017: How to READ the last key in an alternate non-unique chain

Title:

How to READ the last key in an alternate non-unique chain

Description:

To get to the last key in an alternate non-unique chain, use a loop as follows: 

100 read(1,key=keyl(1),dir=0) 
110 k$=keyn(1,end=0120);read(1);goto 110 

The keyl() will take the end= branch when you’re pointing at the last record, and the read() will walk to the end. 

Last Modified: 10/17/1997 Product: PRO/5 Operating System: All platforms

BASIS structures five components of their technology into the BBx Generations.