Re: CLLE and date type parameter in RPGLE subprocedure

[Vern Hamberg <vhamberg@xxxxxxxxxxxxxxxxxxxxxxxxx>]

The page of the CL programming manual that covers this is
<http://publib.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/QB3AUO03/3.4?DT=19991014091328#HDRPASSP>
It may help. Hope so.

Vern

At 07:51 PM 12/11/2002 -0600, you wrote:
> 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/