ADO: Call mit Parametern

[Fuerchau]

Bei SQL müssen die Parameter mit Komma getrennt werden:

call XXX ('X', x'0001')

[padawan]

danke, hat geklappt.

[padawan]

Hallo Herr Fuerchau,

wie muss ich das machen, damit die zwei Parameter die in Hexadecimal übergeben werden müssen, als Variable übergeben kann:

CallCmd.CommandText = "CALL TTR.TTRENOMAC('W' datv datb)"

anstatt

'CallCmd.CommandText = "CALL TTR.TTRENOMAC('W', X'012062010C' 'X'019062010C'')"


Die Variablen datv und datb sind im CL als:

PGM PARM(&OPTION &DATV &DATB)
DCL VAR(&OPTION) TYPE(*CHAR) LEN(1)
DCL VAR(&DATV) TYPE(*DEC) LEN(8 0)
DCL VAR(&DATB) TYPE(*DEC) LEN(8 0)

deklariert.

Danke und Gruss
Tobias

[andreaspr@aon.at]

Wenn du im CL Dec(8, 0) definiert hast, warum musst du dann Hex übergeben?

In Sql gibts auch die Hex()-Funktion, falls dir das weiter hilft. Wobei ich fürcht, dass dies erst ab V7R1 geht.

CallCmd.CommandText = "CALL TTR.TTRENOMAC('W', hex(datv), hex(datb))"

[Fuerchau]

Die Hexfunktion liefert die den expandierten Hexcode als Zeichenkette, was dir hierbei allerdings nicht hilft, da der Call Parameter in Hexform mit X'....' dann selber umwandelt.