Hallo Herr Fuerchau,

einwandfrei, so funktioniert es jetzt.

CallCmd = "CALL PGM(OBJLIB/TTREKLA1) PARM(" & VAR11 & " " & VAR22 & ")"

cnn.Execute ("CALL QSYS.QCMDEXC ('" & Replace(CallCmd, "'", "''") & "', " & Format(Len(CallCmd), "0000000000.00000") & ")")

Ich bedanke mich 5-6000 mal. Danke Herr Fuerchau und eine schöne Woche noch.

Gruss
Tobias