*COMDECK  SCANXDCLS                                                      SCANXD 
                                                                         SCANXD 
#     THE FOLLOWING DECK CONTAINS DECLARATIONS OF ARRAYS AND ITEMS USED#
#     AND SET UP BY THE SCANNER.                                       #
                                                                         SCANXD 
#                       I T E M S                                      # SCANXD 
                                                                         SCANXD 
          ITEM DB$CCOL;      #STARTING COLUMN IN SOURCE FOR CURRENT WRD# SCANXD 
          ITEM DB$CLNG;      # LENGTH IN CHARS OF CURRENT WRD          # SCANXD 
          ITEM DB$CLNW;      # LENGTH IN WORDS OF CURRENT WRD          # SCANXD 
          ITEM DB$CP1;       # P1 VALUE OF CURRENT WRD                 # SCANXD 
          ITEM DB$CP2;       # P2 VALUE OF CURRENT WRD                 # SCANXD 
          ITEM DB$CSYN;      # ORDINAL OF SYNTAX SECTION CORRESPONDING # SCANXD 
                             # TO CURRENT WRD                          # SCANXD 
          ITEM DB$CTYP;      # SYNTACTICAL TYPE OF CURRENT WRD         # SCANXD 
          ITEM DB$CXID;      # ID OF CURRENT KEYWORD                   # SCANXD 
          ITEM DB$LEXP;      # POINTER TO CHAR IN DB$CHLS TO BE SCANNED# SCANXD 
          ITEM DB$NCOL;      #STARTING COLUMN IN SOURCE FOR NEXT WRD   # SCANXD 
          ITEM DB$NLNG;      # LENGTH IN CHARS OF NEXT WRD             # SCANXD 
          ITEM DB$NLNW;      # LENGTH IN WORDS OF NEXT WRD             # SCANXD 
          ITEM DB$NP1;       # P1 VALUE OF NEXT WRD                    # SCANXD 
          ITEM DB$NP2;       # P2 VALUE OF NEXT WRD                    # SCANXD 
          ITEM DB$NSYN;      # ORDINAL OF SYNTAX SECTION CORRESPONDING # SCANXD 
                             # TO NEXT WRD                             # SCANXD 
          ITEM DB$NTYP;      # SYNTACTICAL TYPE OF NEXT WRD            # SCANXD 
          ITEM DB$NXID;      # ID OF NEXT KEYWORD                      # SCANXD 
          ITEM DB$TFLG;      # 1 FOR TRACE ON, 0 OR GR 1 FOR TRACE OFF # SCANXD 
                                                                         SCANXD 
#                     A R R A Y S                                      # SCANXD 
                                                                         SCANXD 
          ARRAY DB$CWRD [7] S(1); # CONTAINS THE CURRENT SOURCE WORD   # SCANXD 
            BEGIN                                                        SCANXD 
            ITEM CURWORD U(0,0,60);                                      SCANXD 
            ITEM CURWORDC C(0,0,70);  # FOR USE WITH C FUNCTION        # SCANXD 
            END                                                          SCANXD 
                                                                         SCANXD 
          ARRAY DB$NWRD [7] S(1); # CONTAINS THE NEXT SOURCE WORD      # SCANXD 
            BEGIN                                                        SCANXD 
            ITEM NEXWRD U(0,0,60);                                       SCANXD 
            ITEM NEXWRDC  C(0,0,70);  # FOR USE WITH C FUNCTION        # SCANXD 
            END                                                          SCANXD 
                                                                         SCANXD 
