Bind Error on Host Variable for DATE function

[bmeansdfw]

I am receiving a bind error when compiling a Cobol program. The error is:

-171 THE DATA TYPE, LENGTH, OR VALUE OF ARGUMENT nn OF function-name IS
INVALID

The error is on the WS-TEMP-MONTHS host variable.

EXEC SQL
SELECT DATE((:WS-TEMP-DB2-DATE) + :WS-TEMP-MONTHS MONTHS)
INTO :WS-TEMP-EXP-DATE
FROM SYSIBM.SYSDUMMY1
END-EXEC

WS-TEMP-MONTHS is defined as PIC S9(8) COMP.

Does anyone know of this is the right variable definition?

[bmeansdfw]

Well, I ended up replacing that statement with:

EXEC SQL
SET :WS-TEMP-EXP-DATE = DATE(:WS-TEMP-DB2-DATE) +
:WS-TEMP-SHELF-LIFE MONTHS
END-EXEC

It compiled just fine.