DSPFFD

[padawan]

...jetzt sind die Fehler zumindest schon reduziert:

Dim DATEI, LIBR, VAR1, VAR2 AsString
DATEI = txt_datei.Text
LIBR = txt_libr.Text
VAR1 = "CALL TRUMPFH/TTRFDC(" & LIBR & " " & DATEI & ")"
VAR2 = "CALL QSYS.QCMDEXC ('" & VAR1 & "', " & Format(Len(VAR1), "0000000000.00000") & ")"
adocon.con_open()

Joblog:

Nachrichten-ID . . . . : CPD0005 Bewertung . . . . . . : 30
Nachrichtenart . . . . : Diagnose
Sendedatum . . . . . . : 06.10.10 Sendezeit . . . . . . : 08:02:18

Nachricht . . . : Befehlslänge ungültig.
Ursache . . . . : Im zweiten Parameter, der an QCMDEXC oder QCMDCHK gesendet
wurde, wurde eine ungültige Länge angegeben.
Fehlerbeseitigung: Befehlslänge so ändern, dass sie von 1-32702 Zeichen reicht.

[padawan]

...immer wieder derselbe Fehler: Befehlslänge ungültig. Ich weiß nicht, was ich noch ändern soll...

[Fuerchau]

Schau dir das Ergebnis von Var2 an.
Format bereitet mit dem Dezimalkomma auf, was allerdings durch SQL (Abhängig von Verbindungseinstellungen) ggf. nicht erkannt wird, so dass an Stelle von 2 Parametern 3 übergeben werden und der 2. nur Packed(10,0) ist.

Baue noch einen Replace drumherum:

replace(Format(...), ",", ".")

[padawan]

juchhu, das hat funktioniert.
Tausend Dank.

So ist der Aufruf jetzt:

VAR2 = "CALL QSYS.QCMDEXC('" & VAR1 & "', " & Replace(Format(Len(VAR1), "0000000000.00000"), ",", ".") & ")"

Danke.
Gruss
Tobias

[BenderD]

... und, was kriegst du jetzt raus, was nicht schon in der QSYS2.SYSCOLUMNS drinsteht?

D*B

juchhu, das hat funktioniert.
Tausend Dank.

So ist der Aufruf jetzt:

VAR2 = "CALL QSYS.QCMDEXC('" & VAR1 & "', " & Replace(Format(Len(VAR1), "0000000000.00000"), ",", ".") & ")"

Danke.
Gruss
Tobias