Y esto para RPG
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)
"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&#225;s de NEWS/400.
&#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&#225;s de NEWS/400.
&#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
