Endevor Table Tool to Remove Approver Relations

Products

• Endevor

Issue/Introduction

I need a way to remove Approver Relations from a custom set of criteria within an environment. If I do a Define SCL it returns twice as many Approver Relations then I would need to then Delete. Is there a way to do additional filtering to remove the Approver Relations?

Cause

Define SCL will return Approver Relations for the Environment and it is not possible to additionally filter on Stage.

Resolution

A solution is to use the Endevor Table Tools. This will allow you to add additional filtering criteria. Update the highlighted fields with your site specific information.

Delete Approver Relations using Table Tool

//*-------------------------------------------------------------------- 
//* Table Tool - create DELETE SCL for Approver Relation              -
//*--------------------------------------------------------------------                                                                           
//*                                                                     
//* &src1=  DELETE  APPROVER RELATION                                   
//* &src2=    FOR APPROVER GROUP '<insert>'                             
//* &src3=     FROM ENVIRONMENT '<insert>'                                
//* &src4=     SYSTEM '*'                                               
//* &src5=     SUBSYSTEM '*'                                            
//* &src6=     TYPE '*'                                                 
//* &src7=     STAGE NUMBER 2                                           
//* &src8=     TYPE IS STANDARD .                                                                   
//*                                                                     
//*-------------------------------------------------------------------- 
//JSTEP10  EXEC PGM=IRXJCL,PARM='ENBPIU00 A',COND=(4,LT)                
//SYSEXEC  DD DISP=SHR,DSN=xxxx.xxxx.CSIQCLS0               
//TABLE    DD  DSN=&&EXTELE,DISP=(OLD,DELETE)                           
//MODEL    DD *                                                         
&src1                                                                   
&src2                                                                   
&src3                                                                   
&src4                                                                   
&src5                                                                   
&src6                                                                   
&src7                                                                   
&src8                                                                   
&src9                                                                   
//OPTIONS  DD *  
  $Table_Type = "CSV"                                               
  IF APPR_GRP_NAME \= '<insert>' THEN $SkipRow = 'Y'                
  IF ENV_NAME  \= '<insert>' THEN $SkipRow = 'Y'                      
 /* IF TYPE_NAME \= 'COBOL' THEN $SkipRow = 'Y' */                  
                                                                    
  src1  = 'DELETE  APPROVER RELATION'                               
  src2  = '   FOR APPROVER GROUP ' APPR_GRP_NAME                    
  src3  = '   FROM ENVIRONMENT ' ENV_NAME                           
  src4  = '   SYSTEM ' SYS_NAME                                     
  src5  = '   SUBSYSTEM ' SBS_NAME                                  
  src6  = '   TYPE ' TYPE_NAME                                      
  src7  = '   STAGE NUMBER ' STG_#                                  
  src8  = '   TYPE IS STANDARD .'                                   
  src9  = ' '                                                       
                                                                    
//TBLOUT   DD DSN=&&SCLDEL,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE),     
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS)            
//SYSTSPRT DD SYSOUT=*                                              
//SYSPRINT DD SYSOUT=*                                              
//DISPLAYS DD SYSOUT=*                                              
//SYSTSIN  DD DUMMY                                                 
//*  

//*--------------------------------------------------------------------
//* DISPLAY DELETE SCL                                                -
//*--------------------------------------------------------------------
//STEPxx  EXEC PGM=IEBGENER,REGION=1024K                              
//SYSPRINT DD SYSOUT=*                                                 
//SYSUT1   DD DSN=&&SCLDEL,DISP=(OLD,PASS)                             
//SYSUT2   DD SYSOUT=*                                                 
//SYSIN    DD DUMMY                                                    
//SYSUDUMP DD SYSOUT=*   

//********************************************************************* 
//*  ENDEVOR BATCH TO DELETE ELEMENTS                                 * 
//********************************************************************* 
//EXECDEL  IF &EXECDEL EQ 1 THEN                                        
//EXECDEL  EXEC PGM=NDVRC1,DYNAMNBR=1500,REGION=0M,                     
//  PARM='C1BM3000'                                                     
//STEPLIB  DD DISP=SHR,DSN=xxxx.xxxx.CSIQAUTU
//         DD DISP=SHR,DSN=xxxx.xxxx.CSIQAUTH
//CONLIB   DD DISP=SHR,DSN=xxxx.xxxx.CSIQLOAD                       
//SYSPRINT DD SYSOUT=*                                                  
//EN$DFTNE DD DUMMY                                                     
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,2))                              
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(1,2))                              
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(1,2))                              
//C1TPDD01 DD UNIT=SYSDA,SPACE=(CYL,5),                                 
//            DCB=(RECFM=VB,LRECL=260)                                  
//C1TPDD02 DD UNIT=SYSDA,SPACE=(CYL,5),                                 
//            DCB=(RECFM=VB,LRECL=260)                                  
//C1TPLSIN DD UNIT=SYSDA,SPACE=(CYL,5),                                 
//            DCB=(RECFM=FB,LRECL=80)                                   
//C1TPLSOU DD UNIT=SYSDA,SPACE=(CYL,5)                                  
//C1PLMSGS DD SYSOUT=*                                                  
//C1MSGS1  DD SYSOUT=*                                                  
//C1MSGS2  DD SYSOUT=*                                                  
//C1PRINT  DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=133)                        
//SYSUDUMP DD SYSOUT=*                                                  
//SYMDUMP  DD DUMMY                                                     
//SYSOUT   DD SYSOUT=*                                                  
//BSTIPT01 DD DSN=&&SCLDEL,DISP=(OLD,DELETE)                            
//EXECDEL  ENDIF                                                        
//*