SAP Note 21419 - Classific. authorization with existing allocations

Symptom:

The classification authorization was not checked when object allocations existed.

Cause and prerequisites

This was not programmed.

Solution
P30K094402 in Release 3.0F
P22K006182 in Release 2.2E
P21K005004 in Release 2.1K or


1. 3.0:
SE11: Insert field BGRKL into structure KSSK_V0

2.2/2.1
SE11: Change VIEW KSSK_V0
Insert field KLAH-BGRKL
Convert the view
Utilities --> Database utility
Delete online, then create again

2. LCLFMF10
**********************************************
*CAUTION: This correction only applies to 2.2*
**********************************************
FORM LESEN_KSSK.
*
DATA : AKTIV(2) TYPE N. ">>>>>>>>>>>>>>>>>>>>>NEW
DATA : BEGIN OF SWORKEY,
MANDT LIKE SWOR-MANDT,
CLINT LIKE SWOR-CLINT.
DATA : END OF SWORKEY.
.
.
REFRESH OBJTAB.
CLEAR OBJTAB.
CLEAR ANZOBJDUNKEL.
CALL FUNCTION 'CLSE_SELECT_KSSK'
EXPORTING MAFID = MAFID
KLART = RMCLF-KLART
OBJEK = RMCLF-OBJEK
VIEW = KREUZ
TABLE = SOBTAB
REFRESH = KREUZ
TABLES EXP_KSSK = IKSSK_V0
EXCEPTIONS NO_ENTRY_FOUND = 1.
LOOP AT IKSSK_V0.
IF NOT IKSSK_V0-BGRKL IS INITIAL. ">>>>>>>>>>>>>>>>>>>>>NEW
IF CLASSIF_STATUS = DREI. ">>>> >>>>>>>>>>>>>>>>>NEW
AKTIV = '03'. ">>>>>>>>>>>>>>>>>>>>>NEW
ELSE. ">>>> >>>>>>>>>>>>>>>>>NEW
AKTIV = '01'. ">>>>>>>>>>>>>>>>>>>>>NEW
ENDIF. ">>> >>>>>>>>>>>>>>>>>>NEW
AUTHORITY-CHECK OBJECT 'C_KLAH_BKL' ">>>>> NEW
ID 'BGRKL' FIELD IKSSK_V0-BGRKL ">>>>>NEW
ID 'ACTVT' FIELD AKTIV. ">>>>>NEW
CHECK SYST-SUBRC = 0. ">>>>>>>>>>>>>>>>>>>>>NEW
ENDIF. ">>>>>>>>>>>>>>>>>>>>>NEW
OBJTAB-OBJEK = IKSSK_V0-CLASS.
OBJTAB-MAFID = IKSSK_V0-MAFID.
.
.
.
3. Only for 3.0
Program LCLSEU11

loop at o_kssk where mafid eq mafid
and klart eq klart
and objek eq objek
and datuv le key_date
and lkenz eq space.
read table x_klah with key
mandt = o_kssk-mandt
clint = o_kssk-clint binary search.
if syst-subrc = 0.
o_kssk-class = x_klah-class.
o_kssk-sicht = x_klah-sicht.
o_kssk-praus = x_klah-praus.
o_kssk-vwstl = x_klah-vwstl.
o_kssk-bgrkl = x_klah-bgrkl. "<--------INSERT
modify o_kssk.
endif.
append o_kssk to exp_kssk.
endloop.
endif.
sort exp_kssk by objek clint klart mafid.
endif.
endfunction.

Additional key words

Classification, authorization