How to recreate the following damaged objects: NW0017F, NW0211F, NW0217F and NW0217FX ? (NETIQKB55116)

  • Document ID:7755116
  • Creation Date:02-Feb-2007
  • Modified Date:07-Oct-2014
    • Micro Focus Products:
      Security Solutions for iSeries

Environment

NetIQ Security Solutions for iSeries 8.1
NetIQ Security Solutions for iSeries 8.0
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

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   '    
CALL NW0089E 'NW0217FX  '     
 
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