Be careful with mass locking/unlocking all users. The main issue is: 1. Users that were locked prior to the mass processing (and probably should remain locked after the mass unlock).
I had an ABAP I wrote at a previous account (should have kept the source code) which first did a read of USR02-UFLAG and transferred the dataset to a flat file (open dataset...). Then, the mass lock piece would complete, ignoring the users in the list (I like to keep the same lock code in UFLAG for these users; e.g. 64 = locked by admin.., 128 = incorrect login attempts, etc.). Then when unlocking, I would first read the flat file and unlock all other users.
Although this program is fairly simple, if you're not to savvy at ABAP, then I would suggest Klaus' method using RDDITLCK. If you run this program while you are logged in, your user ID should be able to remain active during the maintenance. Can someone confirm this?
Regards, Mike D. Martin SAP Basis Administrator SOLA Optical, USA 707-763-9911 x6106 mmartinZs...
-----Original Message----- From: Anderson, Doreen [mailto:DAndersoZb...] Sent: Thursday, February 08, 2001 8:35 AM To: 'SAP AS/400 Discussion Group' Subject: FW: APAP to lock all user
-----Original Message----- From: Anderson, Doreen Sent: Thursday, February 08, 2001 9:47 AM To: 'Fleischmann, Volker RWD/GLA'; sap400Zm... Subject: RE: APAP to lock all user
This is the Z* program we use..... Doreen
* Description : This program will either lock, or unlock, all * * users based on the selection criteria. * REPORT ZBCP0055 LINE-SIZE 132.
SELECTION-SCREEN BEGIN OF BLOCK USER WITH FRAME TITLE TEXT-008. SELECT-OPTIONS: P_USER FOR USR02-BNAME, P_CLASS FOR USR02-CLASS. " User Group SELECTION-SCREEN END OF BLOCK USER.
SELECTION-SCREEN BEGIN OF BLOCK STATUS WITH FRAME TITLE TEXT-010. PARAMETERS: LOCK RADIOBUTTON GROUP STAT, UNLOCK RADIOBUTTON GROUP STAT. SELECTION-SCREEN END OF BLOCK STATUS.
* Lock, or unlock, all users who meet the selection criteria for user * name and class. IF LOCK EQ 'X'. UPDATE USR02 SET UFLAG = 64 WHERE BNAME IN P_USER AND CLASS IN P_CLASS AND UFLAG = 0. ELSE. UPDATE USR02 SET UFLAG = 0 WHERE BNAME IN P_USER AND CLASS IN P_CLASS AND UFLAG = 64. ENDIF.
-----Original Message----- From: Fleischmann, Volker RWD/GLA [mailto:volker.fleischmannZr...] Sent: Thursday, February 08, 2001 6:49 AM To: sap400Zm... Subject: APAP to lock all user
next week we will upgrade our productive system to 4.6B. After the technical upgrade we have to import a lot of support packages and hundreds of transports. During that time I can't use TP locksys. Now I look for a ABAP to lock all user except the development team. Has anybody of you such an ABAP?