***********************************************************
 * To Compile:
 *
 * CRTBNDRPG PGM(Yourlib/JMVTEST) SRCFILE(YourLib/QRPGLESRC)
 * which is option 14 on PDM
 *
 ************************************************************
                                                   
H DftActGrp(*No) ActGrp(*Caller) BndDir('KEVIN')   
                                                   
 /Copy KVandeverS/QRpgLeSrc,JVMModuleP             
                                                   
D rc              s               n                
D env             s               *                
                                                   
 /Free                                             
                                                   
     ExSr Start;                                   
     ExSr Destroy;                                 
     ExSr Start;                                   
                                                   
     *InLr = *On;                                  
                                                   
     BegSr Start;                       
                                        
        env = getJniEnv();              
        If env = *NULL;                 
          Dsply 'Bad Creation';         
        Else;                           
          Dsply 'Good Creation';        
        Endif;                          
                                        
     EndSr;                             
                                        
     BegSr Destroy;                     
                                        
        rc = destroyJVM();              
        If rc = *Off;                   
          Dsply 'Bad Destroy';          
        Else;                           
          Dsply 'Good Destroy';   
        Endif;                    
                                  
     EndSr;