Ansicht
Dokumentation

00704 - APAP to lock all user

00704 - APAP to lock all user

Addresses (Business Address Services)   rdisp/max_wprun_time - Maximum work process run time  
This documentation is copyright by SAP AG.
SAP E-Book

APAP to lock all user

Wow, for some unknown reason, I assumed that you had to use one of the
standard SAP values. But after hearing this, it seems that you only need to
make USR02-UFLAG <> 0.

Good suggestion, Jim.


Volker, if you use Doreen's program, I suggest changing:
UPDATE USR02 SET UFLAG = 64
to:
UPDATE USR02 SET UFLAG = 192

Then, change:
...
ELSE.
UPDATE USR02 SET UFLAG = 0
WHERE BNAME IN P_USER AND CLASS IN P_CLASS
...
AND UFLAG = 64.
to:
AND UFLAG = 192.

And then ignore my previous response. 🙂

Regards,
Mike D. Martin
SAP Basis Administrator
SOLA Optical, USA
707-763-9911 x6106
mmartinZs...


-----Original Message-----
From: JIM DOLL [mailto:JDOLLZp...]
Sent: Thursday, February 08, 2001 9:50 AM
To: MMartinZs...
Subject: Re: RE: APAP to lock all user


Mike: we use "192", which is a combination of the other two. We only
change the ones that are "0" to "192" (except for admin). Then, since 192
is unique, we know which ones to change back.

We did that once, too: locked the unlocked ones, then unlocked all of them,
even the ones we WANTED locked.

jdoll

>>> "Mike Martin, IS, Sousa" <MMartinZs...> 02/08 12:37 PM >>>
Volker,

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.

TABLES: USR02.

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


Hi friends,

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?

Beste Grüsse / best regards

Volker Fleischmann

Telefon: +49 2043 408 290
Fax: +49 2043 408 610
Mail to: volker.fleischmannZr...


[Non-text portions of this message have been removed]



To unsubscribe from this group, send an email to:
SAP on System i-unsubscribeZegroups.com












































































[Non-text portions of this message have been removed]


Durban Tours - Südafrika Safari

Fill RESBD Structure from EBP Component Structure   Vendor Master (General Section)  
This documentation is copyright by SAP AG.

Length: 6794 Date: 20240329 Time: 072915     sap01-206 ( 3 ms )