RE: recuperar nombre de sistema desde RPGLE.

Wed, 21 Nov 2007 08:15:13 -0800 

Hola
Bueno, de hecho os faltan las definiciones de las variables y los valores 
predeterminados.
Aquí van:


 D  w_SrlNbr           S              8 
 D  w_Rcvr              S             36a 
 D  w_RcvrLngth   S             10i 0 inz(%len(w_Rcvr)) 
 D  w_NbrToRtv   S             10i 0 inz(1) 
 D  w_SysVal        S             10a   inz('QSRLNBR') 



Bernabe Estrada <[EMAIL PROTECTED]> 
Enviado por: [EMAIL PROTECTED]
21/11/2007 16:46
Por favor, responda a
"forum.help400" <[email protected]>


Para
"'forum.help400'" <[email protected]>
cc

Asunto
RE: recuperar nombre de sistema desde RPGLE.






Revisando los mensajes anteriores del foro, el 30 de octubre, el usuario
[EMAIL PROTECTED] envio esto:

DSerial                          8 
      D DS_SysValTbl    DS 
      D  d_ValsRtn                    10i 0 
      D  d_Offset                     10i 0 
      D  D_Align                       4a 
      D  d_SysVal                     10a 
      D  d_ValType                     1a 
      D  d_InfoSts                     1a 
      D  d_DtaLngth                   10i 0 
      D  d_Data                       10a 
      C                   Call      'QWCRSVAL' 
      C                   Parm                    w_Rcvr 
      C                   Parm                    w_RcvrLngth 
      C                   Parm                    w_NbrToRtv 
      C                   Parm                    w_Sysval 
      C                   Parm                    w_APIError       30 
      C                   Eval      DS_SysValTbl = w_Rcvr 
      C                   Eval      Serial = %subst(d_Data:1:d_DtaLngth)

Seria interesante probarlo.

-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Nicolas
Machado
Sent: Wednesday, November 21, 2007 9:06 AM
To: forum.help400
Subject: recuperar nombre de sistema desde RPGLE.

Hola , me podrian decir como rescatar el nombre del sistema desde un RPGLE 
?
Alguna API quiza.

gracias

-- 
.::.
Nicolas Machado
Metodo Argentina S.A.
_____________________

__________________________________________________
Forum.HELP400 es un servicio m&amp;#225;s de NEWS/400.
&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 NEWS/400.
&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 NEWS/400.
&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