Ansicht
Dokumentation
00723 - APAP to lock all user
Fill RESBD Structure from EBP Component Structure General Data in Customer MasterThis 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
CL_GUI_FRONTEND_SERVICES - Frontend Services Vendor Master (General Section)
This documentation is copyright by SAP AG.
Length: 2707 Date: 20240505 Time: 004230 sap01-206 ( 7 ms )