View previous topic :: View next topic |
Author |
Message |
20cents Beginner
Joined: 26 Oct 2005 Posts: 25 Topics: 7 Location: Between Heaven and Hell
|
Posted: Thu Jan 12, 2006 4:53 am Post subject: DB2 - Update Error (-180) |
|
|
What's wrong with this code?
Code: |
EXEC SQL
UPDATE TBC_CHGOF
SET DATE_CHGOF_RVRSL = :KCO-DATE-CHGOF-RVRSL
:KCO-DATE-CHGOF-RVRSL-IND,
INDC_CHGOF_RESET = :KCO-INDC-CHGOF-RESET,
TIME_LAST_UPD = CURRENT TIMESTAMP,
RFRN_REP_LAST_UPD = :KCO-RFRN-REP-LAST-UPD
WHERE NBR_CARDH_ACCT = :KCO-NBR-CARDH-ACCT
AND TIME_ADD = :KCO-TIME-ADD
END-EXEC
|
I ended with:
DSNT408I SQLCODE = -180, ERROR: THE DATE, TIME, OR TIMESTAMP VALUE *N IS
INVALID
DSNT418I SQLSTATE = 22007 SQLSTATE RETURN CODE |
|
Back to top |
|
|
kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12358 Topics: 75 Location: San Jose
|
|
Back to top |
|
|
20cents Beginner
Joined: 26 Oct 2005 Posts: 25 Topics: 7 Location: Between Heaven and Hell
|
Posted: Thu Jan 12, 2006 6:00 am Post subject: |
|
|
Thanks kolusu for the prompt reply.
I saw the error... KCO-DATE-CHGOF-RVRSL contained 0833102005 which is an invalida date format. What puzzles me... the re-formatting done in the Working Storage didn't seem to work.
01 WS-CURR-DATE.
05 WS-CURR-MONTH PIC X(2) VALUE SPACES.
05 FILLER PIC X VALUE '/'.
05 WS-CURR-DAY PIC X(2) VALUE SPACES.
05 FILLER PIC X VALUE '/'.
05 WS-CURR-YEAR PIC X(4) VALUE SPACES. |
|
Back to top |
|
|
|
|