Hi,

ich hoffe du meinst dies hier :


* DATENSTRUKTUREN
D MYSQLDA DS
D MYSQLDAID 8A
D MYSQLDABC 10I 0
D MYSQLN 5I 0
D MYSQLD 5I 0
D MYSQLVAR 80 DIM(80)
D MYSQLTYPE 5I 0 OVERLAY(MYSQLVAR:1)
D MYSQLLEN 5I 0 OVERLAY(MYSQLVAR:3)
D MYSQLRES 12A OVERLAY(MYSQLVAR:5)
D MYSQLDATA * OVERLAY(MYSQLVAR:17)
D MYSQLIND * OVERLAY(MYSQLVAR:33)
D MYSQLNAME 30 OVERLAY(MYSQLVAR:51)
C/EXEC SQL
C+ INCLUDE SQLDA
C/END-EXEC

C EVAL MYSQLN = 0
C/EXEC SQL
C+ DESCRIBE TABLE :FILE INTO :MYSQLDA USING NAMES
C/END-EXEC
C IF SQLCOD = 0
C EVAL MYSQLN = MYSQLD
C ENDIF

Damit ermittel ich mir die Feldnamen der Datei :FILE (Parameter)
MYSQLN = Anzahl Felder in der Datei
MYSQLNAME(XX) = Feldnamen (als Tabelle hier mit Einschränkung dass die Datei nicht mehr als 80 Felder hat (siehe DS Deklaration)

Damit kommt man zumindest an die Feldnamen :-)

Evtl Kann man das "USING NAMES" aber auch bei gewöhnlichen SQLs einbingen, damit habe ich noch nicht experimentiert.

Schönen Tag noch

Rince