Re: Printing from a Subfile

["Paul Morgan" <pmorgan@xxxxxxxxxxxxxx>]

Brian,

1) Use %found instead of %eof.
2) Your loop is broken.  The %found test on the DoW will be tested before
the subfile has ever been read.  You can either fix it by using DoU and then
inserting an If %found statement right after the chain in the loop or by
performing a chain just before the DoW loop and moving the chain inside the
loop to the bottom of the loop.

Your code would look like:

Write Heading;
Rrn=1;
Chain Rrn Kdsdata;
DoW %Found( Kdsdata );
   If Prtoverflow;
     Write Heading;
     Prtoverflow = *Off;
   Endif;
   Write detail;
   Rrn = Rrn + 1;
   Chain Rrn Kdsdata;
EndDo;
Write Footer;

or:

Write Heading
Rrn=1;
DoU %Found( Kdsdata );
   Chain Rrn Kdsdata;
   If %found( Kdsdatafilename );
      If Prtoverflow;
        Write heading;
        Prtoverflow = *Off;
      Endif;
      Write detail;
      Rrn = Rrn + 1;
   EndIf;
EndDo;
Write Footer;

Paul