-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathSAPABAP013-1
More file actions
38 lines (33 loc) · 1.17 KB
/
Copy pathSAPABAP013-1
File metadata and controls
38 lines (33 loc) · 1.17 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
*&---------------------------------------------------------------------*
*& Report ZBK_P013
*&---------------------------------------------------------------------*
*&Tabstrip
*&---------------------------------------------------------------------*
REPORT zbk_p013.
CONTROLS tb_id TYPE TABSTRIP.
START-OF-SELECTION.
CALL SCREEN 0100.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS '0100'.
SET TITLEBAR '0100'.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
CASE sy-ucomm.
WHEN '&BACK'.
SET SCREEN 0.
WHEN '&TAB1'.
tb_id-activetab = '&TAB1'.
WHEN '&TAB2'.
tb_id-activetab = '&TAB2'.
ENDCASE.
ENDMODULE.