*DECK RPDUMP
USETEXT CCTTEXT 
USETEXT RPTEXT
     PROC RPDUMP; 
     BEGIN
          $BEGIN
          ITEM     I,J,K,L,M,N; 
          ITEM     TYPE  I; 
          ITEM     RGT   I; 
          ITEM     LNT   I; 
          ITEM     PLT   I; 
          ITEM     LINE        C(60); 
          ITEM CIDTINDEX     I; 
          ITEM RDCDIINDEX   I;
          ITEM RDTABLEINDEX   I;
          ITEM IRTINDEX   I;
          ITEM REPTGPINDEX   I; 
          ITEM CONTROLINDEX   I;
          ITEM GRINDINDEX   I;
          ITEM INITSUBINDEX   I;
          ITEM SUMCINDEX    I;
          ITEM IPCTINDEX    I;
          DEF  WORDCOUNT  #336#;
          ITEM ALLRGINDEX   I;
          ITEM ALLLNINDEX   I;
          ITEM ALLPLINDEX   I;
          ITEM CRFTINDEX     I; 
          ITEM ROLFWDINDEX   I; 
          ITEM RESETAINDEX   I; 
          ITEM RESETBINDEX   I; 
          ITEM HOLDINDEX    I;
          ARRAY TYPES[7]; 
          ITEM  RGTYPE  C(0,0,10) = [ 
             "     ", 
             " RH  ", 
             " PH  ", 
             " CH  ", 
             " DE  ", 
             " CF  ", 
             " PF  ", 
             " RF  "];
          ARRAY INDEXARRAY[44]; 
          ITEM INDICES  I;
          ARRAY REPTNAMES[WORDCOUNT] S(2);
          BEGIN 
          ITEM RNAMES  C(0,0,10) =  [ 
         "* RDCDI * ",
              "CDIREPORTG", 
              "CDI$RG$TYP", 
              "CDIBEGINCI", 
              "CDIENDCIDT", 
              "CDILINK   ", 
         "* CIDT * ", 
              "CIDTCONTRL", 
              "CIDTPREVAL", 
              "CIDTCHOCUR", 
              "CIDTCFOCUR", 
              "CIDT$MSEC ", 
              "CIDTLOWBOU", 
              "CIDTUPRBOU", 
              "CIDTLINK  ", 
         "* IPCT *  ",
              "SNGIDNAT  ", 
              "TRIALSUMDN", 
              "RW2ERROR$P", 
              "RW3ERROR$P", 
              "BABSOLUTPN", 
              "BRELATIVPN", 
              "B$NP$ABSPN", 
              "BP$A1$PNAT", 
              "BP$A2$PNAT", 
              "C$P$PNAT  ", 
              "ABSOLUT$PN", 
              "RELATIV$PN", 
              "SPACETO$FO", 
              "NP$ABS$PNA", 
              "IPCTLINK  ", 
         "* IRT * ",
              "IRTPCINDEX", 
              "IRTLCINDEX", 
              "INITIATEFL", 
              "FIRSTGENER", 
              "GENERATEFL", 
              "RH$ON$PAGE", 
              "PH$PRESENT", 
              "SLN       ", 
              "RECORD$NAM", 
              "SPACING$AR", 
              "CC$REC$ARE", 
              "PL$REC$NAM", 
              "SPACE$1   ", 
              "RGTEMPORAR", 
              "POTP$SWITC", 
              "SUMREPSWIT", 
              "INITIATE  ", 
              "INITIATEXI", 
              "TERMINATE ", 
              "TERMINATEX", 
              "SPACING   ", 
              "BODYNEXTGR", 
              "BNG$EXIT  ", 
              "BODYPAGING", 
              "BP$EXIT   ", 
              "PAGEADVANC", 
              "IRTINTZERO", 
              "IRTINTONE ", 
              "IRTINTNEGO", 
              "INITERRORP", 
              "TERMERRORP", 
              "SPACERRORP", 
              "DETAILERRP", 
              "OSINCIDENC", 
              "BP$TABLE  ", 
              "TYPE$LINEN", 
              "FIRSTLINEN", 
              "LOWER$LIMI", 
              "LENGTH$RG ", 
              "NG$TABLE  ", 
              "TYPENEXTGR", 
              "NEXTGROUPI", 
              "IRTPAGELIM", 
              "IRTFIRSTDE", 
              "HEADING   ", 
              "FOOTING   ", 
              "BASE$REPOR", 
              "BASE$CNTRO", 
              "BASE$GRPIN", 
              "BASE$SUBTO", 
              "BASE$SUMCN", 
              "QUESTIONTE", 
              "SUMRY$NODE", 
              "QUEST$PAGE", 
              "BASE$IPCT ", 
              "CODE$CL$LI", 
              "CODCLRECAR", 
              "NOADVANCE ", 
              "IRTLINK   ", 
         "*CNTRLSTB*",
              "CTDATA    ", 
              "CTDATA1   ", 
              "CTDATA2   ", 
              "CTDATA3   ", 
              "CONTROLSLI", 
         "CONTROLS E",
              "CID$DNAT  ", 
              "CID$PREVAL", 
              "CF$BIT    ", 
              "CH$BIT    ", 
              "NULLIFNONG", 
              "CF$PNAT   ", 
              "CF$CF2$PNA", 
              "CF$EXIT$PN", 
              "CH$PNAT   ", 
              "CH$EXIT$PN", 
              "CTROLSLINK", 
         "CONTROLS E",
              "C2ID$DNAT ", 
              "C2IDPREVAL", 
              "BIT6F1    ", 
              "RELNGINT$P", 
         "CONTROLS E",
              "BIT6F0    ", 
              "NGCFTABLDN", 
              "CT$NG$INT ", 
              "CT$TYPENG ", 
         "* CT ENTR*",
              "DEBUGDUMPB", 
              "RESETB$DUM", 
              "PNAT1$DUMC", 
              "GEN$DUMCFB", 
              "PNATL$DUMC", 
         "CONTROLS E",
              "EOCDELIMIT", 
         "*RPTGROUP*",
              "RGEOTDELIM", 
              "RGTYPEOFRG", 
              "RGBASERGTA", 
              "RGPARANAME", 
              "RGPARANAME", 
              "RGPARANAME", 
              "RGTLINK   ", 
         "RHRGTAB *", 
              "RHRG$NAME ", 
              "RHTYPEOFRG", 
              "RHLN$BASE ", 
              "RHPL$BASE ", 
              "RHNGFRASEI", 
              "NGINTPLTRH", 
              "RHRGLINK  ", 
         "RHLNTAB *", 
              "ASOLUT$LNR", 
              "RHLNLINK  ", 
         "RHPLTAB *", 
              "PL$RH$DELI", 
              "ITEMTYPERH", 
              "SISOURCE$R", 
              "ALLVALUE$R", 
              "PI$SOURCER", 
              "PL$DNATRH ", 
              "RHPLLINK  ", 
         "PHRGTAB *", 
              "RG$NAMEPH ", 
              "TYPEOFRGPH", 
              "PHLN$BASE ", 
              "PHPL$BASE ", 
              "PLT$ERRORM", 
              "RHPH$OVERL", 
              "RHPHOVERLI", 
              "PHRGLINK  ", 
         "PHLNTAB *", 
              "KIND$LNINT", 
              "LNINT$PLTP", 
              "PHLNLINK  ", 
         "PHPLTAB *", 
              "PL$PH$DELI", 
              "ITEMTYPEPH", 
              "SISOURCE$P", 
              "ALLVALUE$P", 
              "PI$SOURCEP", 
              "PL$DNATPH ", 
              "PHPLLINK  ", 
         "PFRGTAB *", 
              "RG$NAMEPF ", 
              "TYPEOFRGPF", 
              "PFLN$BASE ", 
              "PFPL$BASE ", 
              "PFNXTGRUPI", 
              "PFNGINTPLT", 
              "PFRGLINK  ", 
         "PFLNTAB *", 
              "ABSOLUT$LN", 
              "PFLNLINK  ", 
         "PFPLTAB *", 
              "PL$PF$DELI", 
              "ITEMTYPEPF", 
              "SISOURCE$P", 
              "ALLVALUE$P", 
              "PI$SOURCEP", 
              "PL$DNATPF ", 
              "PFPLLINK  ", 
         "RFRGTAB *", 
              "RG$NAMERF ", 
              "TYPEOFRGRF", 
              "RFLN$BASE ", 
              "RFPL$BASE ", 
              "RF$ERRORME", 
              "RFPF$OVERL", 
              "PFRFOVERLI", 
              "RFRGLINK  ", 
         "RFLNTAB *", 
              "KIND$LNINT", 
              "LNINT$PLTR", 
              "RFLNLINK  ", 
         "RFPLTAB *", 
              "PL$RF$DELI", 
              "ITEMTYPERF", 
              "SISOURCE$R", 
              "ALLVALUE$R", 
              "PI$SOURCER", 
              "PL$DNATRF ", 
              "RFPLLINK  ", 
         "DEPLTAB *", 
              "PL$DE$DELI", 
              "GROUPINDIT", 
              "ITEMTYPEDE", 
              "SISOURCE$D", 
              "ALLVALUE$D", 
              "PI$SOURCED", 
              "PL$DNATDE ", 
              "DEPLLINK  ", 
         "DELNTAB *", 
              "KIND$LNINT", 
              "LNINT$PLTD", 
              "DELNLINK  ", 
         "DERGTAB *", 
              "RG$NAMEDE ", 
              "TYPEOFRGDE", 
              "DELN$BASE ", 
              "DEPL$BASE ", 
              "COND4DDE  ", 
              "BPTBL$DNAT", 
              "COND6FDE  ", 
              "NG$INFODE ", 
              "DERGLINK  ", 
         "GRINDTABLE",
              "GITEOT$DEL", 
              "DEGROUPDNA", 
              "GIFLAG$DNA", 
              "GRINDLINK ", 
         "CHPLTAB *", 
              "PL$CH$DELI", 
              "ITEMTYPECH", 
              "SISOURCE$C", 
              "ALLVALUE$C", 
              "PI$SOURCEC", 
              "PL$DNATCH ", 
              "CHPLLINK  ", 
         "CHLNTAB *", 
              "KIND$LNINT", 
              "LNINT$PLTC", 
              "CHLNLINK  ", 
         "CHRGTAB *", 
              "RG$NAMECH ", 
              "TYPEOFRGCH", 
              "CHLN$BASE ", 
              "CHPL$BASE ", 
              "COND4DCH  ", 
              "BPTBL$DNAT", 
              "COND6FCH  ", 
              "NG$INFOCH ", 
              "CHRGLINK  ", 
         "CFPLTAB *", 
              "PL$CF$DELI", 
              "ITEMTYPECF", 
              "SISOURCE$C", 
              "ALLVALUE$C", 
              "PI$SOURCEC", 
              "PL$DNATCF ", 
              "CFPLLINK  ", 
         "CFLNTAB *", 
              "KINDLNINTC", 
              "LNINT$PLTC", 
              "CFLNLINK  ", 
         "CFRGTAB *", 
              "RG$NAMECF ", 
              "TYPEOFRGCF", 
              "CFLN$BASE ", 
              "CFPL$BASE ", 
              "COND4DCF  ", 
              "BPTBL$DNAT", 
              "CROSFOOTBA", 
              "ROLLFRWDBA", 
              "RESETABASE", 
              "RESETBBASE", 
              "CFRGLINK  ", 
         "CROSFOOTTA",
              "CROSFOOT01", 
              "CROSFOOTSU", 
              "CROSFOOTLI", 
         "SUMCNTRTAB",
              "SUMCNTRDEL", 
              "SUMCNTR$DN", 
              "SUMCNTRLIN", 
         "ROLLFRWDTA",
              "ROLFRWDDEL", 
              "ROLFRWDSUM", 
              "ROLFRWDLIN", 
         "ARESETTABL",
              "ARESET$DEL", 
              "ARESET$SUM", 
              "ARESETLINK", 
         "RESETBTABL",
              "RESETB$DEL", 
              "RESETB$SUM", 
              "RESETBLINK", 
         "SUBTOTALLI",
              "SUBT$DETAI", 
              "SUBT$SUMCN", 
              "SUBT$SCIDE", 
              "SUBT$SITAB", 
              "SUBT$LINK ", 
         "SUBTOTALLI",
              "SUBT$DELIM", 
              "SUBTLINK  ", 
         "INITSUBTAB",
              "SUBTSORTFE", 
              "SUBTXDETAI", 
              "SUBTXSUMCN", 
              "SUBTXSCIDE", 
              "SUBTXSITAB", 
              "ISUBTLINK ", 
         "PROGRDTABL",
              "PROGRDREPO", 
              "PROGRDIRTB", 
              "PROGRDLINK", 
         "DEF  PROG-",
              "PROGRD$DEL", 
         "UPNTABLE  ",
              "UPNCONTROL", 
              "UPNPNAT   ", 
              "UPNDELIMIT", 
              "UPNLINK   ", 
               " "];
          ITEM RINDEX  I(1,0,60) = [
          0,
               01000015,
               01001508,
               01002318,
               01004118,
               01010018,
          0,
               02000015,
               02001515,
               02003001,
               02003101,
               02003208,
               02004015,
               02010015,
               02011518,
          0,
               03000015,
               03001515,
               03003015,
               03004515,
               03010015,
               03011515,
               03013015,
               03014515,
               03020015,
               03021515,
               03023015,
               03024515,
               03030015,
               03031515,
               03033018,
          0,
               04000015,
               04001515,
               04003015,
               04004515,
               04010015,
               04011515,
               04013015,
               04014515,
               04020015,
               04021515,
               04023015,
               04024515,
               04030015,
               04031515,
               04033015,
               04034515,
               04040015,
               04041515,
               04043015,
               04044515,
               04050015,
               04051515,
               04053015,
               04054515,
               04060015,
               04061515,
               04063015,
               04064515,
               04070015,
               04071515,
               04073015,
               04074515,
               04080015,
               04081515,
               04083015,
               04084515,
               04090015,
               04091515,
               04093015,
               04094515,
               04100015,
               04101515,
               04103015,
               04104515,
               04110015,
               04111515,
               04113018,
               04120018,
               04121818,
               04123618,
               04130018,
               04131801,
               04131901,
               04132001,
               04132118,
               04133915,
               04140015,
               04141515,
               04143018,
          0,
               05000060,
               05010060,
               05020060,
               05030001,
               05030118,
          0,
               05000015,
               05001515,
               05003001,
               05003101,
               05010915,
               05012415,
               05013915,
               05020015,
               05021515,
               05023015,
               05030118,
          0,
               05000015,
               05001515,
               05010501,
               05010915,
          0,
               05010501,
               05010915,
               05024515,
               05030001,
          0,
               05010401,
               05010618,
               05012415,
               05013915,
               05020015,
          0,
               05010001,
          0,
               06000001,
               06000108,
               06000918,
               06002715,
               06004215,
               06010015,
               06011518,
          0,
               07000015,
               07001508,
               07002318,
               07004118,
               07010008,
               07010815,
               07012318,
          0,
               08000015,
               08001518,
          0,
               09000008,
               09000801,
               09000901,
               09001001,
               09001115,
               09002615,
               09004118,
          0,
               10000015,
               10001508,
               10002318,
               10004118,
               10010015,
               10011501,
               10011601,
               10011718,
          0,
               11000008,
               11000815,
               11002318,
          0,
               12000008,
               12000801,
               12000901,
               12001001,
               12001115,
               12002615,
               12004118,
          0,
               13000015,
               13001508,
               13002318,
               13004118,
               13010008,
               13010815,
               13012318,
          0,
               14000015,
               14001518,
          0,
               15000008,
               15000801,
               15000901,
               15001001,
               15001115,
               15002615,
               15004118,
          0,
               16000015,
               16001508,
               16002318,
               16004118,
               16010015,
               16011501,
               16011601,
               16011718,
          0,
               17000008,
               17000815,
               17002318,
          0,
               18000008,
               18000801,
               18000901,
               18001001,
               18001115,
               18002615,
               18004118,
          0,
               19000008,
               19000801,
               19000901,
               19001001,
               19001101,
               19001215,
               19002715,
               19004218,
          0,
               20000008,
               20000815,
               20002318,
          0,
               21000015,
               21001508,
               21002318,
               21004118,
               21005901,
               21010015,
               21011501,
               21011615,
               21013118,
          0,
               22000001,
               22000115,
               22001615,
               22003118,
          0,
               23000008,
               23000801,
               23000901,
               23001001,
               23001115,
               23002615,
               23004118,
          0,
               24000008,
               24000815,
               24002318,
          0,
               25000015,
               25001508,
               25002318,
               25004118,
               25010001,
               25010115,
               25011601,
               25011715,
               25013218,
          0,
               26000008,
               26000802,
               26001001,
               26001101,
               26001215,
               26002715,
               26004218,
          0,
               27000008,
               27000815,
               27002318,
          0,
               28000015,
               28001508,
               28002318,
               28004118,
               28010001,
               28010115,
               28011618,
               28013418,
               28020018,
               28021818,
               28023618,
          0,
               29000008,
               29000815,
               29002318,
          0,
               30000001,
               30000115,
               30001618,
          0,
               31000008,
               31000815,
               31002318,
          0,
               32000001,
               32000115,
               32001618,
          0,
               33000001,
               33000115,
               33001618,
          0,
               34000015,
               34001515,
               34003015,
               34010018,
               34011818,
          0,
               34000015,
               34011818,
          0,
               34000030,
               34000015,
               34001515,
               34003015,
               34010018,
               34011818,
          0,
               35000015,
               35001518,
               35003318,
          0,
               35000015,
          0,
               36000015,
               36001515,
               36003008,
               36003818,
          0]; 
          END 
   # THESE ARE INDICES INTO THE INDEXARRAY #
          DEF  RDCDI$       # 0#; 
          DEF  CIDT$        # 1#; 
          DEF  IPCT$        # 2#; 
          DEF  IRT$         # 3#; 
          DEF  CNTRLTABLE$  # 4#; 
          DEF  CONTROL1$    # 5#; 
          DEF  CONTROL2$    # 6#; 
          DEF  CONTROL3$    # 7#; 
          DEF  CTDUMMY$     # 8#; 
          DEF  CNTRLDELIM$  # 9#; 
          DEF  REPTGROUP$   #10#; 
          DEF  RHRGTABLE$   #11#; 
          DEF  RHLNTABLE$   #12#; 
          DEF  RHPLTABLE$   #13#; 
          DEF  PHRGTABLE$   #14#; 
          DEF  PHLNTABLE$   #15#; 
          DEF  PHPLTABLE$   #16#; 
          DEF  PFRGTABLE$   #17#; 
          DEF  PFLNTABLE$   #18#; 
          DEF  PFPLTABLE$   #19#; 
          DEF  RFRGTABLE$   #20#; 
          DEF  RFLNTABLE$   #21#; 
          DEF  RFPLTABLE$   #22#; 
          DEF  DEPLTABLE$   #23#; 
          DEF  DELNTABLE$   #24#; 
          DEF  DERGTABLE$   #25#; 
          DEF  GRINDTABLE$  #26#; 
          DEF  CHPLTABLE$   #27#; 
          DEF  CHLNTABLE$   #28#; 
          DEF  CHRGTABLE$   #29#; 
          DEF  CFPLTABLE$   #30#; 
          DEF  CFLNTABLE$   #31#; 
          DEF  CFRGTABLE$   #32#; 
          DEF  CROSSFOOT$   #33#; 
          DEF  SUMCNTER$    #34#; 
          DEF  ROLLFWRD$    #35#; 
          DEF  ARESET$      #36#; 
          DEF  RESETB$      #37#; 
          DEF  SUBTOTALL$   #38#; 
          DEF  INITSUBT$    #40#; 
          DEF  PROGRDTAB$   #41#; 
          DEF  PROGRDDEL$   #42#; 
          DEF  UPONTABLE$   #43#; 
          ARRAY FDDUMPTAB[0:6] S(2);
          BEGIN 
          ITEM  BITIND  I(0,0,30) = [0,15,30,45,57,58,59];
          ITEM  BITLNG  I(0,30,30)= [15,15,15,12,1,1,1];
          ITEM  FDNAME  C(1,0,10) = ["FILENAME =",
                                     "REPTNAME =",
                                     "FNAT PTR =",
                                     "FILEMSEC =",
                                     "CHECKBIT =",
                                     "CODEBIT  =",
                                     "FILE ERR ="]; 
          END 
          XREF
               BEGIN
               PROC     CBLIST; 
               FUNC     RWGET;
               FUNC     DEC     C(10);
               END
*CALL RPCOMM
*CALL TABLNAMES 
*CALL GETSET
*CALL FDRDT1
          CONTROL EJECT;
     PROC DUMPER(INDEX,TABLE);
          BEGIN 
          ITEM INDEX   I; 
          ITEM TABLE   I; 
          C<0,30>LINE = " ";
          I = INDICES[TABLE]; 
          C<3,12>LINE = RNAMES[I];
          C<15,10>LINE = DEC(INDEX);
          CBLIST(2,LINE,25);
          I = I + 1;
          FOR J = I STEP 1 WHILE RINDEX[J] NQ 0 DO
               BEGIN
               C<0,12>LINE = RNAMES[J]; 
               L = RWGET(RINDEX[J],INDEX);
               C<12,10>LINE = DEC(L); 
               CBLIST(1,LINE,22); 
               END
          END    # DUMPER # 
          CONTROL EJECT;
     PROC GRPTABDUMP; 
          BEGIN 
          SWITCH TYPECASE   ,  RHTYPE,  PHTYPE,  CHTYPE,  DETYPE, 
                               CFTYPE,  PFTYPE,  RFTYPE;
          GOTO TYPECASE[TYPE];
     RHTYPE:  
          RGT = RHRGTABLE$; 
          LNT = RHLNTABLE$; 
          PLT = RHPLTABLE$; 
          ALLLNINDEX = RWGET(RHLN$BASE,ALLRGINDEX); 
          ALLPLINDEX = RWGET(RHPL$BASE,ALLRGINDEX); 
          GOTO ENDCASE; 
     PHTYPE:  
          RGT = PHRGTABLE$; 
          LNT = PHLNTABLE$; 
          PLT = PHPLTABLE$; 
          ALLLNINDEX = RWGET(PHLN$BASE,ALLRGINDEX); 
          ALLPLINDEX = RWGET(PHPL$BASE,ALLRGINDEX); 
          GOTO ENDCASE; 
     CHTYPE:  
          RGT = CHRGTABLE$; 
          LNT = CHLNTABLE$; 
          PLT = CHPLTABLE$; 
          ALLLNINDEX = RWGET(CHLN$BASE,ALLRGINDEX); 
          ALLPLINDEX = RWGET(CHPL$BASE,ALLRGINDEX); 
          GOTO ENDCASE; 
     DETYPE:  
          RGT = DERGTABLE$; 
          LNT = DELNTABLE$; 
          PLT = DEPLTABLE$; 
          ALLLNINDEX = RWGET(DELN$BASE,ALLRGINDEX); 
          ALLPLINDEX = RWGET(DEPL$BASE,ALLRGINDEX); 
          GOTO ENDCASE; 
     CFTYPE:  
          RGT = CFRGTABLE$; 
          LNT = CFLNTABLE$; 
          PLT = CFPLTABLE$; 
          ALLLNINDEX = RWGET(CFLN$BASE,ALLRGINDEX); 
          ALLPLINDEX = RWGET(CFPL$BASE,ALLRGINDEX); 
          ROLFWDINDEX = RWGET(ROLLFRWDBASE,ALLRGINDEX); 
          CRFTINDEX = RWGET(CROSFOOTBASE,ALLRGINDEX); 
          RESETAINDEX = RWGET(RESETABASE,ALLRGINDEX); 
          RESETBINDEX = RWGET(RESETBBASE,ALLRGINDEX); 
          GOTO ENDCASE; 
     PFTYPE:  
          RGT = PFRGTABLE$; 
          LNT = PFLNTABLE$; 
          PLT = PFPLTABLE$; 
          ALLLNINDEX = RWGET(PFLN$BASE,ALLRGINDEX); 
          ALLPLINDEX = RWGET(PFPL$BASE,ALLRGINDEX); 
          GOTO ENDCASE; 
     RFTYPE:  
          RGT = RFRGTABLE$; 
          LNT = RFLNTABLE$; 
          PLT = RFPLTABLE$; 
          ALLLNINDEX = RWGET(RFLN$BASE,ALLRGINDEX); 
          ALLPLINDEX = RWGET(RFPL$BASE,ALLRGINDEX); 
     ENDCASE: 
          DUMPER(ALLRGINDEX,RGT); 
     LNTAB: 
          IF ALLLNINDEX EQ 0 THEN 
               GOTO PLTAB;
          DUMPER(ALLLNINDEX,LNT); 
          ALLLNINDEX = L; 
          GOTO LNTAB; 
     PLTAB: 
          IF ALLPLINDEX EQ 0 THEN 
               GOTO CRRFDUMP; 
          DUMPER(ALLPLINDEX,PLT); 
          ALLPLINDEX = L; 
          GOTO PLTAB; 
     CRRFDUMP:  
          IF CRFTINDEX EQ 0 OR
             RWGET(CROSFOOT012,CRFTINDEX) EQ 2 THEN 
             GOTO ROLFTAB;
          DUMPER(CRFTINDEX,CROSSFOOT$); 
          CRFTINDEX = L;
          GOTO CRRFDUMP;
     ROLFTAB: 
          IF ROLFWDINDEX EQ 0 OR
             RWGET(ROLFRWDDELIM,ROLFWDINDEX) EQ 2 THEN
               GOTO RESATAB;
          DUMPER(ROLFWDINDEX,ROLLFWRD$);
          ROLFWDINDEX = L;
          GOTO ROLFTAB; 
     RESATAB: 
          IF RESETAINDEX EQ 0 THEN
               GOTO RESBTAB;
          DUMPER(RESETAINDEX,ARESET$);
          RESETAINDEX = L;
          GOTO RESATAB; 
     RESBTAB: 
          IF RESETBINDEX EQ 0 THEN
               RETURN;
          DUMPER(RESETBINDEX,RESETB$);
          RESETBINDEX = L;
          GOTO RESBTAB; 
          END   #END OF GRPTABDUMP# 
          CONTROL EJECT;
     PROC RESTDUMP; 
          BEGIN 
          IF IPCTINDEX EQ 0 THEN
               GOTO GRINDDUMP;
     IPCDUMP: 
          DUMPER(IPCTINDEX,IPCT$);
          IPCTINDEX = L;
     GRINDDUMP: 
          DUMPER(GRINDINDEX,GRINDTABLE$); 
          IF RWGET(GITEOT$DELIM,GRINDINDEX) EQ 0 THEN 
               GOTO SUBTDUMP; 
          GRINDINDEX = L; 
          GOTO GRINDDUMP; 
     SUBTDUMP:  
          IF INITSUBINDEX EQ 0 OR 
             RWGET(SUBT$DELIM,INITSUBINDEX) EQ 0 THEN 
              GOTO SUMCTRDUMP;
          DUMPER(INITSUBINDEX,SUBTOTALL$);
          INITSUBINDEX = L; 
          GOTO SUBTDUMP;
     SUMCTRDUMP:  
          IF SUMCINDEX EQ 0 THEN
               GOTO CNTRLDUMP;
          DUMPER(SUMCINDEX,SUMCNTER$);
          IF RWGET(SUMCNTRDELIM,SUMCINDEX) EQ 0 THEN
               BEGIN
               SUMCINDEX = L; 
               GOTO SUMCTRDUMP; 
               END
     CNTRLDUMP: 
          IF RWGET(EOCDELIMITER,CONTROLINDEX) EQ 1 THEN 
               GOTO REPTGPDUMP; 
          N = CONTROL1$;
          IF RWGET(DEBUGDUMPBIT,CONTROLINDEX) EQ 1 THEN 
          N = CTDUMMY$; 
          DUMPER(CONTROLINDEX,N); 
          CONTROLINDEX = L; 
          GOTO CNTRLDUMP; 
     REPTGPDUMP:  
          DUMPER(REPTGPINDEX,REPTGROUP$); 
          ALLRGINDEX = RWGET(RGBASERGTABL,REPTGPINDEX); 
          TYPE = RWGET(RGTYPEOFRG,REPTGPINDEX); 
          HOLDINDEX = L;
          GRPTABDUMP; 
          IF RWGET(RGEOTDELIM,REPTGPINDEX) EQ 1 THEN
               RETURN;
          REPTGPINDEX = HOLDINDEX;
          GOTO REPTGPDUMP;
          END  #END OF RESTDUMP#
          CONTROL EJECT;
     PROC IRTDUMP;
          BEGIN 
          DUMPER(IRTINDEX,IRT$);
          REPTGPINDEX = RWGET(BASE$REPORTG,IRTINDEX); 
          CONTROLINDEX = RWGET(BASE$CNTROLS,IRTINDEX);
          GRINDINDEX = RWGET(BASE$GRPIND,IRTINDEX); 
          INITSUBINDEX = RWGET(BASE$SUBTOTL,IRTINDEX);
          SUMCINDEX = RWGET(BASE$SUMCNTR,IRTINDEX); 
          IPCTINDEX = RWGET(BASE$IPCT,IRTINDEX);
          IRTINDEX = L; 
          RESTDUMP; 
          RETURN; 
          END  #END OF IRT TABLE DUMP#
         CONTROL EJECT; 
          BEGIN 
          J = 0;
          FOR I = 0 STEP 1 UNTIL WORDCOUNT DO 
               BEGIN
               IF RINDEX[I] EQ 0 THEN 
                    BEGIN 
                    INDICES[J] = I; 
                    J = J + 1;
                    END 
               END
          C<0,60>LINE = "   FD-RD-TABLE DUMP";
          CBLIST(1,LINE,60);
          C<0,60>LINE = " ";
          FOR N = 1 STEP 1 UNTIL CCTFDRDLEN DO
               BEGIN
               J = GETQUICK(FR$ENTRY,FDRDT$,I); 
               FOR I = 0 STEP 1 UNTIL 6 DO
                    BEGIN 
                    C<5,10>LINE = FDNAME[I];
                    K = BITIND[I];
                    L = BITLNG[I];
                    M = B<K,L>J;
                    C<20,10>LINE = DEC(M);
                    CBLIST(2,LINE,30);
                    END 
                END 
          CIDTINDEX = CCTCIDTADDR;
          RDCDIINDEX = CCTRDCDIADDR;
          RDTABLEINDEX = CCTRWTABADDR;
          CBLIST(1,"*----- REPORT TABLES -----*",27); 
     PRDDUMP: 
          IF RWGET(PROGRD$DELIM,RDTABLEINDEX) EQ 0 THEN 
               GOTO CDIDUMP;
          DUMPER(RDTABLEINDEX,PROGRDTAB$);
          IRTINDEX = RWGET(PROGRDIRTBAS,RDTABLEINDEX);
          RDTABLEINDEX = L; 
          IF RWGET(IRTLINK,IRTINDEX) NQ 0 THEN
               IRTDUMP; 
          GOTO PRDDUMP; 
     CDIDUMP: 
          DUMPER(RDCDIINDEX,RDCDI$);
          RDCDIINDEX = L; 
          IF RWGET(CDILINK,RDCDIINDEX) NQ 0 THEN
               GOTO CDIDUMP;
     CIDTDUMP:  
          DUMPER(CIDTINDEX,CIDT$);
          CIDTINDEX = L;
          IF RWGET(CIDTLINK,CIDTINDEX) NQ 0 THEN
               GOTO CIDTDUMP; 
          END 
          $END
     END  #  END REPORT TABLES DUMP#
          TERM
