Re: NewEra: this report doesn't work. What's wrong?
Posted in 1997
Topics: General Discussion
Nils Myklebust wrote: > > It would have been slightly :-) better if you posted in plain ascii, > not html encoded. Sorry. > I have decoded it below. Thanks. > You forgot to explain what does happen. What's the problem? > The skip to top of page should of course be executed ones for each > change in value of item1 except for the first row (where it allready > is at the top of the page). Really, the report should print 4 pages but if you compile the program in p-code all the rows are printed in one page and only the last 'skip to top of page' is executed. Can you believe it? If you compile it in c-code the program runs well. -- begin of code MAIN START REPORT example_report TO "lm1.txt" OUTPUT TO REPORT example_report(1,1) OUTPUT TO REPORT example_report(1,2) OUTPUT TO REPORT example_report(1,3) OUTPUT TO REPORT example_report(2,2) OUTPUT TO REPORT example_report(3,3) OUTPUT TO REPORT example_report(4,4) FINISH REPORT example_report END MAIN REPORT example_report(item1, item2) define item1 decimal(2,0), item2 decimal(2,0) output left margin 0 right margin 80 top margin 1 bottom margin 1 page length 66 order external by item1, item2 format page header print "------------------------------------------------------------" print " PAGE HEADER" print "------------------------------------------------------------" before group of item1 skip to top of page on every row print "item1: ", item1, " item2: ", item2 page trailer print "----------------------- PAGE TRAILER -----------------------" END REPORT -- end of code ------------------------- Luis M. Agudelo Jimenez luismi@cot.es