padawan
18-08-10, 14:33
Hallo
V5R4
folgendes führe ich aus -
in VBA wird gestartet:
...
CallCmd = New ADODB.Command
OnErrorResumeNext
CallCmd3 = "CALL TRUMPFH.TTAUEBFAC2(" & " " & VAR1 & " " & ")"
CallCmd.CommandText = CallCmd3
CallCmd.ActiveConnection = cnn
CallCmd.Execute(cnn)
Im CL --> TRUMPFH.TTAUEBFAC2 :
...
PGM PARM(&VAR1)
DCL VAR(&VAR1) TYPE(*DEC) LEN(6 0)
DCL VAR(&VAR1_A) TYPE(*CHAR) LEN(6)
CHGVAR VAR(&VAR1_A) VALUE(&VAR1)
*/
AUSFÜHREN *********************************************/
*/
DMPCLPGM
STRQMQRY QMQRY(TRUMPFH/TTRINSERT) ALWQRYDFN(*YES) +
SETVAR((VAR1 &VAR1_A))
MONMSG MSGID(CPF0000)
hier die Query (in STRQM):
update trumpfh/ttrwlsvspp set wvldat = &VAR1
VBA übergibt korrekt die Variable an das CL und dann hörts auch schon auf.
5722SS1 V5R4M0 060210 CL-Programmspeicherauszug ICHAS 18.08.10 15:02:50 Seite
Jobname . . . . . . . . . : QZDASOINIT Benutzername . . . . . . : TRUMPFH Jobnummer . . . . . . . . : 023105
Programmname. . . . . . . : TTAUEBFAC Bibliothek . . . . . . . : TRUMPFH Anweisung . . . . . . . . : 2200
Nachrichten
Nachrichten- Nachrichten- Von Bis
Uhrzeit ID Bewertg. Art Text Programm Befehl Programm Befehl
(In Programmnachrichtenwarteschlange keine Nachrichten gefunden)
Variablen
Variable Art Länge Wert Hexadezimalwert
*...+....1....+....2....+ * . . . + . . . . 1 . . . . + . . . . 2 . . . .
&VAR1 *DEC 6 0 100821
&VAR1_A *CHAR 6 '100821' F1F0F0F8F2F1
&VAR2_A *CHAR 6 '100821' F1F0F0F8F2F1
&VAR3_A *CHAR 6 '100821' F1F0F0F8F2F1
* * E N D E D E S S P E I C H E R A U S Z U G S * *
Ist evt bei der SQL-Syntax des Updates etwas falsch oder bei STRQMQRY ???
Vielen Dank.
Gruss
Tobias
V5R4
folgendes führe ich aus -
in VBA wird gestartet:
...
CallCmd = New ADODB.Command
OnErrorResumeNext
CallCmd3 = "CALL TRUMPFH.TTAUEBFAC2(" & " " & VAR1 & " " & ")"
CallCmd.CommandText = CallCmd3
CallCmd.ActiveConnection = cnn
CallCmd.Execute(cnn)
Im CL --> TRUMPFH.TTAUEBFAC2 :
...
PGM PARM(&VAR1)
DCL VAR(&VAR1) TYPE(*DEC) LEN(6 0)
DCL VAR(&VAR1_A) TYPE(*CHAR) LEN(6)
CHGVAR VAR(&VAR1_A) VALUE(&VAR1)
*/
AUSFÜHREN *********************************************/
*/
DMPCLPGM
STRQMQRY QMQRY(TRUMPFH/TTRINSERT) ALWQRYDFN(*YES) +
SETVAR((VAR1 &VAR1_A))
MONMSG MSGID(CPF0000)
hier die Query (in STRQM):
update trumpfh/ttrwlsvspp set wvldat = &VAR1
VBA übergibt korrekt die Variable an das CL und dann hörts auch schon auf.
5722SS1 V5R4M0 060210 CL-Programmspeicherauszug ICHAS 18.08.10 15:02:50 Seite
Jobname . . . . . . . . . : QZDASOINIT Benutzername . . . . . . : TRUMPFH Jobnummer . . . . . . . . : 023105
Programmname. . . . . . . : TTAUEBFAC Bibliothek . . . . . . . : TRUMPFH Anweisung . . . . . . . . : 2200
Nachrichten
Nachrichten- Nachrichten- Von Bis
Uhrzeit ID Bewertg. Art Text Programm Befehl Programm Befehl
(In Programmnachrichtenwarteschlange keine Nachrichten gefunden)
Variablen
Variable Art Länge Wert Hexadezimalwert
*...+....1....+....2....+ * . . . + . . . . 1 . . . . + . . . . 2 . . . .
&VAR1 *DEC 6 0 100821
&VAR1_A *CHAR 6 '100821' F1F0F0F8F2F1
&VAR2_A *CHAR 6 '100821' F1F0F0F8F2F1
&VAR3_A *CHAR 6 '100821' F1F0F0F8F2F1
* * E N D E D E S S P E I C H E R A U S Z U G S * *
Ist evt bei der SQL-Syntax des Updates etwas falsch oder bei STRQMQRY ???
Vielen Dank.
Gruss
Tobias