ADP400 genera auto un codigo en cada acceso a file para detectar/avisar
del bloqueo, creo que es una cosa parecida lo que quieres.
El fundamento es usar la SDS (Area de estado del programa), tal como
I SDS
I 1 10 @PGM
I 244 253 @JOB
I 254 263 @USER
I 81 269 @SDS81
Entontes el dato @SDS81 se descompone para obtener datos de interes como
121,08 FILE
174,10 USER
Con esto quiza puedas ya hacer una prueba basica diciendo un msg "el
usuario xxxx tiene pillado el file xxxxx"
Saludos,
Guillermo Andrades
CPI Software (www.cpis.es & www.RpgForWeb.com)
-----Mensaje original-----
De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] En nombre de Montse L�pez
Enviado el: viernes, 24 de octubre de 2003 13:46
Para: [EMAIL PROTECTED]
Asunto: RE: Recuperar el usuario que bloquea un registro en RPGLE
�No hay manera de recuperarlo directamente desde el RPG?
Montse
-----Mensaje original-----
De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] nombre de
[EMAIL PROTECTED] Enviado el: viernes, 24 de octubre de 2003
11:37
Para: [EMAIL PROTECTED]
Asunto: Re: Recuperar el usuario que bloquea un registro en RPGLE
Prueba con esto:
WRKOBJLCK OBJ(biblioteca/fichero) OBJTYPE(*FILE) OUTPUT(*PRINT)
->
Genera un fichero QPDSPOLK
Te puedes hacer un PGM que lea el fichero de salida y miras cual de los
usuarios tiene un bloqueo de actualizaci�n, no compartido, ese es el
Usuario que esta bloqueando el registro. y que le mande un mensaje al
usuario.
Tambi�n lo puedes ves en pantalla con OUTPUT(*)
Un Saludo,
Jose Luis Aguilera Fern�ndez
Dpto. Inform�tica
E.D. Rueda
E-mail: [EMAIL PROTECTED]
Tlf 914-343-860
___________________________________________________________
"Este� mensaje� y� los� documentos� que,� en� su caso, lleve anexos,
pueden contener� informaci�n� confidencial. Por ello, se informa a quien
lo reciba por error que la informaci�n contenida en el mismo es
reservada y su uso no autorizado� est� prohibido� legalmente , se
abstenga� de realizar copias del mensaje� o� remitirlo o entregarlo� a
otra persona y proceda a borrarlo de inmediato."
___________________________________________________________
Montse L�pez
<[EMAIL PROTECTED]
.es>
Para
Enviado por: "FORO AS400"
forum.help400-req <[EMAIL PROTECTED]>
[EMAIL PROTECTED]
cc
Asunto
24/10/03 11:11 Recuperar el usuario que bloquea
un
registro en RPGLE
Por favor,
responda a
[EMAIL PROTECTED]
bios.es
Buenos d�as,
Creo que esto ya sali� en el foro, pero lo estoy buscando y no lo
encuentro. Lo necesito para que el mismo usuario que se ha quedado
bloqueado, pueda avisar al "bloqueador". Gracias a [EMAIL PROTECTED]
Un saludo,
Montse L�pez
_____________________________________________________
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]
_____________________________________________________
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]
