Using environment variables with ILE-RPG

I develop applications in a mixed environment with solutions in Java and ILE-RPG. In this environment, I need to recover the value of certain variables of environment on ILE-RPG programs. This example shows how to do it.

     d getenv          pr              *   extproc('Qp0zGetEnvNoCCSID') 
     d   name                          *   value options(*string)      
                                                                       
                                                                       
     d p               s               *                               
     d path            S            256A                               
                                                                       
     c                   eval      p = getenv ('PATH')                 
     c                   if        p <> *NULL                          
     c                   eval      path = %str(p)                      
     c                   endif