Multiple Headings or Multiple Reports

[David Anderson <DANDERS1@SMTPGW.IS.HFH.EDU>]

Thanks to everyone who attempted help!!  I have developed/stumbled on
a work-around that works just dandy.
The overview...
1.  declare layouts, printers, reports and procedures in setup
2.  create your custom header procedures
3.  use your custom header procedures for your reports
4.  shazaam!

The details...
BEGIN-SETUP
declare-layout default
  paper-size = (11,8.5)
  orientation = landscape
  top-margin = 0.5
  left-margin = 0.05
  max-columns = 177
  max-lines = 58
  char-width = 4.32
  line-height = 9
end-declare

declare-printer hplaserjet
  type = hplaserjet
  font = 0
  point-size = 6
  pitch = 17
end-declare

declare-report Report1
  layout = default
  printer-type = hplaserjet
end-declare

declare-report Report2
  layout = default
  printer-type = hplaserjet
end-declare

declare-procedure
  for-reports = (Report1)
  before-page = Report1-Headers
end-declare

declare-procedure
  for-reports = (Report2)
  before-page = Report2-Headers
end-declare
END-SETUP

BEGIN-PROCEDURE Report1-Headers
  Print 'Header for Report ONE' (+1,1)
END-PROCEDURE

BEGIN-PROCEDURE Report2-Headers
  Print 'ENO tropeR rof redaeH' (+1,1)
END-PROCEDURE

BEGIN-REPORT
use-procedure
  for-reports = (Report1)
  before-page = Report1-Headers
use-procedure
  for-reports = (Report2)
  before-page = Report2-Headers
do The-Main-Thang

BEGIN-PROCEDURE The-Main-Thang
begin-select
A.Stuff
A.More_Stuff
  use-report Report1
  print &A.Stuff (+1,1)
  use-report Report2
  print &A.More_Stuff (+1,1)
from A_Table A
end-select
END-PROCEDURE

Dave Anderson
Computer Management Sciences, Inc