retourne lg variable d'env.

BoTTom | 
     H NOMAIN THREAD(*SERIALIZE)
      *  .
     DgetenvvarL       PR            10I 0 STATIC
     D                                     EXTPROC(*JAVA : 'EnvClassL' :
     D                                      'getEnvVarL')
     D                              128A   VARYING CONST
 
     PgetEnvVarL       B                   EXPORT
     D                 PI            10I 0 STATIC
     D param1                       128A   VARYING CONST
      * variables
      * 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
     Dretour           S             10I 0
 
      /free
          envname = param1 ;
          envnamelg = %len(%trim(envname)) ;
          getenv(env : envlg : envvallg :
                 envname : envnamelg : APIERR) ;
          retour = %len(%trim(env));
          return retour;
      /end-free

| 
     PgetEnvVarL       E




©AF400