CUA - Cleanup user profile (USL04)

Question: Hello everyone

The Central User administration has been installed on our system.

The problem I do have now is some users have still the old profiles defined on the CUA server but should be empty. We hare not longer using profiles, we are using roles.

When I tried to do a mass change through SU10, it didn't remove the profile from the users profile into SU01.

Is there any mass change transaction to removed non wanted profile into the table USL04.

Basicly we need to remove all old profiles from the users profile.

Regards

Answer:
Hello everyone

The Central User administration has been installed on our system.

The problem I do have now is some users have still the old profiles defined on the CUA server but should be empty. We hare not longer using profiles, we are using roles.

When I tried to do a mass change through SU10, it didn't remove the profile from the users profile into SU01.

Is there any mass change transaction to removed non wanted profile into the table USL04.

Basicly we need to remove all old profiles from the users profile.

Regards

SAP doesn't provide such a beautiful transaction. You may need to develop CAT script to remove profiles from mass volume of users OR have your abaper to develop a small program to perform this task.

Answer:
I did a program to perform the cleanup.


*&---------------------------------------------------------------------*
*& Report ZWW_CLEAN_USL04
*&
*& Program to delete all Profile from the
*& Central User Administration (CUA).
*&
*& That program has been created because the CUA was containing
*& errors at the KCI rollout
*&
*& The program will delete all profile else than SAP_ALL and SAP_NEW
*& from user CUA profile table
*&---------------------------------------------------------------------*
*& 2007/03/07 D.St-Jacques TSKK901875 Creation
*&
*&---------------------------------------------------------------------*

REPORT ZWW_CLEAN_USL04.

tables: usl04. " CUA user profiles

data: t_usl04 like usl04 occurs 0 with header line.

SELECTION-SCREEN BEGIN OF BLOCK ELEMENT1.
selection-screen comment /1(60) TEXT-001.
PARAMETER P_TEST as checkbox default 'X'.

parameter p_file type string default 'c:\USL04.TXT'.

SELECTION-SCREEN END OF BLOCK ELEMENT1.

at selection-screen.
if p_test is initial.
if p_file is initial.
MESSAGE E011(Z1) WITH
'Output file has to be entered'.
endif.
endif.


Start-of-selection.

select * from usl04 into t_usl04 where profile <> 'SAP_ALL'
and profile <> 'SAP_NEW'.

write:/ t_usl04-bname, t_usl04-subsystem, t_usl04-profile.
append t_usl04.

endselect.

if p_file is not initial.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
* BIN_FILESIZE =
FILENAME = p_file
FILETYPE = 'ASC'
* APPEND = ' '
* WRITE_FIELD_SEPARATOR = ' '
* HEADER = '00'
* TRUNC_TRAILING_BLANKS = ' '
* WRITE_LF = 'X'
* COL_SELECT = ' '
* COL_SELECT_MASK = ' '
* DAT_MODE = ' '
* CONFIRM_OVERWRITE = ' '
* NO_AUTH_CHECK = ' '
* CODEPAGE = ' '
* IGNORE_CERR = ABAP_TRUE
* REPLACEMENT = '#'
* WRITE_BOM = ' '
* TRUNC_TRAILING_BLANKS_EOL = 'X'
* WK1_N_FORMAT = ' '
* WK1_N_SIZE = ' '
* WK1_T_FORMAT = ' '
* WK1_T_SIZE = ' '
* IMPORTING
* FILELENGTH =
TABLES
DATA_TAB = t_usl04
* FIELDNAMES =
EXCEPTIONS
FILE_WRITE_ERROR = 1
NO_BATCH = 2
GUI_REFUSE_FILETRANSFER = 3
INVALID_TYPE = 4
NO_AUTHORITY = 5
UNKNOWN_ERROR = 6
HEADER_NOT_ALLOWED = 7
SEPARATOR_NOT_ALLOWED = 8
FILESIZE_NOT_ALLOWED = 9
HEADER_TOO_LONG = 10
DP_ERROR_CREATE = 11
DP_ERROR_SEND = 12
DP_ERROR_WRITE = 13
UNKNOWN_DP_ERROR = 14
ACCESS_DENIED = 15
DP_OUT_OF_MEMORY = 16
DISK_FULL = 17
DP_TIMEOUT = 18
FILE_NOT_FOUND = 19
DATAPROVIDER_EXCEPTION = 20
CONTROL_FLUSH_ERROR = 21
OTHERS = 22
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

endif.

if p_test is initial and sy-subrc = 0.
loop at t_usl04.
delete from usl04 where bname = t_usl04-bname
and subsystem = t_usl04-subsystem
and profile = t_usl04-profile.
endloop.
endif.


TEXT-001 = Program to delete CUA user profile data (USL04)
P_FILE = Output file name
P_TEST = Test run

Feel free to use the program and modifying it.

The bugs are yours.