ABAP TIP report program and TabStrip

ABAP report program and TabStrip

We can add tabstrip in type-1 report program.  Let's create type-1 program that has 3 tab.

SELECTION-SCREEN BEGIN OF TABBED BLOCK t1 FOR 20 LINES.

 SELECTION-SCREEN TAB (10) name1 USER-COMMAND ucomm1 DEFAULT SCREEN 101.
 SELECTION-SCREEN TAB (20) name2 USER-COMMAND ucomm2 DEFAULT SCREEN 102.
 SELECTION-SCREEN TAB (30) name3 USER-COMMAND ucomm3 DEFAULT SCREEN 103.
SELECTION-SCREEN END OF BLOCK t1.

<example source>

REPORT  Z_TAB_STRIP LINE-SIZE 120 NO STANDARD PAGE HEADING. TABLES: mara, lfa1, ekpo.         * Define screen 101 as subscreen SELECTION-SCREEN BEGIN OF SCREEN 101 AS SUBSCREEN. SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t00. SELECT-OPTIONS matnr FOR mara-matnr. SELECTION-SCREEN END OF BLOCK b1. SELECTION-SCREEN END OF SCREEN 101. * Define screen 102 as subscreen SELECTION-SCREEN BEGIN OF SCREEN 102 AS SUBSCREEN. SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t02. SELECT-OPTIONS: kunnr   FOR lfa1-kunnr. SELECTION-SCREEN END OF BLOCK b2. SELECTION-SCREEN END OF SCREEN 102. * Define screen 103 as subscreen SELECTION-SCREEN BEGIN OF SCREEN 103 AS SUBSCREEN. SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-t03. PARAMETERS werks LIKE ekpo-werks. SELECTION-SCREEN END OF BLOCK b3. SELECTION-SCREEN END OF SCREEN 103. * Define tab screen SELECTION-SCREEN BEGIN OF TABBED BLOCK t1 FOR 20 LINES. SELECTION-SCREEN TAB (10) name1 USER-COMMAND ucomm1 DEFAULT SCREEN 101. SELECTION-SCREEN TAB (20) name2 USER-COMMAND ucomm2 DEFAULT SCREEN 102. SELECTION-SCREEN TAB (30) name3 USER-COMMAND ucomm3 DEFAULT SCREEN 103. SELECTION-SCREEN END OF BLOCK t1. INITIALIZATION.   name1 = 'Material No'.      name2 = 'Vendor'.      name3 = 'Plant'.