MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » December 2013

Re: View/print authorities of all objects in a library



fixed

Hi, Steve:

Or for this type of tool, ensure the program adopts *OWNER authority via the USRPRF(*OWNER) parameter on the CRTCLPGM or CRTBNDCL command, and then ensure the owner is QSECOFR or equivalent.

Mark

> On 12/5/2013 5:23 PM, TheBorg wrote:
Obviously, the program needs to be run by a user profile which has
sufficient authority to the library and all of the objects contained in the
library being examined...

;-)

-sjl


"Mark S Waterbury" wrote in message
news:mailman.1507.1386282055.2717.midrange-l@xxxxxxxxxxxx...

Hi, Steve:

Oops -- nice catch! :-)

Mark

On 12/5/2013 5:12 PM, TheBorg wrote:
Mark/Paul:

There is no *ALL option for the object name parm on DSPOBJAUT;

Here is a sample program:

PGM PARM(&LIBRARY)
DCL VAR(&LIBRARY) TYPE(*CHAR) LEN(10)
DCLF FILE(QADSPOBJ)

DSPOBJD OBJ(&LIBRARY/*ALL) OBJTYPE(*ALL) +
OUTPUT(*OUTFILE) OUTFILE(QTEMP/QADSPOBJ)

OVRDBF FILE(QADSPOBJ) TOFILE(QTEMP/QADSPOBJ)

LOOP: RCVF
MONMSG MSGID(CPF0864) EXEC(DO)
GOTO CMDLBL(ENDPGM)
ENDDO


DSPOBJAUT OBJ(&ODLBNM/&ODOBNM) OBJTYPE(&ODOBTP) +
OUTPUT(*OUTFILE) OUTFILE(QTEMP/OBJAUT) +
OUTMBR(*FIRST *ADD) AUTTYPE(*OBJECT)

GOTO CMDLBL(LOOP)

ENDPGM: ENDPGM






"Mark S Waterbury" wrote in message
news:mailman.1501.1386280625.2717.midrange-l@xxxxxxxxxxxx...

Hi, Paul:

How about:
DSPOBJAUT OBJ(library/*ALL) OBJTYPE(*ALL) OUTPUT(*OUTFILE)
OUTFILE(QTEMP/DSPOBJAUT)

Then "roll your own" reports using that database, using Query/400, or
SQL, etc.?

Does that help?

Mark S. Waterbury

On 12/5/2013 4:49 PM, Steinmetz, Paul wrote:
Is there a command or tool that will allow you to view/print authorities
of all objects in a library.
Optionally, omitting the owner, and possibly selecting only public.

Thank You
_____
Paul Steinmetz
IBM i Systems Administrator

Pencor Services, Inc.
462 Delaware Ave
Palmerton Pa 18071

610-826-9117 work
610-826-9188 fax
610-349-0913 cell
610-377-6012 home

psteinmetz@xxxxxxxxxx
http://www.pencor.com/







Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot COM and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact