cancel uid

Todo lo relacionado con JCL, manejo de jobs, etc.
Responder
jcdm
Usuario
Usuario
Mensajes: 25
Registrado: 23 Feb 2015, 04:43
País: España
Ciudad: Madrid
Ocupación: Otra

cancel uid

Mensaje por jcdm » 18 Jul 2018, 05:42

Buenos días,

Estoy escribiendo un jcl que da acceso a un usuario por comando de racf, genera ficheros y entre medias tiene un delay de x tiempo, al final del proceso tiene un paso de revoke para después hacer un iefbr14 con un cancel u=XXXXXX

Lo que pasa es que a pesar de haber condicionado los pasos y tener un delay entre medias, lo primero que ejecuta el jcl es hacer el cancel.

Me podéis guiar en cómo hacer para que se haga al final por favor?

Un slaudo.
El Mainframe te enseña a leer.

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: cancel uid

Mensaje por Vicente » 18 Jul 2018, 08:11

Hola jcdm,
Como no has puesto el JCL solo puedo hacer suposiciones.
Supongo que estás utilizando la sentencia COMMAND del JCL
en una de las dos formas siguientes:
// COMMAND 'MI MANDATO'
o
// MI MANDATO

Esto es lo que dice el manual de JCL REFERENCE al respecto:
Purpose: Use the COMMAND statement to specify a system or JES command that
the system issues when the submitted JCL is converted.
.....
Because the system usually executes an in-stream command as soon as it is
converted, execution of the command will not be synchronized with the execution
of any job or job step in the input stream.
Parece ser que utilizando COMMAND tu problema no tiene solución.
Pero puedes utilizar una internal READER de JES2.
Lo que sigue es un ejemplo para dar el mandato DISPLAY TME.

Código: Seleccionar todo

//* EJECUTA MANDATOS DEL SISTEMA A TRAVES DE UNA INT. READER DE JES2 
//MANDATO1 EXEC PGM=IEBGENER                                         
//SYSIN DD DUMMY                                                     
//SYSPRINT DD SYSOUT=B                                               
//SYSUT2   DD SYSOUT=(A,INTRDR)                                      
//SYSIN    DD DUMMY                                                  
//SYSUT1   DD *,DLM='%%'                                             
/*$VS,'D T'                                                        
%%                        

Detalles de este ejemplo podrían depender de cada instalación y de su configuración de seguridad.

Espero que te sirva,
Un saludo
Varios días probando, equivocandote y volviendo a probar
pueden ahorrarte quince minutos de lectura de un manual.

jcdm
Usuario
Usuario
Mensajes: 25
Registrado: 23 Feb 2015, 04:43
País: España
Ciudad: Madrid
Ocupación: Otra

Re: cancel uid

Mensaje por jcdm » 19 Jul 2018, 11:17

Hola Vicente, efectivamente usaba COMMAND,

Lo del internal reader ha sido perfecto. Muchas gracias.
El Mainframe te enseña a leer.

Responder