Would like to run a report to detemrine how many unique jobs we run on CA Workload Automation ESP Edition.

Document ID : KB000013783
Last Modified Date : 14/02/2018
Show Technical Document Details
Introduction:

How to determine each unique jobname executed by CA Workload Automation ESP Edition.

Question:

How can we run a report to determine how many unique jobnames are executed.

Answer:

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=CYB.TEST.CNTL,DISP=SHR 

//INDD DD DSN=CYB.PRINT1,DISP=SHR 

//OUTDD DD DSN=CYB.PRINT2,DISP=(NEW,CATLG,DELETE), 

// UNIT=SYSDA,SPACE=(CYL,(1,1)), 

// DSORG=PS,RECFM=FB, 

// LRECL=133,BLKSIZE=0 

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