Environment
NetIQ Security Solutions for iSeries 8.1
NetIQ Security Solutions for iSeries 8.0
PSSecure
PSSecure
Remote Request Management (RRM)
Situation
How to recreate the following damaged objects: NW0017F, NW0211F, NW0217F and NW0217FX ?
The following objects are damaged in library PSCOMMON: NW0017F, NW0211F, NW0217F and NW0217FX
The following objects are damaged in library PSCOMMON: NW0017F, NW0211F, NW0217F and NW0217FX
Resolution
Use the following commands to recreate these objects and assign the proper permissions:
ENDSBS SBS(ZPSSMON) DELAY(*IMMED)
RNMOBJ OBJ(PSCOMMON/NW0017F) OBJTYPE(*USRIDX) NEWOBJ(NW0017FOLD)
RNMOBJ OBJ(PSCOMMON/NW0211F) OBJTYPE(*USRIDX) NEWOBJ(NW0211FOLD)
RNMOBJ OBJ(PSCOMMON/NW0217F) OBJTYPE(*USRIDX) NEWOBJ(NW0217FOLD)
RNMOBJ OBJ(PSCOMMON/NW0217FX) OBJTYPE(*USRIDX) NEWOBJ(NW0217FXLD)
ADDLIBLE PSCOMMON
CRTUSRIDX USRIDX(PSCOMMON/NW0017F) EXTATT(MIRROR) LENGTH(29) KEYLEN(25) TEXT('(c) 1995-2003 NetIQ Corp., all rights reserved') REPLACE(*YES)CRTUSRIDX USRIDX(PSCOMMON/NW0211F) EXTATT(MIRROR) LENGTH(153) KEYLEN(28) TEXT('(c) 1995-2003 NetIQ Corp., all rights reserved') REPLACE(*YES)
CRTUSRIDX USRIDX(PSCOMMON/NW0217F) EXTATT(MIRROR) LENGTH(29) KEYLEN(25) TEXT('(c) 1995-2003 NetIQ Corp., all rights reserved') REPLACE(*YES)
CRTUSRIDX USRIDX(PSCOMMON/NW0217FX) EXTATT(MIRROR) LENGTH(33) KEYLEN(4) TEXT('(c) 1995-2006 NetIQ Corp., all rights reserved') REPLACE(*YES)
CHGOBJOWN OBJ(PSCOMMON/NW0017F) OBJTYPE(*USRIDX) NEWOWN(PSOBJOWN)
CHGOBJOWN OBJ(PSCOMMON/NW0211F) OBJTYPE(*USRIDX) NEWOWN(PSOBJOWN)
CHGOBJOWN OBJ(PSCOMMON/NW0217F) OBJTYPE(*USRIDX) NEWOWN(PSOBJOWN)
CHGOBJOWN OBJ(PSCOMMON/NW0217FX) OBJTYPE(*USRIDX) NEWOWN(PSOBJOWN)
GRTOBJAUT OBJ(PSCOMMON/NW0017F) OBJTYPE(*USRIDX) REFOBJ(PSCOMMON/NW0017FOLD)
GRTOBJAUT OBJ(PSCOMMON/NW0211F) OBJTYPE(*USRIDX) REFOBJ(PSCOMMON/NW0211FOLD)
GRTOBJAUT OBJ(PSCOMMON/NW0217F) OBJTYPE(*USRIDX) REFOBJ(PSCOMMON/NW0217FOLD)
GRTOBJAUT OBJ(PSCOMMON/NW0217FX) OBJTYPE(*USRIDX) REFOBJ(PSCOMMON/NW0217FXLD)
CALL NW0089E 'NW0017F '
CALL NW0089E 'NW0211F '
CALL NW0089E 'NW0217F '
RNMOBJ OBJ(PSCOMMON/NW0211F) OBJTYPE(*USRIDX) NEWOBJ(NW0211FOLD)
RNMOBJ OBJ(PSCOMMON/NW0217F) OBJTYPE(*USRIDX) NEWOBJ(NW0217FOLD)
RNMOBJ OBJ(PSCOMMON/NW0217FX) OBJTYPE(*USRIDX) NEWOBJ(NW0217FXLD)
ADDLIBLE PSCOMMON
CRTUSRIDX USRIDX(PSCOMMON/NW0017F) EXTATT(MIRROR) LENGTH(29) KEYLEN(25) TEXT('(c) 1995-2003 NetIQ Corp., all rights reserved') REPLACE(*YES)CRTUSRIDX USRIDX(PSCOMMON/NW0211F) EXTATT(MIRROR) LENGTH(153) KEYLEN(28) TEXT('(c) 1995-2003 NetIQ Corp., all rights reserved') REPLACE(*YES)
CRTUSRIDX USRIDX(PSCOMMON/NW0217F) EXTATT(MIRROR) LENGTH(29) KEYLEN(25) TEXT('(c) 1995-2003 NetIQ Corp., all rights reserved') REPLACE(*YES)
CRTUSRIDX USRIDX(PSCOMMON/NW0217FX) EXTATT(MIRROR) LENGTH(33) KEYLEN(4) TEXT('(c) 1995-2006 NetIQ Corp., all rights reserved') REPLACE(*YES)
CHGOBJOWN OBJ(PSCOMMON/NW0017F) OBJTYPE(*USRIDX) NEWOWN(PSOBJOWN)
CHGOBJOWN OBJ(PSCOMMON/NW0211F) OBJTYPE(*USRIDX) NEWOWN(PSOBJOWN)
CHGOBJOWN OBJ(PSCOMMON/NW0217F) OBJTYPE(*USRIDX) NEWOWN(PSOBJOWN)
CHGOBJOWN OBJ(PSCOMMON/NW0217FX) OBJTYPE(*USRIDX) NEWOWN(PSOBJOWN)
GRTOBJAUT OBJ(PSCOMMON/NW0017F) OBJTYPE(*USRIDX) REFOBJ(PSCOMMON/NW0017FOLD)
GRTOBJAUT OBJ(PSCOMMON/NW0211F) OBJTYPE(*USRIDX) REFOBJ(PSCOMMON/NW0211FOLD)
GRTOBJAUT OBJ(PSCOMMON/NW0217F) OBJTYPE(*USRIDX) REFOBJ(PSCOMMON/NW0217FOLD)
GRTOBJAUT OBJ(PSCOMMON/NW0217FX) OBJTYPE(*USRIDX) REFOBJ(PSCOMMON/NW0217FXLD)
CALL NW0089E 'NW0017F '
CALL NW0089E 'NW0211F '
CALL NW0089E 'NW0217F '
CALL NW0089E 'NW0217FX '
CALL NW0099E
CALL NW0089C
CALL NW0099E
CALL NW0089C
STRSBS PSCOMMON/ZPSSMON
Later you can delete the renamed objects from the first step but for now, leave them in case you need to refer back to them.
Additional Information
Formerly known as NETIQKB55116