Re: CLLE and date type parameter in RPGLE subprocedure

The same may be true for the incoming parameters...

dcl var(&enddate) type(*char) len(16) value('2002-12-07')
callprc....

HTH,
Loyd

On Wed, 11 Dec 2002 16:49:04 -0800, "Reggie Acosta" <racosta@brownjordan.com>
wrote:

>Thanks for all the replies but it's still not working. Stepping through the
>program in debug, at lines 8 and 9, variable charDateIn isn't correct. Why
>doesn't the value of CL variable &ENDDATE get into RPGLE variable charDateIn
>properly?
>
>Thanks...
>
>
>0001 DCL        VAR(&ENDDATE) TYPE(*CHAR) LEN(10) VALUE('2002-12-07')
>0002 DCL        VAR(&weekOfYear) TYPE(*DEC) LEN(6 0)
>
>0003 CALLPRC    PRC(rtvWeekOfYearA) PARM(&ENDDATE) +
>             RTNVAL(&weekOfYear)
>
>
>.....DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++
>0004 D RtvWeekOfYearA   PR            6p 0
>0005 D                               10A   Value
>
>..... *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...
>0006 P RtvWeekOfYearA  B                   Export
>0007 D RtvWeekOfYearA  PI             6p 0
>0008 D  charDateIn                   10A   Value
>
>0009 C     *ISO          TEST(DE)                charDateIn
>     ...
>0010 P RtvWeekOfYearA  E
>
>Reggie Acosta

--
"Why, you can even hear yourself think." --Hobbes
"This is making me nervous. Let's go in." --Calvin
loyd@blackrobes.net  ICQ#504581  http://www.blackrobes.net/