Hallo,

hab nur noch diese kleine Änderung vorgenommen und schon klappte es !



von :
cnn.Execute "CALL QCMDEXC ('" & CallCmd & "', " & Format(Len(CallCmd), "0000000000.00000") & ")"


auf :
cnn.Execute "CALL QSYS.QCMDEXC ('" & CallCmd & "', " & Format(Len(CallCmd), "0000000000.00000") & ")"
SUPER,vielen Dank
MFG ERIC