*COMDECK MD30CDCLS
  COMMON DB$M30C; 
    BEGIN 
      ITEM GETLNG;           # LENGTH IN WORDS OF THE ENTRY TO BE READ #
      ITEM GETWA;            # WORD ADDRESS OF THE ENTRY TO BE READ    #
      ITEM PUTLNG;           # LENGTH IN WORDS OF THE ENTRY TO BE      #
                             # WRITTEN.                                #
  
      CONTROL NOLIST;        # CUGBADCLS COMDECK UNLISTED (BASED ARR)#
*CALL CUGBADCLS 
      CONTROL LIST;          # RESUME THE LISTING OF THE SOURCE CODE #
  
    END 
  
  
    PROC DBPUT; 
      BEGIN 
      DB$WPUT(DB$FTMD,PUTENTRY,PUTLNG,PUTWA,DB$ERMD); 
      PUTWA = PUTWA + PUTLNG; 
        RETURN; 
      END 
  
    PROC DBGET; 
      BEGIN 
        DB$WGET(DB$FTOD,GETENTRY,GETLNG,GETWA,DB$EROD); 
        GETWA = GETWA + GETLNG;        # ADD WORDS READ TO WD ADDRESS#
        RETURN; 
      END 
  
