|
On 2/28/07, Shannon O'Donnell <shannon.odonnell@xxxxxxxxxxxxxx> wrote:
My opinion is that the CHAIN is more efficient from both a coding/maintenance standpoint and from an I/O standpoint, but I'm open to opinions.
midrange.com
Or you could try this:
d keyDS DS
d fld1
d fld2
d fld3
/free
$I = 4
DoU ( $I = 1 Or %Equal(file) );
$I = $I - 1;
SetLL %KDS( keyDS : $I ) file;
EndDo;
If %Equal(file);
ReadE %KDS( keyDS : $I ) file;
EndIf;
/end-free
--
chris@xxxxxxxxx | Beauty is the first test; there is
www.pando.org | no permanent place in the world for
| ugly mathematics.
| G.H. Hardy
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
