*DECK RPTEXT
          PROC RPTEXT;
          CONTROL STEXT;
          BEGIN 
  
          DEF    PLTNEGILIT   #O"4002"#;
  
  # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *#
  #                                                                    #
  #    THIS COMMON DECK CONTAINS-                                      #
  #       1. DEFINITIONS OF DESCRIPTORS OF REPORT TABLE FIELDS         #
  #       2. SOME VALUES ASSOCIATED WITH THE REPORT TABLES.            #
  #       3. THE COMMON BLOCK -RPWCOMMON-.                             #
  #       4. SOME DEFS AND ITEMS FOR DEBUGGING PURPOSES.               #
  #                                                                    #
  # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *#
  
  
          # DEFINE THINGS FOR DEBUG # 
          DEF EPTRACE(P1) #$BEGIN IF DEBUG$$ THEN EP$TRACE(P1); 
                           $END#; 
          DEF EXTRACE(P1) #$BEGIN IF DEBUG$$ THEN EX$TRACE(P1); 
                           $END#; 
          $BEGIN
          XREF   PROC         EP$TRACE; 
          XREF   PROC         EX$TRACE; 
          DEF    DB$RPALL     #B<0 ,1> DEBUG$F1#; 
          DEF    DB$RPSET     #B<1 ,1> DEBUG$F1#; 
          DEF    DB$RAALL     #B<2 ,1> DEBUG$F1#; 
          DEF    DB$RASET     #B<3 ,1> DEBUG$F1#; 
          DEF    DB$RPRPADMP  #B<4 ,1> DEBUG$F1#; 
          DEF    DB$RPDUMP    #B<5 ,1> DEBUG$F1#; 
          DEF    DB$ALL       #B<6 ,1> DEBUG$F1#; 
          DEF    DB$SET       #B<7 ,1> DEBUG$F1#; 
          DEF    DB$RARPADMP  #B<8 ,1> DEBUG$F1#; 
          DEF    DB$CTEXT     #B<9 ,1> DEBUG$F1#; 
  
          $END
  
  
          COMMON RPWCOMMON; 
          BEGIN 
  
  
          #FOLLOWING ARE THE CURRPTRS AND NEXTPTRS FOR THE REPORT      #
          #TABLES.  THEIR ORDER IS IMPORTANT SINCE THEY ARE            #
          #REDEFINED BY A BASED ARRAY THAT IS INDEXED BY TABLE         #
          #NUMBER.                                                     #
          ITEM   RPAUXDUM1   ,          #THESE ARE NOT USED BECAUSE    #
                 RPAUXDUM2   ,          #THE RPAUX HAS NO CURR AND     #
                                        #NEXT ENTRIES.                 #
                 CURRRDCDIPTR,          # 1 # 
                 NEXTRDCDIPTR,
                 CURRCIDTPTR ,          # 2 # 
                 NEXTCIDTPTR ,
                 CURRIPCTPTR ,          # 3 # 
                 NEXTIPCTPTR ,
                 CURRIRTPTR  ,          # 4 # 
                 NEXTIRTPTR  ,
                 CURRCNTRLPTR,          # 5 # 
                 NEXTCNTRLPTR,
                 CURRRPTGRPTR,          # 6 # 
                 NEXTRPTGRPTR,
                 CURRRHRGPTR ,          # 7 # 
                 NEXTRHRGPTR ,
                 CURRRHLNPTR ,          # 8 # 
                 NEXTRHLNPTR ,
                 CURRRHPLPTR ,          # 9 # 
                 NEXTRHPLPTR ,
                 CURRPHRGPTR ,          # 10 #
                 NEXTPHRGPTR ,
                 CURRPHLNPTR ,          # 11 #
                 NEXTPHLNPTR ,
                 CURRPHPLPTR ,          # 12 #
                 NEXTPHPLPTR ,
                 CURRPFRGPTR ,          # 13 #
                 NEXTPFRGPTR ,
                 CURRPFLNPTR ,          # 14 #
                 NEXTPFLNPTR ,
                 CURRPFPLPTR ,          # 15 #
                 NEXTPFPLPTR ,
                 CURRRFRGPTR ,          # 16 #
                 NEXTRFRGPTR ,
                 CURRRFLNPTR ,          # 17 #
                 NEXTRFLNPTR ,
                 CURRRFPLPTR ,          # 18 #
                 NEXTRFPLPTR ,
                 CURRDEPLPTR ,          # 19 #
                 NEXTDEPLPTR ,
                 CURRDELNPTR ,          # 20 #
                 NEXTDELNPTR ,
                 CURRDERGPTR ,          # 21 #
                 NEXTDERGPTR ,
                 CURRGRINDPTR,          # 22 #
                 NEXTGRINDPTR,
                 CURRCHPLPTR ,          # 23 #
                 NEXTCHPLPTR ,
                 CURRCHLNPTR ,          # 24 #
                 NEXTCHLNPTR ,
                 CURRCHRGPTR ,          # 25 #
                 NEXTCHRGPTR ,
                 CURRCFPLPTR ,          # 26 #
                 NEXTCFPLPTR ,
                 CURRCFLNPTR ,          # 27 #
                 NEXTCFLNPTR ,
                 CURRCFRGPTR ,          # 28 #
                 NEXTCFRGPTR ,
                 CURRCROSFPTR,          # 29 #
                 NEXTCROSFPTR,
                 CURRSUMCNPTR,          # 30 #
                 NEXTSUMCNPTR,
                 CURRROLLFPTR,          # 31 #
                 NEXTROLLFPTR,
                 CURRARSETPTR,          # 32 #
                 NEXTARSETPTR,
                 CURRBRSETPTR,          # 33 #
                 NEXTBRSETPTR,
                 CURRSUBTOPTR,          # 34 #
                 NEXTSUBTOPTR,
                 CURRPRGRDPTR,          # 35 #
                 NEXTPRGRDPTR,
                 CURRUPNPTR  ,          # 36 #
                 NEXTUPNPTR  ;
  
  
          # REDEFINE THE POINTERS WITH A BASED ARRAY SO THAT GETNEXT   #
          # CAN ACCESS THE POINTERS FOR A TABLE VIA THE TABLE NUMBER.  #
  
          BASED ARRAY RPWPTRS [0:36] S(2);
                 BEGIN ITEM 
                 CURRPTR     U(0,0,60), 
                 NEXTPTR     U(1,0,60); 
                 END
  
  # THE FOLLOWING ARE FOR DEBUG ONLY #
  
          ITEM   DEBUG$$      B;
          ARRAY  [0:10]       S(1); 
                 ITEM          DEBUG$WORD    C(0,0,10); 
          ITEM   DEBUG$F1     I;
          ITEM   DEBUG$F2     I;
          ITEM   DEBUG$F3     I;
  
  
          END   #RPWCOMMON# 
  
  
          # THE FOLLOWING ARE VALUES OF THE TYPE FIELD OF THE RPAUX    #
          # TABLE. THIS FIELD IS SET BY RP$SUBS AND IS USED ONLY       #
          # BY THE RPAUX DUMP ROUTINE.                                 #
  
  
          DEF    CODETYPE    # 0#;
          DEF    PAGETYPE    # 1#;
          DEF    CONTROLTYPE # 2#;
          DEF    LEV01       # 3#;
          DEF    NEXTGR      # 4#;
          DEF    FORM34      # 5#;
          DEF    SOURCETYPE  # 6#;
          DEF    SUBINDXTYPE # 7#;
          DEF    VALUETYPE   # 8#;
          DEF    SUMIDTYPE   # 9#;
          DEF    UPONDETTYPE #10#;
          DEF    RESETTYPE   #11#;
  
  
          # OTHER DEFS FOR VALUES IN THE RPAUX TABLE.                  #
  
          DEF    RH          #1#; 
          DEF    PH          #2#; 
          DEF    CH          #3#; 
          DEF    DE          #4#; 
          DEF    CF          #5#; 
          DEF    PF          #6#; 
          DEF    RF          #7#; 
          DEF    SUBTOTALLING #1#;
          DEF    CROSSFOOTING #2#;
          DEF    ROLLFORWARD  #3#;
          DEF    ABSOLUTE     #1#;
          DEF    RELATEVE     #2#;  #RELATIVE CONFLICTS WITH FNATVALS#
          DEF    NEXTPAGE     #3#;
  
          DEF    AR           #1#;
          DEF    R            #2#;
          DEF    NPR          #3#;
          DEF    NULL$LN      #4#;
          DEF    A            #1#;
          DEF    NP           #3#;
          DEF    NULLNG       #4#;
          DEF    ENDPRINTLINE #1#;
          DEF    ENDREPORTGRP #2#;
          DEF    NEXTPAGEABSL #3#;
  
  
          # DIAGNOSTIC LEVELS # 
  
          DEF    DEFINITION  #1#; 
          DEF    PROPAGATED  #3#; 
          DEF    ADVISORY    #4#; 
          DEF    TRIVIAL     #5#; 
  
  
  
           CONTROL EJECT; 
          #REPORT TABLES DEFINITIONS.   # 
  #                                                                    #
  #RPAUXTABLE           (1 WORD, - REDEFINED FOR EACH TYPE OF ENTRY)   #
  #      REPORT PARSER AUX TABLE ENTRIES                               #
  #                                                                    #
          DEF    RPAUXENTRY   #00000060#; 
  #RD-CODE-ENTRY                                                       #
          DEF    CODECLAUSPLT #00000015#; 
          DEF    CODEALLSWTCH #00001501#; 
          DEF    HEADINGPLT   #00001615#; 
          DEF    F1STDTAILPLT #00003115#; 
          DEF    REPTAUXTYPE  #00005604#; 
  #RD-PAGE-ENTRY                                                       #
          DEF    PAGELIMITBIT #00000001#; 
          DEF    HEADINGBIT   #00000101#; 
          DEF    FIRDETAILBIT #00000201#; 
          DEF    LASTDTAILBIT #00000301#; 
          DEF    FOOTINGBIT   #00000401#; 
          DEF    LASTDTAILPLT #00000515#; 
          DEF    FOOTINGPLT   #00002015#; 
          DEF    PAGELIMITPLT #00003515#; 
  #RD-CONTROL-ENTRY                                                    #
          DEF    NUMCONTRLIDS #00000015#; 
          DEF    RDLINENUM    #00001515#; 
          DEF    RDCOLUMNUM   #00003008#; 
          DEF    CONTIDNATPTR #00003815#; 
          DEF    CONTROLOCURD #00005301#; 
  #LEVEL-01-ENTRY                                                      #
          DEF    RALINENUMPLT #00000015#; 
          DEF    RACONTRLDNAT #00001515#; 
          DEF    RAKINDLINENO #00003008#; 
          DEF    RATYPERGROUP #00003808#; 
          DEF    RACI$FINAL   #00004601#; 
          DEF    RANGSPECFIED #00004701#; 
          DEF    RA1USAGEBIT  #00004901#; 
  #RA-NEXT-GROUP-ENTRY                                                 #
          DEF    RATYPENXTGRP #00000008#; 
          DEF    RANGINTPLT   #00000815#; 
  #FORMAT-3-4-ENTRY                                                    #
          DEF    RA1LINENOPLT #00000015#; 
          DEF    RACOLNUMPLT  #00001515#; 
          DEF    RA1KINDLINNO #00003008#; 
          DEF    RABLANKBIT   #00003801#; 
          DEF    RAGROUPBIT   #00003901#; 
          DEF    RAJUSTFIDBIT #00004001#; 
          DEF    RAPICBIT     #00004101#; 
          DEF    RASOURCEBIT  #00004201#; 
          DEF    RASUMBIT     #00004301#; 
          DEF    RAVALUEBIT   #00004401#; 
          DEF    RASUMCNTRBIT #00004501#; 
          DEF    RAELEMITEMBT #00004601#; 
          DEF    RAPRINTABLEB #00004701#; 
          DEF    RAFORMAT4BIT #00004801#; 
          DEF    RAUSAGEBIT   #00004901#; 
  #RA-SOURCE-ENTRY                                                     #
          DEF    RASRCEIDNAT  #00000015#; 
          DEF    RASRCESIBIT  #00001501#; 
  #RA-SUBINDX-ENTRY                                                    #
          DEF    RASICTEXT    #00000030#; 
          DEF    RALASTSINTRY #00003001#; 
  #RA-VALUE-ENTRY                                                      #
          DEF    RAVALULITPLT #00000015#; 
          DEF    RAVALUALLIND #00001501#; 
  #RA-SUM-IDENT                                                        #
          DEF    RASUMIDTYPE  #00000001#; 
          DEF    RASLASTAUXEN #00000301#; 
          DEF    RATISUMCNTRB #00000401#; 
          DEF    RASUMSIERROR #00000501#; 
          DEF    RASUMID1TYPE #00000602#; 
          DEF    RAPLDNAT4SUM #00000815#; 
          DEF    RASUMID1DNAT #00002315#; 
          DEF    RASUMSITBLPT #00003818#; 
  #RA-UPON-DETAIL                                                      #
          DEF    RAUPONTYPBIT #00000101#; 
          DEF    RAULASTAUX   #00000301#; 
          DEF    RADUMMYUPON  #00000401#; 
          DEF    RAUPNDETAIL1 #00000515#; 
          DEF    RAUPNDETAIL2 #00002015#; 
          DEF    RAUPNDETAIL3 #00003515#; 
  #RA-RESET-PHRASE                                                     #
          DEF    RARESETYPE   #00000201#; 
          DEF    RARLASTAUX   #00000301#; 
          DEF    RARESETFINAL #00000401#; 
          DEF    RARESETIDILL #00000501#; 
          DEF    RARESETDNAT  #00000615#; 
  #                                                                    #
  #RDCDI           (2 WORDS)                                           #
  #      RD CONTROL DATA ITEM TABLE                                    #
  #      (NEXTRDCDIPTR)                                                #
  #                                                                    #
          DEF    CDIREPORTGRP #01000015#; 
          DEF    CDI$RG$TYPE  #01001508#; 
          DEF    CDIBEGINCIDT #01002318#; 
          DEF    CDIENDCIDT   #01004118#; 
          DEF    CDILINK      #01010018#; 
  #                                                                    #
  #CIDT            (2 WORDS)                                           #
  #      CONTROL IDENTIFIER TABLE                                      #
  #      (NEXTCIDTPTR)                                                 #
  #                                                                    #
          DEF    CIDTCONTRLID #02000015#; 
          DEF    CIDTPREVALUE #02001515#; 
          DEF    CIDTCHOCURD  #02003001#; 
          DEF    CIDTCFOCURD  #02003101#; 
          DEF    CIDT$MSEC    #02003208#; 
          DEF    CIDTLOWBOUND #02004015#; 
          DEF    CIDTUPRBOUND #02010015#; 
          DEF    CIDTLINK     #02011518#; 
  #                                                                    #
  #IPCT         (4WORDS)                                               #
  #      IF PAGE CLAUSE TABLE                                          #
  #      (NEXTIPCTPTR)                                                 #
  #                                                                    #
          DEF    SNGIDNAT     #03000015#; 
          DEF    TRIALSUMDNAT #03001515#; 
          DEF    RW2ERROR$PLT #03003015#; 
          DEF    RW3ERROR$PLT #03004515#; 
          DEF    BABSOLUTPNAT #03010015#; 
          DEF    BRELATIVPNAT #03011515#; 
          DEF    B$NP$ABSPNAT #03013015#; 
          DEF    BP$A1$PNAT   #03014515#; 
          DEF    BP$A2$PNAT   #03020015#; 
          DEF    C$P$PNAT     #03021515#; 
          DEF    ABSOLUT$PNAT #03023015#; 
          DEF    RELATIV$PNAT #03024515#; 
          DEF    SPACETO$FOOT #03030015#; 
          DEF    NP$ABS$PNAT  #03031515#; 
          DEF    IPCTLINK     #03033018#; 
  #                                                                    #
  #IRT         (15 WORDS)                                              #
  #      INFO REPORT TABLE                                             #
  #      (NEXTIRTPTR)                                                  #
  #                                                                    #
          DEF    IRTPCINDEX   #04000015#; 
          DEF    IRTLCINDEX   #04001515#; 
          DEF    INITIATEFLAG #04003015#; 
          DEF    FIRSTGENERAT #04004515#; 
          DEF    GENERATEFLAG #04010015#; 
          DEF    RH$ON$PAGE   #04011515#; 
          DEF    PH$PRESENTED #04013015#; 
          DEF    SLN          #04014515#; 
          DEF    RECORD$NAME1 #04020015#; 
          DEF    SPACING$AREA #04021515#; 
          DEF    CC$REC$AREA  #04023015#; 
          DEF    PL$REC$NAME  #04024515#; 
          DEF    SPACE$1      #04030015#; 
          DEF    RGTEMPORARY  #04031515#; 
          DEF    POTP$SWITCH  #04033015#; 
          DEF    SUMREPSWITCH #04034515#; 
          DEF    INITIATE     #04040015#; 
          DEF    INITIATEXIT  #04041515#; 
          DEF    TERMINATE    #04043015#; 
          DEF    TERMINATEXIT #04044515#; 
          DEF    SPACING      #04050015#; 
          DEF    BODYNEXTGRUP #04051515#; 
          DEF    BNG$EXIT     #04053015#; 
          DEF    BODYPAGING   #04054515#; 
          DEF    BP$EXIT      #04060015#; 
          DEF    PAGEADVANCE  #04061515#; 
          DEF    IRTINTZERO   #04063015#; 
          DEF    IRTINTONE    #04064515#; 
          DEF    IRTINTNEGONE #04070015#; 
          DEF    INITERRORPLT #04071515#; 
          DEF    TERMERRORPLT #04073015#; 
          DEF    SPACERRORPLT #04074515#; 
          DEF    DETAILERRPLT #04080015#; 
          DEF    OSINCIDENCE  #04081515#; 
          DEF    BP$TABLE     #04083015#; 
          DEF    TYPE$LINENUM #04084515#; 
          DEF    FIRSTLINENUM #04090015#; 
          DEF    LOWER$LIMIT  #04091515#; 
          DEF    LENGTH$RG    #04093015#; 
          DEF    NG$TABLE     #04094515#; 
          DEF    TYPENEXTGRUP #04100015#; 
          DEF    NEXTGROUPINT #04101515#; 
          DEF    IRTPAGELIMIT #04103015#; 
          DEF    IRTFIRSTDETL #04104515#; 
          DEF    HEADING      #04110015#; 
          DEF    FOOTING      #04111515#; 
          DEF    BASE$REPORTG #04113018#; 
          DEF    BASE$CNTROLS #04120018#; 
          DEF    BASE$GRPIND  #04121818#; 
          DEF    BASE$SUBTOTL #04123618#; 
          DEF    BASE$SUMCNTR #04130018#; 
          DEF    QUESTIONTERM #04131801#; 
          DEF    SUMRY$NODETQ #04131901#; 
          DEF    QUEST$PAGECL #04132001#; 
          DEF    BASE$IPCT    #04132118#; 
          DEF    CODE$CL$LITS #04133915#; 
          DEF    CODCLRECAREA #04140015#; 
  
          #NOADVANCE SHOULD REALLY BE BETWEEN SPACE$1 AND RGTEMPORARY  #
          DEF    NOADVANCE    #04141515#; 
  
          DEF    IRTLINK      #04143018#; 
  #                                                                    #
  #CONTROLSTABL                                                        #
  #      CONTROLS TABLE  (4 WORDS)                                     #
  #      (NEXTCNTRLPTR)                                                #
  #                                                                    #
          DEF    CTDATA       #05000060#; 
          DEF    CTDATA1      #05010060#; 
          DEF    CTDATA2      #05020060#; 
          DEF    CTDATA3      #05030001#; 
          DEF    CONTROLSLINK #05030118#; 
  #CONTROLS ENTRY 1                                                    #
          DEF    CID$DNAT     #05000015#; 
          DEF    CID$PREVALUE #05001515#; 
          DEF    CF$BIT       #05003001#; 
          DEF    CH$BIT       #05003101#; 
          DEF    NULLIFNONG   #05010915#; 
          DEF    CF$PNAT      #05012415#; 
          DEF    CF$CF2$PNAT  #05013915#; 
          DEF    CF$EXIT$PNAT #05020015#; 
          DEF    CH$PNAT      #05021515#; 
          DEF    CH$EXIT$PNAT #05023015#; 
          DEF    CTROLSLINK1  #05030118#; 
  #CONTROLS ENTRY 2                                                    #
          DEF    C2ID$DNAT    #05000015#; 
          DEF    C2IDPREVALU  #05001515#; 
          DEF    BIT6F1       #05010501#; 
          DEF    RELNGINT$PLT #05010915#; 
  #CONTROLS ENTRY 3                                                    #
          DEF    BIT6F0       #05010501#; 
          DEF    NGCFTABLDNAT #05010915#; 
          DEF    CT$NG$INT    #05024515#; 
          DEF    CT$TYPENG    #05030001#; 
  #CT ENTRY DUMMY RESET                                                #
          DEF    DEBUGDUMPBIT #05010401#; 
          DEF    RESETB$DUMCF #05010618#; 
          DEF    PNAT1$DUMCF  #05012415#; 
          DEF    GEN$DUMCFBIT #05013915#; 
          DEF    PNATL$DUMCF  #05020015#; 
  #CONTROLS ENTRY DELIMITER                                            #
          DEF    EOCDELIMITER #05010001#; 
  #                                                                    #
  #REPORTGROUPS             (2 WORDS)                                  #
  #     REPORT-GROUPS-TABLE                                            #
  #     (NEXTRPTGRPTR)                                                 #
  #                                                                    #
          DEF    RGEOTDELIM   #06000001#; 
          DEF    RGTYPEOFRG   #06000108#; 
          DEF    RGBASERGTABL #06000918#; 
          DEF    RGPARANAME1  #06002715#; 
          DEF    RGPARANAME2  #06004215#; 
          DEF    RGPARANAME3  #06010015#; 
          DEF    RGTLINK      #06011518#; 
  #                                                                    #
  #RHRGTABLE           (2 WORDS)                                       #
  #     REPORT HEADING REPORT GROUP TABLE                              #
  #     (NEXTRHRGPTR)                                                  #
  #                                                                    #
          DEF    RHRG$NAME    #07000015#; 
          DEF    RHTYPEOFRG   #07001508#; 
          DEF    RHLN$BASE    #07002318#; 
          DEF    RHPL$BASE    #07004118#; 
          DEF    RHNGFRASEIND #07010008#; 
          DEF    NGINTPLTRH   #07010815#; 
          DEF    RHRGLINK     #07012318#; 
  #                                                                    #
  #RHLNTABLE      (1 WORD)                                             #
  #     REPORT HEADING LINE NUMBER TABLE                               #
  #     (NEXTRHLNPTR)                                                  #
  #                                                                    #
          DEF    ABSOLUT$LNRH #08000015#; 
          DEF    RHLNLINK     #08001518#; 
  #                                                                    #
  #RHPLTABLE           (1 WORD)                                        #
  #     REPORT HEADING PRINT LINE TABLE                                #
  #     (NEXTRPLPTR)                                                   #
  #                                                                    #
          DEF    PL$RH$DELIM  #09000008#; 
          DEF    ITEMTYPERH   #09000801#; 
          DEF    SISOURCE$RH  #09000901#; 
          DEF    ALLVALUE$RH  #09001001#; 
          DEF    PI$SOURCERH  #09001115#; 
          DEF    PL$DNATRH    #09002615#; 
          DEF    RHPLLINK     #09004118#; 
  #                                                                    #
  #PHRGTABLE           (2 WORDS)                                       #
  #     PAGE HEADING REPORT GROUP TABLE                                #
  #     (NEXTPHRGTABLE)                                                #
  #                                                                    #
          DEF    RG$NAMEPH    #10000015#; 
          DEF    TYPEOFRGPH   #10001508#; 
          DEF    PHLN$BASE    #10002318#; 
          DEF    PHPL$BASE    #10004118#; 
          DEF    PLT$ERRORMES #10010015#; 
          DEF    RHPH$OVERLAP #10011501#; 
          DEF    RHPHOVERLIMT #10011601#; 
          DEF    PHRGLINK     #10011718#; 
  #                                                                    #
  #PHLNTABLE       (1 WORD)                                            #
  #     PAGE HEADING LINE NUMBER TABLE                                 #
  #     (NEXTPHLNPTR)                                                  #
  #                                                                    #
          DEF    KIND$LNINTPH #11000008#; 
          DEF    LNINT$PLTPH  #11000815#; 
          DEF    PHLNLINK     #11002318#; 
  #                                                                    #
  #PHPLTABLE       (1 WORD)                                            #
  #     PAGE HEADING PRINT LINE TABLE    59/0                          #
  #     (NEXTPHPLPTR)                                                  #
  #                                                                    #
          DEF    PL$PH$DELIM  #12000008#; 
          DEF    ITEMTYPEPH   #12000801#; 
          DEF    SISOURCE$PH  #12000901#; 
          DEF    ALLVALUE$PH  #12001001#; 
          DEF    PI$SOURCEPH  #12001115#; 
          DEF    PL$DNATPH    #12002615#; 
          DEF    PHPLLINK     #12004118#; 
  #                                                                    #
  #PERGTABLE        (2 WORDS)                                          #
  #     PAGE FOOTING REPORT GROUP TABLE                                #
  #     (NEXTPFRGPTR)                                                  #
  #                                                                    #
          DEF    RG$NAMEPF    #13000015#; 
          DEF    TYPEOFRGPF   #13001508#; 
          DEF    PFLN$BASE    #13002318#; 
          DEF    PFPL$BASE    #13004118#; 
          DEF    PFNXTGRUPIND #13010008#; 
          DEF    PFNGINTPLTPT #13010815#; 
          DEF    PFRGLINK     #13012318#; 
  #                                                                    #
  #PFLNTABLE       (1 WORD)                                            #
  #     PAGE FOOTING LINE NUMBER TABLE                                 #
  #     (NEXTPFLNPTR)                                                  #
  #                                                                    #
          DEF    ABSOLUT$LNPF #14000015#; 
          DEF    PFLNLINK     #14001518#; 
  #                                                                    #
  #PFPLTABLE                                                           #
  #     PAGE FOOTING PRINT LINE TABLE                                  #
  #     (NEXTPFPLPTR)                                                  #
  #                                                                    #
          DEF    PL$PF$DELIM  #15000008#; 
          DEF    ITEMTYPEPF   #15000801#; 
          DEF    SISOURCE$PF  #15000901#; 
          DEF    ALLVALUE$PF  #15001001#; 
          DEF    PI$SOURCEPF  #15001115#; 
          DEF    PL$DNATPF    #15002615#; 
          DEF    PFPLLINK     #15004118#; 
  #                                                                    #
  #RFRGTABLE         (2 WORDS)                                         #
  #     REPORT FOOTING REPORT GROUP TABLE                              #
  #     (NEXTRFRGPTR)                                                  #
  #                                                                    #
          DEF    RG$NAMERF    #16000015#; 
          DEF    TYPEOFRGRF   #16001508#; 
          DEF    RFLN$BASE    #16002318#; 
          DEF    RFPL$BASE    #16004118#; 
          DEF    RF$ERRORMES  #16010015#; 
          DEF    RFPF$OVERLAP #16011501#; 
          DEF    PFRFOVERLIMT #16011601#; 
          DEF    RFRGLINK     #16011718#; 
  #                                                                    #
  #RFLNTABLE          (1 WORD)                                         #
  #     REPORT FOOTING LINE NUMBER TABLE                               #
  #     (NEXTRFLNPTR)                                                  #
  #                                                                    #
          DEF    KIND$LNINTRF #17000008#; 
          DEF    LNINT$PLTRF  #17000815#; 
          DEF    RFLNLINK     #17002318#; 
  #                                                                    #
  #RFPLTABLE       (1 WORD)                                            #
  #     REPORT FOOTING PRINT LINE TABLE                                #
  #     (NEXTRFPLPTR)                                                  #
  #                                                                    #
          DEF    PL$RF$DELIM  #18000008#; 
          DEF    ITEMTYPERF   #18000801#; 
          DEF    SISOURCE$RF  #18000901#; 
          DEF    ALLVALUE$RF  #18001001#; 
          DEF    PI$SOURCERF  #18001115#; 
          DEF    PL$DNATRF    #18002615#; 
          DEF    RFPLLINK     #18004118#; 
  #                                                                    #
  #DEPLTABLE          (1 WORD)                                         #
  #     DETAIL PRINT LINE TABLE                                        #
  #     (NEXTDEPLPTR)                                                  #
  #                                                                    #
          DEF    PL$DE$DELIM  #19000008#; 
          DEF    GROUPINDITEM #19000801#; 
          DEF    ITEMTYPEDE   #19000901#; 
          DEF    SISOURCE$DE  #19001001#; 
          DEF    ALLVALUE$DE  #19001101#; 
          DEF    PI$SOURCEDE  #19001215#; 
          DEF    PL$DNATDE    #19002715#; 
          DEF    DEPLLINK     #19004218#; 
  #                                                                    #
  #DELNTABLE          (1 WORD)                                         #
  #     DETAIL LINE NUMBER TABLE                                       #
  #     (NEXTDELNPTR)                                                  #
  #                                                                    #
          DEF    KIND$LNINTDE #20000008#; 
          DEF    LNINT$PLTDE  #20000815#; 
          DEF    DELNLINK     #20002318#; 
  #                                                                    #
  #DERGTABLE           (2 WORDS)                                       #
  #     DETAIL REPORT GROUP TABLE                                      #
  #     (NEXTDERGPTR)                                                  #
  #                                                                    #
          DEF    RG$NAMEDE    #21000015#; 
          DEF    TYPEOFRGDE   #21001508#; 
          DEF    DELN$BASE    #21002318#; 
          DEF    DEPL$BASE    #21004118#; 
          DEF    COND4DDE     #21005901#; 
          DEF    BPTBL$DNATDE #21010015#; 
          DEF    COND6FDE     #21011501#; 
          DEF    NG$INFODE    #21011615#; 
          DEF    DERGLINK     #21013118#; 
  #                                                                    #
  #GRINDTABLE          (1 WORD)                                        #
  #     GROUP INDICATED TABLE                                          #
  #     (NEXTGRINDPTR)                                                 #
  #                                                                    #
          DEF    GITEOT$DELIM #22000001#; 
          DEF    DEGROUPDNAT  #22000115#; 
          DEF    GIFLAG$DNAT  #22001615#; 
          DEF    GRINDLINK    #22003118#; 
  #                                                                    #
  #CHPLTABLE          (1 WORD)                                         #
  #     CONTROL HEADING PRINT LINE TABLE                               #
  #     (NEXTCHPLPTR)                                                  #
  #                                                                    #
          DEF    PL$CH$DELIM  #23000008#; 
          DEF    ITEMTYPECH   #23000801#; 
          DEF    SISOURCE$CH  #23000901#; 
          DEF    ALLVALUE$CH  #23001001#; 
          DEF    PI$SOURCECH  #23001115#; 
          DEF    PL$DNATCH    #23002615#; 
          DEF    CHPLLINK     #23004118#; 
  #                                                                    #
  #CHLNTABLE          (1 WORD)                                         #
  #     CONTROL HEADING LINE NUMBER TABLE                              #
  #     (NEXTCHLNPTR)                                                  #
  #                                                                    #
          DEF    KIND$LNINTCH #24000008#; 
          DEF    LNINT$PLTCH  #24000815#; 
          DEF    CHLNLINK     #24002318#; 
  #                                                                    #
  #CHRGTABLE              (2 WORDS)                                    #
  #     CONTROL HEADING REPORT GROUP TABLE                             #
  #     (NEXTCHRGPTR)                                                  #
  #                                                                    #
          DEF    RG$NAMECH    #25000015#; 
          DEF    TYPEOFRGCH   #25001508#; 
          DEF    CHLN$BASE    #25002318#; 
          DEF    CHPL$BASE    #25004118#; 
          DEF    COND4DCH     #25010001#; 
          DEF    BPTBL$DNATCH #25010115#; 
          DEF    COND6FCH     #25011601#; 
          DEF    NG$INFOCH    #25011715#; 
          DEF    CHRGLINK     #25013218#; 
  #                                                                    #
  #CFPLTABLE         (1 WORD)                                          #
  #     CONTROL FOOTING PRINT LINE TABLE                               #
  #     (NEXTCFPLPTR)                                                  #
  #                                                                    #
          DEF    PL$CF$DELIM  #26000008#; 
          DEF    ITEMTYPECF   #26000802#; 
          DEF    SISOURCE$CF  #26001001#; 
          DEF    ALLVALUE$CF  #26001101#; 
          DEF    PI$SOURCECF  #26001215#; 
          DEF    PL$DNATCF    #26002715#; 
          DEF    CFPLLINK     #26004218#; 
  #                                                                    #
  #CFLNTABLE           (1 WORD)                                        #
  #     CONTROL FOOTING LINE NUMBER TABLE                              #
  #     (NEXTCFLNPTR)                                                  #
  #                                                                    #
          DEF    KIND$LNINTCF #27000008#; 
          DEF    LNINT$PLTCF  #27000815#; 
          DEF    CFLNLINK     #27002318#; 
  #                                                                    #
  #CFRGTABLE         (3 WORDS)                                         #
  #      CONTROL FOOTING REPORT GROUP TABLE                            #
  #      (NEXTCFRGPTR)                                                 #
  #                                                                    #
          DEF    RG$NAMECF    #28000015#; 
          DEF    TYPEOFRGCF   #28001508#; 
          DEF    CFLN$BASE    #28002318#; 
          DEF    CFPL$BASE    #28004118#; 
          DEF    COND4DCF     #28010001#; 
          DEF    BPTBL$DNATCF #28010115#; 
          DEF    CROSFOOTBASE #28011618#; 
          DEF    ROLLFRWDBASE #28013418#; 
          DEF    RESETABASE   #28020018#; 
          DEF    RESETBBASE   #28021818#; 
          DEF    CFRGLINK     #28023618#; 
  #                                                                    #
  #CROSFOOTTABL        (1 WORD)                                        #
  #      CF-N CROSSFOOTING TABLE                                       #
  #      (NEXTCROSFPTR)                                                #
  #                                                                    #
          DEF    CROSFOOT012  #29000008#; 
          DEF    CROSFOOTSUMC #29000815#; 
          DEF    CROSFOOTLINK #29002318#; 
  #                                                                    #
  #SUMCNTRTABLE  (1 WORD)                                              #
  #      SUM COUNTER TABLE                                             #
  #      (NEXTSUMCNPTR)                                                #
  #                                                                    #
          DEF    SUMCNTRDELIM #30000001#; 
          DEF    SUMCNTR$DNAT #30000115#; 
          DEF    SUMCNTRLINK  #30001618#; 
  #                                                                    #
  #ROLLFRWDTABL    (1 WORD)                                            #
  #      CF-N ROLLING FORWARD TABLE                                    #
  #      (NEXTROLLFPTR)                                                #
  #                                                                    #
          DEF    ROLFRWDDELIM #31000008#; 
          DEF    ROLFRWDSUMCR #31000815#; 
          DEF    ROLFRWDLINK  #31002318#; 
  #                                                                    #
  #ARESETTABLE      (1 WORD)                                           #
  #      CF-N RESET A TABLE                                            #
  #      (NEXTARSETPTR)                                                #
  #                                                                    #
          DEF    ARESET$DELIM #32000001#; 
          DEF    ARESET$SUMCR #32000115#; 
          DEF    ARESETLINK   #32001618#; 
  #                                                                    #
  #RESETBTABLE     (1 WORD)                                            #
  #      CF-N RESET B TABLE                                            #
  #      (NEXTBRSETPTR)                                                #
  #                                                                    #
          DEF    RESETB$DELIM #33000001#; 
          DEF    RESETB$SUMCR #33000115#; 
          DEF    RESETBLINK   #33001618#; 
  #                                                                    #
  #SUBTOTALLING        (2 WORDS)                                       #
  #     SUBTOTALLING TABLE                                             #
  #     (NEXTSUBTOPTR)                                                 #
  #                                                                    #
          DEF    SUBT$DETAIL  #34000015#; 
          DEF    SUBT$SUMCNTR #34001515#; 
          DEF    SUBT$SCIDENT #34003015#; 
          DEF    SUBT$SITABLE #34010018#; 
          DEF    SUBT$LINK    #34011818#; 
  #SUBTOTALLING-DEL-ENTRY-                                             #
          DEF    SUBT$DELIM   #34000015#; 
          DEF    SUBTLINK     #34011818#; 
  #                                                                    #
  #INITSUBTABLE       (2 WORDS)                                        #
  #     INITIAL SUBTOTALLING TABLE                                     #
  #     (NEXTSUBTOPTR)                                                 #
  #                                                                    #
          DEF    SUBTSORTFELD #34000030#; 
          DEF    SUBTXDETAIL  #34000015#; 
          DEF    SUBTXSUMCNTR #34001515#; 
          DEF    SUBTXSCIDENT #34003015#; 
          DEF    SUBTXSITABLE #34010018#; 
          DEF    ISUBTLINK    #34011818#; 
  #                                                                    #
  #PROGRDTABLE     (1 WORD)                                            #
  #     PROGRAM RD TABLE                                               #
  #     (NEXTPRGRDPTR)                                                 #
  #                                                                    #
          DEF    PROGRDREPORT #35000015#; 
          DEF    PROGRDIRTBAS #35001518#; 
          DEF    PROGRDLINK   #35003318#; 
  #DEF  PROG-RD-ENTRY                                                  #
          DEF    PROGRD$DELIM #35000015#; 
  #                                                                    #
  #UPNTABLE         (1 WORD)                                           #
  #      UPON TABLE                                                    #
  #      (NEXTUPNPTR)                                                  #
  #                                                                    #
          DEF    UPNCONTROLID #36000015#; 
          DEF    UPNPNAT      #36001515#; 
          DEF    UPNDELIMITER #36003008#; 
          DEF    UPNLINK      #36003818#; 
          END 
          TERM
