Ansicht
Dokumentation
00723 - APAP to lock all user
ABAP Short Reference SUBST_MERGE_LIST - merge external lists to one complete list with #if... logic for R3upThis documentation is copyright by SAP AG.
APAP to lock all user
Volker,here is my solution:
************************************************************************
* Funktion.......: Sperren/entsperren Benutzer
* Ersteller......: K. Grauer
* Erstelldatum...: 02.10.2000
* Letzte Änderung:
************************************************************************
report zate_bcr_0003 line-size 132 line-count 65
no standard page heading
message-id: zz.
*
tables: usr02. " Benutzerstamm
* Daten-Definitionen
*-----------------------------------------------------------------------
* Selektionsparameter *
*-----------------------------------------------------------------------
* Funktion auswählen
selection-screen begin of block sel1 with frame.
selection-screen begin of line.
selection-screen comment 01(35) text-s01.
selection-screen position 37.
parameters: p_lock radiobutton group g1. " sperren
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 01(35) text-s02.
selection-screen position 37.
parameters: p_unlock radiobutton group g1. " entsperren
selection-screen end of line.
selection-screen skip 2.
selection-screen comment 01(35) text-s03.
select-options: p_bname for usr02-bname. "Benutzername
selection-screen end of block sel1.
************************************************************************
* Verarbeiten Benutzerstamm
************************************************************************
select * from usr02 where bname not in p_bname.
if p_lock = 'X'.
usr02-uflag = 64. "Sperrcode
endif.
if p_unlock = 'X'.
usr02-uflag = 00. "Sperrcode
endif.
update usr02.
endselect.
Textsymbols:
s01Benutzer sperren
s02Benutzer entsperren
s03folgende Benutzer nicht:
Textelements:
P_BNAME Benutzername
P_LOCK
P_UNLOCK
You should create a variant with selected users for lock/unlock.
kind regards.
Karl Grauer
Amphenol-Tuchel Electronics
August-Haeusser-Str. 10
DE 74080 Heilbronn
phone: +49 (0)7131/929327
mailto:karl.grauerZa...
Durban Tours - Südafrika Safari
TXBHW - Original Tax Base Amount in Local Currency General Material Data
This documentation is copyright by SAP AG.
Length: 2707 Date: 20240419 Time: 210254 sap01-206 ( 3 ms )
