Re: [MI400] System name removal

[Dave McKenzie <davemck@xxxxxxxxxxxxx>]

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