How to enforce the SECURITY option set in JCLDFLT when using EDCHEK
search cancel

How to enforce the SECURITY option set in JCLDFLT when using EDCHEK

book

Article ID: 369472

calendar_today

Updated On:

Products

JCLCheck Workload Automation

Issue/Introduction

JCLCheck Usermod MZ1C024 is applied to set option SECURITY(NODASD,NOSTOR,NOMGMT,NOPROG,SHRUPD) to the JCLDFLT table.

In an ISPF Edit session, command %EJCK PANEL may be used to display the JCK21 options panel.  If the SECURITY option is set to N on this panel, then the SECURITY option set in JCLDFLT is nullified.  

How to force the SECURITY option to YES when using EDCHEK (%EJCK or !JCK)? 

Resolution

Add the following codes to the EJCK CLIST from the CAZ2CLS0 library: 

IF &SYSISPF ¬= ACTIVE THEN DO                             /* TEBE841 */       
  WRITE EJCK MUST BE EXECUTED UNDER ISPF - COMMAND TERMINATING                
  EXIT                                                    /* TEBE841 */       
  END                                                     /* TEBE841 */       
                                                                              
                                                                              
/* add the next 4 statements */                                                             
                                                                              
SET JK@BYP  = Y                              /* BYPASS PANELID JCK21 */       
SET JK@SEC  = Y                              /* SET SECURITY TO Y    */       
SET JKSEC   = SEC                            /* ENABLE SECURITY      */       
ISPEXEC VPUT (JK@BYP JK@SEC JKSEC)  PROFILE  /* ADD VARS TO PROFILE */        

...

PAN: -                                                                     
SET &JK@REXF=0                                    /*REXXSEL*/              
ISPEXEC DISPLAY PANEL(JCK21) MSG(&MSG) CURSOR(&CURSOR)                     
                                                                           
/* add the next 2 statements */                                                            
                                                                           
SET JK@SEC  = Y                              /* SET SECURITY TO Y    */    
SET JKSEC   = SEC                            /* ENABLE SECURITY      */