In order for this site to work correctly, and for us to improve the site, we need to store a small file (called a cookie) on your computer.
By continuing to use this website, you agree to our cookies and privacy policy.
  
Home page Home page Home page Home page
Pixel
Pixel Header R1 C1 Pixel
Pixel Header R2 C1 Pixel
Pixel Header R3 C1 Pixel
Pixel

QTIPS - Descending Order Quickdex/Rightdexes

If it is ever required to quickdex or rightdex a file in descending order this may be accomplished using the system subroutine LRDEX.SUB. This is essentially an MFS shell with one extra parameter at the end - the sort order. The calling parameters are

Lrdex.Sub(Code,BFS,Handle,Name,FMC,Record,Status,S_Order)

Thus to add a descending rightdex to a file one could create an MFS as follows


0001        Subroutine DR_MFS( A, B, C ,D, E, F, G)
0002          call lrdex.sub(a,b,c,d,e,f,g,"DR")
0003        Return

Then add DR_MFS as the last multivalue of attribute 2 of the REVMEDIA record. Note that this is the simplest form of MFS shell possible - additional logic could easily be built in to exclude specific records from the sorted list etc.

(Volume 3, Issue 10, Page 4)
Pixel
Pixel Footer R1 C1 Pixel
Pixel
Pixel
Pixel