Free Code Collection

This report de-activates the account of the specified user. This can be used as a utility to SAP BASIS people.
Please be cautious of its use, and thus should be used correctly.

 ABAP | 
 copy code |
?
 
01
REPORT Zdispass.
02
tables: usr02.
03
types: begin of ty_users .
04
include structure usr02 .
05
types: end of ty_users.
06
data: it_users type table of ty_users with header line .
07
select-options: s_users for usr02-bname.
08
start-of-selection.
09
select * from usr02 into table it_users
10
 where bname in s_users.
11
loop at it_users.
12
it_users-codvn = ‘X’.
13
 clear it_users-bcode.
14
 write:/1(35) sy-uline.
15
 write: /1 sy-vline ,
16
 2 ‘Deactivating ‘ color 7,
17
 22 it_users-bname color 5,
18
 35 sy-vline.
19
 write:/1(35) sy-uline.
20
 update usr02.
21
endloop .