× 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.



Pretty easy to do in CL, if I understand you correctly.

You need to create a list of objects that need to have security changed. Then,
just loop through that file to get the next object name/library and change the
authority. Continue until done.

Here is a skeleton program

PGM
DCLF FILE(QTEMP/SOMEFILE)

DSPOBJD OBJ(somelibrary/*ALL) OBJTYPE(*ALL) OUTPUT(*OUTFILE)
OUTFILE(QTEMP/SOMEFILE) OUTMBR(*FIRST *ADD)

/* Repeat the above for all needed libraries */

OVRDBF FILE(QADSPOBJ) TOFILE(QTEMP/SOMEFILE) MBR(*ALL)
LOOP:
RCVF
MOMMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END))

/* from here insert commands to GRTOBJAUT as needed. ODLBNM is library name */
/* ODOBNM is object name. To use in a CL program, precede with an ampersand */
/* &ODOBLB/&ODOBNM */

GOTO CMDLBL(LOOP)

END:
ENDPGM

That should get you started.

John McKee



Quoting Steven Martinson <smart-consultant@xxxxxxxxxxxxx>:

Hello,
I am working an authorization (security) enhancement project for a client and I have a group profile that needs authorization to specific objects in about seven (7) different libraries that currently have *PUBLIC authority set to *EXCLUDE. We're going with the group profile so that they no longer need *ALLOBJ to access these excluded objects. Also, I don't want to clutter things up by taking the easy way out and doing a blanket GRTOBJAUT to all of the objects in those seven libraries.
So... I need a program that can read an outfile of object authorities, find the ones with *PUBLIC *EXCLUDE, and then process the GRTOBJAUT command accordingly. I know this is very simple, but I have never written a CL that reads a file - I am not a programmer (yep, I'm an amateur!).
Some example code would be much appreciated!
Best regards,
Steve

Steven W. Martinson, CISA, CISM, CISSP
Security Consultant
Cypress, Texas

Smart-Consultant@xxxxxxxxxxxxx
Mobile: 713.277.5845
Fax: 281.758.2429
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.






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.