You may also try the following quick and dirty solution with SQL:
1. Output the DSPUSRPRF command for the User Profile with the type *OBJOWN
into an outfile
CL:DSPUSRPRF USRPRF(YOURUSRPRF) TYPE(*OBJOWN) OUTPUT(*OUTFILE)
OUTFILE(QTEMP/MYOBJOWN);
2. Read the Outfile, build the CL-Command for the CHGOBJOWN as string and
then execute the string with the scalar function QCMDEXC. The scalar
function QCMDEXC returns 1 if the CL command is executed correctly and -1 if
there is an error:
Select a.*,
QCMDEXC('CHGOBJOWN OBJ(' concat Trim(OOLIB) concat '/' concat
Trim(OOOBJ) concat ') OBJTYPE(' concat Trim(OOTYPE) concat ')
NEWOWN(YOURNEWOWN)')
from QTEMP.MYOBJOWN a;
It is even possible to add a WHERE Condition to the SELECT Statement.
Mit freundlichen Grüßen / Best regards
Birgitta Hauser
"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"
?Train people well enough so they can leave, treat them well enough so they
don't want to.? (Richard Branson)
-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Justin
Taylor
Sent: Montag, 31. Januar 2022 22:11
To: MIDRANGE-L <midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Mass CHGOBJOWN without DLTUSRPRF?
So my best option is to list the owned objects and run it thru
CHGOWN/CHGOBJOWN for each one.
Hmm...
Thanks guys
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/midrange-l.
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
midrange.com
