*COMDECK RMCOMDCLS
      COMMON DB$RMCM; 
      BEGIN #DB$RMCM# 
  
      ITEM COMPBCP  U=0;   # COMPARISON VALUE BEG CHAR POS #
        ITEM COMPBWP  U;     #COMPARISON VALUE FWA (ABSOLUTE).         #
        ITEM HILOEQ   I;     #RESULT CELL FOR COMPARE. 1, 0, OR -1.    #
        ITEM LITLENG  U;     #LENGTH (BITS) OF CURRENT LITERAL. # 
        ITEM SRIBBP   U;     #SOURCE ITEM BEGIN BIT POSITION.          #
        ITEM SRIFWA   U;     #SOURCE ITEM FWA. #
        ITEM TCLASS   U;     #TARGET ITEM CLASS CODE                   #
        ITEM TGIBBP   U;     #TARGET ITEM BEGIN BIT POSITION.          #
        ITEM TGIFWA   U;     #TARGET ITEM FWA. #
        ITEM TSIZE    U;     #TARGET ITEM SIZE (BITS)                  #
        BASED ARRAY DCTABLE [0:7];
          ITEM DCTVAL U(0,0,60);
  
      END #DB$RMCM# 
