SELECT LXPOS
GOTO TOP
SCAN WHILE ! EOF()
	rpl = ''
	drpl = ''
DO CASE
       CASE LXPOS.XTYPE = 'R' && REPLACE  (This works fine with Characters)
            rpl = ALLTRIM(LXPOS.ACTION)+ALLTRIM(LXPOS.START)+ALLTRIM(LXPOS.XDATA)+ALLTRIM(LXPOS.ENDING)
            drpl = ALLTRIM(LXPOS.XFIELD)
            REPLACE &drpl WITH rpl

**Here is where I am attempting to use my table that contains a character date, and **trying to fill another by using the DTOC Function but I keep erroring out 
        CASE LXPOS.XTYPE = 'D' && DATE  
            rpl = ALLTRIM(LXPOS.ACTION)+ALLTRIM(LXPOS.START)+ALLTRIM(LXPOS.XDATA)+ALLTRIM(LXPOS.ENDING)
            drpl = ALLTRIM(LXPOS.XFIELD)
            REPLACE &drpl WITH DTOC(rpl)
    ENDCASE       
ENDSCAN