Report that shows elements and vv.ll in a specific system

Products

• Endevor

Issue/Introduction

Need a report that will provide the same info as what is displayed via quick edit when only an element name is provided - for example: 

Is there any report that can be run to product this output? 

Environment

All supported releases

Resolution

The following JCL can be run to generate a report that will show the same information that is displayed in Quickedit. 

//*-------------------------------------------------------------------
//*   Report Element vv.ll in specific System all Envs 
//*-------------------------------------------------------------------
//*   STEP 1 -- EXECUTE CSV UTILITY
//*-------------------------------------------------------------------
//STEP1    EXEC PGM=NDVRC1,REGION=0M,
//         PARM='CONCALL,DDN:CONLIB,BC1PCSV0'
//STEPLIB  DD DISP=SHR,DSN=YOUR.ENDEVOR.CSIQAUTU
//         DD DISP=SHR,DSN=YOUR.ENDEVOR.CSIQAUTH
//CONLIB   DD DISP=SHR,DSN=YOUR.ENDEVOR.CSIQLOAD
//BSTIPT01 DD *,SYMBOLS=JCLONLY
LIST ELEMENT '*'
     FROM ENVIRONMENT *
          SYSTEM      SYSTEM
          SUBSYSTEM   *
          TYPE        *
          STAGE       *
     TO DDNAME 'TABLE' .
//TABLE    DD DSN=&&EXTRACTM,
//      DCB=(RECFM=FB,LRECL=1800,BLKSIZE=9000,DSORG=PS),
//      DISP=(MOD,PASS),
//      SPACE=(CYL,(5,5),RLSE),UNIT=3390
//C1MSGS1  DD SYSOUT=*
//BSTERR   DD SYSOUT=*
//*--------------------------------------------------------------------
//SHOWME  EXEC PGM=IEBGENER,REGION=0M COND=(0,LE)
//SYSPRINT  DD SYSOUT=*                           MESSAGES
//SYSUT1   DD  DSN=&&EXTRACTM,DISP=(OLD,PASS)
//SYSUT2    DD SYSOUT=*                           OUTPUT FILE
//SYSIN    DD DUMMY                               CONTROL STATEMENTS
//SYSUDUMP DD SYSOUT=*
//*
//*--------------------------------------------------------------------
//*-- Read CSV file of Endevor Element information --------------------
//*   Needs:                                                   --------
//*   Element Name, Env, Sys, Subs, Type, STA, VV.LL   //      --------
//*--------------------------------------------------------------------
//STEP2    EXEC PGM=IRXJCL,COND=(4,LT),
//         PARM='ENBPIU00 PARMLIST'
//SYSEXEC  DD  DISP=SHR,DSN=YOUR.ENDEVOR.CSIQCLS0
//TABLE    DD  DSN=&&EXTRACTM,DISP=(OLD,DELETE)
//PARMLIST DD *
  HEADING   TBLOUT  NOTHING 1
  MODEL     TBLOUT  OPTIONS A
//HEADING  DD *
*ELM_NAME  ENV_NAME  SYS_NAME  SBS_NAME  TYPE_NAME STG_NAME  ELM_VV.LL
//MODEL    DD *
 &ELM_NAME &ENV_NAME &SYS_NAME &SBS_NAME &TYPE_NAME &STG_NAME &ELM_VV.&ELM_LL
//OPTIONS  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)
 ELM_VV    = Left(ELM_VV,2)
 ELM_LL    = Left(ELM_LL,2)
//SYSTSPRT DD SYSOUT=*
//NOTHING  DD DUMMY
//TBLOUTX  DD SYSOUT=*
//*
//TBLOUT   DD DSN=&&RAWSDATA,
//      DCB=(RECFM=FB,LRECL=100,BLKSIZE=20000,DSORG=PS),
//      DISP=(NEW,PASS),
//      SPACE=(CYL,(5,5),RLSE),UNIT=3390
//*--------------------------------------------------------------------
//*--  Sort in ascending order  ---------------------------------------
//*--------------------------------------------------------------------
//STEPY    EXEC PGM=SORT,COND=(4,LT)
//SORTIN   DD DSN=&&RAWSDATA,DISP=(OLD,DELETE)
//SORTOUT  DD SYSOUT=*,LRECL=100
//SORTWK01 DD  UNIT=3390,SPACE=(CYL,(1,2))
//SORTWK02 DD  UNIT=3390,SPACE=(CYL,(1,2))
//SORTWK03 DD  UNIT=3390,SPACE=(CYL,(1,2))
//SYSPRT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSOUT   DD  SYSOUT=*
//SYSMSG   DD  SYSOUT=*
//SYSIN    DD  *
   SORT FIELDS=(01,01,CH,D,2,080,CH,A)
//*

The report requested will written to the SORTOUT DD and will look like this: