× 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.



Phil,

There in lies your problem. A CL program cannot "import" a field.

The RTNVAR parameter on CALLPRC refers to a parameter reurned by the called
procedure. i.e. your RPG program should say:

C                                        Return              Parm1.

The procedure interface should be

D GetParm              PI                            121

with the corresponding prototype of

D GetParm             PR
121                             Export

HTH

Paul Tuohy

Phil wrote:

> 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
>
> _______________________________________________
> 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.




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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.