Re: jvalue in QSYSINC/QRPGLESRC,JNI

[Barbara Morris <bmorris@xxxxxxxxxx>]

Scott Klement wrote:
> > Except that RPG doesn't allow object subfields, so the L member can't be
> > defined like(jobject).  An object reference is actually an integer, so
> > jint (or maybe better 10i 0) has to be used for that subfield.
>
> The problem with that is that you can't assign an object to an integer or
> vice-versa.

Right; the only way to set jvalue.l defined like(jint) given the
subfield restriction, is to have a spoof procedure that "converts" an
object reference to an integer.

 * Official prototype
D refToInt        pr            10i 0 extproc(refToInt_procptr)        
D   ref                           o   class(*java:'java.lang.Object')  
D                                     value                            
D refToInt_procptr...                                                  
D                 s               *   procptr inz(%paddr('refToIntSub')

 * Internal prototype
D refToIntSub     pr            10i 0 extproc('refToIntSub')  
D    ref                        10i 0 value                   

 * Actual procedure, called through the refToInt prototype
P refToIntSub     b                   export  
D refToIntSub     pi            10i 0         
D    ref                        10i 0 value   
 /free                                        
    return ref;                               
 /end-free                                    
P refToIntSub     e