You're welcome.

Please take a look at the < PRE > tags I added for code readability (without spaces). Please add them next time.

BTW, if it works, you may now comment out _CLIPTEXT line.


>I changesd it around a little bit but it works now. Thank you so much.
>
>

> CASE LXPOS.XTYPE = 'D' && DATE
>        rpl = ALLTRIM(LXPOS.ACTION)+ALLTRIM(LXPOS.START)+ALLTRIM(LXPOS.XDATA)+ALLTRIM(LXPOS.ENDING)
>        drpl = ALLTRIM(LXPOS.XFIELD)
>		_cliptext = rpl
>		rpl = ctod(rpl) && Will you get an error?
>		replace (dRpl) with rpl
>    ENDCASE
>ENDSCAN