CLLE and date type parameter in RPGLE subprocedure

This is a multi-part message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
When subprocedure RtvWeekOfYear in service program is called from CLLE, date
data type parameter DateIn contains garbage. Is the only way to make this
work is to change the parameter to character data type?

Thanks...

DCL        VAR(&ENDDATE) TYPE(*CHAR) LEN(10) VALUE('2002-12-07')
DCL        VAR(&weekOfYear) TYPE(*DEC) LEN(6 0)

CALLPRC    PRC(rtvWeekOfYear) PARM(&ENDDATE) +
             RTNVAL(&weekOfYear)


.....DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++
++++
     D RtvWeekOfYear   PR            10I 0
     D                                 D   Value

..... *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
...+... 8
     P RtvWeekOfYear   B                   Export
     D RtvWeekOfYear   PI            10I 0
     D  DateIn                         D   Value
     ...
     P RtvWeekOfYear   E

Reggie Acosta
Sr. Programmer/Analyst
Brown Jordan Company
9860 Gidley St.
El Monte, CA 91734
Email: mailto:racosta@brownjordan.com
http://www.brownjordan.com

--