Programm auf der AS400 erwartet zwei Eingaben: Datumsparameter (PADATV und PADATB) im Format ttmmjjjj und die Eingaben werden anschließend mit Enter bestätigt, aber trotzdem ruft u.g. Code das Programm nicht auf und führt es aus (Fehlermeldung kommt auch keine). Was mache ich evt falsch? Würden Sie mal drüber schauen?
Danke.


ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Button1.Click
Dim AS400Name AsString = "AS400Server"
Dim AS400User AsString = "USER"
Dim AS400Password AsString = "PWD"
Dim AS400Pgm = "TTRRENOMR"
Dim AS400Lib = "TRUMPFH"
Dim AS400 AsNew cwbx.AS400System
Dim program AsNew cwbx.Program
OnErrorResumeNext
AS400.Define(AS400Name)
'AS400.Connect("CALL DTALIB/RENOMAC")
program.system = AS400
program.system.UserID = AS400User
program.system.Password = AS400Password
program.LibraryName = AS400Lib
program.ProgramName = AS400Pgm
'************************************************* ********
'Parameter
Dim stringConverter AsNew cwbx.StringConverterClass()
Dim packedConverter AsNew cwbx.PackedConverterClass()
packedConverter.DecimalPosition = 0
packedConverter.Digits = 8
Dim parameters AsNew cwbx.ProgramParametersClass()
'parameters.Append("Parameter1Name", cwbx.cwbrcParameterTypeEnum.cwbrcInout, 1)
'stringConverter.Length = 1
'parameters("Parameter1Name").Value = stringConverter.ToBytes("W".PadRight(1, " "c)) '
parameters.Append("PADATV", cwbx.cwbrcParameterTypeEnum.cwbrcInout, 8)
stringConverter.Length = 8
parameters("PADATV").Value = stringConverter.ToBytes("01012010".PadRight(8, " "c)) '
parameters.Append("PADATB", cwbx.cwbrcParameterTypeEnum.cwbrcInout, 8)
stringConverter.Length = 8
parameters("PADATB").Value = stringConverter.ToBytes("13022010".PadRight(8, " "c)) '

parameters.Append("PADATV", cwbx.cwbrcParameterTypeEnum.cwbrcInout, 8)
parameters("PADATV").Value = packedConverter.ToBytes("8") '

AS400.Signon()
AS400.Connect(cwbcoServiceEnum.cwbcoServiceRemoteC md)
program.Call(parameters)

EndSub