1 IF sy-tcode = 'VA01' OR sy-tcode = 'VA02' OR sy-tcode = 'VA03'
 2 OR sy-tcode = 'VA41' OR sy-tcode = 'VA42' OR sy-tcode = 'VA43'
 3 OR sy-tcode = 'VF01' OR sy-tcode = 'VF02' OR sy-tcode = 'VF03'.
 4 
 5   CASE screen-name.
 6    AUTHORITY-CHECK OBJECT 'ZSDAU001'
 7       ID 'ZSD_ACTVT' FIELD '01'
 8       ID 'KSCHL' FIELD xkomv-kschl.
 9    CHECK sy-subrc NE 0.
10     WHEN 'KOMV-KWERT'.
11       IF xkomv-kschl = xkomv-kschl.
12         screen-active = 0.
13       ENDIF.
14     WHEN 'KOMV-KBETR'.
15       IF xkomv-kschl = xkomv-kschl.
16         screen-active = 0.
17       ENDIF.
18     WHEN 'KOMV-KWERT'.
19       IF xkomv-kschl = xkomv-kschl.
20         screen-active = 0.
21       ENDIF.
22     WHEN 'KOMV-KWERT_K'.
23       IF xkomv-kschl = xkomv-kschl.
24         screen-active = 0.
25       ENDIF.
26 
27     WHEN 'KOMV-KSCHL'.
28       IF xkomv-kschl = xkomv-kschl.
29         screen-active = 0.
30       ENDIF.
31 
32     WHEN 'T685T-VTEXT'.
33       IF xkomv-kschl = xkomv-kschl.
34         screen-active = 0.
35       ENDIF.
36 
37     WHEN 'XKOMV_WAERK'.
38       IF xkomv-kschl = xkomv-kschl.
39         screen-active = 0.
40       ENDIF.
41 
42     WHEN 'RV61A-LED_KINAK'.
43       IF xkomv-kschl = xkomv-kschl.
44         screen-active = 0.
45       ENDIF.
46 
47     WHEN 'KOMV-KWAEH'.
48       IF xkomv-kschl = xkomv-kschl.
49         screen-active = 0.
50       ENDIF.
51     WHEN 'RV61A-KOEIN'.
52 
53       IF xkomv-kschl = xkomv-kschl.
54         screen-active = 0.
55       ENDIF.
56     WHEN 'KOMV-KPEIN'.
57 
58       IF xkomv-kschl = xkomv-kschl.
59         screen-active = 0.
60       ENDIF.
61 
62     WHEN 'KOMV-KMEIN'.
63       IF xkomv-kschl = xkomv-kschl.
64         screen-active = 0.
65       ENDIF.
66 
67     WHEN 'KOMV-KUMZA'.
68       IF xkomv-kschl = xkomv-kschl.
69         screen-active = 0.
70       ENDIF.
71 
72     WHEN 'RV61A-MEINS'.
73       IF xkomv-kschl = xkomv-kschl.
74         screen-active = 0.
75       ENDIF.
76 
77     WHEN 'KOMV-KUMNE'.
78       IF xkomv-kschl = xkomv-kschl.
79         screen-active = 0.
80       ENDIF.
81 
82     WHEN 'RV61A-KMEI1'.
83 *      IF xkomv-kschl = 'VPRS'.
84       IF xkomv-kschl = xkomv-kschl.
85         screen-active = 0.
86       ENDIF.
87 
88   ENDCASE.
89 ENDIF.