CSQ1MSTR - REPLY DEVICE NAME OR 'CANCEL'

Todo lo relacionado con la web desde un mainframe,conectividad,J2EE
Avatar de Usuario
Vicente
Colaborador avanzado
Colaborador avanzado
Mensajes: 542
Registrado: 21 Jul 2011, 04:52
País: España
Ciudad: Malaga
Ocupación: Técnico en Sistemas

Re: CSQ1MSTR - REPLY DEVICE NAME OR 'CANCEL'

Mensaje por Vicente » 24 Dic 2011, 14:27

Independientemente de su periodo de retención o fecha de caducidad, los ficheros permanecen para siempre en los dicos si nadie los borra.
Saludos
Varios días probando, equivocandote y volviendo a probar
pueden ahorrarte quince minutos de lectura de un manual.

tatindgp
Colaborador
Colaborador
Mensajes: 141
Registrado: 25 Feb 2008, 15:09
País: Argentina
Ciudad: Buenos Aires
Ocupación: Analista de desarrollo
Ubicación: BsAS Argentina

Re: CSQ1MSTR - REPLY DEVICE NAME OR 'CANCEL'

Mensaje por tatindgp » 24 Dic 2011, 15:05

Vicente,
EStoy de acuerdo con lo que tu dices, si embargo no he podido poner el hace estro que me indicas "añadir al final del jcl de arranque de MQ un par de lineas para que, si ha terminado bien, se borren los ficheros, es decir algo así como://LOG1 DD DSN=....,DISP=(DELETE,KEEP,KEEP) " ...
el JCL no me aceptaba intentar borrarlos ni despues de la bajada de las colas MQ ni antes de levantarlas. por lo que opte por la opcion de LuisFER de hacer un job que corrar el utilitario CSQJU003, quedandome de la siguiente manera:

//*------------------------------------------------------------------*
//* IMPORTANTE: LEER ANTES DE EJECUTAR ESTE JCL
//*
//* 1- BUSCAR POR 3.4 LOS ARCHIVOS QUE TENGA N NOMBRE CSQARC*.*000000*
//* Y SI MAS DE LOS QUE ESTAN EN ESTE JCL, LOS AGREGAMOS A ESTE JCL
//*
//* 2- ANTES DE EJECUTAR ESTE JOB DEBEMOS DE PARAS LAS COLAS MQ, CON EL
//* COMANDO %CSQ1 STOP QMGR , LUEGO CORREMOS ESTE JOB Y MIRAMOS EN
//* EL SPOOL SU RESULTADO, SI ESTA BIEN, ENTONCES LEVANTAMOS LAS
//* COLAS MQ CON EL COMANDO %CSQ1 START QMGR Y LISTO.
//*------------------------------------------------------------------*
//JU003 EXEC PGM=CSQJU003
//STEPLIB DD DISP=SHR,DSN=CSQ531.SCSQANLE
// DD DISP=SHR,DSN=CSQ531.SCSQAUTH
//SYSPRINT DD SYSOUT=*,DCB=BLKSIZE=629
//SYSUT1 DD DISP=SHR,DSN=CSQ531.CSQ1.BSDS01
//SYSUT2 DD DISP=SHR,DSN=CSQ531.CSQ1.BSDS02
//SYSIN DD *
DELETE DSNAME=CSQARC1.A0000001,COPY1VOL=FILE01
DELETE DSNAME=CSQARC1.B0000001,COPY1VOL=FILE01
DELETE DSNAME=CSQARC2.A0000001,COPY1VOL=FILE01
DELETE DSNAME=CSQARC2.B0000001,COPY1VOL=FILE01
DELETE DSNAME=CSQARC1.A0000002,COPY1VOL=FILE01
DELETE DSNAME=CSQARC1.B0000002,COPY1VOL=FILE01
DELETE DSNAME=CSQARC2.A0000002,COPY1VOL=FILE01
DELETE DSNAME=CSQARC2.B0000002,COPY1VOL=FILE01
/*

Obvio que este job lo corre debes en cuando...o si conoces alguna otra forma de automarizarlo mejor...te agradeceria si me la compartes.

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

Re: CSQ1MSTR - REPLY DEVICE NAME OR 'CANCEL'

Mensaje por LuisFer » 25 Dic 2011, 05:32

Felices Fiestas, habeis sido muy rápidos.
Se me ocurre que para automatizar el borrado, hacer una CLIST (o REXX) que liste los ficheros y borre los que proceda.
Luego lo añades como un segundo paso al Procedimiento CSQ1MSTR, así cada vez que pares el Gestor de Colas (CSQ1MSTR) tendrás la tarea realizada.

Saludos
No me sigas, puedo no guiarte, no vayas delante , puedo no seguirte, caminemos juntos y sé simplemente, mi amigo.

Avatar de Usuario
Vicente
Colaborador avanzado
Colaborador avanzado
Mensajes: 542
Registrado: 21 Jul 2011, 04:52
País: España
Ciudad: Malaga
Ocupación: Técnico en Sistemas

Re: CSQ1MSTR - REPLY DEVICE NAME OR 'CANCEL'

Mensaje por Vicente » 25 Dic 2011, 08:59

FELIZ NAVIDAD !
Varios días probando, equivocandote y volviendo a probar
pueden ahorrarte quince minutos de lectura de un manual.

tatindgp
Colaborador
Colaborador
Mensajes: 141
Registrado: 25 Feb 2008, 15:09
País: Argentina
Ciudad: Buenos Aires
Ocupación: Analista de desarrollo
Ubicación: BsAS Argentina

Re: CSQ1MSTR - REPLY DEVICE NAME OR 'CANCEL'

Mensaje por tatindgp » 25 Dic 2011, 13:07

Felices fiestas para ustedes y sus seres queridos también!!!!!! :brindis:


LuisFer sobre esto que me dices "Se me ocurre que para automatizar el borrado, hacer una CLIST (o REXX) que liste los ficheros y borre los que proceda.Luego lo añades como un segundo paso al Procedimiento CSQ1MSTR, así cada vez que pares el Gestor de Colas (CSQ1MSTR) tendrás la tarea realizada." .... Te agradeceria mucho si pudieras darme una mano para realizar debido a que no tengo mucha idea de como hacerlo...estuve intentando hacer algo...pero no me funciono...además no me queda claro como agregar un paso que borre los archivos al procedimiento CSQ1MSTR para que cuando baje las colas MQ(detenga el sevicio de colas MQ) se borren...no entiendo tampoco en que parte del procediemiento agregarlo...¿es el mismo procedimiento CSQ1MSTR para arrancar las colas mq que para bajarlas?..si es asi...donde agrego y como lo construyo(un ejemplo necestaria) para que sepa que lo quiero ejecutar una vez que las colas MQ ya estan detenidas(para evitar problemas con las mismas...tal como lo dice la información que pude leer del link que me pasaste http://publib.boulder.ibm.com/infocente ... 11900_.htm ).
Los torpes abren caminos que luego los sabios recorreran.

Saludos y gracias
Tatindgp

tatindgp
Colaborador
Colaborador
Mensajes: 141
Registrado: 25 Feb 2008, 15:09
País: Argentina
Ciudad: Buenos Aires
Ocupación: Analista de desarrollo
Ubicación: BsAS Argentina

Re: CSQ1MSTR - REPLY DEVICE NAME OR 'CANCEL'

Mensaje por tatindgp » 25 Dic 2011, 13:47

LuisFer,
Agrego a lo anterior que no tengo mucha idea de como hacer una CLIST o un REXX para borrar los archivos...por lo que tambien te agradeceria si pudieras darme tu apoyo.
Los torpes abren caminos que luego los sabios recorreran.

Saludos y gracias
Tatindgp

Responder