Hi,

I can successfully link a table in MS Access using the Client Access ODBC Driver to the AS400. This will bring down the table field/file definitions as they are on that database - with names like #1NTXS etc.

I have put together a routine in VB that automates this process but tables with those field names are not much use to me.

I need a way to retrieve the field descriptions that also exist on the AS400 for these fields. Does anyone have way to do this??

Here is a sql command I use to get the structure from my AS400.

SELECT
DBILIB, --DATA LIBRARY NAME
DBIFIL, --DATA FILE NAME
DBIPOS, --FIELD POSITION
DBIFLD, --FIELD NAME
DBITYP, --DATA TYPE
DBITXT --FIELD TEXT (this is what you are looking for)
FROM QSYS.QADBIFLD
WHERE DBLIB='MYDATALIBRARY' AND DBIFIL = 'MYDATAFILE'

David

sample output

V84MODDTA AISAP900 1 PGACTV CHAR Active Flag 0=Inactive, 1-Active
V84MODDTA AISAP900 2 PGCMPN DECIMAL Company Number
V84MODDTA AISAP900 3 PGPLTN DECIMAL Plant Number
V84MODDTA AISAP900 4 PGDRPG CHAR DRP Product Group Code
V84MODDTA AISAP900 5 PGGDES CHAR DRP Product Group Description
V84MODDTA AISAP900 6 PGREQF CHAR U.O.M Qty Requirements Flag
V84MODDTA AISAP900 7 PGLFMU CHAR Last F/M User I.D.
V84MODDTA AISAP900 8 PGLFMP CHAR Last F/M Program Name
V84MODDTA AISAP900 9 PGLFMD DATE Last F/M Date
V84MODDTA AISAP900 10 PGLFMT DECIMAL Last F/M Time HHMMSS