Re: Mass change a group of user profiles

Compound statement is your friend:

ins ACS / STRSQL do this:

begin

declare cmd varchar(256);
declare lib varchar(10) default 'XYZ';

for vl as c1 cursor for
select
*
from table(qsys2.object_statistics(lib , 'ALL')) a
where objowner <> 'QPGMR' and objtype in ( '*PGM' , '*SRVPGM') do

set cmd = 'chgobjown obj(' || lib || '/' || rtrim(objname) || ')
objtype(' || objtype || ') newown(qpgmr) ' ;
call qcmdexc(cmd);
end for;
end;


On Tue, Mar 3, 2020 at 8:22 PM Greg Wilburn <
gwilburn@xxxxxxxxxxxxxxxxxxxxxxx> wrote:

First of all, this is not really an RPG specific question (unless I have
to write a program to do it).

I have large group of users (100+) where I need to change LMTDEVSSN to
*YES. The commonality is that all of the user names END with "RF".

WRKUSRPRF wont' get that for me.
A select over QSYS2.USER_INFO will allow me to get the users I want to
change, but it's an SQL view so I can't simply update it.

I would appreciate any ideas.

Thanks,
Greg
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com