En Cl con: RTVSYSVAL SYSVAL(QSRLNBR) RTNVAR(&Nbr)
en Ile con
w_SrlNbr S 8
w_Rcvr S 36a
w_RcvrLngth S 10i 0 inz(%len(w_Rcvr))
w_NbrToRtv S 10i 0 inz(1)
w_SysVal S 10a inz('QSRLNBR')
DS_SysValTbl DS
d_ValsRtn 10i 0
d_Offset 10i 0
D_Align 4a
d_SysVal 10a
d_ValType 1a
d_InfoSts 1a
d_DtaLngth 10i 0
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 w_SrlNbr = %subst(d_Data:1:d_DtaLngth)
C Seton Lr
| Fernando <[EMAIL PROTECTED]>
Enviado por: [EMAIL PROTECTED] 04/08/2006 00:35
|
|
Buenas tardes, hay alguna forma de obtener dentro de un CLP el Nombre del AS/400 donde estoy ejecutando?.
El tema es que ejecuto una aplicaion WEB apuntando a la DB de un AS/400 denominado DESARROLLO y otro TESTING y necesito saber en que entorno estoy ejecutando.
Gracias.
Fernando.
