SQL-Befehl im CL

[dino]

Hallo AS/400-Gemeinde, wie bette ich einen SQL-Befehl (z.B. "delete from bib/dat where kdnr = 4711) in ein CL ein?

[prsbrc]

Hi!
Wenn es sich um ein Statement handelt, welches immer gleich bleibt kannst du das STatement in eine Teildatei schreiben und diese dann mittels RUNSQLSTM im CL ausführen lassen.

RUNSQLSTM SRCFILE(LIB/SRCFILE) SRCMBR(MEMBER)

!! Auf die COMMIT-Steuerung aufpassen !!

MfG

[Pikachu]

Oder die SQL-Anweisung in ein QM-Query schreiben und dieses dann mit STRQMQRY aufrufen. Dabei sind dann auch Variablen möglich (bei den Variablennamen auf Groß/Kleinschreibung achten!).

[dino]

Danke für die schnelle Antwort. Habe eine QSQLSRC mit einem Member SQLCMD001 angelegt mit einerm Select-Befehl und im CL den entspr. RUNSQLSTM. Fehler SQL9010 kommt ... Was ist die "Commit"-Steuerung?

[Pikachu]

Soweit ich weiß ist beim RUNSQLSTM leider kein SELECT möglich. Beim RUNSQLSTM wird aber eine Spooldatei erstellt. Da steht vielleicht genaueres zu diesem Fehler drin.

Die COMMIT-Steuerung regelt, wie und wann Änderungen an Dateien festgeschrieben werden. Falls du das nicht einsetzt, dann solltest du den Parameter "COMMIT-Steuerung" beim Aufruf mit RUNSQLSTM auf *NONE setzen.

[prsbrc]

Hi!
Vieleicht hilft dir das InfoCenter weiter und ich bin mir nicht sicher ob eine SELECT - Anweisung mit dem RUNSQLSTM funktioniert.
Updates und Deletes sollten aber funktionieren.

Run SQL Statements (RUNSQLSTM)

MfG

[dino]

Danke, aber noch eine Frage: Welche Art muß die Teildatei haben? Ich habe sie als "TXT" angelegt

[schatte]

Hallo,

schau dir mal folgenden Beitrag an:
http://www.newsolutions.de/forum-sys...erstellen.html

Den RUNSQL Command kannst du dir hier runterladen:
Willkommen zu Schatte's Seite

Gruß
Matthias

[dino]

Alles klar: Nach Einfügen des Commit-Parameters (*none) läuft mein DELETE über den Membereintrag sauber.

[Fuerchau]

Nur so am Rande:
RUNSQLSTM ist nur in Verbindumg mit STRSQL zu haben.
Ist STRSQL nicht möglich (nicht installiert), gibts auch kein RUNSQLSTM.

Andererseits sind QMQRY-Objekte immer ausführbar.

[UFK]

Jaaa, der Tip ist
manchmal Geld wert