PROGRAM SYRTOP,1.0(001)                                                 !
!       SYRTOP.BV - Report Mainline Program for REPORT MODULE: SYRTOP
!

       SIGNIFICANCE 11

       COPYF   "TOPFIL"        ! Data File
       COPYF   "TOPKEY"        ! Key File

       COPY    "RPTMAD"        ! RPT work area
       COPY    "ABSELL"
       COPY    "FORMAD"
       COPY    "PRTREC"
       COPYF   "DBMFIL[SY]"            ! Data Base dictionary
       COPYF   "DBMKEY[SY]"
       COPYF   "PRTFIL[SY]"            ! Printer Control file
       COPYF   "PRTKEY[SY]"
       COPY    "USRBUF"
       COPYF   "PQUFIL[SY]"            ! Print Queue file
       COPYF   "PQUKEY[SY]"
       COPYF   "PQDFIL[SY]"            ! Special Data File

       MAP1    FORMID,S,6
       MAP1    H'QUE,B,1,60            ! Standard Hold Que
       MAP1    P'QUE,B,1,20            ! Standard Process Que
       MAP1    NOSEL,B,1               ! Set = to 1 to bypass Selection Sys
       MAP1    NOSUM,B,1               ! Set = to 1 to bypass Summary


       MAP1    DSK                     ! USR Params for RPT Stack
               MAP2    DEV,S,3
               MAP2    DRV,S,2
       MAP1    PPN,S,7

               ON ERROR GOTO ERTRAP

       RPT'PT1:
               PQD'DATA = "Topics File"

       BEGIN'PT1:

               PQU'PROG = "SYRTOP"

       COPY    "SELRP1"

               PS'CDEE = "%SEL"
               PS'PRE = "SYTOP"
               PS'DRNM = "TOPFIL"
               PS'PROG = "SYRTOP"
               PS'CMP = "N"
               PS'RPT = "Y"
               IF PRW'SEL # "Y" GOTO CHN'SEL    ![3.5]
               PS'KPRE = "SYTOP"
       CHN'SEL:
               XCALL GIN,0,PASS'SEL'AR
               IF PRW'STK # "N" THEN
                       CHAIN "DSK0:ABSELQ.CMD[2,2]"
               ENDIF
               CHAIN "DSK0:ABSEL.CMD[2,2]"


START'RPT:
       GOSUB IRPT'SYRTOP               ! Initialize report module
       ACTVSW = 1

START'RPT2:                             ! Multiple Report Entry Point
       IF SEL1 # 9
               use TOP into TOP'rec key TOP'key
       ENDIF
       do
               IF SEL1 = 9
                       IF PSKY = PS'NOSL EXIT
                       READ #1000,PASS'REC
                       use TOP ps'rcn into TOP'rec
                       PSKY = PSKY + 1
               ELSE
                       getnxt TOP
                       IF TOP'CTL = 3  EXIT
               ENDIF
               GOSUB RPT'DETAIL                ! Produce the report

       loop


END'RPT:

NORM'END:
               GOSUB RPT'END
               IF PRTCOD = 1 OR PRTCOD > 3 GOTO END'JOB
               IF PRT'EXSPL = "N" GOTO END'JOB
               RR1 = rdvf : RR2 = PGECNT
               IF RR2 = 0 RR2 = 1
               XCALL SPOOL,r,PRT'DEVCD,RR1,RR2,FORMID

END'JOB:
               IF SEL1 # 9 GOTO FINAL'END
               rdlock dbf ps'wkno
               DBF'INUSE = "N"
               write dbf

FINAL'END:
               IF PRT'CRT = "Y" AND ACTVSW = 1 THEN
                       CHAIN "DSK0:EXP.CMD[2,2]"
               ENDIF
               END
ABORT:
ABORT'JOB:
               IF ACTVSW # 1 GOTO END'JOB
               ? TAB(-1,14)
               ? "Report has been Aborted"

               rtnadr = 0
               GOSUB RPT'END                   ! CLOSE OUT
               IF PRTCOD = 2 OR PRTCOD = 3 THEN
                       KILL R'FILENME
               ENDIF
               GOTO END'JOB

PUT'USR'DATA:
               RETURN
SET'USR'DATA:
               RETURN

       COPYR   "SYRTOP"                ! Report Copy Module
       COPY    "RPTMAT"
       COPY    "FORMAT"
       COPY    "DSK0:RPTSEL[11,10]"
       COPY    "PRTSTK"
       COPY    "BASERR"

\\TSTFUNC

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.