Report to determine the number of unique jobs ran on ESP

Products

• ESP Workload Automation

Issue/Introduction

How to determine each unique jobname executed by ESP?

How to run a report to determine how many unique jobnames are executed?

Environment

Release: All 
Component: Workload Automation ESP Edition

Resolution

1) Run a History Report that reports on the following criteria.
 REPORT                                                        
 HISTFILE HIST1                                                
 CRITERIA JOBNAME EQ '-'                                 
 DISPLAY JOBNAME JOBNO APPLSYS APPLGEN CMPC WOBTYPE -
 EXECST ENDDATE ENDT AVGRUNT                                  
 SORT JOBNAME                                             
 ENDR                                                          

2) Get the jobname list. 
Sort the dataset by typing sort on the command line. 
Run the JCL / REXX below. 

JCL 
//********************************************************************* 
//* REMOVE DUPS * 
//********************************************************************* 
//STEP020 EXEC PGM=IKJEFT01,REGION=4096K,DYNAMNBR=25 
//SYSEXEC DD DSN=<REXX library name>,DISP=SHR 
//INDD         DD DSN=<input data set>,DISP=SHR 
//OUTDD     DD DSN=<output data set>,DISP=(NEW,CATLG,DELETE), 
//    UNIT=SYSDA,SPACE=(CYL,(1,1)), 
//    DCB=(DSORG=PS,RECFM=FB,LRECL=133), 
//SYSTSPRT DD SYSOUT=* 
//SYSTSIN DD * 
%REMDUPS 
/* 

REXX 
/* REXX */ 
/* THIS IS USED BY JOB XXXXXXXX */ 
LASTJOB = ' ' 
"EXECIO * DISKR INDD (STEM INPUT1. FINIS" 
"FREE DD(INDD)" 
DO N = 1 TO INPUT1.0 
PARSE VAR INPUT1.N W1 . 
W1 = STRIP(W1) 
SAY 'W1' W1 
SAY 'LASTJOB' LASTJOB 
IF W1 = LASTJOB THEN ITERATE 
QUEUE INPUT1.N 
LASTJOB = W1 
END 
QUEUE '' 
"EXECIO * DISKW OUTDD (FINIS" 
"FREE F(OUTDD)" 
EXIT