* ------------------------------------------------------------------------
      * (C) Gestión/400, 2002.
      * ------------------------------------------------------------------------
      *
      *  Programado por: José Alejandro Martínez Señoret
      *                  mailto:amartinez@gestion400.com
      *
      * ------------------------------------------------------------------------
      *
      *  ¿Soporta el AS/400 variables de entorno?
      *
      *  Si, el OS/400 desde la versión 3.1 soporta variables de entorno y
      *  proporciona API's para establecer y recuperar variables de entorno.
      *
      *  La Variables de entorno son cadenas de caracteres almacenadas
      *  en el entorno de ejecución de un trabajo.
      *
      *  El nombre de una variable de entorno puede tener 128 caracteres de
      *  de longitud y puede almacenar un valor de 1024 bytes de longitud.
      *
      *  Las variables de entorno pueden utilizarse, por ejemplo,
      *  para especificar valores de configuración a programas de aplicación
      *  en sistemas que cumplan con la Especificación 1170 (SPEC-1170).
      *
      *  Para establecer variables de entorno puede utilizarse el mandato
      *  WRKENVVAR (En version 3.x no está disponible)
      *
      *  El siguiente programa ILE-RPG proporciona un ejemplo para
      *  recuperar la variables de entorno PATH (versión 4.2 o superior),
      *  que debe establecerse previamente mediante:
      *
      *  ADDENVVAR ENVVAR(PATH)
      *            VALUE('valor para la variable')
      *
      *  Referencia:
      *
      *  http://www.redbooks.ibm.com/pubs/html/as400/v4r5/ic2924/info/apis/evgetenv.htm
      *  http://www.as400.ibm.com/developer/factory/porting/examples/envvar.txt
      * ------------------------------------------------------------------------

     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

     c                   eval      *inlr = *on