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