ADO und QSYS.QCMDEXC --> Syntaxfehler

[padawan]

Hallo,
erster Erfolg:
folgender Befehl auf der AS400 funktioniert jetzt:

CALL PGM(QSYS/QCMDEXC) PARM('STRQMQRY QMQRY(TRUMPFH/TTRWLSVST1) OUTPUT(*OUTFILE) OUTFILE(TRUMPFH/TTRWLSVST1) ALWQRYDFN(*YES) SETVAR((VAR1 100724))' 0000000117.00000)

aber,

der Befehl über ADO bringt einen Fehler:

CallCmd2 = "CALL PGM(QSYS/QCMDEXC) PARM('" & CallCmd & "', " & Replace(Format(Len(CallCmd), "0000000000.00000"), ",", ".") & ")"
[IBM][iSeries Access ODBC-Treiber][DB2 UDB]SQL0104 - Token QSYS ungültig. Gültige Token: :.

auch die Korrektur auf:
...PGM(QSYS.QCMDEXC)...
bringt den selben Fehler

Was kann ich da machen?

Danke
Gruss
Tobias

[Fuerchau]

Siehe meine vorherige Antwort.
STRQMQRY geht nicht über SQL.
Du musst dir eine andere Lösung einfallen lassen.

Nochmal:
Führe den enthaltenen SQL doch direkt selber aus.

[padawan]

...wäre es denn möglich, ein Programm über ADO auf der AS400 aufzurufen, der dann diesen besagten Befehl auführt. Das wäre doch auch eine Möglichkeit?

Gruss
Tobias

[Fuerchau]

Ja, das ginge.
Allerdings muss das ein CLLE/RPGLE-Programm mit einer eigenen Aktivierungsgruppe sein damit ein eigener Connect zu der DB erfolgen kann. Allerdings weiß ich nicht, in welcher Aktivierungsgruppe STRQMQRY ausgeführt wird. Wenn es *CALLER ist hast du gewonnen ansonsten verloren.
Alternativ könntest du einen SBMJOB in dem CLP machen und auf das Ende des Job's (JOBAPI) warten. Das wird dann richtig kompliziert.

Aber warum sträubst du dich dagegen, den Select selber zu verarbeiten und machst es so kompliziert ?