>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'
   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