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


  1.  Home
  2. RPG400-L
  3. March 2008

%parms when called from COBOL

Hi all,

I have an interesting situation where I am calling some RPG from COBOL
and the %parms bif doesn't seem to be working right. When I call
subproc1 I get a value of -1 in parms. After many issues trying to
get COBOL talking to RPG I am beginning to think it should be calld
ILBNCE "Integrated Language But-Not-Cooperative Environment"

COBOL:
01 parm1 PIC x(1024) VALUE " ".
01 dtaRslt PIC x(65535) VALUE " ".

CALL PROCEDURE "SUBPROC1" USING
parm1 RETURNING dtaRslt.


RPG:
P subproc1 b export
D subproc1 pi 65535a
D pParm1 1024a
D pParm2 10i 0 const options(*nopass)

D parms s 10i 0
/free

parms = %parms;
return '';

/end-free
P e

Any ideas? Anybody know if this is in fact a limitation?


As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
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.