Subject: RE: Deleting User from CICS/TS
industrynews@winwholesale.com
Date: Tue Jul 08 2008 - 15:12:47 EDT
owner-vse-l@Lehigh.EDU wrote on 07/08/2008 02:21:52 PM:
> Would you be willing to share your application?
Yes, I'm willing, however, it (VSEC) is rather complex and
includes some dependency upon our environment. I have also not yet made
the effort to bring all of the pieces together into an installable
package. It is also rather new even to our environment and, though it
works perfectly for me, it has not yet undergone the rigorous type of
testing which users unfamiliar with the application can put it through.
VSEC has four levels of built-in security (application, section, generic,
and resource level) based upon custom BSM resource definitions. To give
you an idea of what I mean, the following is the job to set up the basic
security access to just the VSEC application. This is necessary because
it is our plan to have end users responsible for maintaining their own
application resource security permissions. So, if you want it, send me an
off-list email for when I have a chance to build the installable package
to send you.
// JOB BSTADMIN VSEC Internal Security
// EXEC PGM=BSTADMIN
AG @WGSITMG DATA('WGS I/T Management ')
PE FACILITY WINROLE.300.CRP.IT.MGR ID(@WGSITMG) ACC(R)
CO @WGSITMG JCDANA
CO @WGSITMG KMCLAY
CO @WGSITMG SLHANGEN
AG @WGSIT DATA('WGS I/T Employees ')
PE FACILITY WINROLE.350.CRP.IT.EMP ID(@WGSIT) ACC(R)
CO @WGSIT DLCLARK
CO @WGSIT DRROBERT
CO @WGSIT JPDUNLEV
CO @WGSIT RAHALE
CO @WGSIT WCWASHBU
AD FACILITY WINVSEC.APPS UACC(N) DATA('Appl. Security Maint')
AD FACILITY WINVSEC.CORP UACC(N) DATA('Corp. Security Maint')
AD FACILITY WINVSEC.ROLE UACC(N) DATA('Roles Security Maint')
AD FACILITY WINVSEC.TRAN UACC(N) DATA('Tran. Security Maint')
AD FACILITY WINVSEC.UGRP UACC(N) DATA('Group Security Maint')
AD FACILITY WINVSEC.USER UACC(N) DATA('Users Security Maint')
AD FACILITY WINVSEC.VSEC UACC(N) DATA('VSec. Security Maint')
AD FACILITY WINAPPS. GEN UACC(N) DATA('WINAPPS Generic Accs')
AD FACILITY WINCORP. GEN UACC(N) DATA('WINCORP Generic Accs')
AD FACILITY WINROLE. GEN UACC(N) DATA('WINROLE Generic Accs')
AD TCICSTRN '' GEN UACC(N) DATA('CICSTRN Generic Accs')
AD FACILITY WINVSEC. GEN UACC(N) DATA('VSec. Applic. Access')
PE FACILITY WINVSEC.APPS ID(@WGSIT) ACC(U)
PE FACILITY WINVSEC.CORP ID(@WGSIT) ACC(U)
PE FACILITY WINVSEC.ROLE ID(@WGSIT) ACC(U)
PE FACILITY WINVSEC.TRAN ID(@WGSIT) ACC(U)
PE FACILITY WINVSEC.UGRP ID(@WGSIT) ACC(U)
PE FACILITY WINVSEC.USER ID(@WGSIT) ACC(U)
PE FACILITY WINVSEC. GEN ID(@WGSIT) ACC(R)
PE FACILITY WINVSEC. GEN ID(@WGSITMG) ACC(A)
PF DATASPACE REFRESH
/* EOD
/& EOJ
Sincerely,
Dave Clark
WinWholesale Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
(937) 294-5331
This email message and any attachments is for use only by the named
addressee(s) and may contain confidential, privileged and/or proprietary
information. If you have received this message in error, please
immediately notify the sender and delete and destroy the message and all
copies. All unauthorized direct or indirect use or disclosure of this
message is strictly prohibited. No right to confidentiality or privilege
is waived or lost by any error in transmission.
This archive was generated by hypermail 2b25 : Tue Aug 19 2008 - 18:05:07 EDT