178
178
/****************************************************************************/
179
179
PQRYRES DBFColumns(PGLOBAL g, const char *fn, BOOL info)
181
static int buftyp[] = {TYPE_STRING, TYPE_SHORT, TYPE_STRING,
182
TYPE_INT, TYPE_INT, TYPE_SHORT};
183
static XFLD fldtyp[] = {FLD_NAME, FLD_TYPE, FLD_TYPENAME,
184
FLD_PREC, FLD_LENGTH, FLD_SCALE};
185
static unsigned int length[] = {11, 6, 8, 10, 10, 6};
181
int buftyp[] = {TYPE_STRING, TYPE_SHORT, TYPE_STRING,
182
TYPE_INT, TYPE_INT, TYPE_SHORT};
183
XFLD fldtyp[] = {FLD_NAME, FLD_TYPE, FLD_TYPENAME,
184
FLD_PREC, FLD_LENGTH, FLD_SCALE};
185
unsigned int length[] = {11, 6, 8, 10, 10, 6};
186
186
char buf[2], filename[_MAX_PATH];
187
187
int ncol = sizeof(buftyp) / sizeof(int);
188
188
int rc, type, len, field, fields;
190
190
DBFHEADER mainhead;
191
191
DESCRIPTOR thisfield;
228
228
qrp = PlgAllocResult(g, ncol, fields, IDS_COLUMNS + 3,
229
229
buftyp, fldtyp, length, true, false);
235
239
htrc("Structure of %s\n", filename);