Variable Feldnamen

[Liebhoff]

Kann man in RPG eigentlich mittlerweile mit variablen Feldnamen arbeiten ? Bislang baut mein Program SQL Statements zusammen und führt diese aus. Das funktioniert zwar, ist aber sicher nicht so performant wie das native Schreiben und Lesen auf die Datenbank. Wäre schön wenn es das mal geben würde.

Thomas

[Fuerchau]

Was willst du mit variablen Feldnamen ?
Zur Laufzeit benötigst du nur Adressen.

Du kannst mittels Pointer und %alloc(size) beliebige Strukturen verwalten.

Um diese mit SQL zu verarbeiten musst du eine SQLDA-Struktur aufbauen, in der du dann pro Feld den SQL-Datentyp sowie die Speicheradresse angibst.

Beim Select/Insert/Update/Fetch gibts dann "using SQLDA : MySQLDA".

Aber du solltest deine Anforderung noch mal genauer beschreiben.

[Liebhoff]

Die Aufgabe die ich lösen will, ich will Daten aus einem Flat File (jeder Satz bis zu 1024 Zeichen als 1 String) in Datenbanken einsortieren. Die Struktur der Daten habe ich in einer Tabelle. Dort stehen neben den Formaten der einzelnen Felder die Angaben wie der String aufgebaut ist. Mit diesen Infos will ich dann die Daten auslesen und in einem Programm möglichst ohne SQL verarbeiten. Im Prinzip wie früher intern beschriebene Dateien, aber ich habe jedes mal eine andere Struktur. Im Moment mache ich folgendes:

Struktur lesen > Create Table > In DO Schleife die Sätze lesen > für jeden Satz ein Insert Befehl zusammenbauen > Satz einfügen.

Das funktioniert, nur habe ich mir gedacht es muss auch einfacher gehen, weil meine SQL Anweisungen sind doch recht langsam, finde ich.

Wenn ich einen Satz mit Feldern wie aus einer extern beschriebenen Datei hätte, könnte ich einfach die Werte auf die Felder zuweisen und einen Write absetzen, das sollte schneller gehen. Oder irre ich hier ?

Thomas

[Fuerchau]

Da würde ich dir einfach CPYTOIMPF bzw. CPYFRMIMPF empfehlen.
Die Struktur der Daten definierst du in einer eigenen SRCPF.
Der anschließende CPY... ist im übrigen sehr schnell.

Warum das Rad immer neu erfinden.

[Liebhoff]

Das ginge natürlich und daran habe ich auch gedacht. Dabei habe ich aber leider keine Möglichkeit, die eingelesenen Daten noch aufzubereiten. So soll z.B. ein Datum das als NUM(6) definiert ist (080121) gleich als "richtiges" Datumsfeld (*ISO) abgelegt werden. Diese Konvertierung bekomme ich so nicht hin, in RPG schon. Ein weiteres Beispiel wäre die Aufbereitung von Character Feldern. TRIM, Austausch von unerwünschten Inhalten, Korrektur Groß/Kleinschreibung e.t.c. Da brauche ich ein Programm mit Intelligenz. Für Daten die nicht aufbereitet werden müssen, werde ich aber Deine Überlegung sicher noch in Betracht ziehen.

Thomas

[Fuerchau]

Da hilft dir dann tatsächlich nur das Arbeiten mit einer SQLDA, die du dynamisch mit %ALLOC anlegen und verwalten kannst.

Deinen Insert kannst du dann so codieren:

Insert into MyFile (F1, F2, ...) values(?, ?, ...)

den du mit Prepare vorbereitest.

Je "?" benötigst du einen SQLVAR-Eintrag innerhalb der SQLDA mit Feldtyp und Speicheradresse (Pointer).

Per "Execute MyStmt using : MySQLDA" kannst du dann den Insert sehr schnell durchführen.

Die Details zur SQLDA kannst du dem SQL-Programmierhandbuch entnehmen, ein Beispiel der Definition findest du in der Lib QSYSINC (falls installiert).

[cimbala]

Hallo zusammen,

ich hab gehört, dass es ab V5R4 möglich sein soll, Variable Feldnamen zu benutzen.
Gefunden habe ich bisher leider nichts.
Weiß jmd. von euch etwas darüber?

[Fuerchau]

Ich kann mir nicht im entferntesten vorstellen, wie man mit variablen Feldnamen in ILERPG umgehen soll.

Das kann allenfalls Java und vielleicht noch VisualBasic.

[cimbala]

und PHP, C++, C#, Delphi, ML, ...
Also warum nicht auch RPG???

[Fuerchau]

Hierzu müsste man klären, was du mit "variablen Feldnamen" überhaupt meinst.

Nicht alle Variablen, die sich so nennen, sind tatsächlich Variablen.

Meistens wird dies mit Auflistungen (Collections, Maps) gelöst, die halt mit einem Key und einer Klasse (eben der Variablen) gefüllt werden.

Echte variable Feldnamen gibt es da tatsächlich doch nicht, dazu müsste es eine DIM-Anweisung geben, die dieses unterstützt.
Eine solche kenne ich allerdings nicht.

Wenn ausserdem eine Sprache objektorientiert ist (und ILERPG ist es nicht) wird häufig über Klassen der Datenaustausch zwischen Funktionen realisiert, die Namen spielen dann tatsächlich keine Rolle mehr.

Was hindert dich daran, eine Array zu erstellen, die aus 2 Elementen (Name und Adresse) besteht ?
Du kannst dann per Lookup nach dem Namen suchen und hast dann die Adresse dazu.

Per %alloc kannst du Speicher anlegen (entspricht weitestgehende dem NEW-Operator, allerdings ohne Konstruktoren), und die Adresse mit einem Namen in der Tabelle speichern.

Ich denke nicht, dass RPG diese Vorgänge irgendwann automatisieren wird.
Dann sollte man wirklich lieber zu C++ wechseln (mit den Nachteilen der nun fehlenden RPG-Funktionalität).

[cimbala]

Beispiel:
Ich habe ein Feld in einer Tabelle, nennen wir es VERTRAGSNUMMER. Dort steht z.B. eine 1 drin.
Nun habe ich eine Variable, nennen wir Sie varVertragsNr.

Schreibe ich nun:
varVertragsNr = VERTRAGSNUMMER ;
steht der String VERTRAGSNUMMER in der Variable.
Spreche ich varVertragsNr wie z.B. in anderen Sprachen mit @varVertragsNr an, erhalte ich nun den Wert 1, also den Wert aus dem Feld, welches ich vorher der Variable zugewiesen habe.

Vllt. weißt du nun was ich meine !?

[Fuerchau]

Dazu muss allerdings VERTRAGSNUMMER als Variable ja auch irgendwo definiert worden sein.
Im Prinzip ist das wie ein Pointer oder eine C++-Referenzierung.

Solche Sprachkonstrukte sind mitunter nicht zu empfehlen, da ich ja die Variable varVertragsNr auch ohne @ ansprechen kann.
Vernünftigerweise sollte die Sprache
varVertragsNr = @VERTRAGSNUMMER
verlangen, damit ich weiß, dass eben die Adresse verlangt wird und es somit nicht zu Verwirrungen kommen kann (doppelte Verwendungsart).
Bei Scriptsprachen besteht da auch häufig das Problem.

In RPG sähe das dann so aus:

D PtrvarVertragsNr S *
D varVertragsNrDS DS based(PtrvarVertragsNr)
D varVertragsNr 10

C PtrvarVertragsNr = %addr(VERTRAGSNUMMER)

varVertragsNr verweist nun auf VERTRAGSNUMMER.