Tabstrips in Selection screen

This is simple program in building Tabstrips in selection screen..

REPORT zvino_tabstrip.

TABLES zc199_tools.
*---------------------------------------------------------------------*
*   selection screen                                                  *
*---------------------------------------------------------------------*
* 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 custid for zc199_tools-TOOL_CODE.
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: accno for zc199_tools-tool_type.
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 tranid like zc199_tools-input_qty.
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 = 'CUSTOMER ID'.   "CUSTOMER ID
  name2 = 'ACCOUNT NUMBER'.   "ACCOUNT NUMBER
  name3 = 'TRANSACTION ID'.   "TRANSACTION ID

start-of-selection.