Re: CHAIN Versus SETLL and READ When Data Needed

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.

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