Re: Mass change a group of user profiles

[Niels Liisberg <nli@xxxxxxxxxxxxxxxxx>]

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