Clipper/FiveWin - Imprimir estructura de bases DBF

Si alguien fuera tan amable de indicarme cómo puedo imprimir la estructura de una base de datos DBF, desde un programa en uso desarrollado en Clipper/Fivewin, se lo agradecería sobremanera.

Gracias

Utiliza la función dbStruct para leer la estructura del fichero e imprimirlo.

Gracias por tu respuesta... Efectivamente, utilizo dbStructure para cargar la estructura en un Array y seguido la visualizo con un AChoice, pero no consigo implementar el mandato adecuado para imprimir la estructura. No basta con Set Devide to Print, y estoy hecho un lio.
De todos modos, de nuevo gracias.

Hay un programa que encontre por la red que te muestra la estructura de un fichero,

C:\>!struct

Structure Listing Utility for dBase files
Copyright (c) 1991 Cynthia Allingham

usage: db_struc *.dbf -a > list
-a Array format for use with DBCREATE
-f FIELD declaration
-n Numeric definition of the field

File not found: *.DBF

Si te interesa te lo puedo enviar.

Tambien esta el programa DBMAX de David A. Kennedy. Aunque este creo que no imprime la estructura pero la puedes modificar.

La foma manual seria algo asi

======================================================================

a_Tabla:=(Alias)->(dbStruct())

?"CAMPO TIPO LON DEC"
?"---------- -- --- ---"
FOR a=1 to LEN(a_Tabla)
? PADR(a_Tabla[a,1],10)+" "+a_Tabla[a,2]+" "+str(a_Tabla[a,3],3)+" "+str(a_Tabla[a,4],3)
NEXT

======================================================================

Gracias de nuevo Antoni. Pero el problema no está en la visualización. sinó en la impresión directa de la estructura.
Así como en Fox_Pro, existe el comando List_Structure, no conozco el equivalente en Clipper/Fivewin. De momento salgo del paso invocando desde el propio programa un gestor externo de bases de datos, a la espera de, sin prisas, implementar alguna función en C, que me permita conseguir lo que quiero.

Gracias.

Saludos

Hola Alonso,

Con la función COPY STRU puedes copiar la estructura en un arreglo bidimensional y luego con ciclos FOR ... NEXT puedes imprimir, visualizar y manejar dicha estructura segun tus requerimientos.

Si puedo ser parte de la solución, por favor cuenta conmigo.

Saludos, desde Santa Cruz de la Sierra - Bolivia

Despues de unos dias de brega y algo de ayuda, conseguí lo que pretendía. Adjunto el código fuente por si a alguien pudiera serle de utilidad.

Saludos y gracias

//--------------------------------------------------------------------------------------------/

#include "FiveWin.ch"
#include "Ide.ch"


//----------------------------------------------------------------------------//

Function Main()

SET RESOURCES TO "ImprBase.dll"
SET _3DLOOK ON

ImpEstr("Cuenta.dbf")

Return nil

//-----------------------------------------------------------------------------//

Static Func ImpEstr(cBase)

Local oPrn,oFont
Local nLin, npag, nLinMax, nItens, nCamp
Local aEstruct := {}

If cBase = Nil
Return
End

Use (cBase)
aEstruct:=DBStruct()
Use

PRINT oPrn NAME "Estructura" PREVIEW
If Empty( oPrn:hDC )
Return(Nil)
EndIf

nLin := 6
nPag := 0
nLinMax := 27
nItens := 0
nCamp := 1

PAGE
oPrn:CmSay( (nLin - 2.5), 1.5, "ESTRUCTURA DE LA BASE DE DATOS, " + Upper((cBase)) )
oPrn:CmSay( (nLin - .5), 1.5, Replicate("=", 32) )
oPrn:CmSay( (nLin - 1), 1.5, "Nº Campo Tipo Long. Dec. " )
FOR i=1 to LEN(aEstruct)
oPrn:CmSay(nLin,1, Str(nCamp) + " " + aEstruct[i,1] )
oPrn:CmSay(nLin,4.4, aEstruct[i,2] )
oPrn:CmSay(nLin,5, STR(aEstruct[i,3],5,0) + " " + STR(aEstruct[i,4],1,0) )
nLin += 0.7
nCamp ++
NEXT i
oPrn:CmSay( (nLin - .2), 1.5, Replicate("=", 32) )
ENDPAGE
ENDPRINT

Return

//------------------------------------------------------------------------//