unbekannte Datei Feldweise in allg. gültige Tabelle schreiben

[Robi]

Hallo *all
ich suche eine Lösung für folgendes Problem

Datei (unbekannt, nur Bsp.)


Feldnamen und Art
N1 A3 A7 N4,2 ...
Inhalt
1 aaa Test 12,15
17 bbb Hallo 09,04

Ziel
Feldnamen und Art
Lfnr7,0 Feld10A Inhalt128A

Inhalt

0000001 N1 1
0000001 A3 aaa
0000001 A7 Test
0000001 N4,2 12,15
0000002 N1 17
0000002 A3 bbb
0000002 A7 Hallo
0000002 N4,2 9,04



Ich lese den Aufbau der Datei aus syscolumns
bekomme also
Feldname, Type, Länge und NK-Stellen

Das den Feldinhalt muß ich nun je Name aus der Datei auslesen und dabei nach alpa casten

lese also beim 1. Feld das Feld und die rrn mit optimize for 1 row
alle weiteren Felder mit selektion auf die rrn
und bei eof wieder das 1. Feld mit selektion rrn>letzte rrn

würde das funktionieren?
geht es einfacher?

Danke
Robi

[Fuerchau]

Funktionieren tut das, aber es wird ganz schön dauern.
Die Frage ist doch, was du da so analysieren willst.

Ich definiere mir eine DS
d MyDs 32512
d MyFields 256 dim(127)

Nun stripst du deinen dynamischen SQL zusammen:

cast(Feld1 as char(256)) concat cast(feld2 as char(256)) ....

Anschließend machst du den Fetch in MyDs und hast die Inhalte im Array.
Sind die Felder kürzer als 256 kannst du entsprechend mehr Felder bearbeiten.

Ansonsten gibt es da halt noch eine SQLDA, die je Feld einen Descriptor hat in dem man einen Pointer auf eine Variable (%alloc) angeben kann. Damit kannst das Problem der Anzahl Felder und der festen Länge von 256 besser behandeln.

[Robi]

hat geklappt, knapp 100 Zeilen Code

Könnte schneller sein aber für meine Zwecke völlig ausreichend.

Gruß
Robi

[Fuerchau]

Was hat geklappt, deine Methode oder mein Vorschlag?

[Robi]

Meine Methode,
hatte ja schon angefangen als ich den Post erfasste.
Schien mir nur sehr kompliziert und aufwändig.
Ist aber doch gut geworden.

Eine andere Idee war, die Datei in XML um zu wandeln und das ein zu lesen.
Aber ich mach zu selten XML, daher ist diese Lösung nun gut so.

Danke
Gruß
Robi