Re: CLP example of QSYLOBJA to change ownership

[Tom Liotta <qsrvbas@xxxxxxxxxxxx>]

Jim Oberholtzer wrote:

> Does anyone have an example of how to change the owner of all objects 
> (in QSYS and in the IFS) using QSYLOBJA in a control language program?  
> The system that has to have this code will not have the other compilers 
> on it and I am not allowed to put any custom code that machine that 
> would require them, hence the CLP example. 

Jim:

I found an old test program from when I was trying to learn 
differences between the QSYS and IFS formats of the API. It is not 
significantly commented nor particularly highly developed, but it 
does more or less what you ask for. I'd expect it to be easily 
extendable for most things you might use it for.

If nothing else, it should give you a major start. It creates a 
*USRSPC, lists QSYS objects into the space, extracts the count, then 
lists IFS objects and extracts that count. It doesn't actually do 
anything with items listed; it could with a few more lines of code.

See:

  http://code.midrange.com/32b5aff6d8.html

Hope it's good enough for basic illustration. I can't actually put 
time into much more.

Tom Liotta