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



--
--
[ Picked text/plain from multipart/alternative ]
I feel this echange tells-all about procedures:  they're way to complicated
for us mere RPG programmers.





---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth@MartinVT.com
---------------------------------------------------------

-------Original Message-------

From: rpg400-l@midrange.com
Date: Monday, April 29, 2002 16:29:06
To: rpg400-l@midrange.com
Subject: Re: CLLE calling RPGLE sends bad parms???

This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
Joel,

Seeing that you're not getting any responses from someone who knows what
they're talking about I thought I'd take a shot.

How's about dropping the VALUE on the procedure interface?

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




"Joel R. Cochran" <jrc@masi-brac.com>
Sent by: rpg400-l-admin@midrange.com
04/29/2002 03:12 PM
Please respond to rpg400-l


To: "'rpg400-l@midrange.com'" <rpg400-l@midrange.com>
cc:
Fax to:
Subject: CLLE calling RPGLE sends bad parms???


I'm trying to call an RPGIV sub-procedure from a CLLE program and return a
value. When I step through the program in Debug, the passed parameter is
full of garbage in the sub-procedure...

Here is the CLLE code...

PGM

DCL VAR(&AUDITVALUE) TYPE(*CHAR) LEN(10)
DCL VAR(&TYPE) TYPE(*CHAR) LEN(10) VALUE('AUDIT')

CALLPRC PRC(#GETSYS) PARM(&TYPE) RTNVAL(&AUDITVALUE)

SNDPGMMSG MSG(&AUDITVALUE)

ENDPGM


Here is the #getSys routine...

h nomain
/copy camratst/qrpglesrc,cp_hspecs

fcafpsys if e k disk usropn

*--------------------------------------------------------------------
*Prototypes
/copy servicelib/qrpglesrc,pr_allserv
/copy camratst/qrpglesrc,pr_allcam

p #getSys b export

d #getSys pi 10
d type 10 value

*--------------------------------------------------------------------
* Stand Alone Fields
d value s like( SYSVALUE )


c open cafpsys
c eval type = #allCaps( type )

c type chain cafpsys
c if %found( cafpsys )
c eval value = %trim( SYSVALUE )
c endif

c close cafpsys
c return value

c eval *inlr = *on

*--------------------------------------------------------------------
p #getSys e


'TYPE' is the incoming parm: here is what it receives in Debug...

TYPE = 'Ø*******KH'



BTW, this works fine when called from another RPGIV procedure...

TIA,

Joel R. Cochran
Director of Internet Services
VamaNet.com
(800)480-8810
mailto:webmaster@vamanet.com

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.



_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


.
--
[ Content of type image/gif deleted ]
--



As an Amazon Associate we earn from qualifying purchases.

This thread ...

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