How to list all elements that are locked in a package

Products

• Endevor

Issue/Introduction

Is there way to list elements which are locked within packages using LIST ELEMENT or any sort of batch JCL?

Resolution

List Element batch JCL with the option RETURN ALL will give the full element information. This will include the fields PKG ID, LOCKED DATE, and LOCKED TIME. These fields will have information in them if the element is locked.

//#######P   JOB (XXXXXXXXX),'CSV',USER=#######,               
//  REGION=0M,CLASS=B,NOTIFY=&SYSUID                             
//*********************************************                  
//* LIST THE ELEMENT TO INCLUDE ALL FIELDS    *                  
//* NEED TO REVIEW A LIST OF LOCKED ELEMENTS  *                  
//* SEE FIELDS: PKG ID,                       *                  
//*             LOCKED DATE,                  *                  
//*             LOCKED TIME                   *                  
//*********************************************                  
//STEP1    EXEC PGM=NDVRC1,REGION=4M,                      
//         PARM='CONCALL,DDN:CONLIB,BC1PCSV0' 
//STEPLIB  DD DISP=SHR,DSN=iprfx.iqual.CSIQAUTU
//         DD DISP=SHR,DSN=iprfx.iqual.CSIQAUTH
//CONLIB   DD DISP=SHR,DSN=iprfx.iqual.CSIQLOAD            
//C1MSGS1  DD SYSOUT=*                                           
//LISTPKG  DD DSN=<insert>,                   
//         DISP=(NEW,CATLG,DELETE),                              
//         DCB=(DSORG=PS,RECFM=VB,LRECL=4092,BLKSIZE=4096),      
//         SPACE=(CYL,(800,500),RLSE)                            
//BSTERR   DD SYSOUT=*                                           
//SYSABEND DD SYSOUT=*                                           
//SYSMDUMP DD SYSOUT=*                                           
//BSTIPT01 DD *                                                  
LIST ELEMENT *                                                   
FROM ENVIRONMENT <insert>                                       
    SYSTEM      <insert>                                         
    SUBSYSTEM   <insert>                                         
    TYPE        <insert>                                       
    STAGE       <insert>                                        
TO FILE LISTPKG                                                  
OPTIONS                                                          
  RETURN ALL                                                     
.  

Additional Information

List Element Function