Hi Beth,
I am glad you resolve your problem, but I think you thanks to the wrong person, me :o))

>Hi Borislav and Hilmar,
>
>After much debugging I have finally got my code to work correctly. It took a combination of both of your's suggestions to do what I needed done.
>Below is my solution.
>

  lnFldcnt = FCOUNT()
>  IF lnFldcnt > 0
>    FOR lnloop1 = 1 TO lnFldcnt
>      lcfldname = FIELD(lnloop1)
>      IF UPPER(RIGHT(lcfldname,3)) = "_PT"
>        IF !ISNULL(OLDVAL(lcfldname))
>          IF OLDVAL(lcfldname) <> EVALUATE(lcfldname)
>            laDate[1] = DATE()
>            lcfldname = STRTRAN(lcfldname, "_PT", "_GT")
>            GATHER FROM laDate FIELDS (lcfldname)
>          ENDIF
>        ENDIF
>      ENDIF
>    ENDFOR
>  ENDIF
>

>
>Thanks to both of you.
>Beth