Display all objects private authorities from a given library
Here's a way to list all private authorities from objects in a given library. This might help you during save and restore procedures where private authorities get lost.
Here's a way to list all private authorities from objects in a given library. This might help you during save and...
Continue Reading This Article
Enjoy this article as well as all of our content, including E-Guides, news, tips and more.
restore procedures where private authorities get lost.
Display object private authorities
During an object restore following attributes are kept:
* Owner value
* Primary Group profile value
* Authorization list value
* *PUBLIC authority value
As you might be aware of, private authorities get lost during a save/restore process even if the target system is the same as the source system.
The only way to avoid this -- it is a complicated process – but proceed as follows:
* Restore user profiles
* Restore objects
* Run command RSTAUT to reapply all the private authorities
This might be run during a system restore or migration but not when restoring a few objects or libraries to your system.
Therefore, it might be interesting to know, in a given library, which objects have such private authorities before restoring them, in order to reapply these private authorities manually.
I've written a short procedure to get a list about all private authorities on all objects in a given library.
Proceed with the following to get the list:
* STRPDM
* Select option
* Work with objects
* In the field library, enter the specific library you want to scan for private authorities on objects (here SAUVAJE1)
* The other three fields must be left to value *ALL
The following steps have to be done only once, the first time you use this process:
* Press function key F16=User options
* Press function key F6=Create, to create a user defined option DO (or any other option value) for the DSPOBJAUT command. (Due to the fact that the command DSPOBJAUT does not allow *ALL as object name, you have to use this manual trick). * Enter following command string as Command value : DSPOBJAUT OBJ(&L/&N) OBJTYPE(&T) OUTPUT(*OUTFILE) OUTFILE(QTEMP/JMS) OUTMBR(*FIRST *ADD) The Display Object Authority results will be written in the above file QTEMP/JMS. This can be changed to any other value.
* Press Enter
* Use F3=Exit to return to the Work with Objects using the PDM screen displaying your library content
The command DSPOBJAUT displays the following information in the output file:
* All private authorities
* Authorization list name
* Public authority
* Primary group
From the file content, we need the private authorities information only.
Therefore, we will use Query to extract the needed information (private authorities) from the file.
* Enter command WRKQRY
* Create a new query named LSTPRVAUT (Lists all private authorities on Objects.)
* Specify the input file name (here QTEMP/JMS). Be aware that files in QTEMP can not be queried in batch.
This selection avoids *PUBLIC authority and Owners authority to be listed and keeps private authorities only.
* Select an appropriate output type and output form
* Run the query and check the output
==================================
MORE INFORMATION ON THIS TOPIC
==================================
The Best Web Links: tips, tutorials and more.
Search400's targeted search engine: Get relevant information on security.
Ask your systems management questions--or help out your peers by answering them--in our live discussion forums.
Check out this Search400.com Featured Topic: Top ten security tips
Visit the ITKnowledge Exchange and get answers to your security questions fast.