RE: CALLPRC with RTNVAL

["Phil" <sublime78ska@xxxxxxxxx>]

Rob Berendt wrote:
>How's about the prototype for the service program?

Rob,

The service pgm doesn't have a prototype - it exports the parm:

 Dparm1            s            121    export

That's it for the d-spec's in the whole pgm (it's only 18 lines long.)

If an RPG pgm calls the srvpgm, then the value of parm1 is correct when it
returns to the calling pgm.  Not so when CL calls it.

Phil


>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