Comments on: AS400 user profile and owned objects accidentally deleted

By: tomliotta

tomliotta — Wed, 04 Nov 2009 08:29:37 +0000

If you don’t have to create the profile exactly, e.g., with all private authorities, or if you know all of the profile attributes, then you’ll probably find it easier simply to create it with CRTUSRPRF.

As for the deleted objects, if you audited deleted objects, process the T/DO entries from the audit journal and issue RSTOBJ for each of them.

If you didn’t have auditing turned on for this, then you’ll have to figure out on your own which objects to restore.

Tom

By: mjjager

mjjager — Mon, 12 Sep 2005 13:04:50 +0000

After restoring the profile, you could try restoring *NONSYS with an OPTION *NEW, DATABASE MEMBER OPTION *NEW. This should pickup any objects that do not already exist and restore them. Also things to think about are a RCLDLO, RSTDLO and Restore of IFS objects-
RST DEV(‘/QSYS.LIB/TAPxx.DEVD’) OBJ((‘/*) (‘/QSYS.LIB’ *OMIT) ALWOBJDIF(*ALL)(‘/QDLS’ *OMIT)) ENDOPT(*UNLOAD)

I agree with trying this on a DEV box first. If you have questions or concerns please let me know. I was a DR guy for 7 years at COMDISCO so I have developed scripts for this scenario to make the process a little more tolerable.

By: donlinebaugh

donlinebaugh — Fri, 02 Sep 2005 08:12:25 +0000

You will clearly have to restore the user profile from the save. I haven’t tried the rest of this suggestion since I don’t have access to a tape drive to test it with at the moment, but you could try to do a DSPTAP and direct the output to either *PRINT or *OUTFILE. You might then be able to write a CL program (or RPG or COBOL) that scans through the output from the command, and looks in the appropriate place for the owner, which I THINK is included on the output. Then for each one your program finds with the owner you deleted, restore that object automatically in the CL program. Could be tricky.