Re: Integer parameter passing in CLLE???

[Gary Guthrie <garyguthrie@xxxxxxxx>]

The following example shows how to call RPGLE from CLLE passing the
parameter.


CL Program:

Pgm

  Dcl &Nbr         *Dec      (    2  0 )   ( 21 )
  Dcl &NbrA        *Char     (    2    )

  ChgVar     %Bin( &NbrA ) ( &Nbr )

  Call       RPGPgm     ( &NbrA )


RPG program:


D EntryParms      PR                  ExtPgm('RPGPGM')
D                                5I 0
D EntryParms      PI
D  Nbr                           5I 0

or if you want to use *Entry PList

D Nbr                            5I 0

C     *Entry        PList
C                   Parm                    Nbr

If you're calling CLLE from RPG, you accept the parameter as a 2-byte
character and use %Bin built-in function the reverse way to convert to
decimal. For example,

Pgm          ( &NbrA )

  Dcl &Nbr         *Dec      (    2  0 )
  Dcl &NbrA        *Char     (    2    )

  ChgVar     ( &Nbr )      ( %Bin( &NbrA ) )

Hope this helps,

Gary Guthrie
Senior Technical Editor, iSeries NEWS



Gurrieri Fabrizio wrote:
>
> How can I pass a character 2 byte long parameter as an integer in a CLLE???