*COMDECK BRGITDCLS
  
#***********************************************************************
*     DBREC GLOBAL ITEMS
# 
  
  
        ITEM ABORT B;        # ABORT FLAG                              #
        ITEM CDCSFLG B;      # CDCS INITIATED JOB FLAG                 #
                             # TRUE IF CDCS INITIATED                  #
        ITEM CURCMMID I;     # CURRENT CMM OVERFLOW-ACTION ENTRY ID    #
        ITEM DIRCNT I;       # NO. OF DIRECTIVES FOR CURRENT SCHEMA    #
        ITEM ENTRYCOUNT I;   # NO. OF ENTRIES IN EXTABLE BLOCK.  ALSO  #
                             # USED AS AN INDEX INTO EXTABLE           #
        ITEM FILECLAUSE I;   # STORE CURRENT FILE CLAUSE IF QUICK      #
                             # RECOVERY OR JOURNAL LOG FILE.           #
                             # DFQUICK FOR QRF, DFJOURNAL FOR JLF      #
        ITEM FIRSTEXT I;     # POINTER TO FIRST EXECUTION TABLE BLOCK  #
        ITEM FIRSTSCHEMA B;  # FIRST SCHEMA CLAUSE FLAG - TRUE IF FIRST#
        ITEM FIRSTSID I;     # POINTER TO THE FIRST SID BLOCK          #
        ITEM INSERTITEMC C(20); 
                             # SPECIAL CHARACTER INSERTION ITEM - USED #
                             # BY THE MESSAGE TEXT FORMATTER.          #
        ITEM INSERTITEMI I;  # SPECIAL INTEGER INSERTION ITEM - USED   #
                             # BY THE MESSAGE TEXT FORMATTER.          #
        ITEM LOGNUM I;       # STORE NUMBER OF JOURNAL LOG FILE        #
        ITEM PRESETBUF I;    # LOCATION OF THE PRESET BUFFER           #
        ITEM SCHNAME C(30);  # MOST RECENTLY PROCESSED SCHEMA NAME     #
        ITEM SITPTR I;       # STORE OFFSET PTR TO SIT                 #
        ITEM SDTINDX I;      # INDEX INTO THE SCHEMA DIRECTORY TABLE   #
        ITEM SITSZ I;        # STORE SIZE OF SCHEMA INFO TABLE         #
        ITEM SITWA I;        # STORE WORD ADDRESS OF SCHEMA INFO TABLE #
        ITEM TRFNUM I;       # STORE NUMBER OF THE TRF                 #
  
