Re: Private authority report

Thanks Gary.
I'm going to cross post my question to the Midrange-L to see if there might be something easier as I'm not a programmer and I don't think this list gets a whole lot of traffic.
Bryan
-----Original Message-----
From: security400-bounces-Zwy7GipZuJhWk0Htik3J/[email protected]
[mailto:security400-bounces-Zwy7GipZuJhWk0Htik3J/[email protected]]On Behalf Of Gary Monnier
Sent: Tuesday, June 12, 2007 2:57 PM
To: Security Administration on the AS400 / iSeries
Subject: Re: [Security400] Private authority report


Try this write a CL program to do the following.

1. DSPOBJD to an outfile. 
2. Read the outfile.
3. DSPOBJAUT to an outfile.
4. Call another CL program that scans the outfile from 3 for user
ODBCUSER.
5. If no ODBCUSER or the incorrect authority send yourself a message.

-----Original Message-----
From: security400-bounces+gary.monnier=powertech.com-Zwy7GipZuJhWk0Htik3J/[email protected]
[mailto:security400-bounces+gary.monnier=powertech.com-Zwy7GipZuJhWk0Htik3J/[email protected]] On
Behalf Of Burns, Bryan
Sent: Tuesday, June 12, 2007 12:36 PM
To: security400-Zwy7GipZuJhWk0Htik3J/[email protected]
Subject: [Security400] Private authority report


I performed a GRTOBJAUT OBJ(AMFLIBE/*ALL) OBJTYPE(*FILE) USER(ODBCUSER)
AUT(*USE) and the joblog shows "Authority given to 5886 objects. Not
given to 49 objects".  How can I get a list of just the 49 files in
library AMFLIBE that weren't given authority? 

The files for most of the 5886 objects that were given authority look
like this:

User        Authority
*PUBLIC     *CHANGE  
AMAPICS     *ALL     
ODBCUSER    *USE 

I need a list of just the 49 files in library AMFLIBE in which ODBCUSER
has no private authority.

Bryan Burns

_______________________________________________
This is the Security Administration on the AS400 / iSeries (Security400) mailing list
To post a message email: Security400-Zwy7GipZuJhWk0Htik3J/[email protected]
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/security400
or email: Security400-request-Zwy7GipZuJhWk0Htik3J/[email protected]
Before posting, please take a moment to review the archives
at http://archive.midrange.com/security400.