*COMDECK CUGBADCLS
  
# ******************************************************************** #
  
# FOLLOWING TWO BASED ARRAYS ARE USED BY BOTH CONCURRENT CDCS AND DBU#
  
# THE BASED ARRAY GETENTRY IS A GENERAL-PURPOSE OVERLAY OF CORE WORDS#
  
        BASED ARRAY GETENTRY[0:0] P(1);     # GENERAL-PURPOSE OVERLAY#
  
          BEGIN 
  
            ITEM GETCHAR C(0,0,10);    # GENERAL-PURPOSE 10-CHARACTER#
            ITEM GETINT;     # A GENERAL-PURPOSE WHOLE-WORD INTEGER # 
            ITEM GETUNSIG U; # GENERAL-PURPOSE UNSIGNED INTEGER WORD #
            ITEM GETWDTHR C(0,0,30);   # GENERAL-PURPOSE THREE WORDS #
  
          END 
  
# THE BASED ARRAY PUTENTRY IS A GENERAL-PURPOSE OVERLAY OF CORE WORDS#
  
        BASED ARRAY PUTENTRY[0:0] P(1);     # GENERAL-PURPOSE OVERLAY#
  
          BEGIN 
  
            ITEM PUTCHAR C(0,0,10);    # GENERAL-PURPOSE 10-CHARACTER#
            ITEM PUTINT;     # A GENERAL-PURPOSE WHOLE-WORD INTEGER # 
            ITEM PUTUNSIG U; # GENERAL-PURPOSE UNSIGNED INTEGER WORD #
            ITEM PUTWDTHR C(0,0,30);   # GENERAL-PURPOSE THREE WORDS #
  
          END 
  
# ******************************************************************** #
  
