CLLE calling RPGLE sends bad parms???

["Joel R. Cochran" <jrc@xxxxxxxxxxxxx>]

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