En el ejemplo anterior se creaba un cursor partiendo de una tabla existente.
En este caso se crea totalmente desde 0 el cursor:
CRES is Data Source
AFile is File Description
AnItem is Item Description
// Nombre y descripcion del cursor
AFile..Name = "CRES"
AFile..Type = hFileNormal
AFile..FicCryptMethod = hCryptStandard
// Campo tipo texto
AnItem..Name = "TITULO"
AnItem..Type = hItemText
AnItem..Size = 40
HDescribeItem(AFile, AnItem)
// Campo numerico
AnItem..Name = "IMPORTEd"
AnItem..Type = wlNumeric
AnItem..Size = 10
HDescribeItem(AFile, AnItem)
// Validates the description of the data file
HDescribeFile(AFile)
// Nos situamos en un directorio de temporales para crear el cursor fisico
HChangeDir(CRES, "C:\TEMP\")
// Se crea el fichero. Lo crea con ese nombre y la extension *.FIC
HCreation( CRES )
// vinculamos temporalmente el cursor al analisis
HDeclareExternal("C:\temp\CRES.fic", "cCursor")