Re: Adopted authority

[John Earl <johnearl@xxxxxxxxxxx>]

Jeff Carey wrote:

> Is there an easy way of finding all programs in all user libraries that use
> adopted authority?  The DSPPGM command doesn't allow for *ALL and worse,
> doesn't output to a file.

Jeff,

You can't do it by library, but you can do it by user profile.  The PRTADPOBJ
command allows you to single out a particular user, or specify *ALL users.
Unfortunately, the PRTADPOBJ *ALL option prints all of the IBM user profiles as
well as the all of your users.

But with a little CL like the one below, you can do the PRTADPOBJ on only the
user profiles that you care about.   You just have to create the file called
USRPRFS in advance and populate it with the names of the profiles that you want
to run the report on....

PGM
DCLF USRPRFS

ReadLoop:
   RCVF
   MONMSG     CPF0864  +
              EXEC( RETURN )

   PRTADPOBJ  USRPRF( &USRPRF )

   GOTO ReadLoop
ENDPGM


hth,


jte


--
John Earl   johnearl@toolnet.com

PowerTech Toolworks  206-575-0711
PowerLock Network Security www.toolnet.com
The 400 School   www.400school.com
--


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---