new-report creates extra .lis file

[Eva Kovari <Eva.Kovari@BOTCC.COM>]

     I am writing a program that creates  a report for each firm in a
     table.  The report names are dynamically generated based on the firm
     numbers being read from the table.  The problem is that while all the
     firm files are created properly, (ex. Progname.firm#.rpt) a .lis file
     is also generated containing just the report heading.  My program
     looks something like this:


     Begin-Select

     firm_number () on-break print=never before=firm_heading
     :
     :
     from tablename
     End-Select



     Begin-Procedure firm_heading

     !if the firm number changes, create a new file

     let $report_name= 'Blabla.' || &firm_number || '.rpt'
     new-report $report_name

     ...print firm heading stuff

     End-Procedure


     Begin-Heading 3

     ...print report title

     End-Heading


     I can't put a new-report before the select statement because I don't
     know what firm numbers are in the table.  Does anyone have any
     suggestions?

     Thanks!

     Eva