Endevor Report to showing Elements updated in a date range using (CSV reporting and Tabletool utility)

Products

• Endevor

Issue/Introduction

Would like a report showing all showing Elements updated in a date range.

Environment

Endevor all supported versions

Resolution

This can be done using CSV Reporting. The Tabletool utility can be used to format this raw data.

The following is the JCL:

//**********************************************************
//*
//* The CSVEXTR step will run CSV reporting to extract the
//* data from Endevor. Update DD BSTIPT01 as required.
//*
//* Update DDs STEPLIB, CONLIB, ACMROOT, SYSEXEC(CSIQCLS0)
//*
//* Update DD BSTIPT01 with the Element/Date range as
//*        required
//*
//**********************************************************
//CSVEXTR  EXEC PGM=NDVRC1,REGION=4M,
//         PARM='CONCALL,DDN:CONLIB,BC1PCSV0'
//STEPLIB  DD DISP=SHR,DSN=<CSIQAUTU>
//         DD DISP=SHR,DSN=<CSIQAUTH>
//CONLIB   DD DISP=SHR,DSN=<CSIQLOAD>
//ACMROOT DD DISP=SHR,DSN=<ACMROOT>
//**********************************************************
//*  Update as required. In this example all TYPE PROCESS
//*  Elements are selected. The date range is Jan 31/25
//*  to May 13/25.
//**********************************************************
//BSTIPT01 DD *
LIST ELEMENT  '*'
FROM ENVIRONMENT *
SYSTEM      *
SUBSYSTEM   *
TYPE        PROCESS
STAGE       *
DATA SUMMARY
WHERE GENERATE  FROM   DATE   01/31/25 TIME   00:00
      GENERATE  THRU   DATE   05/13/25 TIME   00:00
TO DDNAME 'TABLE' .
/*
//**********************************************************
//*  The DD TABLE is used to output the CSV data.
//**********************************************************
//TABLE    DD DSN=&&EXTRACTM,
//            DCB=(RECFM=FB,LRECL=1800,BLKSIZE=9000,DSORG=PS),
//            DISP=(MOD,PASS),
//            SPACE=(CYL,(5,5),RLSE)
//C1MSGS1  DD SYSOUT=*
//BSTERR   DD SYSOUT=*
//*
//**********************************************************
//* Show contents of CSV file (for debugging)
//**********************************************************
//SHOWME   EXEC PGM=IEBGENER,REGION=1024K
//SYSPRINT DD DUMMY
//SYSUT1   DD DSN=&&EXTRACTM,DISP=(OLD,PASS)
//SYSUT2   DD SYSOUT=*
//SYSIN    DD DUMMY
//SYSUDUMP DD SYSOUT=*
//*
//**********************************************************
//* Using Endevor's TableTool utility, read the element
//* data and build a formatted list.
//* ==> TableTool utility;  IPRFX.IQUAL.CSIQCLS0(ENBPIU00)
//*
//* Output is in DD  TBLOUT
//*
//*
//**********************************************************
//TBLTOOL  EXEC PGM=IRXJCL,COND=(4,LT),PARM='ENBPIU00 PARMLIST'
//SYSEXEC  DD DISP=SHR,DSN=<CSIQCLS0>
//TABLE    DD DSN=&&EXTRACTM,DISP=(OLD,PASS)
//PARMLIST DD *
HEADING   TBLOUT  NOTHING 1
MODEL1    TBLOUT  OPTIONS1 A
//HEADING  DD *
ELM_NAME  ENV_NAME  SYS_NAME  SBS_NAME  TYPE_NAME STG_NAME   CHG_DATE
====================================================================
//MODEL1   DD *
&ELM_NAME &ENV_NAME &SYS_NAME &SBS_NAME &TYPE_NAME &STG_NAME &CHG_DATE
//OPTIONS1 DD *
$Table_Type = "CSV"
ELM_NAME  = Left(ELM_NAME,9)
ENV_NAME  = Left(ENV_NAME,9)
SYS_NAME  = Left(SYS_NAME,9)
SBS_NAME  = Left(SBS_NAME,9)
TYPE_NAME = Left(TYPE_NAME,9)
STG_NAME  = Left(STG_NAME,9)
CHG_DATE  = Left(CHG_DATE,10)
//SYSTSPRT DD SYSOUT=*
//NOTHING  DD DUMMY
//TBLOUT   DD SYSOUT=*