Upload - Datei vom Webserver auf AS400

[Fuerchau]

Dann würde ich dir doch lieber den ODBC-Treiber empfehlen. Der IBMDA400 arbeitet da wohl irgendwo nicht ganz sauber.

Per ODBC kannst du dann ganz einfach
"CALL MYLIB.MYPGM" ausführen und in der ODBC-Konfig ggf. auch noch ein Joblog erzeugen lassen.

Ich persönlich mochte den IBMDA400 noch nie.

[padawan]

wie sieht es denn mit diesem Treiber aus:

con_str = "Driver={iSeries Access ODBC Driver};System=my_system_name;Uid=myUsername;Pwd=m yPassword;"
cnn.Open(con_str)

Ist es dann die selbe Syntax:

Dim cnn As ADODB.Connection
Dim con_str AsString
Dim CallCmd As ADODB.Command
'Dim VAR1 As String
cnn = New ADODB.Connection

con_str = "Driver={iSeries Access ODBC Driver};System=SERVERNAME;Uid=USER;Pwd=PW;"
cnn.Open(con_str)

CallCmd = New ADODB.Command
CallCmd.CommandText = "CALL TRUMPFH.THYS00CTTR"
CallCmd.Execute(cnn)
cnn.Close()

[Fuerchau]

Für direkte Aufrufe benötigst du kein Command-Objekt, "cnn.execue" reicht da auch.
Ansonsten hast du Recht, "{}" kennt der ODBC-Treiber nicht.

Beim CallCmd fehlt noch
set CallCmd.ActiveConnection=cnn

[padawan]

...bedanke mich für die Hilfe und die Geduld.

***Jetzt funktionierts***
Tausend Dank - an ALLE.