>>How can I programaticaly clear the contents of a General Field?
>>
>
>The following trick with clear a general field neatly:
>
>

FUNCTION ClearGenFld
>LPARAMETER tcGenFldName
>IF TYPE('tcGenFldName') = 'C' AND TYPE('tcGenFldName') = 'G'

Should read: <b>IF TYPE('tcGenFldName') = 'C' AND TYPE(tcGenFldName) = 'G'</b>

>   LOCAL cInAlias, cRefAlias
>   cInAlias = ALIAS()
>   cRefAlias = SYS(2015)
>   SELECT 0
>   CREATE CURSOR (cRefAlias) (GenFld G)
>   APPEND BLANK
>   IF ! EMPTY(cInAlias)
>      SELECT (cInAlias)
>      REPLACE (tcGenFldName) WITH (cRefAlias + '.GenFld')
>   ENDIF
>   USE IN (cRefAlias)
>ENDIF
>RETURN