Enrique's Website

Code of The Main REXX

/* 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

This tool was created in mid February of 2020. The EXEC can be launched by calling the EXEC from the command line with "TSO REVIEW", or the desired given name.

The first part is a simple REXX that submits a JCL and shows a message to the user.

JCL of The Submitted Job

//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     
/*

The second part of the utility is the submitted job. There are four steps:

The first step gathers all the failed jobs in TWSz.
The second step selects the jobs that haven't been already reviewd and just with JCL or OSUF error.
The third step launches a REXX to prepare the SYSIN for the next step.
The fourth and final step, is the step that modifies all the Text Areas of the failed jobs in OPC.

The idea of submitting and doing everything within a JCL is for the user not to waiting for the TWSz Error Panel to be modified.

REXX Called Within the Submitted Job

/* 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

This utility was created to be used in a neglected development environment, where more than 400 jobs fail every day and most are not solved by the propietaries. The vast majority are because of JCL or OSUF error.

In the interest of time to type the "REVIEWED" comments for all of these failed jobsl, we use the tool after having reviewed these jobs. This tool can be used with another purpose, to modify other applications in TWSz.