*COMDECK OVLCOM 
          #THE FOLLOWING IS A LIST OF OVERLAY NAMES, L. JUST, 
                             ZERO FILLED FOR PASSING TO LOVER#
  
          ITEM  SSCON    U = O"03170240333533000000";  #7LCOB5020#
          ITEM  RPDR     U = O"03170240334234000000";  #7LCOB5071#
          ITEM  RANAL    U = O"03170240334235000000";  #7LCOB5072#
          ITEM  RG       U = O"03170240343433000000";  #7LCOB5110#
          ITEM  GENCOM   U = O"03170240353333000000";  #7LCOB5200#
          ITEM  DUMPS    U = O"03170240353337000000";  #7LCOB5204#
  
 #
          THE FOLLOWING IS A LIST OF THE OVERLAYS CALLED BY COBOL5. 
          IT IS IN THE SEQUENCE IN WHICH THEY ARE CALLED. 
          THE ARRAY FOLLOWING CONTAINS THE NAMES WHICH ARE USED BY
          THE DEBUGGING ROUTINE.
          THE ENTRIES WHICH CORRESPOND TO OVERLAY LOADS MUST CORRESPOND 
          TO THE ORDER IN THE OVERLAY STATUS LIST.
 #
  
          STATUS OVERLAY    #NAMES OF COBOL5 LOADER OVERLAYS# 
              NULL,          # NOT USED - FOR LIST ADJUSTMENT # 
              CBINIT,        # INITIALIZATION # 
              SSCANNER,      # SOURCE SCANNER # 
              PICANALYZR,    # PICTURE ANANLYZER #
              DBTRANS,       # DATA BASE TRANSLATOR # 
              DPARSER,       # DATA DIVISION PARSER # 
              DANALYZER,     # DATA DIVISION ANALYZER # 
              RPARSER,       # REPORT WRITER PARSER # 
              RGEN,          # REPORT WRITER GENERATOR #
              PPARSER,       # PROCEDURE DIVISION PARSER #
              LITPOOLER,     # LITERAL POOLER # 
              XFORMATTER,    # CROSS REFERENCE FORMATTER #
              PROCTAB,       # PROCESS TABLES FOR CGEN #
              CGEN,          # CODE GENERATOR # 
              ASSEM,         # ASSEMBLER #
              DMAP,          # DATA MAP # 
              DFORMATTER,    # DIAGNOSTIC FORMATTER # 
              LISTEND;       # END OF LIST - NOT USED FOR OVL CALL #
  
          DEF NBROVLCALLS #16#;        # NUMBER OF OVERLAY CALLS       #
  
 #     THE FOLLOWING DEF SHOWS THE NUMBER OF DEBUG COMMANDS - ALSO
       GIVES THE NUMBER OF ITEMS IN THE ARRAY # 
  
          $BEGIN
          DEF COMMANDCNT #44#;
  
 #     THIS ARRAY HAS THE DEBUG COMMANDS - THE FIRST PART IS PARALLEL 
       TO THE OVERLAY STATUS LIST # 
  
              ARRAY COMMANDS [1:COMMANDCNT];
                  BEGIN 
                  ITEM COMMAND C(0,0,10) = [
                      "CBINIT    ",   #CANNOT BE CALLED - FOR POS ONLY# 
                      "SSCANNER  ", 
                      "PICANALYZR", 
                      "DBTRANS   ", 
                      "DPARSER   ", 
                      "DANALYZR  ", 
                      "RPARSER   ", 
                      "RGEN      ", 
                      "PPARSER   ", 
                      "LITPOOLER ", 
                      "XFORMATTER", 
                      "PROCTAB   ", 
                      "CGEN      ", 
                      "ASSEM     ", 
                      "DMAP      ", 
                      "DFORMATTER", 
          #     END OF COBOL5 LOADED OVERLAYS # 
                      "DNATDMP   ", 
                      "GTXTDMP   ", 
                      "LATDMP    ", 
                      "PNATDMP   ", 
                      "DNTDMP    ", 
                      "PNTDMP    ", 
                      "AWRTDMP   ", 
                      "INTDMP    ", 
                      "PLTDMP    ", 
                      "CTXTDMP   ", 
                      "PATDMP    ", 
                      "CCTDMP    ", 
                      "FDLTDMP   ", 
                      "FNATDMP   ", 
                      "AUXTDMP   ", 
                      "ETEXTDMP  ", 
                      "POOLDMP   ", 
                      "RFTDMP    ", 
                      "RPADMP    ", 
                      "RPDMP     ", 
                      "SPBTDMP   ", 
                      "PARAM     ", 
                      "INTERCEPTR", 
                      "TABLESTATS", 
                      "TIMERSTATS", 
                      "EXIT      ", 
                      "END       ", 
                      "PARSERS   "
                  ];         #END COMMANDS LIST#
                  END 
              $END
          #END OVLCOM COMMON DECK#
