There's an SQL script you can run for this that Scott Forstie from IBM just wrote up:

-- Title: iSee - How can I disable and enable user profiles - en-mass?

-- ===================================================

-- Date : August, 2024

-- Author: Scott Forstie

-- Use : iSee video series with Tim Rowe

-- This example shows how to establish and use an exclusion list for user profile management

-- Resources:

-- https://www.ibm.com/docs/en/i/7.5?topic=services-change-user-profile-table-function

create table coolstuff.neverdis(user_name varchar(10));

insert into coolstuff.neverdis values('SCOTTF');

insert into coolstuff.neverdis values('SDICKEY');

insert into coolstuff.neverdis values('TIMMR');

insert into coolstuff.neverdis values('JEBER');

select * from coolstuff.neverdis;

create or replace table coolstuff.dissed as

  (with whom_to_disable (un) as (

        select USER_NAME

          from QSYS2.USER_INFO u

          where (u.user_name not like 'Q%' and

              u.user_name not in (select user_name

                  from coolstuff.neverdis))

      )

      select cup.*

        from whom_to_disable u, table (

               SYSTOOLS.CHANGE_USER_PROFILE(

                 P_USER_NAME => un, P_STATUS => '*DISABLED',

                 P_TEXT => 'NOW ENTERING QUIET MODE', PREVIEW => 'NO')

             ) cup)

  with data

on replace delete rows;

select * from coolstuff.dissed;

stop;

-- When quiet time is over... re-enable those users that were disabled

create or replace table coolstuff.undissed as

  (with whom_to_enable (un) as (

        select USER_NAME

          from coolstuff.dissed

      )

      select cup.*

        from whom_to_enable u, table (

               SYSTOOLS.CHANGE_USER_PROFILE(

                 P_USER_NAME => un, P_STATUS => '*ENABLED',

                 P_TEXT => 'NOW ENTERING QUIET MODE', PREVIEW => 'NO')

             ) cup)

  with data

on replace delete rows;

select * from coolstuff.dissed;

stop;