Hola, yo lo recupero así:
              DCL        VAR(&SERIAL) TYPE(*CHAR) LEN(8) 
              RTVSYSVAL  SYSVAL(QSRLNBR) RTNVAR(&SERIAL) 
              CHGVAR     VAR(&PUSRADDR) VALUE('S' *cat &serial) 
te refieres a esto?






"Rafael Silva" <[EMAIL PROTECTED]> 
Enviado por: [EMAIL PROTECTED]
30/10/2007 15:44
Por favor, responda a
"forum.help400" <[email protected]>


Para
"<"<[email protected]>
cc

Asunto
Utilidad






Hola a Todos....

   Alguien tiene alguna utilidad para obtener por programa, el serial del 
AS/400?....


Gracias,

Rafael Silva


__________________________________________________
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