*DECK AUXTDMP                                                            AUXTDMP
USETEXT CCTTEXT 
          PROC AUXTDMP ( STARTNUM, ENDNUM, HEADER );
          BEGIN 
                                                                         AUXTDMP
 #** PURPOSE                                                             AUXTDMP
  
          THIS PROCEDURE DUMPS THE AUXILIARY INFORMATION TABLE
          IN FORMATTED FORM FROM ORDINAL STARTNUM TO ORDINAL
          ENDNUM. 
  
          IF ENDNUM IS OMITTED THE DUMP CONTINUES FROM STARTNUM 
          TO THE END OF THE TABLE. IF BOTH PARAMETERS ARE OMITTED 
          THE ENTIRE TABLE IS DUMPED. 
  
          THE HEADER PARAMETER CONTROLS THE LISTING HEADER. IF THIS 
          PARAMETER IS NONZERO THE PAGE TITLES ARE PRINTED. 
 #                                                                       AUXTDMP
                                                                         AUXTDMP
 #** INPUT #                                                             AUXTDMP
                                                                         AUXTDMP
          ITEM STARTNUM      I; 
          ITEM ENDNUM        I; 
          ITEM HEADER        I; 
          $BEGIN
                                                                         AUXTDMP
 #** SUBROUTINES CALLED #                                                AUXTDMP
                                                                         AUXTDMP
          XREF PROC CBLIST ;                                             AUXTDMP
          XREF FUNC VIRTUAL;
          XREF PROC TMRECL; 
          XREF PROC TMREOP; 
          XREF FUNC DEC C ( 10 ) ;                                       AUXTDMP
          XREF FUNC OCT C ( 40 ) ;                                       AUXTDMP
                                                                         AUXTDMP
          DEF    CALL              # # ;                                 AUXTDMP
          DEF    LT                #LS# ;                                AUXTDMP
          DEF    GT                #GR# ;                                AUXTDMP
          DEF    GE                #GQ# ;                                AUXTDMP
          DEF    LE                #LQ# ;                                AUXTDMP
          DEF    NE                #NQ# ;                                AUXTDMP
                                                                         AUXTDMP
CONTROL EJECT;
  
*CALL TABLETYP
*CALL AUXT1 
*CALL AUXTVALS
                                                                         AUXTDMP
          DEF    SSF               #1# ;                                 AUXTDMP
          DEF    EJECTF            #3# ;                                 AUXTDMP
          DEF    TITLEF            #4# ;                                 AUXTDMP
          DEF    STITLEF           #5# ;                                 AUXTDMP
          DEF    OPENF             #8# ;                                 AUXTDMP
          DEF    CLOSEF            #9# ;                                 AUXTDMP
 CONTROL EJECT ;                                                         AUXTDMP
                                                                         AUXTDMP
 # WORKING-STORAGE SECTION. #                                            AUXTDMP
                                                                         AUXTDMP
          ITEM   STARTORD    I; 
          ITEM   ENDORD      I; 
          ITEM   LOOPINDEX   I; 
          ITEM   AUXTINDEX   I; 
          ITEM   ITYPE       I; 
          ITEM   TEMP        I; 
  
 # DECLARATION OF PRINT SKELETON. # 
                                                                         AUXTDMP
          ARRAY  [ 0 ] S ( 14 ) ;                                        AUXTDMP
          BEGIN 
            ITEM PRINTGROUP  C(0, 0, 132);                               AUXTDMP
            ITEM PRINTNUM    C(0, 0, 2 );                                AUXTDMP
            ITEM PRINTINDEX  C(0, 12,5 );                                AUXTDMP
            ITEM PRINTTYPE   C(0, 42,17);                                AUXTDMP
            ITEM PRINTOCT    C(2, 24,20);                                AUXTDMP
            ITEM NEXTNAME    C(4, 24,18);                                AUXTDMP
            ITEM NEXTFIELD   C(6, 12,7 );                                AUXTDMP
            ITEM FIRSTNAME   C(6, 54,15);                                AUXTDMP
            ITEM FIRSTFIELD  C(8, 24,7 );                                AUXTDMP
            ITEM SECONDNAME  C(9, 6, 15);                                AUXTDMP
            ITEM SECONDFIELD C(10,30,7 );                                AUXTDMP
            ITEM BYTENAME    C(11,18,11);                                AUXTDMP
            ITEM BYTEFIELD   C(12,24,8 );                                AUXTDMP
          END 
  
 # SUBTITLE DECLARATION AND INITIALIZATION. # 
  
          ARRAY AUXTHEAD [0] S(13);                                      AUXTDMP
          BEGIN                                                          AUXTDMP
            ITEM AUXTHEAD1   C(0,0,10) = ["ENTRY    E"];                 AUXTDMP
            ITEM AUXTHEAD2   C(1,0,10) = ["NTRY TYPE "];                 AUXTDMP
            ITEM AUXTHEAD3   C(2,0,10) = ["          "];                 AUXTDMP
            ITEM AUXTHEAD4   C(3,0,10) = [" OCTAL    "];                 AUXTDMP
            ITEM AUXTHEAD5   C(4,0,10) = ["       NEX"];                 AUXTDMP
            ITEM AUXTHEAD6   C(5,0,10) = ["T ENTRY PO"];                 AUXTDMP
            ITEM AUXTHEAD7   C(6,0,10) = ["INTER     "];                 AUXTDMP
            ITEM AUXTHEAD8   C(7,0,10) = [" FIRST BIG"];                 AUXTDMP
            ITEM AUXTHEAD9   C(8,0,10) = [" FIELD    "];                 AUXTDMP
            ITEM AUXTHEAD10  C(9,0,10) = ["   SECOND "];                 AUXTDMP
            ITEM AUXTHEAD11 C(10,0,10) = ["BIG FIELD "];                 AUXTDMP
            ITEM AUXTHEAD12 C(11,0,10) = ["      BYTE"];                 AUXTDMP
            ITEM AUXTHEAD13 C(12,0,10) = [" FIELD    "];                 AUXTDMP
          END                                                            AUXTDMP
 CONTROL EJECT; 
  
 # DECLARATION AND INITIALIZATION OF AUX TABLE TYPE ARRAY. #
  
         ARRAY [71] S(2); 
          ITEM   TYPETABLE   C(0,0,20) = [
                 "0"                 #0#, 
                 "RDEFNAME"          #1#, 
                 "MAXOCCUR"          #2#, 
                 "KEYNAME"           #3#, 
                 "VAROCCUR"          #4#, 
                 "SUBOCCDEP"         #5#, 
                 "KEYGRNAM"          #6#, 
                 "ERRINFO"           #7#, 
                 "EDITINFO"          #8#, 
                 "AUXALTER"          #9#, 
                 "AUXPERF"           #10#,
                 "ALTKEYNAME"        #11#,
                 "SAMSORTNAM"        #12#,
                 "SAMRECNAME"        #13#,
                 "SAMAREANAM"        #14#,
                 "DATARECNAME"       #15#,
                 "REPORTNAM"         #16#,
                 "FILENAME"          #17#,
                 "AUXRPWGEN"         #18#,
                 "SAMSORTCHN"        #19#,
                 "MODTMDNAT"         #20#,
                 "MODTMDNAT2"        #21#,
                 "AUXPARENT"         #22#,
                 "AUXRDINFO"         #23#,
                 "AUXSUMRPTSW"       #24#,
                 "AUXINITRTNAM"      #25#,
                 "AUXTERMRTNAM"      #26#,
                 "AUXCDI"            #27#,
                 "28"                #28#,
                 "MODTLIBXT"         #29#,
                 "MODTLIBEP"         #30#,
                 "MODTUSREP"         #31#,
                 "MODTUSREP2"        #32#,
                 "MODTUSRDB"         #33#,
                 "MODTUSRDB2"        #34#,
                 "MODTLIBDB"         #35#,
                 "MODTREGCON"        #36#,
                 "MODTREGCON2"       #37#,
                 "MODTLKOFFS"        #38#,
                 "MODTTEMP"          #39#,
                 "MODTREG"           #40#,
                 "DESTLIT"           #41#,
                 "CDINDX"            #42#,
                 "PAGESIZTMP"        #43#,
                 "LINAGETMP"         #44#,
                 "FOOTTMP"           #45#,
                 "DEPENDCHN"         #46#,
                 "AUXSRTKEYTYP"      #47#,
                 "AUXUSEFNTYPE"      #48#,
                 "49"                #49#,
                 "UBRSECTION"        #50#,
                 "AUXDEBUG"          #51#,
                 "WASALTERED"        #52#,
                 "AUXINDEXDATA"      #53#,
                 "AUXRESULTTMP"      #54#,
                 "AUXANLITERAL"      #55#,
                 "AUXANTHRU"         #56#,
                 "AUXANALSO"         #57#,
                 "AUXHILO"           #58#,
                 "AUXGTEXT"          #59#,
                 "AUXINPUTDCL"       #60#,
                 "AUXOUTPUTDCL"      #61#,
                 "AUXIODCL"          #62#,
                 "AUXEXTENDDCL"      #63#,
                 "AUXFILEDCL"        #64#,
                 "AUXHASH"           #65#,
                 "SEGENTRYIX"     #66#, 
                 "AUXRELAREA"     #67#, 
                 "AUXRELQUAL"     #68#, 
                 "AUXREALMS"      #69#, 
                 "AUXREALMNAME"   #70#, 
                 "AUXALTKEYDN2"   #71#];
 CONTROL EJECT; 
  
 # DECLARATION OF SWITCH TO SELECT APPROPRIATE DUMP CODE #
  
          SWITCH DOCASE 
                 TYPEUNKNOWN         #0#, 
                 LRDEFNAME           #1#, 
                 LMAXOCCUR           #2#, 
                 LKEYNAME            #3#, 
                 LVAROCCUR           #4#, 
                 LSUBOCCDEP          #5#, 
                 LKEYGRNAM           #6#, 
                 LERRINFO            #7#, 
                 LEDITINFO           #8#, 
                 LAUXALTER           #9#, 
                 LAUXPERF            #10#,
                 LALTKEYNAME         #11#,
                 LSAMSORTNAM         #12#,
                 LSAMRECNAME         #13#,
                 LSAMAREANAM         #14#,
                 LDATARECNAME        #15#,
                 LREPORTNAM          #16#,
                 LFILENAME           #17#,
                 LAUXRPWGEN          #18#,
                 LSAMSORTCHN         #19#,
                 LMODTMDNAT          #20#,
                 LMODTMDNAT2         #21#,
                 LAUXPARENT          #22#,
                 LAUXRDINFO          #23#,
                 LAUXSUMRPTSW        #24#,
                 LAUXINITRTNA        #25#,
                 LAUXTERMRTNA        #26#,
                 LAUXCDI             #27#,
                 L28                 #28#,
                 LMODTLIBXT          #29#,
                 LMODTLIBEP          #30#,
                 LMODTUSREP          #31#,
                 LMODTUSREP2         #32#,
                 LMODTUSRDB          #33#,
                 LMODTUSRDB2         #34#,
                 LMODTLIBDB          #35#,
                 LMODTREGCON         #36#,
                 LMODTREGCON2        #37#,
                 LMODTLKOFFS         #38#,
                 LMODTTEMP           #39#,
                 LMODTREG            #40#,
                 LDESTLIT            #41#,
                 LCDINDX             #42#,
                 LPAGESIZTMP         #43#,
                 LLINAGETMP          #44#,
                 LFOOTTMP            #45#,
                 LDEPENDCHN          #46#,
                 LAUXSRTKEYTY        #47#,
                 LAUXUSEFNTYP        #48#,
                 L49                 #49#,
                 LUBRSECTION         #50#,
                 LAUXDEBUG           #51#,
                 LWASALTERED         #52#,
                 LAUXINDEXDAT        #53#,
                 LAUXRESULTTM        #54#,
                 LAUXANLITERA        #55#,
                 LAUXANTHRU          #56#,
                 LAUXANALSO          #57#,
                 LAUXHILO            #58#,
                 LAUXGTEXT           #59#,
                 LAUXINPUTDCL        #60#,
                 LAUXOUTPUTDC        #61#,
                 LAUXIODCL           #62#,
                 LAUXEXTENDDC        #63#,
                 LAUXFILEDCL         #64#,
                 LAUXHASH            #65#,
                 LSEGENTRYIX      #66#, 
                 LAUXRELAREA      #67#, 
                 LAUXRELQUAL      #68#, 
                 LAUXREALMS       #69#, 
                 LREALMNAME       #70#, 
                 LALTKEYDN2       #71#; 
 CONTROL EJECT; 
  
 # ROUTINE TO FORMAT AUX BIT VALUES. #
                                                                         AUXTDMP
          PROC   BYTECONVERT ;                                           AUXTDMP
          BEGIN                                                          AUXTDMP
                                                                         AUXTDMP
          ITEM I             I; 
          ITEM TEMP2         I; 
          ITEM TEMP3         I; 
          ITEM C             C(8);
                                                                         AUXTDMP
          C = " " ;                                                      AUXTDMP
          TEMP3 = AX$TBYTE [ AUXTINDEX ] ;
          FOR I = 0 STEP 1 UNTIL 7                                       AUXTDMP
                 DO BEGIN                                                AUXTDMP
          TEMP2 = 52 + I ;                                               AUXTDMP
          TEMP = B<TEMP2>TEMP3 ;                                         AUXTDMP
          TEMP = 27 + TEMP ;                                             AUXTDMP
          C<I>C = TEMP ;                                                 AUXTDMP
          END                                                            AUXTDMP
          BYTEFIELD [0] = C;                                             AUXTDMP
          RETURN ;                                                       AUXTDMP
          END                      # BYTECONVERT #                       AUXTDMP
 CONTROL EJECT; 
                                                                         AUXTDMP
 # INITIALIZATION #                                                      AUXTDMP
                                                                         AUXTDMP
          TMREOP (TABLETYPE "AUX$"  );   #RE-OPEN THA TABLE IF CLOSED#
          IF HEADER NE 0  THEN                                           AUXTDMP
            BEGIN                                                        AUXTDMP
              CALL CBLIST ( OPENF, "AUXTDMP", 7 );
              CALL CBLIST ( TITLEF, "A U X T   D U M P   ",20); 
              CALL CBLIST ( STITLEF, AUXTHEAD, 130);
              CALL CBLIST ( EJECTF ); 
            END 
                                                                         AUXTDMP
 # LOOP CONTROL VARIABLES SETUP. #
  
          STARTORD = STARTNUM ;                                          AUXTDMP
          IF STARTORD LE 0 THEN                                          AUXTDMP
          STARTORD = 1 ;                                                 AUXTDMP
                                                                         AUXTDMP
          ENDORD = ENDNUM ;                                              AUXTDMP
          IF ENDORD LE 0 OR ENDORD GR CCTAUXTLEN  THEN
            ENDORD = CCTAUXTLEN;
  
 # TEST FOR SPECIAL TERMINATION CONDITIONS. # 
  
          IF ENDORD LT STARTORD THEN                                     AUXTDMP
          ENDORD = STARTORD ;                                            AUXTDMP
                                                                         AUXTDMP
          IF CCTAUXTLEN LE 0  THEN
            BEGIN                                                        AUXTDMP
              CALL CBLIST (SSF, "*** NO AUXTABLE ENTRIES ***", 27);      AUXTDMP
              GOTO FILECLOSE;                                            AUXTDMP
            END                                                          AUXTDMP
                                                                         AUXTDMP
 CONTROL EJECT; 
  
 # MAIN PRINT LOOP. # 
  
          FOR LOOPINDEX = STARTORD STEP 1 UNTIL ENDORD DO 
          BEGIN 
  
          PRINTGROUP [ 0 ] = " "; 
          PRINTINDEX [ 0 ] = DEC ( LOOPINDEX ); 
  
          AUXTINDEX = VIRTUAL ( TABLETYPE"AUX$", LOOPINDEX ); 
                                                                         AUXTDMP
          TEMP = AX$TGROUP [AUXTINDEX]; 
          PRINTOCT [0] = OCT (TEMP, 0, 20);                              AUXTDMP
                                                                         AUXTDMP
          NEXTNAME [0] = "   NEXT-ENTRY-PTR";                            AUXTDMP
          PRINTNUM [0] = "# ";                                           AUXTDMP
          TEMP = AX$TNEXTPTR [ AUXTINDEX ] ;
          NEXTFIELD [ 0 ] = DEC ( TEMP ) ;                               AUXTDMP
                                                                         AUXTDMP
          ITYPE = AX$TTYPE [ AUXTINDEX ] ;
                                                                         AUXTDMP
         IF ITYPE LE AUXALTKEYDN2  THEN 
          BEGIN 
                                                                         AUXTDMP
          PRINTTYPE [ 0 ] = TYPETABLE [ ITYPE ] ;                        AUXTDMP
                                                                         AUXTDMP
          GOTO DOCASE [ ITYPE ] ;                                        AUXTDMP
 CONTROL EJECT; 
                                                                         AUXTDMP
     LRDEFNAME:              #1#
          FIRSTNAME [0] = "RDEF-NAME";                                   AUXTDMP
          TEMP = AX$TFIRST [ AUXTINDEX ] ;
          FIRSTFIELD [ 0 ] = DEC ( TEMP ) ;                              AUXTDMP
          GOTO LINEPRINT; 
                                                                         AUXTDMP
     LMAXOCCUR:              #2#
          FIRSTNAME [0] = "OCCURR-LENGTH";                               AUXTDMP
          TEMP = AX$TFIRST [ AUXTINDEX ] ;
          FIRSTFIELD [ 0 ] = DEC ( TEMP ) ;                              AUXTDMP
          BYTENAME [0] = "SUBS-LEVEL";                                   AUXTDMP
          TEMP = AX$TBYTE [ AUXTINDEX ] ; 
          BYTEFIELD [ 0 ] = DEC ( TEMP ) ;                               AUXTDMP
          SECONDNAME [0] = "MAX-OCCUR.-NO.";                             AUXTDMP
          TEMP = AX$TSECOND [ AUXTINDEX ] ; 
          SECONDFIELD [ 0 ] = DEC ( TEMP ) ;                             AUXTDMP
          GOTO LINEPRINT; 
                                                                         AUXTDMP
     LKEYNAME:               #3#
          FIRSTNAME [0] = "KEY-ITEM-NAME";                               AUXTDMP
          TEMP = AX$TFIRST [ AUXTINDEX ] ;
          FIRSTFIELD [ 0 ] = DEC ( TEMP ) ;                              AUXTDMP
          BYTENAME [ 0 ] = "ORDER-BITS" ;                                AUXTDMP
          CALL BYTECONVERT ;                                             AUXTDMP
          SECONDNAME [ 0 ] = "HIERARCHY-CNT" ;                           AUXTDMP
          TEMP = AX$TSECOND [ AUXTINDEX ] ; 
          SECONDFIELD [ 0 ] = DEC ( TEMP ) ;                             AUXTDMP
          GOTO LINEPRINT; 
                                                                         AUXTDMP
     LVAROCCUR:              #4#
          FIRSTNAME [0] = "OCCURRENCE-LEN";                              AUXTDMP
          TEMP = AX$TFIRST [ AUXTINDEX ] ;
          FIRSTFIELD [ 0 ] = DEC ( TEMP ) ;                              AUXTDMP
          BYTENAME [0] = "SUBS-LEVEL";                                   AUXTDMP
          TEMP = AX$TBYTE [ AUXTINDEX ] ; 
          BYTEFIELD [ 0 ] = DEC ( TEMP ) ;                               AUXTDMP
          SECONDNAME [ 0 ] = "DEPENDING-NAME" ;                          AUXTDMP
          TEMP = AX$TSECOND [ AUXTINDEX ] ; 
          SECONDFIELD [ 0 ] = DEC ( TEMP ) ;                             AUXTDMP
          GOTO LINEPRINT; 
                                                                         AUXTDMP
     LSUBOCCDEP:             #5#
          FIRSTNAME [0] = "OCCURS-NAME";                                 AUXTDMP
          TEMP = AX$TFIRST [ AUXTINDEX ] ;
          FIRSTFIELD [ 0 ] = DEC ( TEMP ) ;                              AUXTDMP
          SECONDNAME [ 0 ] = "DEPENDING-NAME" ;                          AUXTDMP
          TEMP = AX$TSECOND [ AUXTINDEX ] ; 
          SECONDFIELD [ 0 ] = DEC ( TEMP ) ;                             AUXTDMP
          GOTO LINEPRINT; 
 CONTROL EJECT; 
  
                                                                         AUXTDMP
     LKEYGRNAM:              #6#
          FIRSTNAME [0] = "OCCURS-NAME";                                 AUXTDMP
          TEMP = AX$TFIRST [ AUXTINDEX ] ;
          FIRSTFIELD [ 0 ] = DEC ( TEMP ) ;                              AUXTDMP
          BYTENAME [ 0 ] = "ORDER-BITS" ;                                AUXTDMP
          CALL BYTECONVERT ;                                             AUXTDMP
          SECONDNAME [ 0 ] = "HIERARCHY-CNT" ;                           AUXTDMP
          TEMP = AX$TSECOND [ AUXTINDEX ] ; 
          SECONDFIELD [ 0 ] = DEC ( TEMP ) ;                             AUXTDMP
          GOTO LINEPRINT; 
                                                                         AUXTDMP
     LERRINFO:               #7#
          GOTO TYPEUNKNOWN; 
                                                                         AUXTDMP
     LEDITINFO:              #8#
          FIRSTNAME [0] = "PATTERN-OFFSET";                              AUXTDMP
          TEMP = AX$TFIRST [ AUXTINDEX ] ;
          FIRSTFIELD [ 0 ] = DEC ( TEMP ) ;                              AUXTDMP
          BYTENAME [ 0 ] = "EDIT-BITS" ;                                 AUXTDMP
          CALL BYTECONVERT ;                                             AUXTDMP
          GOTO LINEPRINT; 
  
     LAUXALTER:              #9#
          FIRSTNAME [ 0 ] = "ALTERED-DNAT"; 
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          GOTO LINEPRINT; 
  
     LAUXPERF:               #10# 
          FIRSTNAME [ 0 ] = "EXIT-FLAG-DNAT"; 
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          SECONDNAME [ 0 ] = "PERF-EXIT-DNAT";
          TEMP = AX$TSECOND [ AUXTINDEX ];
          SECONDFIELD [ 0 ] = DEC ( TEMP ); 
          GOTO LINEPRINT; 
  
     LALTKEYNAME:            #11# 
          FIRSTNAME [ 0 ] = "ALTERNATE-KEY";
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
         SECONDNAME [0] = "AUXALTKEYLIT"; 
           TEMP = AX$ALTKEYLIT [AUXTINDEX]; 
         SECONDFIELD [0] = DEC (TEMP);
          GOTO LINEPRINT; 
  
     LSAMSORTNAM:            #12# 
          FIRSTNAME [ 0 ] = "SAME-SORT-NAME"; 
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          GOTO LINEPRINT; 
 CONTROL EJECT; 
  
     LSAMRECNAME:            #13# 
          FIRSTNAME [ 0 ] = "SAME-REC-NAME";
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          SECONDNAME [ 0 ] = "RECORD-MSEC"; 
          TEMP = AX$TSECOND [ AUXTINDEX ];
          SECONDFIELD [ 0 ] = DEC ( TEMP ); 
          GOTO LINEPRINT; 
  
     LSAMAREANAM:            #14# 
          FIRSTNAME [ 0 ] = "SAME-AREA-NAME"; 
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          GOTO LINEPRINT; 
  
     LDATARECNAME:           #15# 
          FIRSTNAME [ 0 ] = "DATA-REC-NAME";
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          GOTO LINEPRINT; 
  
     LREPORTNAM:             #16# 
          FIRSTNAME [ 0 ] = "REPORT-NAME";
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          GOTO LINEPRINT; 
  
     LFILENAME:              #17# 
          FIRSTNAME [ 0 ] = "FD-NAME";
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          SECONDNAME [ 0 ] = "FNAT-INDEX";
          TEMP = AX$TSECOND [ AUXTINDEX ];
          SECONDFIELD [ 0 ] = DEC ( TEMP ); 
          BYTENAME [ 0 ] = "FILE-BITS"; 
          CALL BYTECONVERT; 
          GOTO LINEPRINT; 
  
     LAUXRPWGEN:             #18# 
          FIRSTNAME [ 0 ] = "1ST-DTAIL-PARA"; 
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          SECONDNAME [ 0 ] = "LASTDTAIL-PARA";
          TEMP = AX$TSECOND [ AUXTINDEX ];
          SECONDFIELD [ 0 ] = DEC ( TEMP ); 
          GOTO LINEPRINT; 
  
     LSAMSORTCHN:            #19# 
          FIRSTNAME [ 0 ] = "SAMESORT-CHAIN"; 
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          GOTO LINEPRINT; 
 CONTROL EJECT; 
  
     LMODTMDNAT:             #20# 
          GOTO TYPEUNKNOWN; 
  
     LMODTMDNAT2:            #21# 
          GOTO TYPEUNKNOWN; 
  
     LAUXPARENT:             #22# 
          GOTO TYPEUNKNOWN; 
  
     LAUXRDINFO:             #23# 
          FIRSTNAME [ 0 ] = "BEG-DTAIL-PARA"; 
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          SECONDNAME [ 0 ] = "END-DTAIL-PARA";
          TEMP = AX$TSECOND [ AUXTINDEX ];
          SECONDFIELD [ 0 ] = DEC ( TEMP ); 
          BYTENAME [ 0 ] = "REPORT-BITS"; 
          CALL BYTECONVERT; 
          GOTO LINEPRINT; 
  
     LAUXSUMRPTSW:           #24# 
          FIRSTNAME [ 0 ] = "SUMMRPTSW-DNAT"; 
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          GOTO LINEPRINT; 
  
     LAUXINITRTNA:           #25# 
          FIRSTNAME [ 0 ] = "BEG-INIT-PARA";
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          SECONDNAME [ 0 ] = "END-INIT-NAME"; 
          TEMP = AX$TSECOND [ AUXTINDEX ];
          SECONDFIELD [ 0 ] = DEC ( TEMP ); 
          GOTO LINEPRINT; 
  
     LAUXTERMRTNA:           #26# 
          FIRSTNAME [ 0 ] = "BEG-TERM-PARA";
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          SECONDNAME [ 0 ] = "END-TERM-NAME"; 
          TEMP = AX$TSECOND [ AUXTINDEX ];
          SECONDFIELD [ 0 ] = DEC ( TEMP ); 
          GOTO LINEPRINT; 
  
     LAUXCDI:                #27# 
          FIRSTNAME [ 0 ] = "CNTRLITEM-DNAT"; 
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          SECONDNAME [ 0 ] = "PREV-VAL-DNAT"; 
          TEMP = AX$TSECOND [ AUXTINDEX ];
          SECONDFIELD [ 0 ] = DEC ( TEMP ); 
          GOTO LINEPRINT; 
 CONTROL EJECT; 
  
     L28:                    #28# 
          GOTO TYPEUNKNOWN; 
  
     LMODTLIBXT:             #29# 
          GOTO TYPEUNKNOWN; 
  
     LMODTLIBEP:             #30# 
          GOTO TYPEUNKNOWN; 
  
     LMODTUSREP:             #31# 
          GOTO TYPEUNKNOWN; 
  
     LMODTUSREP2:            #32# 
          GOTO TYPEUNKNOWN; 
  
     LMODTUSRDB:             #33# 
          GOTO TYPEUNKNOWN; 
  
     LMODTUSRDB2:            #34# 
          GOTO TYPEUNKNOWN; 
  
     LMODTLIBDB:             #35# 
          GOTO TYPEUNKNOWN; 
  
     LMODTREGCON:            #36# 
          GOTO TYPEUNKNOWN; 
  
     LMODTREGCON2:           #37# 
          GOTO TYPEUNKNOWN; 
  
     LMODTLKOFFS:            #38# 
          GOTO TYPEUNKNOWN; 
  
     LMODTTEMP:              #39# 
          GOTO TYPEUNKNOWN; 
  
     LMODTREG:               #40# 
          GOTO TYPEUNKNOWN; 
 CONTROL EJECT; 
  
     LDESTLIT:               #41# 
          FIRSTNAME [ 0 ] = "DEST-TAB-COUNT"; 
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          GOTO LINEPRINT; 
  
     LCDINDX:                #42# 
          FIRSTNAME [ 0 ] = "CD-INDEX-NAME";
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          GOTO LINEPRINT; 
  
     LPAGESIZTMP:            #43# 
          FIRSTNAME [ 0 ] = "PAGE-SIZE-TEMP"; 
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          GOTO LINEPRINT; 
  
     LLINAGETMP:             #44# 
          FIRSTNAME [ 0 ] = "LINAGE-TEMP";
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          GOTO LINEPRINT; 
  
     LFOOTTMP:               #45# 
          FIRSTNAME [ 0 ] = "FOOTING-TEMP"; 
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          GOTO LINEPRINT; 
  
     LDEPENDCHN:             #46# 
          FIRSTNAME [ 0 ] = "OCCURS-NAME";
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          SECONDNAME [ 0 ] = "DEPENDING-NAME";
          TEMP = AX$TSECOND [ AUXTINDEX ];
          SECONDFIELD [ 0 ] = DEC ( TEMP ); 
          GOTO LINEPRINT; 
  
     LAUXSRTKEYTY:           #47# 
          FIRSTNAME [ 0 ] = "SORT-KEY-DNAT";
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          BYTENAME [ 0 ] = "SORT-BITS"; 
          CALL BYTECONVERT; 
          GOTO LINEPRINT; 
  
     LAUXUSEFNTYP:           #48# 
          FIRSTNAME [ 0 ] = "FILE-NAME-FNAT"; 
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          GOTO LINEPRINT; 
 CONTROL EJECT; 
  
     L49:                    #49# 
          GOTO TYPEUNKNOWN; 
  
     LUBRSECTION:            #50# 
          FIRSTNAME [ 0 ] = "UBR-SECT-DNAT";
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          SECONDNAME [ 0 ] = "SPPRS-SW-DNAT"; 
          TEMP = AX$TSECOND [ AUXTINDEX ];
          SECONDFIELD [ 0 ] = DEC ( TEMP ); 
          GOTO LINEPRINT; 
  
     LAUXDEBUG:              #51# 
          FIRSTNAME [ 0 ] = "DBG-LAT-INDEX";
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          SECONDNAME [ 0 ] = "DEBUG-PROC";
          TEMP = AX$TSECOND [ AUXTINDEX ];
          SECONDFIELD [ 0 ] = DEC ( TEMP ); 
          BYTENAME [ 0 ] = "DEBUG-BITS";
          CALL BYTECONVERT; 
          GOTO LINEPRINT; 
  
     LWASALTERED:            #52# 
          FIRSTNAME [ 0 ] = "ALTRD-PARA-LINE";
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          SECONDNAME [ 0 ] = "ALTRD-PARA-COL";
          TEMP = AX$TSECOND [ AUXTINDEX ];
          SECONDFIELD [ 0 ] = DEC ( TEMP ); 
          GOTO LINEPRINT; 
  
     LAUXINDEXDAT:           #53# 
          FIRSTNAME [ 0 ] = "INDEXDATA-DNAT"; 
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          GOTO LINEPRINT; 
  
     LAUXRESULTTM:           #54# 
          FIRSTNAME [ 0 ] = "REC-FIELD-DNAT"; 
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          GOTO LINEPRINT; 
 CONTROL EJECT; 
  
     LAUXANLITERA:           #55# 
          FIRSTNAME [ 0 ] = "ALPHA-PLT-PTR";
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          GOTO LINEPRINT; 
  
     LAUXANTHRU:             #56# 
          FIRSTNAME [ 0 ] = "ALPHA-PLT-PTR";
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          GOTO LINEPRINT; 
  
     LAUXANALSO:             #57# 
          FIRSTNAME [ 0 ] = "ALPHA-PLT-PTR";
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          GOTO LINEPRINT; 
  
     LAUXHILO:               #58# 
          FIRSTNAME [ 0 ] = "LOW-VALUE";
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          SECONDNAME [ 0 ] = "HIGH-VALUE";
          TEMP = AX$TSECOND [ AUXTINDEX ];
          SECONDFIELD [ 0 ] = DEC ( TEMP ); 
          GOTO LINEPRINT; 
  
     LAUXGTEXT:              #59# 
          FIRSTNAME [ 0 ] = "GTEXT-INDEX";
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          GOTO LINEPRINT; 
 CONTROL EJECT; 
  
     LAUXINPUTDCL:           #60# 
          GOTO LINEPRINT; 
  
     LAUXOUTPUTDC:           #61# 
          GOTO LINEPRINT; 
  
     LAUXIODCL:              #62# 
          GOTO LINEPRINT; 
  
     LAUXEXTENDDC:           #63# 
          GOTO LINEPRINT; 
  
     LAUXFILEDCL:            #64# 
          FIRSTNAME [ 0 ] = "FILE-NAME-DNAT"; 
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          GOTO LINEPRINT; 
  
     LAUXHASH:               #65# 
          FIRSTNAME [ 0 ] = "FILE-NAME-DNAT"; 
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          GOTO LINEPRINT; 
  
     LSEGENTRYIX:            #66# 
          FIRSTNAME [0] = "AUXENTRYIX"; 
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          SECONDNAME [0] = "AUXEXITIX"; 
          TEMP = AX$TSECOND [ AUXTINDEX ];
          SECONDFIELD [ 0 ] = DEC ( TEMP ); 
          GOTO LINEPRINT; 
LAUXRELAREA:  
         GOTO LINEPRINT;
LAUXRELQUAL:  
         GOTO LINEPRINT;
LAUXREALMS: 
         GOTO LINEPRINT;
LREALMNAME: 
         GOTO LINEPRINT;
LALTKEYDN2: 
         FIRSTNAME [0] = "AX$AKDN2DNAT";
           TEMP = AX$TFIRST [AUXTINDEX];
         FIRSTFIELD [0] = DEC (TEMP); 
  
          END                                                            AUXTDMP
 CONTROL EJECT; 
  
          ELSE
  
 # UNKNOWN AUX TYPE LINE FORMATTING. #
  
     TYPEUNKNOWN: 
  
          BEGIN 
          PRINTTYPE [ 0 ] = DEC ( ITYPE ) ;                              AUXTDMP
          TEMP = AX$TFIRST [ AUXTINDEX ]; 
          FIRSTFIELD [ 0 ] = DEC ( TEMP );
          TEMP = AX$TSECOND [ AUXTINDEX ];
          SECONDFIELD [ 0 ] = DEC ( TEMP ); 
          END                                                            AUXTDMP
                                                                         AUXTDMP
 # OUTPUT OF THE FORMATTED DUMP LINE. # 
  
     LINEPRINT: 
  
          CALL CBLIST ( SSF, PRINTGROUP [0], 132 ); 
                                                                         AUXTDMP
          END # OF MAIN PRINT LOOP #
                                                                         AUXTDMP
 # FINAL TERMINATION CLEAN UP. #
  
     FILECLOSE: 
  
          IF HEADER NE 0  THEN                                           AUXTDMP
          CALL CBLIST ( CLOSEF , "AUXTDMP" , 7 ) ;                       AUXTDMP
                                                                         AUXTDMP
          TMRECL (TABLETYPE "AUX$"  );   #RE-CLOSE THE TABLE IF NEEDED# 
                                                                         AUXTDMP
          $END
          END # AUXTDMP # 
          TERM                                                           AUXTDMP
