*DECK RPADUMP 
USETEXT CCTTEXT 
USETEXT RPTEXT
     PROC RPADUMP;
          BEGIN 
          $BEGIN
          ITEM     I,J,K,L,M,N,RW,CONFIX,LNGTH,POINT1,INDX; 
          ITEM     LINE        C(60); 
          ITEM     CONFIXSTR   C(8) = "NO      "; 
          DEF      WORDCOUNT     #78#;
          ARRAY INDXARRAY [12]; 
          ITEM  NAMEINDX  I;
          ARRAY TYPARRAY [WORDCOUNT]  S(2); 
          BEGIN 
          ITEM TYPENTRY C(0,0,10)  =
        [" * CODE *", 
          "CODECLAUSP", 
          "CODEALLSWT", 
          "HEADINGPLT", 
          "F1STDTAILP", 
        " * PAGE *",
          "PAGELIMITB", 
          "HEADINGB", 
          "FIRDETAILB", 
          "LASTDTAILB", 
          "FOOTINGB", 
          "LASTDTAILP", 
          "FOOTINGPLT", 
          "PAGELIMITP", 
        "*CONTROL*",
          "NUMCONTIDS", 
          "RDLINENUM ", 
          "RDCOLUMNUM", 
          "CONTIDNPTR", 
          "CONTROCURD", 
        "*LEVEL 01*", 
          "RALINENUMP", 
          "CONTRLDN", 
          "KINDLINE", 
          "TYPERGROUP", 
          "CI$FINAL", 
          "NGSPECFIED", 
          "IUSAGEBIT ", 
        "*NXT GRP*",
          "TYPENXTGRP", 
          "NGINTPLT", 
        "*FORM 3 4*", 
          "ILINENOP", 
          "COLNUMPLT ", 
          "IKINDLIN", 
          "BLANKB", 
          "GROUPB", 
          "JUSTFIDB", 
          "PICBIT  ", 
          "SOURCEBIT ", 
          "SUMBIT  ", 
          "VALUEB", 
          "SUMCNTRB", 
          "ELEMITEMBT", 
          "PRINTABLEB", 
          "FORMAT4B", 
          "USAGEB", 
        "* SOURCE *", 
          "SRCEIDN ", 
          "SRCESIBIT ", 
        "*SUBINDX*",
          "SICTEXT ", 
          "LASTSINTRY", 
        "* VALUE *",
          "VALULITP", 
          "VALUALLIND", 
        "*SUM ID*", 
          "SUMIDTYPE ", 
          "SLASTAUXEN", 
          "TISUMCNTRB", 
          "SUMSIERROR", 
          "SUMID1TYPE", 
          "PLDN4SUM", 
          "SUMID1DN", 
          "SUMSITBLPT", 
        "* UPON *", 
          "UPONTYPB", 
          "ULASTAUX", 
          "DUMMYUPON ", 
          "UPNDETAIL1", 
          "UPNDETAIL2", 
          "UPNDETAIL3", 
        "* RESET *",
          "RESETYPE", 
          "RLASTAUX", 
          "RESETFINAL", 
          "RESETIDILL", 
          "RESETDN ", 
               " "];
          ITEM   INDTAB  I(1,0,60) =
        [0, 
          00000015, 
          00001501, 
          00001615, 
          00003115, 
        0,
          00000001, 
          00000101, 
          00000201, 
          00000301, 
          00000401, 
          00000515, 
          00002015, 
          00003515, 
        0,
          00000015, 
          00001515, 
          00003008, 
          00003815, 
          00005301, 
        0,
          00000015, 
          00001515, 
          00003008, 
          00003808, 
          00004601, 
          00004701, 
          00004901, 
        0,
          00000008, 
          00000815, 
        0,
          00000015, 
          00001515, 
          00003008, 
          00003801, 
          00003901, 
          00004001, 
          00004101, 
          00004201, 
          00004301, 
          00004401, 
          00004501, 
          00004601, 
          00004701, 
          00004801, 
          00004901, 
        0,
          00000015, 
          00001501, 
        0,
          00000030, 
          00003001, 
        0,
          00000015, 
          00001501, 
        0,
          00000001, 
          00000301, 
          00000401, 
          00000501, 
          00000602, 
          00000815, 
          00002315, 
          00003818, 
        0,
          00000101, 
          00000301, 
          00000401, 
          00000515, 
          00002015, 
          00003515, 
        0,
          00000201, 
          00000301, 
          00000401, 
          00000501, 
          00000615, 
        0]; 
          END 
          XREF
               BEGIN
               PROC     CBLIST; 
               PROC     SSIDUMP;
               FUNC     RWGET;
               FUNC     DEC     C(10);
               FUNC     RP$AUXPTR   I;
               END
*CALL RPCOMM
*CALL GETSET
          CONTROL EJECT;
          BEGIN 
          J = 0;
          FOR I = 0 STEP 1 UNTIL WORDCOUNT DO 
               BEGIN
               IF INDTAB[I] EQ 0 THEN 
                    BEGIN 
                    NAMEINDX[J] = I;
                    J = J + 1;
                    END 
               END
               POINT1 = RS1STDNAT;
               C<0,60>LINE = " "; 
               CBLIST(1,"  +-+   REPORT AUX POINTERS.   +-+",33); 
               CBLIST(2,"        DNAT           AUX",26); 
               K = RP$AUXPTR(RS1STDNAT+1);
               FOR I = RS1STDNAT STEP 1 UNTIL LSTRSDNATIND DO 
                    BEGIN 
                    CONFIX = RP$AUXPTR(I);
                    C<10,10>LINE = DEC(POINT1); 
                    C<25,10>LINE = DEC(CONFIX); 
                    POINT1 = POINT1 + 1;
                    CBLIST(1,LINE,35);
                    END 
               CBLIST(2,"   +-+  REPORT AUX TABLES +-+",30);
               FOR I = K STEP 1 UNTIL CCTRPAUXLEN DO
                    BEGIN 
                    C<0,60>LINE = " ";
                    J = RWGET(REPTAUXTYPE,I); 
                    J = NAMEINDX[J];
                    C<0,10>LINE = TYPENTRY[J];
                    J = J + 1;
                    C<2,6>CONFIXSTR = DEC(I); 
                    C<15,8>LINE = C<0,8>CONFIXSTR;
                    CBLIST(2,LINE,40);
                    FOR L = J STEP 1 WHILE INDTAB[L] NQ 0 DO
                         BEGIN
                         N = INDTAB[L]; 
                         C<0,10>LINE = TYPENTRY[L]; 
                         RW = RWGET(N,I); 
                         C<15,10>LINE = DEC(RW);
                         CBLIST(1,LINE,60); 
                         END
                   END
          END 
          $END
          END  #END OF REPORT AUX TABLE DUMP# 
          TERM
