MVSFORUMS.com

[sri50131]

Hello,

I am getting a -171 when trying to update a date column.

Here is what I am doing:

Using a inhouse date rotinue, I am getting Today's date and I am moving it into WS-TDATE.

05 WS-TDATE.
10 WS-TMONTH PIC X(2).
10 FILLER PIC X VALUE '/'.
10 WS-TDAY PIC X(2).
10 FILLER PIC X VALUE '/'.
10 WS-TYEAR PIC X(4).

Then, I am doing the following:

WS-TDATE TO D-START OF DCLCOV-C.

I am then trying to update the column as follows:

UPDATE COV_C
SET D_END = DATE(:DCLCOV-C.D-START - 1 DAY)
WHERE D_END = '12/31/9999'

what is that I am doing wrong?

Thanks.

[kolusu]

sri50131,

what is your Date format of D_END? Is it MM/DD/YYYY ? . I guess it is different date format.

Put a display after this move.

WS-TDATE TO D-START OF DCLCOV-C.

make sure that you have a valid date format.

Hope this helps...

Cheers

Kolusu
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu

[sri50131]

Kolusu,

D_End is of DATE format. I was able to insert a row using SPUFI with D_END = 12/31/9999. So, I guess that format is DD/MM/YYYY. D_START is also of DD/MM/YYYY format. The column has a value of 01/01/1990 in the table.

Another thing, in Changeman, to Bind your program you have to promote the code to the next level to test the program. I am failing when I am promoting the code to the next level.

Thanks.

[kolusu]

Sri50131,

Try running this in spufi and see if it works.

[Bithead]

Should this not read

SET D_END = DATE(:DCLCOV-C.D-START) - 1 DAY

[kolusu]

Bithead,

My bad. I was wrong. Your syntax is the correct syntax. But if you are using current date then you can code it as follows

[sri50131]

Bithead,

You are correct. Thanks a lot.