Re: CLLE calling RPGLE sends bad parms???

[rob@xxxxxxxxx]

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.