Que tal Javier,
Para enviar mensajes de interrupcion a uno o varios perfiles de usuario
podes usar la api QEZSNDMG (esta es usada por menu *ASSIST) donde si la
llamas sin parametros te propone los parametros para su ingreso, y
pasandoselos la podes incluir en cualquier programa.
Puede que te sirva, te adjunto un ejemplo que baje alguna vez.
Saludos
Fernando Martire
Soporte AS/400
[EMAIL PROTECTED]
Dia% Argentina
Juan F. Segui 4646 1� piso
C1425ADF - Buenos Aires - Argentina
Tel.: (+54-11) 5777-7100
Dir.: (+54-11) 5777-7174
(See attached file: Uso del Qezsndmg.txt)
Javier Mora
<[EMAIL PROTECTED]> Para:
[email protected]
Enviado por: cc:
forum.help400-admin Asunto: RE: [Help400]
Interrumpir programas con mensajes de otros program as
@combios.es
19/05/2005 11:24
Por favor, responda
a forum.help400
> -----Mensaje original-----
> De: alex martinez [SMTP:[EMAIL PROTECTED]
> Enviado el: jueves, 19 de mayo de 2005 13:45
> Para: [email protected]
> Asunto: Re: [Help400] Interrumpir programas con mensajes de
otros
> programas
>
> Hola Javier:
>
> �y no te sirve que estos perfiles de usuario de reponedores utilizen
> la misma cola de mensajes?
>
> Crear una cola de mensajes gen�rica REPONEDOR
> CRTMSGQ MSGQ(QUSRSYS/REPONEDOR)
>
> cambiar los perfiles de usuario de los reponedores para que utilizen
> esta cola de mensajes, por ejemplo:
>
> CHGUSRPRF USRPRF(R1) MSGQ(QUSRSYS/REPONEDOR)
> CHGUSRPRF USRPRF(R2) MSGQ(QUSRSYS/REPONEDOR)
> CHGUSRPRF USRPRF(R3) MSGQ(QUSRSYS/REPONEDOR)
>
> Desde el/los programas que utilizan los preparadores, realizar un simple
> SNDMSG TOMSGQ(REPONEDOR)
> cuando se den las condiciones
>
> �que opinas?
>
Fue la idea original que tuve, pero encontr� varios problemas:
1. S�lo el primer reponedor puede obtener la cola en break.
2. Aunque hay varios reponedores, est�n repartidos por zonas y
cada
uno de ellos debe de recibir los mensajes asociados a �sta. Es decir, si el
almac�n est� divido en trozos, el preparador va recorriendo el almac�n de
inicio a fin. Por cada hueco que deje vac�o, debe de enviar un mensaje al
reponedor de la zona en la que se encuentre.
Un saludo,
Javier Mora
Dpto. Inform�tica
Dialsur S.A.U.
__________________________________________________
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 visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
H Y
H*========================================================================*
H* EJEMPLO ENVIO DE MENSAJES DE *BREAK A UN USUARIO UTILIZANDO *
H* PROGRAMA QEZSNDMG (EL MISMO QUE LLAMA EL ASSIST)
H*========================================================================*
I*DEFINICION DS DE SISTEMA (RECUPERA ATRIBUTOS JOB Y PROGRAMA)
I��DS SDS
I 1 10 ��PGM
I 81 90 ��LIB
I 244 253 ��JOB
I 254 263 ��USER
I 264 269 ��JOBN
I*DEFINICION PARAMETROS API QEZSNDMG
I�MHSND DS
I 1 10 �MTYPE
I 11 20 �DLVRY
I 21 275 �MSG
I B 276 2790�MLEN
I 280 289 �USER
I B 290 2930�USRNB
I B 294 2970�INDIC
I B 298 3010�FUNCT
I 302 302 �SHOW
I 303 322 �QUEUE
I 323 326 �NAMET
I*ESTRUCTURA ERROR API
IAPIERR DS
I B 1 40QBYTPR
I B 5 80QBYTAV
I 9 15 QEXCPI
I 17 96 QEXCPD
C*=========================================================================
C* MOVEMOS TEXTO DEL MENSAJE A VARIABLE �MSG CHAR(255)
C MOVEL'HOLA' �MSG P
C CAT ��USER:1 �MSG
C* Numero de Bytes en la estructura de error API
C Z-ADD96 QBYTPR
C*
C* ------------------------------
C* GRUPO OPCIONAL DE PARAMETROS 1
C* ------------------------------
C* TIPO DE MENSAJE (*INFO,*INQ) > SALIDA � CHAR(10)
C* MODO DE ENTREGA (*BREAK,*NORMAL) > SALIDA � CHAR(10)
C* TEXTO DEL MENSAJE > SALIDA � CHAR(*)
C* LONGITUD TEXTO DEL MENSAJE > SALIDA � BINARY(4)
C* LISTA DE USUARIOS DESTINATARIOS > SALIDA � ARRAY CHAR(10)
C* (admite valores *ALL,*ALLACT,*SYSOPR)
C* NUMERO DE USUARIOS EN LA LISTA > SALIDA � BINARY(4)
C* INDICADOR MENSAJES ENVIADOS < ENTRAD � BINARY(4)
c* 0=Mensaje no enviado
c* 1=Mensajes enviados
C* TECLA DE FUNCION PULSADA (SI PROMPT) < ENTRAD � BINARY(4)
c* -4=F3
c* -8=F12
C* ESTRUCTURA ERROR API < ENTRAD � CHAR(*)
C* ------------------------------
C* GRUPO OPCIONAL DE PARAMETROS 2
C* ------------------------------
C* MOSTRAR PANTALLA ENVIO (Y/N) > SALIDA � CHAR(1)
C* COLA DE MENSAJE (COLA+BIBLIOTECA) > SALIDA � CHAR(20)
C* TIPO DE DESTINATARIOS EN LA LISTA > SALIDA � CHAR(4)
c* *USR=Usuarios
c* *DSP=Dispositivos
c*----------------------------------------------------------------
C CALL 'QEZSNDMG'
C PARM '*INFO' �MTYPE
C PARM '*BREAK' �DLVRY
C PARM �MSG
C PARM 255 �MLEN
C PARM ��USER �USER
C PARM 1 �USRNB
C PARM �INDIC
C PARM �FUNCT
C PARM APIERR
C PARM 'N' �SHOW
C PARM �QUEUE
C PARM '*USR' �NAMET
C*
C MOVEL*ON *INLR
