Dynamisches SQL in einem CL erstellen

[Pikachu]

Wenn &WERT eine Zeichenkette ist, dann musst du diese im CL mit Anführungszeichen umgeben und dann so als Variable übergeben. Z.B. CHGVAR VAR(&WERTS) VALUE('''' *CAT &WERT *TCAT '''') und dann &WERTS anstelle von &WERT als Variable übergeben.

[Sony]

Super hat geklappt!

Vielen Dank für die Hilfe.

[Fuerchau]

Es gibt da noch einen kleinen Trick.
QMQRY interpretiert den SQL erst nachdem die Variablen gefüllt sind.
Der Inhalt jeder Variable kann bis zu 55 Zeichen lang sein.
Nun kann man also einfach einen QMQRY erstellen:

&V1&V2&V3&V4&V5

Per CLP kann der SQL nun in einer Variablen zusammengebaut werden.
Per "
STRQMQRY ... SETVAR((&V1 (%SST(&MYCLVAR 1 55)) (&V2 (%SST(&MYCLVAR 56 55)) ....)
kann dann jeder beliebige SQL übergeben werden.

Die QM-Berechtigungsprüfung wird somit umgangen, da diese nur beim QMQRY selber vorgenommen wird.
Zur Laufzeit geht QMQRY davon aus, dass diese Prüfung bereits erfolgt ist.

Je nachdem, wie lang der SQL werden kann, soviele Variablen werden benötigt. Aber Achtung: alle Variablen müssen angegeben werden, sie können aber Leerzeichen enthalten.

[alfredo]

Ich mach es mit einem Mini RPG-Programm

C/EXEC SQL
C+ EXECUTE IMMEDIATE :SqlStmt
C/END-EXEC

[schatte]

Hallo,

Ich habe hier ein Savefile mit dem entsprechenden Objekten. Dort enthalten ist das entsprechende Programm, um ein SQL in einem CL auszuführen.
Das Savefile kann ab V3R2M0 rückgesichert werden. Wer interesse hat, bitte bei mir melden. Eigentlich wollte ich die Datei hier hochladen, aber das hat leider nicht geklappt.

Viele Grüße und frohe Weihnachten wünscht euch
Matthias

[Andreas Herzfeldt]

Hallo Matthias, ich wäre an dem SAVF interessiert. Könntest Du den an herzfeldta@toepfer.com senden ?

MFG
Andreas

[RLPforum]

Hallo Matthias, ich wäre auch an dem SAVF interessiert. Könntest Du den an mrzik@tddk.de senden ?

MFG
mrzik

[Proggi]

Hallo Matthias, kannst Du mir das SAVF auch bitte zuschicken, kalle100@web.de

[schatte]

Hallo Proggi,

leider ist deine E-Mail Adresse nicht gültig (RCPT TO <kalle100@web.de> gescheitert: Angeforderte Aktion nicht ausgeführt: Postfach nicht verfügbar).

Gruß Matthias

[schatte]

Ich habe hier noch ein Programm gefunden, welches anscheind noch ein paar mehr Funktionen hat:

http://dbg400.net/cgi-bin/twiki/view/DBG400/ExcSql

[miky]

[quote=schatte;46609]Hallo,

Ich habe hier ein Savefile mit dem entsprechenden Objekten. Dort enthalten ist das entsprechende Programm, um ein SQL in einem CL auszuführen....

Hallo Matthias, bin gerade dabei mein erstes embedded sql zu erstellen und hab eure Beiträge gefunden.

Hast du das savfile noch?

Wenn ja, schicke es mir doch bitte an
michael.schwarz@k-b.de

Danke und Gruss

Michael

[sinclair]

Es gibt da noch einen kleinen Trick.
QMQRY interpretiert den SQL erst nachdem die Variablen gefüllt sind.
Der Inhalt jeder Variable kann bis zu 55 Zeichen lang sein.
Nun kann man also einfach einen QMQRY erstellen:

&V1&V2&V3&V4&V5

Per CLP kann der SQL nun in einer Variablen zusammengebaut werden.
Per "
STRQMQRY ... SETVAR((&V1 (%SST(&MYCLVAR 1 55)) (&V2 (%SST(&MYCLVAR 56 55)) ....)
kann dann jeder beliebige SQL übergeben werden.

(...)

Da gibt's aber ein Problem (arbeite unter V5R4)!
Es werden alle Variablenwerte, die ich dem SETVAR übergebe, getrimmt.
Trifft man zwischen zwei %SST, also z. B. auf Position 55, genau vor oder hinter ein Blank, so wird dieses Blank in der QMQRY-Verknüpfung &V1&V2&V3.... nicht wieder eingefügt.

Sieht in etwa so aus:

&myquery ('select a, b, c, d, e from KundenPF inner join UmsatzPF on etc=blabla WHERE a=b')

&V1 wird: %SST(&myquery 1 55) = 'select a, b, c, d, e from KundenPF inner join UmsatzPF '

&V2 wird: %SST(&myquery 56 55) = 'on etc=blabla WHERE a=b'

Im QM-Qry wird das ganze dann jedoch so zusammengesetzt:
"select a, b, c, d, e from KundenPF inner join UmsatzPFon etc=blabla WHERE a=b"

Da steigt er bei mir aus, da der Blank zwischen UmsatzPF und on verloren genagen ist!

Liegt's am Release, oder kann man bei der Variablenübergabe 'was anders machen, so dass führende/folgende Blanks den SETVAR überleben?

Danke und Gruß
Thomas