To see how many elements are in this particular subsystem there are 2 options depending upon the site requirement.
If a list of elements is required, the CSV List Element – this will provide a list of elements that are located in the subsystem. For more information on the CSV List element the below link has been provided:
List Element
To download the sequential file to you desktop and create an Excel spread. Directions for that process is in this knowledge document:
//*********************************************************
//* DELETE WORKFILES
//*********************************************************
//DELETE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE 'YOUR.CSV.SEQ1.FILE'
/*
//*********************************************************
//* RUN CSV - WITH HEADER
//*********************************************************
//STEP1 EXEC PGM=NDVRC1,REGION=4M,
// PARM='CONCALL,DDN:CONLIB,BC1PCSV0'
//STEPLIB DD DISP=SHR,DSN=YOUR.ENDEVOR.CSIQAUTU
// DD DISP=SHR,DSN=YOUR.ENDEVOR.CSIQAUTH
// DD DISP=SHR,DSN=YOUR.ENDEVOR.CSIQLOAD
//CSV1 DD DSN=YOUR.CSV.SEQ1.FILE,
// DCB=(DSORG=PS,RECFM=VB,LRECL=4092,BLKSIZE=0),
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(5,50),RLSE),
// UNIT=SYSDA
//C1MSGS1 DD SYSOUT=*
//BSTERR DD SYSOUT=*
//BSTIPT01 DD *
LIST ELEMENT *
FROM ENVIRONMENT XXXXX
SYSTEM XXXXX
SUBSYSTEM XXXXX
TYPE XXXXX
STA X
TO DDN CSV1
.
If a list of elements is not required but a count of elements is all that is needed, CONRPT03 should be executed. CONRPT03 will provide a count of elements for that particular subsystem in all environments in your map.
//******************************************************
//REPORT EXEC PGM=NDVRC1,PARM='C1BR1000',REGION=4096K
//STEPLIB DD DSN=YOUR.ENDEVOR.CSIQAUTU,DISP=SHR
// DD DSN=YOUR.ENDEVOR.CSIQAUTU,DISP=SHR
//CONLIB DD DSN=YOUR.ENDEVOR.CSIQLOAD,DISP=SHR
//******************************************************
//** MISCELLANEOUS FILES
//******************************************************
//BSTPCH DD DSN=&TEMP,DISP=(NEW,DELETE,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(1,2)),
// DCB=(RECFM=FB,LRECL=838,BLKSIZE=8380)
//BSTLST DD SYSOUT=*
//SORTIN DD UNIT=SYSDA,SPACE=(CYL,(150,15))
//SORTOUT DD UNIT=SYSDA,SPACE=(CYL,(150,15))
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(5,5))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(5,5))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(5,5))
/*
//C1MSGS1 DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//BSTRPTS DD SYSOUT=*
//BSTINP DD *
REPORT 03 .
ENVIRONMENT * .
SYSTEM * .
SUBSYSTEM SUBSYSTEM NAME .
TYPE * .
STAGE *
SEARCH ENVIRONMENT MAPPING .
After you get this report you said you need to delete the elements – Prior to deleting we strongly recommend that you archive them. There are 2 ways you can do this:
- If the requirement is to keep them available in Endevor, it is recommended that you transfer w/history the elements into your archive Environment. I can assist you with that SCL if you need it.
- If you choose to keep them available to be browed/displayed in Endevor, you can archive the elements to an archive file and then delete them from Endevor. The ARCHIVE statement writes the base level and all change levels of an Element to a sequential file (known as an archive data set). In addition, for Endevor ACM users, the ARCHIVE action writes the base level and all change levels of the Component List to the archive data set. Use the ARCHIVE action to:
- Maintain a backup copy of the Element source.
- Delete the existing version of a particular Element from Stage 2.
- Maintain an archive version of the Element source, that is, to maintain a version of the Element source outside of Endevor
Archive is available in batch only. Once an Element has been archived, COPY, LIST, RESTORE, and TRANSFER actions can be executed against the archive data set to add them back into Endevor if ever needed – During the archive action you can optionally delete the elements or bypass the element delete.
The JCL/SCL provided below will perform the Delete after the element is archived so everything is done in 1 job.
The ARCHIVE Job would look like this:
//STEP1 EXEC PGM=NDVRC1,PARM=C1BM3000,DYNAMNBR=1500
//STEPLIB DD DISP=SHR,DSN=YOUR.ENDEVOR.CSIQAUTU
// DD DISP=SHR,DSN=YOUR.ENDEVOR.CSIQAUTH
//CONLIB DD DISP=SHR,DSN=YOUR.ENDEVOR.CSIQLOAD
//BSTERR DD SYSOUT=*
//C1MSGS1 DD SYSOUT=*
//ARCHIVE DD DISP=(NEW,CATLG,DELETE), DSN=IRPFX.IQUAL.ARCHIVE,
// UNIT=SYSDA,
// SPACE=(TRK,(5,15),RLSE),
// DCB=(RECFM=VB,LRECL=2940,BLKSIZE=0)
//C1MSGS1 DD SYSOUT=*
//C1PRINT DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//SYSABEND DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//BSTIPT01 DD *
ARCHIVE ELEMENT *
FROM ENVIRONMENT DEV
SYSTEM CCS
SUBSYSTEM LXCFV2
TYPE CPGM
STAGE NUM 1
TO DDN ARCHIVE
OPTION OVERRIDE SIGNOUT
.
The Archive JCL below will perform the ARCHIVE only and then a separate job will need to be submitted to delete the elements.
Archive w/bypass Element Delete:
//STEP1 EXEC PGM=NDVRC1,PARM=C1BM3000,DYNAMNBR=1500
//STEPLIB DD DISP=SHR,DSN=YOUR.ENDEVOR.CSIQAUTU
// DD DISP=SHR,DSN=YOUR.ENDEVOR.CSIQAUTH
//CONLIB DD DISP=SHR,DSN=YOUR.ENDEVOR.CSIQLOAD
//BSTERR DD SYSOUT=*
//C1MSGS1 DD SYSOUT=*
//ARCHIVE DD DISP=(NEW,CATLG,DELETE), DSN=IRPFX.IQUAL.ARCHIVE,
// UNIT=SYSDA,
// SPACE=(TRK,(5,15),RLSE),
// DCB=(RECFM=VB,LRECL=2940,BLKSIZE=0)
//C1MSGS1 DD SYSOUT=*
//C1PRINT DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//SYSABEND DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//BSTIPT01 DD *
ARCHIVE ELEMENT *
FROM ENVIRONMENT ENV1
SYSTEM SYS1
SUBSYSTEM SUBS1
TYPE TYPE1
STAGE NUM 1
TO DDN ARCHIVE
OPTION OVERRIDE SIGNOUT
BYPASS ELEMENT DELETE
.
The JCL to delete the elements would be similar to this:
//STEP1 EXEC PGM=NDVRC1,PARM=C1BM3000,DYNAMNBR=1500
//STEPLIB DD DISP=SHR,DSN=YOUR.USER.AUTHLIB
// DD DISP=SHR,DSN=YOUR.V181.CSIQAUTH
//CONLIB DD DISP=SHR,DSN=YOU.V181.CSIQLOAD
//SYSPRINT DD SYSOUT=*
//C1PRINT DD SYSOUT=*
//C1MSGS1 DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//BSTERR DD SYSOUT=*
//BSTIPT01 DD *
DELETE ELEMENT *
FROM ENVIRONMENT xxxxxxxx
SYSTEM xxxxxxxx
SUBSYSTEM xxxxxxxx
TYPE xxxxxxxx
STA x
OPTIONS OVE .
Remember when performing the delete, to ensure that the elements get deleted the Delete processor must be a *NOPROC*.
