Re: Change owner on *ALL in lib

Or modify the CL program, below. Some commands require a good F4; the GRTOBJAUT will need customization.

I've used this basic structure countless times when I have to loop past all objects in a library, or all objects of a certain type. (I have the file name memorized!).

Declaring the file using IBM's name-- QADSPOBJ-- lets you use the empty, memberless file in QSYS for your compile-- no need to create a file by hand before compiling the program. The OVRDBF makes sure your program is reading from the file you just created.

The GRTOBJAUT command uses the field names from the QADSPOBJ file. They're defined automatically during the compile. I use the &ODLBNM instead of the name "yourlib" because most of the time I use this program I'm grabbing data from multiple libraries to the file in QTEMP, and the library name is not a constant.

I usually pass the library name as a parameter. You may need to add some validation of the library name before you use it (CHKOBJ). If the library is a hotbed of activity, you may need a monitor message after the GRTOBJAUT in case the object that was just there a few minutes ago has suddenly disappeared. (:

--Paul E Musselman
PaulMmn@ix.netcom.nospam.com



PGM

DCLF QADSPOBJ

DSPOBJD yourlib/*ALL OBJTYPE(*ALL) DETAIL(*SERVICE)
OUTPUT(*OUTFILE) OUTFILE(QTEMP/QADSPOBJ)

OVRDBF QADSPOBJ QTEMP/QADSPOBJ

LOOP:

RCVF
MONMSG CPF0864 EXEC(GOTO QUIT)

GRTOBJAUT OBJECT(&ODLBNM/&ODOBNM) etc. etc.

GOTO LOOP


QUIT: ENDPGM