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
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