Re: Mandato RTVENVVAR

Thu, 21 May 2009 05:31:54 -0700 

Yo siempre he utilizado la API Qp0zGetEnvNoCCSID y nunca me ha dado
problemas... prueba éste otro código y cuentanos.


d getenv pr * extproc('Qp0zGetEnvNoCCSID')
d name * value options(*string)


d p s *
d path S 256A

c eval p = getenv ('LANG')
c if p <> *NULL
c eval path = %str(p)
c endif

c eval *inlr = *on




El 21 de mayo de 2009 14:04, Marti Riera <[email protected]> escribió:

> Hola,
>
> Llevo un dia un poco espeso intentando hacer funcionar este comando bajado
> de la web:
> http://code.midrange.com/759f4f422d.html
>
> Hay una explicacion mas larga en:
> http://www.mcpressonline.com/programming/rpg/what-is-the-environment.html
>
> Lo que trato de hacer es recuperar facilmente una variable de entorno
> dentro de un programa CL.
> Ya os digo que el dia que dieron RPG ILE no fui, ja, ja !!
>
> Curiosamente he hecho un programa de test par aprobarlo y si lo ejecuto tal
> cual no funciona no devuelve nada:
> PGM
> DCL        VAR(&VALUE) TYPE(*CHAR) LEN(4096)
> RTVENVVAR  ENVVAR('LANG') RTNVAL(&VALUE)
> SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&VALUE)
> ENDPGM
> Pero si ejecuto un strisdb del programa rpg a partir de ese momento si
> devuelve el valor, por ejemplo de LANG que es por omision en todos los
> sistemas:
> /QSYS.LIB/EN_US.LOCALE.
> Podeis ver la variables de entorno con WRKENVVAR.
>
> Alguna pista de que estoy haciendo mal?
>
> Gracias y saludos
>
> Martí Riera
>
> __________________________________________________
> Forum.HELP400 es un servicio m&amp;#225;s de ServerNEWS.
> &amp;#169; Publicaciones Help400, S.L. - Todos los derechos reservados
> http://www.help400.es
> _____________________________________________________
>
> Para darte de baja visita la siguente URL:
> http://listas.combios.es/mailman/listinfo/forum.help400
>

__________________________________________________
Forum.HELP400 es un servicio m&amp;#225;s de ServerNEWS.
&amp;#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________

Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400

Responder a