× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



So that anybody who runs the program can see everything that QSECOFR can
see?

Is that an auditor I hear knocking?

Trevor Briggs
Analyst/Programmer
Lincare, Inc.
(727) 431-1246
TBriggs2@xxxxxxxxxxx
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Mark S Waterbury
Sent: Thursday, December 05, 2013 5:30 PM
To: Midrange Systems Technical Discussion
Subject: Re: View/print authorities of all objects in a library

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/



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.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 on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.