retourne variable d'env.

BoTTom | 
     H NOMAIN THREAD(*SERIALIZE)
      * prototypes
      *  de la fonction elle même
     DgetEnvVarO       PR              O    EXTPROC(*JAVA : 'EnvClassO' :
     D                                              'getEnvVarO')
     D                                       CLASS(*JAVA : 'java.lang.String')
     D                                       STATIC
     D                                 O   CLASS(*JAVA : 'java.lang.String')
      *  de transformation String -> Bytes
     DgetBytes         PR           128A   EXTPROC(*JAVA : 'java.lang.String'
     D                                             : 'getBytes') VARYING
      *  de transformation Byte -> String
     DnewString        PR              O   EXTPROC(*JAVA : 'java.lang.String'
     D                                             : *CONSTRUCTOR)
     D bytes                        128A    CONST VARYING
 
     PgetEnvVarO       B                   EXPORT
     D                 PI              O   CLASS(*JAVA : 'java.lang.String')
     D                                      STATIC
     D String1                         O   CLASS(*JAVA : 'java.lang.String')
      * variables
     D String2         S               O   CLASS(*JAVA : 'java.lang.String')
      * API POUR lire une variable d'env.
     Dgetenv           PR                  EXTPROC('QtmhGetEnv')
     D  wenv                               like(env)
     D  wenvlg                             like(envlg)
     D  wenvvallg                          like(envvallg)
     D  wenvname                           like(envname)
     D  wenvnamelg                         like(envnamelg)
     D  wAPIERR                            like(apierr)
      *
      * Structure pour gestion des erreurs (API)
      *
     DAPIERR           DS
     D ERRLG                         10I 0 INZ(%len(apierr))
     D ERRLGDISPO                    10I 0
     D ERRID                          7
     D ERRRESERVE                     1
     D ERRMSG                        50
      * variables d'env.
     Denv              S           1024
     Denvlg            S             10I 0 INZ(%size(env))
     DenvvalLG         S             10I 0
     Denvname          S           1024

| 
     Denvnamelg        S             10I 0
 
      /free
          envname = getBytes(String1);
          envnamelg = %len(%trim(envname)) ;
          getenv(env : envlg : envvallg :
                 envname : envnamelg : APIERR) ;
 
          String2 = newString(env);
          return String2;
      /end-free
     PgetEnvVarO       E




©AF400