View Full Version : RPG-CALL mit Parameter aus VB...
Hallo zusammen,
bei dem Versuch, ein RPG-Programm auf der AS400 auszuführen tritt
ein Problem auf, der da lautet:
Run-time error '-2147217865(80040e37)':
[IBM][Client Access ODBC-Treiber (32-Bit)[DB2/400 SQL]
SQL0204 - RPGPGM1 der Art *N in LIB1 nicht gefunden.
hier kurz der Code...
as400db.ConnectionString = "DRIVER=Client Access ODBC Driver (32- bit);SYSTEM=UnserSys;"
as400db.CursorLocation = adUseClient
as400db.Open , "USR", "PW"
Set as400cmd.ActiveConnection = as400db
Set as400rs.ActiveConnection = as400db
as400cmd.CommandText = "{{CALL LIB1.CLPGM}}"
as400cmd.Execute
Set parmOUT = as400cmd.CreateParameter("IsDa", adChar, , 1)
as400cmd.Parameters.Append parmOUT
as400cmd.CommandText = "{{CALL LIB1.RPGPGM1(?)}}"
as400cmd.Execute
Just bei diesem Execute tritt der oben zitierte Fehler auf :confused:
Weiss jemand wieso?
Der Parameter im RPG Programm ist so definiert:
*Entry PLIST
PARM IsDa
Da ich AS400-Neuling bin, könnte es ja eventuel auch daran liegen?
Vielen Dank für eure Hilfe und schöne Grüße aus dem Sauerland,
BeWe
Der Fehler deutet zuerst darauf hin, dass das Programm nicht gefunden wird !
Anmerkung:
Installiere das Toolkit von CA, dann kannst du über das VB-AddIn dir die Programmaufrufe generieren lassen.
das habe ich auch zuerst gedacht, aber wenn im CommandText
das (?) rauslasse wird das Programm zwar aufgerufen, scheitert dann
auf der AS400 aber am fehlenden Eingangsparameter.
Das mit dem Toolkit-Tip habe ich schon probiert, leider musste ich
feststellen, dass der Zugriff per SQL bei Provider=IBMDA400 langsamer ist
als mit Driver=Client Access ODBC Driver (32-bit) im Connectionstring.
Desweiteren ist nicht ganz ersichtlich, wie denn jetzt über das ADODB.
Connection-Object direct Parameter an die Execute-Methode übergeben werden
können, da dieses Objekt keine Parameter-Collection hat :confused:, ist dieses *N
vielleicht ein Umwandlungs-Parameter des ILERPG-Programms auf der AS400?
Vielen Dank für Ihre Hilfe, wüssten sie vielleicht noch einen anderen Tip?
Ok, Ok, mein Fehler.... habe nicht gesehen, wie man Programme
auswählen kann... hab es dann soweit verfolgt... dort wird dann
der Commandtext so generiert....
{{CALL /QSYS.LIB/SAGPLIB.LIB/PSEULABRPG.PGM(?)}}
Alles andere ist identisch mit meinem Aufruf, aber bei diesem
Call bemängelt er schon den ersten Slash vor QSYS als ungültigen
Token...
...was mir leider auch nicht wirklich hilft ;)
Haben Sie noch eine andere Idee?
Was den IBMDA400 angeht hast du leider recht !
Ich verwende auch nicht den {{CALL ...}}, sondern erstelle mir eine Prozedur:
myConn.Execute "CREATE PROCEDURE QTEMP.QCMDEXC (IN :PARM1 CHAR (512), IN :PARM2 DEC(15, 5)) LANGUAGE CL NOT DETERMINISTIC NO SQL EXTERNAL NAME QSYS.QCMDEXC PARAMETER STYLE GENERAL", , adExecuteNoRecords
(Fehler kann ignoriert werden, wenn Prozedur schon da)
Mein Command-Objekt:
With cCallCmd
.Name = "CallCmd"
Set .ActiveConnection = cConnect
.CommandText = "{CALL QTEMP.QCMDEXC (?, ?)}"
.CommandType = adCmdText
.Prepared = True
End With
Der Aufruf erfolgt dann analog:
cCallCmd.Execute(,Array(Cmd, Len(Cmd)))
Der 2. Paramter des Execute kann ein Parameter-Array enthalten.
Dieses Verfahren kannst du bestimmt auf dein Programm umsetzen.
Vielen Dank für den Tip. Jedoch kann ich mit dem SQL-Statement
von seiner Bedeutung her nicht all zu viel anfangen, weswegen
ich doch lieber weiter auf der Suche nach dem Ursprung der
Fehlermeldung bleibe, um letzten Endes zu wissen, wie das Programm
auch läuft ;)
Trotzdem vielen Dank nochmals.
Hallo Fuerchau,
leider habe ich bis jetzt keine andere Lösung gefunden und bin somit dann
doch fest entschlossen, deinen Code-Ausschnitt gerne zu benutzen. Nur
leider verstehe ich es nicht so ganz.
Ich habe ein rpg Programm in Lib SAGP und es heisst Pseulabrpg hat einen Paramter
der Etwas zurückliefert (also OUT?) Wie müsste das ganze dann aussehen?
Woher kommt denn der letzte cmd Parameter bei deinem Exceute?
Wäre wirklich sehr nett, wenn du da nochmal helfen könntest, da ich sonst
leider verzweifle :)
Mit freundlichem Gruße, BeWe
Also:
Ein CALL mit dem ODBC-Treiber ist nur auf Prozeduren möglich !
Der generierte CALL "{{CALL /qsys.lib/...." funktioniert so wie das Toolkit ihn erstellt, allerdings nur mit dem IBMDA400, da dann der SQL-Weg umgangen wird.
Wenn du also sowohl SQL als auch Programm-Calls verwenden willst, kannst du
a) 2 Verbindungen nutzen: 1 ODBC für SQL und die 2. IBMDA400 für CALL PGM
b) für jedes Programm eine Prozedur erstellen
Für die Prozedurerstellung kannst du das Beispiel oben nehmen, für den Ausgabeparameter ist dann OUT anzugeben.
Was den letzten Parameter des Execute's angeht, so sollte dieser angewendet werden wenn kein RecordSet zurückgegeben wird, was ja bei fast allen SQL-Befehlen ausser Select der Fall ist.
Der Grund ist, dass Execute sonst ein leeres Recordset-Object erstellt das anschließend sowieso wieder verworfen wird.
Hallo und wiedermals lieben Dank,
habe das dann alles so befolgt, aber komme nun zu der Fehlermeldung:
"Die Argumente sind vom falschen Typ, liegen außerhalb des Gültig-
keitsbereiches oder sind miteinander unvereinbar"
Das bei folgendem Code:...
On Error Resume Next
as400db.Execute "CREATE PROCEDURE QTEMP.QCMDEXBW (IN :PARM1 CHAR (512), OUT :PARM2 CHAR(1)) LANGUAGE RPG NOT DETERMINISTIC NO SQL EXTERNAL NAME QSYS.QCMDEXC PARAMETER STYLE GENERAL", , adExecuteNoRecords
On Error GoTo 0
'(Fehler kann ignoriert werden, wenn Prozedur schon da)
With as400cmd
Set .ActiveConnection = as400db
.CommandText = "{CALL QTEMP.QCMDEXBW(?)}"
.CommandType = adCmdText
.Prepared = True
End With
cmd = "CALL SAGPLIB.PSEULABRPG(?)"
'as400cmd.Parameters.Append as400cmd.CreateParameter("PARM1", adChar, adParamOutput, 1)
as400cmd.Execute , Array(cmd, Len(cmd))
Ich hoffe mir ist da einfach nur ein grober Schnitzer unterlaufen, oder wieso
kommt es nicht zum gewünschten Ergebnis? Ich wüsste auch nicht, wie
ich dann, bei erfolgreicher Ausführung den Paramter auslesen könnte?
Tut mir wirklich Leid, wie gesagt, bin ich völliger AS400-Neuling :(
Kleine Korrektur...
as400db.Execute "CREATE PROCEDURE QTEMP.QCMDEXBW (IN :PARM1 CHAR (512), IN :PARM2 DEC(15, 5), OUT :PARM3 CHAR(1)) LANGUAGE RPG NOT DETERMINISTIC NO SQL EXTERNAL NAME QSYS.QCMDEXC PARAMETER STYLE GENERAL", , adExecuteNoRecords
With as400cmd
Set .ActiveConnection = as400db
.CommandText = "CALL QTEMP.QCMDEXBW(?,?,?)"
.CommandType = adCmdText
.Prepared = True
End With
cmd = "CALL PGM(SAGPLIB/PSEULABRPG)"
as400cmd.Execute , Array(cmd, Len(cmd), result)
So wird zwar alles richtig aufgerufen, aber wieder bekommt doch das Programm
Pseulabrpg keinen Zeiger für den Rückgabeparameter und stürtzt ab.
Ein Königreich für alle, die mir da jetzt den letzten Denkanstoß, nein besser
gleich die Lösung :D geben können.
Erneut mit freundlichstem Gruße, BeWe