Re: Not a programmer, but I need a program!

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.