Re: Multiple Reports from SINGLE SQR

[Moore Anthony B <Anthony_B_Moore@BSCC.BLS.COM>]

In SET-UP:
-------------------
declare-report SumReportFile
  end-declare
declare-report DtlReportFile
  end-declare
--------------------------
THEN in MAIN-PROCEDURE:
-----------------------------------------

USE-REPORT DtlReportFile
        let $rpt = $RptDir||'/rcvry_dtl.'||&geokey||'.'||$Ext
        new-report $rpt
        display $rpt

USE-REPORT SumReportFile
        let $rpt = $RptDir||'/rcvry_sum.'||&geokey||'.'||$Ext
        new-report $rpt
        display $rpt

---------------------------------------------


BEGIN-PROCEDURE SumPostMth
            USE-REPORT SumReportFile
            print $mkt_code     (+1,1)  on-break
            print $Cyc  (,8)    on-break
            print $SvMoLastStat (,14) on-break print=always
            print #MthAcctSum   (,23)   edit '999,999'
            print #MthBlncSum   (,34)   edit '999,999.99'

            ADD #MthAcctSum     TO #CycAcctSum
            ADD #MthBlncSum     TO #CycBlncSum
            MOVE 0 TO #MthAcctSum
            MOVE 0 TO #MthBlncSum
            USE-REPORT DtlReportFile
END-PROCEDURE ! SumPostMth
----------------------------------------------
BEGIN-PROCEDURE SumPostCyc
        USE-REPORT SumReportFile
        print '-'               (+1,23,7)       FILL
        print '-'               (,34,10)        FILL
        print 'Cycle Total:'    (+1,1)
        print $SavCyc           (,14)
        print #CycAcctSum       (,23)   edit '999,999'
        print #CycBlncSum       (,34)   edit '999,999.99'


---------------------------------------------
BEGIN-HEADING 8 FOR-REPORTS =(SumReportFile)
  print 'REPORT: RECOVERY.SQR' (1,1)
  print 'TIME: ' (2,3)
  Date-Time () 'HH:MI PM'
  print 'DATE: ' (3,3)
  Date-Time () 'MM/DD/YY'
  print 'USERID: ' (4,1)
  LET $user=UPPER($username)
  print $user ()
  Print 'ABCDEF  C E L L U L A R    C O R P.' (1) Center
  Page-Number (,120) 'Page '
  LET $title1Str = 'INACTIVE '||$title1||' ACCOUNTS'
  Print $title1Str (3) Center
  let $title2 = ' FROM ' || $BegDate || ' TO ' || $EndDate
  Print $title2 (4) Center
  LET $title3 = 'SUMMARY REPORT'
  Print $title3 (5) Center

------------------------------
DO THE SAME FOR THE DETAIL REPORT OR OTHER REPORTS
-----------------------------------

-----Original Message-----
From: Bill Bowers [mailto:bowersb@PSPH.PROVIDENCE.ORG]
Sent: Wednesday, December 09, 1998 4:28 PM
To: Multiple recipients of list SQR-USERS
Subject: Multiple Reports from SINGLE SQR


     I am creating an SQR that will have multiple reports, can anyone tell
     me what additional work is required to accomplish this?

     Thanks

     Bill