× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.