Disparar JCL desde cola MQ

Todo lo relacionado con MQ en ambiente OS/390 o z/OS
Responder
bilardo
Usuario
Usuario
Mensajes: 18
Registrado: 21 Dic 2012, 11:19
País: Argentina
Ciudad: Capital Federal
Ocupación: Programador

Disparar JCL desde cola MQ

Mensaje por bilardo » 18 Jul 2013, 17:53

Buenas tardes a todos,

Estaba necesitando ejecutar un JCL cuando llegue un mensaje a una cola MQ.

Alguien tendria un ejemplo de como configurar esto?

Basicamente donde debería dejar el JCL para que cuando llegue el mensaje lo ejecute, y como debería definir el process asociado para que esto funcione.

Agradecería algun ejemplo simple para comenzar.

Muchas gracias,

Saludos.

robla
Usuario
Usuario
Mensajes: 11
Registrado: 08 Feb 2013, 09:04
País: españa
Ciudad: madrid
Ocupación: Técnico en Sistemas

Re: Disparar JCL desde cola MQ

Mensaje por robla » 09 Ago 2013, 09:11

Siento no tener a mano la documentación pero creo recordar que donde pongas el jcl da igual, lo único que en el trigger hay que hay que definir hay que hacer referencia a dicha librería, es un bastante impreciso pero si consigo más datos lo 'postearé'

Avatar de Usuario
LuisFer
Colaborador Senior
Colaborador Senior
Mensajes: 379
Registrado: 27 May 2006, 16:06
País: España
Ciudad: Madrid
Ocupación: Otra

Re: Disparar JCL desde cola MQ

Mensaje por LuisFer » 13 Ago 2013, 01:53

Este creo que funcionaria como entrada a un CSQUTIL

Código: Seleccionar todo

DEFINE NOREPLACE                                                       -   
 PROCESS('<ProcessName>')                                         -   
 QSGDISP(QMGR)                                                         -   
 DESCR('DISPARO DE LA CADENA zzzzzzzz')                      -   
 APPLTYPE(MVS)                                                         -   
 APPLICID('//IEFPROC EXEC PGM=IEBEDIT')                                -   
 USERDATA('//SYSPRINT DD  DUMMY,SYSOUT=*   //SYSUT1   DD  DDNAME=IEFRDE-   
R   //SYSUT2  DD  SYSOUT=(*,INTRDR),//            DCB=BLKSIZE=80')     -   
 ENVRDATA('//SYSIN    DD  DUMMY            //IEFRDER  DD  DISP=SHR,    -   
    // DSN=<libreria_jcl(zzzzzzzz)>')                                          
No me sigas, puedo no guiarte, no vayas delante , puedo no seguirte, caminemos juntos y sé simplemente, mi amigo.

bilardo
Usuario
Usuario
Mensajes: 18
Registrado: 21 Dic 2012, 11:19
País: Argentina
Ciudad: Capital Federal
Ocupación: Programador

Re: Disparar JCL desde cola MQ

Mensaje por bilardo » 16 Ago 2013, 15:43

Hola a todos!

Gracias por la respuestas.

Tengo una duda con respecto a donde debería agregar lo que me comentas Luisfer??

Tendria que agregarlo en algun punto de la creación de la cola?
Tengo que generar un process como se haría para un disparo de una transacción cics?

Por ejemplo para ejecutar un programa en CICS mediante el disparo de una cola MQ hago lo siguiente:

1- defino una cola y le asocio un process
2- defino el process para q ejecute la transacción q deseo.

Cuales serían los pasos para realizar lo mismo, solamente que cuando llegue un mensaje MQ se dispare un JCL?

Muchas gracias a todos!
Saludos.

Avatar de Usuario
LuisFer
Colaborador Senior
Colaborador Senior
Mensajes: 379
Registrado: 27 May 2006, 16:06
País: España
Ciudad: Madrid
Ocupación: Otra

Re: Disparar JCL desde cola MQ

Mensaje por LuisFer » 17 Ago 2013, 04:51

Es como dices, crea la cola con trigger=yes tipo , entiendo EVERY.
Saludos
No me sigas, puedo no guiarte, no vayas delante , puedo no seguirte, caminemos juntos y sé simplemente, mi amigo.

Responder