Enrique's Website

Código de la REXX llamada

/* REXX */                                                                    
/* SUBMIT JCL TO GET FAILED JOBS */                                  
 ADDRESS TSO "SUBMIT 'EX.AOAPL110.XE06769(GETJCLER)'"                
/*  AFTER JCL, READ THE FILE */                                      
ADDRESS MVS                                                          
ADDRESS TSO                                                          
SAY "THANKS, ERROR PANEL WILL BE UPDATED IN LESS THAN A MINUTE."
SAY "IT DEPENDS ON THE LOAD OF THE CPU."
RETURN

Esta utilidad fue creada en Febrero de 2020. Se puede ejecutar usando el comando "TSO REVISA", u otro nombre deseado.

La primera parde es una simple REXX que submite a JCL y muestra un mensaje al usuario.

JCL del job submitido

//GETJCLER JOB 202,'SALA HOST.',REGION=0M,COND=(4,LT),                 
//         CLASS=W,MSGCLASS=R,MSGLEVEL=(1,1)                           
/*JOBPARM S=PRU1                                                       
//LIBPROC  JCLLIB ORDER=EX.EXPDSL11.PROCLIB                            
//*LIBPROC  JCLLIB ORDER=EX.PROCLIB                                    
//*************************************************                    
//* OPC/BATCHCP: LIST THE FAILED OCURRENCES                          
//*************************************************         
//CONSUL1  EXEC BATCHCP,SUBSYS=OPCP                                    
//OCBOUT   DD DSN=EX.AOAPL110.OPC.JCLERROR.RESULT,DISP=OLD             
//PARMIN   DD DSN=EX.AOAPL110.OPC.JCLERROR.PARMIN,DISP=SHR             
//*************************************************              
//PASO001 EXEC PGM=SORT                                                
//SYSPRIN  DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                                 
//SORTIN   DD DSN=EX.AOAPL110.OPC.JCLERROR.RESULT,DISP=SHR              
//OUTDD1   DD DSN=EX.AOAPL110.OPC.JCLERROR.SACADOS,DISP=OLD             
//SYSIN    DD *                                                         
 SORT FIELDS=COPY OPTION VLSHRT                                         
 OMIT COND=((234,4,NE,C'JCL ',AND,234,4,NE,C'OSUF'),OR,44,3,EQ,C'***'), 
 FORMAT=CH                                                      
 OUTFIL FNAMES=OUTDD1,                                                  
 OUTREC=(69,8,1X,20,10,1X,1,16,1X,31,3,1X,44,24,1X,234,4,430X),  
 CONVERT                                                
/*                                                               
//LAUNREXX EXEC PGM=IKJEFT01,DYNAMNBR=25                                
//*ENTRADA  DD DSN=EBPEBEF.INPBD05X.XEFJBK12,DISP=(OLD,DELETE,KEEP)     
//*SALIDA   DD DSN=EBPEBEF.INPBD05X.XEFJBK13,DISP=(,CATLG,DELETE),      
//*            SPACE=(TRK,(100,10),RLSE),                               
//*            DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)              
//SYSOUT   DD SYSOUT=*                                         
//SYSTSPRT DD SYSOUT=*                                       
//SYSTSIN  DD *                                              
EXEC 'EX.AOAPL110.XE06769(REXXJCL2)'                         
/*                                                            
//*                                                        
//PASO002 EXEC PGM=IKJEFT01,PARM='EQQOCL'                       
//STEPLIB  DD DSN=EQQ.V9R2M0.SEQQLMD0,DISP=SHR                   
//         DD DSN=EQQ.V9R2M0.EXITLIB,DISP=SHR             
//OCLLOG   DD SYSOUT=*                                        
//OCLPARM  DD DSN=SSO.OPC.PARM(EQQYRPRM),DISP=SHR                
//OCLMLIB  DD DSN=EQQ.V9R2M0.SEQQSAMP(EQQYRMSG),DISP=SHR          
//SYSEXEC  DD DSN=EQQ.V9R2M0.SEQQMISC,DISP=SHR                      
//SYSPRINT DD SYSOUT=*,                                            
//            DCB=(RECFM=FB,LRECL=133,BLKSIZE=1330)            
//SYSTSPRT DD SYSOUT=*,                                        
//            RECFM=FB,LRECL=122,BLKSIZE=0                      
//SYSTSIN  DD DUMMY                                            
//EQQMLIB  DD DSN=EQQ.V9R2M0.SEQQMESP,DISP=SHR               
//            DD DSN=EQQ.V9R2M0.SEQQMSG0,DISP=SHR              
//EQQYPARM DD DSN=SSO.OPC.PARM(PIFPARMZ),DISP=SHR               
//EQQMLOG  DD SYSOUT=*                                      
//EQQDUMP  DD SYSOUT=*                                           
//SYSIN    DD DSN=EX.AOAPL110.OPC.JCLERROR.SYSINEQQ,DISP=SHR     
/*

La segunda parte es el job submitido, se pueden ver cuatro pasos:

El primero coge los jobs fallados del planificador TWSz(opc).
El segundo paso selecciona solo los jobs que no han sido ya revisados y que tienen JCL error u OSUF.
El tercer paso ejecuta una REXX para preparar la SYSIN para el siguiente paso.
El cuarto y último paso es el que modifica todas las Áreas de Texto de los jobs fallados y recogidos en TWSz(OPC).

la idea de submitir y hacer todo dentro de un JCL es para no tenre al usuario esperando a que el panel de errores de TWSz sea modificado.

REXX llamada desde el job submitido.

/* REXX */                                                     
/* READ THE FAILED JOBS AND PREPARE SYSIN FOR EQQ */           
ADDRESS MVS                                                    
ADDRESS TSO                                                    
MSG_STATUS=MSG("OFF")                                           
N = 0                                                           
TEXT = "*** REVIEWED ***   "                                    
"CALL *(MDTWAIT) '000005'"                                      
"ALLOC DA('EX.AOAPL110.OPC.JCLERROR.SACADOS') F(JCLERR) SHR"    
"EXECIO * DISKR JCLERR (FINIS STEM JOBS."                       
"FREE F(JCLERR)"                                                
DO I = 1 TO JOBS.0                                              
  APPL = WORD(SUBSTR(JOBS.I,21,16),1)                           
  OPER = SUBSTR(JOBS.I,38,3)                                    
  APIA = SUBSTR(JOBS.I,10,10)                                   
  IF APIA = "        " THEN ITERATE I                           
  N = N + 1                                                     
  EQQ.N = "MODOP APPL("APPL") IA("APIA") DESC("TEXT") OPN("OPER")"          
END                                                             
 "ALLOC F(EQQSYSIN) DA ('EX.AOAPL110.OPC.JCLERROR.SYSINEQQ')    
  OLD REUSE"                                                    
  "EXECIO * DISKW EQQSYSIN(FINIS STEM EQQ."                     
  "FREE F(EQQSYSIN)"
RETURN

Fue creada para usarse en un entorno que está practicamente desatendido donde cancelan más de 400 jobs al día y usualmente no son solventados por los propietarios, la inmensa mayoría fallan por JCL error u OSUF.

Por lo que, para no perder tiempo escribiendo el comentario de revisado para todos estos jobs repetitivos, creé esta utilidad, para usar después de haber revisado los jobs. Obviamente, puede ser usada con otros propósitos, para modificar otras aplicaciones en el planificador TWSz.