В    В*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*   А
В    В*ЪFunciones para gestionar las variables de entorno                В*   А
В    В*-------------------------------------------------------------------*   А
В    В*  Mєdulo. . . . . . . . .                                          *   АА
В    В*  Aplicaciєn. . . . . . .                                          *   АА
В    В*  Empresa . . . . . . . .                                          *   АА
В    В*  Usuario . . . . . . . .  Vэctor Roig Lєpez                       *   АА
В    В*  Generado fecha. . . . .  26/02/2002                              *   АА
В    В*-------------------------------------------------------------------*   А
В    В*     E X P L I C A C I O N E S   Y   D E S C R I P C I O N         *   А
В    В*-------------------------------------------------------------------*   А
В    В*  Se definen las siguientes funciones :                            *   А
В    В*      ╖ Get_EnvVar    Recupera valor de una variable de entorno    *   АА
В    В*      ╖ Put_EnvVar    Establece valor de una variable de entorno   *   АА
В    В*                                                                   *   АА
В    В*-------------------------------------------------------------------*   А
В    В*      R E L A C I O N   D E   M O D I F I C A C I O N E S          *   АА
В    В*-------------------------------------------------------------------*   А
В    В* Fecha    | Autor     |Marca |Modificaciєn                         *   АА
В    В*----------|-----------|------|-------------------------------------*   А
В    В*          |           |      |                                     *   АА
В    В*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*   А
     HCopyRight('(c) Aunde, S.A.')
     HDatFmt(*EUR) DatEdit(*DMY) DecEdit(',') Debug(*Yes)
      * Compiler instructions
     HOption(*ShowCpy) Indent('|') Optimize(*Full)
     HBndDir('*LIBL/BNDDIR')

     H NoMain

     D Get_EnvVar      PR          1024A
     D    Aux_Var                      *   Value options(*String)
 
     D Put_EnvVar      PR            10I 0
     D    Aux_Cod                      *   Value Options(*String)
     D    Aux_Var                      *   Value options(*String)

     DGetEnv           PR              *   ExtProc('Qp0zGetEnvNoCCSID')
     D                                 *   Value options(*String)
     DPutEnv           PR            10I 0 ExtProc('Qp0zPutEnvNoCCSID')
     D                                 *   Value options(*String)

     D $En_Data        S           1024A
     D $En_Pointer     S               *

      /Eject
В    В*-------------------------------------------------------------------*   А
В    В* Get_EnvVar       Obtener Valor de Variable de entorno             *   АА
В    В*-------------------------------------------------------------------*   А
     P Get_EnvVar      B                   Export
     D Get_EnvVar      PI          1024A
     D    Aux_Var                      *   Value options(*String)

     c                   Eval      $En_Data = *Blanks

     c                   Eval      $En_Pointer = GetEnv(Aux_Var)
     c                   If        $En_Pointer <> *Null
     c                   Eval      $En_Data = %Str($En_Pointer)
     c                   EndIf

     c                   Return    $En_Data

     P Get_EnvVar      E

      /Eject
В    В*-------------------------------------------------------------------*   А
В    В* Put_EnvVar       Establecer valor de variable de entorno          *   АА
В    В*-------------------------------------------------------------------*   А
     P Put_EnvVar      B                   Export
     D Put_EnvVar      PI            10I 0
     D    Aux_Cod                      *   Value Options(*String)
     D    Aux_Var                      *   Value options(*String)

     c                   Eval      $En_Data = %Str(Aux_Cod) + '=' +
     c                                        %Str(Aux_Var)

     c                   Return    PutEnv(%Addr($En_Data))

     P Put_EnvVar      E