Re: CLLE and date type parameter in RPGLE subprocedure

["Reggie Acosta" <racosta@xxxxxxxxxxxxxxx>]

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
Sr. Programmer/Analyst
Brown Jordan Company
9860 Gidley St.
El Monte, CA 91734
Email: mailto:racosta@brownjordan.com
http://www.brownjordan.com