*====================================================================
      *  RPG ILE HSSFCGI/SAMPLEJPGM
      *
      *  crtbndrpg hssfcgi/samplejpgm dftactgrp(*no) actgrp(*caller) dbgview(*source)
      *
      *  This program illustrates how to setup up the Java environment when using
      *  multiple Java frameworks (for instance JDBCR4 and HSSFCGI)
      *
      *====================================================================
      /copy HSSFCGI/qrpglesrc,hspecs
      /copy HSSFCGI/qrpglesrc,hspecsbnd
      /copy HSSFCGI/qrpglesrc,usec
      /copy HSSFCGI/qrpglesrc,q_psds
      /copy HSSFCGI/qrpglesrc,hssfcgix_p
      /copy HSSFCGI/qrpglesrc,prototypeb

      * Java classpath for JDBCR4 on my system
     D JDBCR4classpth  c                   '/mydir/JDBCdriver/sqljdbc.jar'
      * Java setup variables for HSSFCGI commands (XLSGEN, XLSXGEN, TABLEXLS) using Java
     D JavaSetupVars   ds
     D  HSSFclasspth               1000
     D  HSSFproperts                500
     D  HSSFhome                    500

     D rc              s             10i 0

      /free

           //retrieve HSSFCGI Java setup variables
           JavaSetupVars=Get_HSSFCGI_Java();

           //setup Java
           rc=docmd('ADDENVVAR ENVVAR(CLASSPATH) VALUE(''' +
              JDBCR4classpth + ':' +
              %trim(HSSFclasspth) + ''') REPLACE(*YES)');
           if HSSFproperts<>' ';
              rc=docmd('ADDENVVAR ENVVAR(QIBM_RPG_JAVA_PROPERTIES) VALUE(''' +
                 %trim(HSSFproperts) + ''') REPLACE(*YES)');
           endif;
           if HSSFhome<>' ';
              rc=docmd('ADDENVVAR ENVVAR(JAVA_HOME) VALUE(''' +
                 %trim(HSSFhome) + ''') REPLACE(*YES)');
           endif;

           //continue program ...

           //end program
           return;