Re: CALLPRC with RTNVAL

[rob@xxxxxxxxx]

This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
How's about the prototype for the service program?

Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin




"Phil" <sublime78ska@attbi.com>
Sent by: midrange-l-admin@midrange.com
03/30/2002 10:34 AM
Please respond to midrange-l


        To:     "MIDRANGE-L" <MIDRANGE-L@midrange.com>
        cc:
        Fax to:
        Subject:        CALLPRC with RTNVAL


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.