-
ADO: Call mit Parametern
Hallo,
V5R4 und VBA (dotnet)
Dieser Call-Befehl funktioniert auf der AS400, wenn ich dieses in der Befehlszeile eingebe:
CALL PGM(TTR/TTRENOMAC) PARM('W' X'012062010C' X'019062010C')
Genau diesen Call möchte ich per VBA starten, läuft aber auf Fehler:
[IBM][iSeries Access ODBC-Treiber][DB2 UDB]SQL0104 - Token X'012062010C' ungültig. Gültige Token: ) ,.
cnn.Open(con_str)
CallCmd = New ADODB.Command
CallCmd.CommandText = "CALL TTR.TTRENOMAC('W' X'012062010C' X'019062010C')"
CallCmd.ActiveConnection = cnn
CallCmd.Execute(cnn)
cnn.Close()
Auch diese zwei Aufrufe laufen auf Fehler:
'CallCmd.CommandText = "CALL TTR.TTRENOMAC('W' datv datb)"
'CallCmd.CommandText = "CALL TTR.TTRENOMAC('W' 'X'012062010C'' 'X'019062010C'')"
Das CL, das ich damit starte, erwartet drei Parameter und der zweite und dritte Parameter muss hexadecimal übergeben werden.
Wie formuliere ich das richtig?
Danke.
Gruss
Tobias
-
Bei SQL müssen die Parameter mit Komma getrennt werden:
call XXX ('X', x'0001')
-
-
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
-
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.
Zitat von padawan
CallCmd.CommandText = "CALL TTR.TTRENOMAC('W', hex(datv), hex(datb))"
-
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.
Similar Threads
-
By hh-mi in forum IBM i Hauptforum
Antworten: 5
Letzter Beitrag: 15-11-06, 12:23
-
By Asti in forum IBM i Hauptforum
Antworten: 2
Letzter Beitrag: 26-10-06, 09:39
-
By harkne in forum NEWSboard Programmierung
Antworten: 5
Letzter Beitrag: 01-06-06, 12:42
-
By alexander may in forum IBM i Hauptforum
Antworten: 4
Letzter Beitrag: 18-05-06, 20:16
-
By cbe in forum NEWSboard Programmierung
Antworten: 2
Letzter Beitrag: 01-08-05, 15:12
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks