Looking for a utility to change PUBLIC authority for most objects in a library

All,

Basically, I've got some libraries where a significant number of objects such 
as programs and commands currently have *PUBLIC authority of *ALL.  (Note: I 
didn't set it up, I just inherited the mess ;-)

What I need to do is change these objects to *USE.

The tricky part is some objects have been set *PUBLIC *EXCLUDE.  These *EXCLUDE 
objects should not be changed, so I can't just globally change every object in 
the library.  Additionally, there are some objects, such as data queues that 
need to be changed from *ALL to *CHANGE instead of just *USE.  I'll need a way 
to make sure I change any "data" type object from *ALL to *CHANGE instead of 
*USE.


I figured before writing my own utility, I'd see if anybody had already done 
this.

I'd appreciate any guidance or code anyone would be willing to share.

Thanks,

Charles Wilt
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121