RE: [MI400] System name removal

["Raikov, Leonid" <RaikovL1@xxxxxxxxx>]

Dave,

thank you.

Lo

-----Original Message-----
From: Dave McKenzie [mailto:davemck@xxxxxxxxxxxxx]
Sent: Wednesday, May 12, 2004 8:55 PM
To: MI Programming on the AS400 / iSeries
Subject: Re: [MI400] System name removal


Lo,

The system name is in the "Usage" section of the OIR (Object Information

Repository) of a library, for all the objects contained in the library.
You 
can see it by doing DMPOBJ on the *LIB.  It's in the *OIRS space.  Each 
object has a x'200'-byte entry, the first 4 bytes of which are
x'FFFFFFFF'.  
The Usage section starts at offset x'1AC' in the entry and contains a
2-byte 
length (typically x'001A'), 10-byte usrprf name, and 8-byte system name.

If there aren't too many objects, you could manually change them with
SST.

You could also use an MI program I posted to this list in February at:

  http://archive.midrange.com/mi400/200402/msg00007.html

which calls QLIMROIR to modify the OIR.  That pgm was for changing the
object 
attribute, but you could change it to use OIRPTR, OIRFROM and OIRTO
elements 
7 (for USAGE) instead of 5 (for ATTR).

--Dave

On Wednesday 12 May 2004 10:30, Raikov, Leonid wrote:
> > Is there an easy way to remove the name of the system an object was
> > created on from the object header? I need to do this for all objects
> > in a certain library.
> >
> > Lo

_______________________________________________
This is the MI Programming on the AS400 / iSeries (MI400) mailing list
To post a message email: MI400@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/mi400
or email: MI400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mi400.