What can be done to control the use of ACMQ and Quickedit (QE) access?
A customized User Option Menu panel - NDVRUSER, in the CSIQPENU library was set up to allow access ACMQ or Quickedit.
The customized panel looks like this:
%------------------------------ User Options Menu
% Option ===>_ZCMD
%
% 1+ REPORTS - Build Report Requests
%
% 2+ ACMQ - Perform ACM Where-Used / Uses-What Queries
%
% 3+ PDM - Endevor Parallel Development Manager
%
% 4+ QUICKEDIT - Endevor Quickedit
%
+ Enter%END+to return to the Primary Options Menu
%
)INIT
.HELP = NDTRUSER
&CTLNBR = ''
&DESCRPT1 = ''
)PROC
/*--------------------------------------------------------------*/
/* The following ZSEL statement will invoke the command or panel*/
/* associated with each option identified above. */
/*--------------------------------------------------------------*/
&ZSEL = TRANS( TRUNC (&ZCMD,'.')
1,'CMD(%C1SR1000 DEBUG(NOBUG))'
/* The following option supports ACM Query */
2,'CMD(%ACMQ DEBUG(NOBUG)) NEWAPPL(CTLI) PASSLIB'
*,'?' )
/* The following option supports PDM Query */
3,'PGM(BC1G1000) NOCHECK NEWAPPL(CTLI) PASSLIB'
*,'?' )
/* The following option supports Qucik Edit */
4,'(ENDIE000) NOCHECK NEWAPPL(CTLI) PASSLIB
*,'?' )
&ZTRAIL = .TRAIL
)END
There are two ways of stopping them from accessing ACMQ or Quickedit
1. Remove the customized NDVRUSER panel completely from the concatenation within Endevor
2. Comment out the option you want to deny access to:
For example:
To remove Quickedit, remove the following line from the panel:
% 4+ QUICKEDIT - Endevor Quickedit
And remove or comment out the Quickedit option like this:
/* The following option supports Qucik Edit */
/* 4,'(ENDIE000) NOCHECK NEWAPPL(CTLI) PASSLIB */
/* *,'?' ) */