H dftactgrp(*no)
   H thread(*serialize)
   H bnddir('JNIUTIL')
    /copy jniutil_p
   D SystemClass     c                   'java.lang.System'
   D StringClass     c                   'java.lang.String'
   D PropertiesClass...
   D                 c                   'java.util.Properties'
   D EnumerationClass...
   D                 c                   'java.util.Enumeration'
   D ObjectClass     c                   'java.lang.Object'
    * String: byte[] getBytes();
   D getBytes        pr         65535a   varying
   D                                     extproc(*java
   D                                           : StringClass
   D                                           : 'getBytes')
    * System: Properties getProperties();
   D getProperties   pr              o   class(*java: PropertiesClass)
   D                                     extproc(*java
   D                                           : SystemClass
   D                                           : 'getProperties')
   D                                     static
    * Properties: Enumeration propertyNames();
   D propertyNames   pr              o   class(*java: EnumerationClass)
   D                                     extproc(*java
   D                                           : PropertiesClass
   D                                           : 'propertyNames')
   D
    * Enumeration: boolean hasMoreElements();
   D hasMoreElements...
   D                 pr              n   extproc(*java
   D                                           : EnumerationClass
   D                                           : 'hasMoreElements')
   D
    * Enumeration: Object nextElement();
   D nextElement...
   D                 pr              o   class(*java:ObjectClass)
   D                                     extproc(*java
   D                                           : EnumerationClass
   D                                           : 'nextElement')
   D

   D str             s               o   class(*java : StringClass)
   D enumeration     s               o   class(*java : EnumerationClass)
   D property        s             52a   varying
   D env             s               *

    /free
      env = getJniEnv();
      beginObjGroup (env : 100);
         enumeration = propertyNames (getProperties());
         dow hasMoreElements (enumeration);
            str = nextElement (enumeration);
            property = getBytes (str);
            dsply property;
         enddo;
      endObjGroup (env);

      return;