RE: RPG400-L digest, Vol 1 #1223 - 10 msgs

["Reggie Acosta" <racosta@xxxxxxxxxxxxxxx>]

(ooops, I may have hit send prematurely. still getting used to Outlook 2000)

Okay. CL has no date data type. The CL has the parameter variable defined as
*CHAR. I wrote a new RPGLE procedure to accept the *CHAR parameter. While
debugging, stepped into rtvWeekOfYearA and charDateIn still contains
gobbledygook. What's going on? I've had no trouble using procedures in
RPGLE. This is the first time I've used CLLE CALLPRC with a parameter to get
a return value. :(

Thanks...


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

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


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

..... *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...
     P RtvWeekOfYearA  B                   Export
     D RtvWeekOfYearA  PI            10I 0
     D  charDateIn                   10A   Value
     ...
     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



> Message: 8
> From: Buck Calabro <Buck.Calabro@commsoft.net>
> To: rpg400-l@midrange.com
> Subject: RE: CLLE and date type parameter in RPGLE subprocedure
> Date: Wed, 11 Dec 2002 17:47:49 -0500
> Reply-To: rpg400-l@midrange.com
>
> CL has no date data type.  If you must use CL, you'll have to
> use a data
> type that CL has.  Which one is up to you.
>   --buck
>
> --__--__--