*COMDECK DCEB6
          NAM    DCEB6
*CALL CONVMACRO 
          ENT    DCEB6
DCEB6     EQU    DCEB6(*) 
*IF DEF,CSET63
*CALL DC3E6 
*ENDIF
*IF -DEF,CSET63 
*CALL DC4E6 
*ENDIF
          END 
