*COMDECK EB6DC
          NAM    EB6DC
*CALL CONVMACRO 
          ENT    EB6DC
EB6DC     EQU    EB6DC(*) 
*IF DEF,CSET63
*CALL E6DC3 
*ENDIF
*IF -DEF,CSET63 
*CALL E6DC4 
*ENDIF
          END 
