Embedded SQL (EXEC SQL) und QMHRCVPM

[B.Hauser]

Sorry, ich hatte das Wörtchen "Condition" in meinem Beispiel vergessen. Das kommt davon wenn man irgendwas aus dem Kopf tippt ohne Zugriff auf eine Maschine.

@JIM
SQL ist nicht SQL (trotz Standard) und DB2 ist auch nicht DB2!
Die DB2s für Linunx, Unix, Windows und z-Series funktionieren in einigen Bereichen anders als die DB2 UDB for i, einfach deshalb, weil die DB2 UDB for i direkt im Betriebssystem integriert ist.

So können z.B. beim GET DIAGNOSTICS auf der AS/400 (oder wie auch immer) wesentlich mehr Informationen ausgegeben werden und für Condition-Informationen schreibt man auch CONDITION (was ich im obigen Beispiel vergessen hatte) und nicht EXCEPTION!

Aus diesem Grund ist es besser, sich die SQL Referenz für die DB2 UDB for i zur Brust zu nehmen.
Hier ist der Link zu GET DIAGNOSTICS auf der AS/400:
Get Diagnostics

Die 1 ist im embedded SQL einfach eine beliebige Zahl (oder auch Variable), die für die Syntax bei Condition Informationen erforderlich ist.
Birgitta

[Tobse77]

Guten Morgen Birgitta,

vielen Dank für die prompte und hilfreiche Antwort - wie gewohnt ;-)

Die Befehlsreferenz zu GET DIAGNOSTICS habe ich mir zwar schon angeschaut, aber die richtige Syntax hat sich mir daraus nicht erschlossen.

Mein Statement sieht nun folgendermaßen aus:
Get current Diagnostics CONDITION 1 :SQLMSG = MESSAGE_TEXT;

Und das Beste ist: ES FUNKTIONIERT AUCH NOCH!!! :-)

Habe zuvor mittels API QMHRTVM den SQL-Code aus QSQLMSG ausgelesen, was gegenüber der Get Diagnostics-Funktion natürlich viel umständlicher ist und dazu auch bei z. B. SQL0100 nur die Meldung "Zeile für &1 nicht gefunden" zurückgemeldet hat. Nun bekomme ich folgerichtig "Zeile für INSERT nicht gefunden"

Vielen Dank nochmals!!

[B.Hauser]

Habe zuvor mittels API QMHRTVM den SQL-Code aus QSQLMSG ausgelesen, was gegenüber der Get Diagnostics-Funktion natürlich viel umständlicher ist und dazu auch bei z. B. SQL0100 nur die Meldung "Zeile für &1 nicht gefunden" zurückgemeldet hat. Nun bekomme ich folgerichtig "Zeile für INSERT nicht gefunden"

Mit QMHRTVM bzw. RtvMsg wäre das auch gegangen, man muss lediglich wissen, dass die variablen Message-Texte (MSGDTA) im Feld SQLERM in der SQLCA hinterlegt sind.

Birgitta

[Tobse77]

Schon wieder was dazu gelernt... so langsam wird es wohl Zeit für den Feierabend ;-)

Dass ich das Feld MSGDTA mit Variablen bestücken muss, habe ich aus der Bef.Ref. ersehen, jedoch nicht, woher ich die SQL-Variablen herbekomme.
Danke für den Hinweis!!