|
Buenas,
Tengo un proceso sometido lanzado desde un programa interactivo. Cuando
termina, el proceso sometido quer�a que mandase un mensaje al proceso
interactivo. Lo he intentado usando la l�nea 24 de la pantalla pero no ha habido
forma, en cambio lo he conseguido sacando una ventanita en el proceso
interactivo y no queda nada mal. De hecho lo estoy usando para que se comuniquen
los usuarios entre ellos interactivamente tambi�n.
Explicar� primero un poco como est� montando todo.
Todos los usuarios entran al sistema con su user-id y password y ejecutan
una CL que llama a un men� con sus aplicaciones, programas etc.
Esa CL una de las cosas que hace es cambiarles la cola de mensajes y
poner
0003.28
CLRMSGQ
MSGQ(*WRKSTN)
0003.29 CHGMSGQ MSGQ(*USRPRF) DLVRY(*BREAK) SEV(00) + 0003.30 PGM(MENU/MAILCL) MSGQFULL(*WRAP) Conseguimos con esto que un mensaje enviado a su cola sea interceptado por
un programa.
Para diferenciar los mensajes de sistema de los mensajitos enviados desde
programa o desde otro usuario, mando una arroba(@) para indicar que ese usuario
tiene un mensaje, luego el programa de la cola ya busca en la base de datos, que
mensaje tiene que displayar.
Luego borro el mensaje de la arroba con
0006.19 /*** BORRAR EL MENSAJE DE LA
@
***/
0006.20 RCVMSG MSGQ(&MENLIB/&MENQ) MSGKEY(&MRK) RMV(*YES) + 0006.21 MSG(&MEN) Luego tengo un programita que visualiza mensajes, envia etc.
No he conseguido lo de la l�nea 24, pero creo que esto est� mas
apa�ado.
Saludos
J. Enrique Garc�a
Dpto. An�lisis y Programaci�n Mar�tima Valenciana, S.A. - Grupo Dragados |
