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
ENDCASEENDSCAN