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@xxxxxxxxxxxx
[mailto:security400-bounces@xxxxxxxxxxxx]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@xxxxxxxxxxxx
[mailto:security400-bounces+gary.monnier=powertech.com@xxxxxxxxxxxx] On
Behalf Of Burns, Bryan
Sent: Tuesday, June 12, 2007 12:36 PM
To: security400@xxxxxxxxxxxx
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