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)?
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 */