Hallo, betrifft V5R4

dieses u.g. CL funktioniert, wenn ich die Parameter in der Befehlszeile eingebe:

CALL SCHMIDT/TTRFDC (xxx yyy)


PGM PARM(&DATEI &LIBR)
DCL VAR(&DATEI) TYPE(*CHAR) LEN(10)
DCL VAR(&LIBR) TYPE(*CHAR) LEN(10)
DSPFFD FILE(&LIBR/&DATEI) OUTPUT(*OUTFILE) +
OUTFILE(SCHMIDT/FFD)
OVRDBF FILE(QADSPFFD) TOFILE(SCHMIDT/FFD)
RUNQRY QRY(SCHMIDT/SCHFDTTR)
ENDPGM

Wenn ich das Programm über ADO starte, scheint es als ob die Parameter nicht mitgeben werden:

Dim datei, libr, VAR1 As String
datei = txt_datei.Text
libr = txt_bibl.Text
Dim cnn As ADODB.Connection
Dim con_str As String
Dim CallCmd As New ADODB.Command
cnn = New ADODB.Connection
VAR1 = "CALL SCHMIDT.SCHFDC (" & datei & ", " & libr & ")"
adocon.con_open()
CallCmd = New ADODB.Command
OnErrorResumeNext
CallCmd.CommandText = VAR1
CallCmd.ActiveConnection = adocon.cnn
CallCmd.Execute(adocon.cnn)
adocon.con_close()

Was mach ich falsch?

Danke.
Gruss
Tobias