RE: CLLE calling RPGLE sends bad parms???

I'd thought about it, but I really want the ability in this case to pass a
literal string... I can't believe that it wouldn't work?

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


> -----Original Message-----
> From: rob@dekko.com [mailto:rob@dekko.com]
> Sent: Monday, April 29, 2002 4:29 PM
> 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.
>