Re: CALLPRC with RTNVAL

[Vernon Hamberg <vhamberg@xxxxxxxxx>]

I've had trouble recently, too. On V5R1. Tried to use RTNVAL with a *CHAR 4
with a function that is supposed to return an integer (4-byte). Works fine
in C, of course, but garbage in CLLE.

At 10:34 AM 3/30/02 -0500, you wrote:
>I'm having trouble with the data returned from a srvpgm which is called from
>a CL with CALLPRC:
>
>      PGM        parm(&parm)
>      dcl &parm *char 121
>
>      if cond(%sst(&parm 1 1) *eq ' ') then(do)
>        chgvar &parm value(' ')
>        callprc prc(getParm) rtnval(&parm)
>      enddo
>
>The srvpgm (RPG) returns the correct data, and works fine when called by an
>RPG pgm.  The srvpgm exports the parm.
>
>The problem is the value of parm is not correct.
>
>Can anyone tell me what I've got wrong?
>
>Thanks,
>
>Phil
>
>
>
>_______________________________________________
>This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
>To post a message email: MIDRANGE-L@midrange.com
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
>or email: MIDRANGE-L-request@midrange.com
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/midrange-l.