Hola,
Te detallo el fuente en ILE RPG que recupera la IP del JOB que se est�
ejecutando:
0043.00 .../...
0034.02 dProgStatus SDS
0034.03 d IdWs 244 253
0043.01 *
-------------------------------------------------------------------
0043.02 * - Recuperar JOB API
-
0043.03 *
-------------------------------------------------------------------
0043.04 D RtvVal PR ExtPgm( 'QDCRDEVD' )
0043.05 D 892
0043.06 D 10I 0
0043.07 D 8
0043.08 D 10
0043.09 D 272
0044.00 *
-------------------------------------------------------------------
0045.00 * - Data definitions
-
0046.00 *
-------------------------------------------------------------------
0047.00
0048.00 D RcvVar DS 892
0049.00 D NbrValsRtn 10I 0
0050.00 D OffsetToVals 10I 0
0058.00
0060.00 D RcvVarLen S 10I 0 Inz( %Len( RcvVar ) )
0063.00
0064.00 D NoAPIError C Const( *Zero )
0066.01 D IP s 15 Inz(*blanks)
0066.02 D Format s 8 Inz('DEVD0600')
0066.03
0067.00 D APIErrorDS DS
0068.00 D BytesProvided 10I 0 Inz( %Size( APIErrorDS ) )
0069.00 D BytesAvail 10I 0 Inz( *Zero )
0070.00 D MsgID 7 Inz( *Blanks )
0071.00 D Reserved 1 Inz( X'00' )
0072.00 D MsgDta 256 Inz( *Blanks )
0082.00 *
-------------------------------------------------------------------
0083.00 * - Retrieve system value QSrlNbr
-
0084.00 *
-------------------------------------------------------------------
0087.00
0087.01 c Reset APIErrorDS
0087.02
0088.00 C CallP RtvVal(
0089.00 C RcvVar :
0090.00 C RcvVarLen :
0090.01 C Format :
0090.02 C IdWS :
0093.00 C APIErrorDS
0094.00 C )
0095.00
0096.00 C If BytesAvail <> NoAPIError
0097.00 C Return *off
0098.00 C EndIf
0098.01
0098.02 C Eval IP = %subst(RcvVar : 878: 15)
0098.03 c Eval oValor = IP
0098.11 .../...
Espero que te sirva de ayuda.
Saludos
Jordi carreras
SISTEMAS
DEPARTAMENTALES Para: [EMAIL PROTECTED]
<[EMAIL PROTECTED] cc:
m> Asunto: Controlar Pc's conectados
Enviado por:
forum.help400-request@
combios.es
08/09/2003 08:41
Por favor, responda a
forum.help400
--- Recibido de BBVINFOR.C014439A/A928263 SISTEMAS DEPART* 08-09-03 08.41
-> [EMAIL PROTECTED]
No la conozco muy a fondo pero creo que la siguiente API permite recuperar
la IP de una sesi�n interactiva:
CALL QDCRDEVD PARM( +
&RCVVAR /* RECEIVER VARIABLE */ +
X'00000400' /* LENGTH OF &RCVVAR (1024)*/ +
'DEVD0600' /* FORMAT TO RECEIVE */ +
&RTVDEV /* DEVICE ID TO RETRIEVE */ +
&ERROR) /* ERROR FIELD */
****************************************************************************
From: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Date: Sat, 6 Sep 2003 22:04:04 +0100
Subject: Controlar Pc's conectados
Message-Id: <[EMAIL PROTECTED]>
Reply-To: [EMAIL PROTECTED]
Sender: [EMAIL PROTECTED]
Hola, tengo una aplicaci�n hecha en ILE RPG y no se me ocurre como
controlar
las licencias de uso.
Sabe alguien como puedo controlar que pc's o cuantos est�n conectados a la
vez en el AS400. Se me hab�a ocurrido ver que IP lo est�n atacando en cada
momento, pero no se si se puede controlar con alg�n mandato o programa. Se
que mirando en el NETSTAT puedo verlo visualmente.
Me bustar�a que fuera como lo hace el Windows que lo hace de forma
recurrente.
Un saludo y esperando una respuesta.
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
************************************ DISCLAIMER
*****************************************
This message is intended exclusively for the named person. It may contain
confidential, propietary or legally privileged information. No
confidentiality or
privilege is waived or lost by any mistransmission. If you receive this
message in
error, please immediately delete it and all copies of it from your system,
destroy any
hard copies of it and notify the sender. Your must not, directly or
indirectly, use,
disclose, distribute, print, or copy any part of this message if you are
not the
intended recipient. Any views expressed in this message are those of the
individual
sender, except where the message states otherwise and the sender is
authorised
to state them to be the views of GrupoBBVA. Please note that internet
e-mail neither
guarantees the confidentiality nor the proper receipt of the message sent.
If the
addressee of this message does not consent to the use of internet e-mail,
please
communicate it to us immediately.
****************************** AVISO LEGAL
***********************************************
Este mensaje es solamente para la persona a la que va dirigido. Puede
contener
informaci�n confidencial o legalmente protegida. No hay renuncia a
la
confidencialidad o privilegio por cualquier transmisi�n mala/err�nea. Si
usted
ha recibido este mensaje por error, le rogamos que borre de su sistema
inmediatamente el mensaje asi como todas sus copias, destruya todas las
copias
del mismo de su disco duro y notifique al remitente. No debe, directa o
indirectamente, usar, revelar, distribuir, imprimir o copiar ninguna de las
partes de
este mensaje si no es usted el destinatario. Cualquier opini�n expresada en
este
mensaje proviene del remitente, excepto cuando el mensaje establezca lo
contrario
y el remitente est� autorizado para establecer que dichas opiniones
provienen de
GrupoBBVA. N�tese que el correo electr�nico via Internet no permite
asegurar ni la
confidencialidad de los mensajes que se transmiten ni la correcta recepci�n
de los
mismos. En el caso de que el destinatario de este mensaje no consintiera la
utilizaci�n del correo electr�nico via Internet, rogamos lo ponga en
nuestro
conocimiento de manera inmediata.
***********************************************************************************************
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
