Hacer un cursor de SELECT SQL modificable

Como hacer un cursor de SELECT SQL modificable.

**********************************************************************
*
* Función: hazmodificable
*
* Hace modificable un cursor creado con SELECT SQL
*
* Sintaxis:
*
* =goCSApp.hazmodificable(cursor)
*
* Parametros:
*
* cursor
*
* Ejemplos:
*
* = hazmodificable(ALIAS())
* = hazmodificable("query1")
*
* Retorno:
*
* nada
*
* Nota: No debe haber ningun alias xxTemp abierto
* **********************************************************************
FUNCTION hazmodificable
  LPARAMETERS tcalias
  USE DBF(tcalias) IN 0 AGAIN alias xxTemp
  USE DBF("xxTemp") IN (tcalias) AGAIN ALIAS (tcalias)
  USE IN xxTemp
ENDFUNC

Pablo Roca