Eingebettetes SQL im RPG

[BenderD]

... da sollte es hier im Forum schon Beispiele geben - und wenn man sich die Mühe des suchens ersparen will, gibt es immer noch das FM...

D*B

wie geht dynamisches sql unter rpg?

wie müsste da so ein declare mit aufruf aussehen.

dynamisches sql kenn ich bisher nur von oracle, habs aber unter db2 und rpg nie verwendet.

ein kurzes syntaxbeispiel oder so wäre fein?

[B.Hauser]

Hallo,

mit welchem Release arbeitest DU?
Ich habe gerade unter V5R4 ein Mini-Programm mit embedded SQL Cursor und Substring mit Host-Variablen in den Where-Bedinungen erstellt. Die Ausführung läuft ebenfalls problemlos.

D BegPos          S              5I 0            
D Len             S              5I 0            
D Text            S             50A        
 /Free      
    BegPos = 3;                                                          
    Len    = 5;                                                          
                                                                         
    Exec SQL  Declare CsrC01 Cursor For    
          Select Name1F From MYTABLE
             Where Substr(Name, :BegPos, :Len) = 'ABCDE'; 
                                                                         
    Exec SQL  Open CsrC01;                                               
    Dsply SQLCOD;                                                        
    Exec SQL  Fetch Next From CsrC01 into :Text;                  
    Dsply SQLCOD;                                             
    Dsply Text;           
    Exec SQL  Close CsrC01;  
    *INLR = *ON;                                            
 /End-Free 

... übrigens in SQL heißt die scalare Funktion SUBSTR (und nicht SUBST, das ist RPG!)

Birgitta

[Souljumper]

hab hier v5r1

mit free rpg arbeiten wir gar nicht, nur rpg 4.

muss ich beim dynamischen sql jedesmal den prepare und declare ausführen bevor ich einen open mache?

Mein programm wird nämlich von einem asy-job aufgerufen und bin mir jetzt nicht sicher warum ich andauernd die fehlercodes 514 kriege.

[B.Hauser]

Das funktioniert mit klassischem RPG genauso.
Es funktioniert sogar mit RPGIII.

Hast Du mal versucht SUBSTR statt SUBST zu scheiben.

Beim dynamischen SQL wird der SQL-Befehl zur Laufzeit zusammengepfriemelt und dann in einen ausführbaren SQL-Befehl (geschieht beim PREPARE) konvertiert.

Deshalb: Prepare, Declare, Open ist immer erforderlich. Es sei den das gleiche SQL statement wird mehrfach ausgeführt, dann genügt ein OPEN.

Birgitta

[Souljumper]

hm

hab mr jetzt mal ein minimal beispiel gebastelt, das funktioniert nur wenn ich in der reihenfolge

declare, prepare, open vorgehe

ich finde ein beispiel für prepare, declare, open auch auf den ibm seiten, aber die funktionieren bei mir nicht....

sqlcode 440 oder 514 sind da die regelmäßigen antworten.

[Souljumper]

das problem scheint mein substringbefehl zu sein.

sobald ich in meinem vorbereiteten statement string ein

substr(feld1, 1, ?) = ?

einbaue, schlägt der prepare fehl.

ist die syntax bei substr anders?

[Souljumper]

er kann es nicht, aus welchen gründen auch immer.

stmnt = 'substr(feld1, 1, ' + %trim(len) + ') = ?'

funktioniert -.-*

[Fuerchau]

Das "?" als Parameter funktioniert ausschließlich bei dynamischen SQL mit USING SQLDA.

Bei eingebettetem SQL benötigst du immer Hostvariablen.

Aber beachte doch bitte Birgittas Hinweis auf deinen Schreibfehler.

[BenderD]

... man kann durchaus ein SQL Statement mit ? als Parametermarker preparen und dann mit open using verarbeiten...

D*B

Das "?" als Parameter funktioniert ausschließlich bei dynamischen SQL mit USING SQLDA.

Bei eingebettetem SQL benötigst du immer Hostvariablen.

Aber beachte doch bitte Birgittas Hinweis auf deinen Schreibfehler.

[Fuerchau]

@Dieter
War das nicht eindeutig: "mit USING SQLDA" ?

[BenderD]

... da geht auch using :myVar1, :myVar2 ..., wobei dann die Liste der HostVars in die Parametermarker einsortiert wird (geht beim execute genauso, mit den üblichen Limitierungen, wie keine Feldnamen etc)

D*B

@Dieter
War das nicht eindeutig: "mit USING SQLDA" ?