View Full Version : und wieder mal variable Feldnamen
Hallo zusammen,
ich habe das folgende Problem:
Ich habe in einer Datenbankdatei SQL-Statements abgelegt, die ich zur Laufzeit in einem RPG-Programm ausführen möchte.
Wie ich das mit dynamischem SQL hinbekomme (Prepare, Declare Cursor, Open, Fetch) ist mir schon klar.
Nun möchte ich das ganze aber so dynamisch haben, dass in den Statements in meiner Datei auch (Host-)Variablen enthalten sein können...
Beispiel:
In meiner Datei steht "SELECT SaName From SATEP01 Where SaNr = :SaNr"
Mit Hostvariablen kann man aber im dynamischen SQL nicht arbeiten... das hab ich mittlerweile herausgefunden.
Wie kann ich das dann am besten lösen ?
Ich dachte zunächst mal daran, die Hostvariablen als Plartzhalter zu definieren (meinetwegen von ~ eingeschossen).
Beispiel: "SELECT SaName From SATEP01 Where SaNr = ~SaNr~"
Das ganze könnte ich mir dann ja zerstückeln und erhalte u.a. auch einen Feldnamen, dessen Inhalt ich benötige.
Wie komme ich dann aber an den richtigen Feldinhalt, um mir das SQL-Statement wieder richtig zusammensetzen zu können (Feldnamen sind ja variabel) ???
Bitte um Hilfe. So langsam krieg ich hier nämlich graue Haare.
Grüße,
Olli
Das bekommst du mit execute immediate hin:
/free
varFeldName = 'SaNr';
varFeldWert = SaNr;
varSQLStatement = 'SELECT SaName From SATEP01 Where ' + varFeldName + ' = ' + varFeldWert;
/end-free
c/exec sql
c+ Execute immediate :varSQLStatement
C/end-exec
bei Deklaration von Cursor:
/free
varFeldName = 'SaNr';
varFeldWert = SaNr;
varSQLStatement = 'SELECT SaName From SATEP01 Where ' + varFeldName + ' = ' + varFeldWert;
/end-free
C/exec sql
C+ prepare s1 FROM :varSQLStatement
c/end-exec
C/exec sql
C+ declare c01 cursor for s1
c/end-exec
Das bekommst du mit execute immediate hin:
/free
varFeldName = 'SaNr';
varFeldWert = SaNr;
varSQLStatement = 'SELECT SaName From SATEP01 Where ' + varFeldName + ' = ' + varFeldWert;
/end-free
c/exec sql
c+ Execute immediate :varSQLStatement
C/end-exec
so weit war ich am Anfang auch ;)
Aber bei genauem Betrachten bringt mich das nicht weiter, denn ich weiss ja nicht, welches Feld ich benötige... das ganze ist ja variabel...
In meinem Beispiel ist die Hostvariable jetzt SaNr... kann aber auch ein ganz anderes Feld sein, was abgefragt werden soll...
Ich formuliere meine Frage mal ganz konkret:
Wie komme ich an den Inhalt eines Feldes, dessen Name in einer Programmvariable steht ???
Ich formuliere meine Frage mal ganz konkret:
Wie komme ich an den Inhalt eines Feldes, dessen Name in einer Programmvariable steht ???
damit ;) :
d sqlStatement s 1024 inz('')
d myPgmVar s 128
/free
myPgmVar = 'MyFeld1';
sqlStatement = 'select ' + %trim(myPgmVar) + ' ' +
'from myLib/MyFile ';
/end-free
C/exec sql
C+ prepare s1 FROM :sqlStatement
c/end-exec
C/exec sql
C+ declare c01 cursor for s1
c/end-exec
etc...
oder verstehe ich deine Frage immer noch nicht? Hast du ein konkretes Bespiel?
SO dynmaisch geht das ja nun auch wieder nicht.
Du musst dir da schon mal was einfallen lassen.
Z.B.:
VarPos = %scan(':':MySql);
if VarPos > *zero;
select;
when %subst(MySQL:VarPos:6) = 'MyVar1';
MySQL = %replace(MySQL:':MyVar1':'''' + MyVar1 + '''');
when %subst(MySQL:VarPos:6) = 'MyVar2';
MySQL = %replace(MySQL:':MyVar2':%char(MyVar2));
endsl;
endif;
damit ;) :
d sqlStatement s 1024 inz('')
d myPgmVar s 128
/free
myPgmVar = 'MyFeld1';
sqlStatement = 'select ' + %trim(myPgmVar) + ' ' +
'from myLib/MyFile ';
/end-free
C/exec sql
C+ prepare s1 FROM :sqlStatement
c/end-exec
C/exec sql
C+ declare c01 cursor for s1
c/end-exec
c/exec sql
c+ open c01
c/end-exec
etc...
Danke. Bringt mich aber auch nicht weiter... :confused:
Denn ich möchte in der Where-Bedingung den Vergleichswert variabel haben...
Wenn ich das im RPG "hart" codieren würde, dann mache ich das ja über den Vergleich mit einer Hostvariablen.
Bsp.: "... Where Feld1 = :PgmFeld"
Aber eben diese Hostvariablen kann man im dynamischen SQL ja nicht verwenden...
Ich kenne also in dem Fall nur den Feldnamen. In meinem Beispiel "PgmFeld"... Und da hapert es momentan bei mir, wie ich an den Inhalt eines Feldes komme, dessen Name in einem Programmfeld steht...
SO dynmaisch geht das ja nun auch wieder nicht.
Du musst dir da schon mal was einfallen lassen.
Z.B.:
VarPos = %scan(':':MySql);
if VarPos > *zero;
select;
when %subst(MySQL:VarPos:6) = 'MyVar1';
MySQL = %replace(MySQL:':MyVar1':'''' + MyVar1 + '''');
when %subst(MySQL:VarPos:6) = 'MyVar2';
MySQL = %replace(MySQL:':MyVar2':%char(MyVar2));
endsl;
endif;
Dann müsste ich im RPG aber auch alle möglichen Feldnamen abfangen...
Genau das möchte ich ja nicht. Ich möchte das so dynamisch, wie möglich gestalten.
Gibt es keine Möglichkeit, im RPG mit variablen Feldnamen zu arbeiten ?
nur ein paar Anmerkungen:
- dynamic SQL kann sehr wohl mit Hostvariablen, der prepareString enthält dann ? als Platzhalter, dei beim execute übergeben werden
- diese Variablen müssen, wie alle Namen zur Compiletime bekannt sein (wo sollen sie auch zur Laufzeit herkommen)
- gehen tut letztlich sogut wie alles, aber ob das Design was taugt, das ist in diesem Fall für mich noch eine nicht beantwortete Frage.
D*B
Die Platzhalter (?) waren mir auch bekannt, aber das löst mein Problem leider auch nicht.
Vergesst bitte einmal diese spezielle Aufgabenstellung hier.
Ist es überhaupt irgendwie möglich, an den Inhalt eines Feldes zu kommen, dessen Name selbst Inhalt eines Programmfeldes ist ?
(php kann ja z.B. auch mit variablen Feldnamen umgehen (z.B. var1=@FeldName - glaube ich)
wie ich bereits sagte, geht viel und auch dieses, ich habe allerdings keinen Bock mich auf Diskussionen einzulassen, nach dem Muster: das war mir bekannt, hilft mir aber auch nicht weiter...
Die Platzhalter (?) waren mir auch bekannt, aber das löst mein Problem leider auch nicht.
Vergesst bitte einmal diese spezielle Aufgabenstellung hier.
Ist es überhaupt irgendwie möglich, an den Inhalt eines Feldes zu kommen, dessen Name selbst Inhalt eines Programmfeldes ist ?
(php kann ja z.B. auch mit variablen Feldnamen umgehen (z.B. var1=@FeldName - glaube ich)