Run the background recording program, select Tab3. But the program runs on tab 1 allway
*// TAB
SELECTION-SCREEN BEGIN OF TABBED BLOCK TABBLK FOR 13 LINES.
SELECTION-SCREEN TAB (79) TAB1 USER-COMMAND BTN1. ” DEFAULT SCREEN 101.
SELECTION-SCREEN TAB (79) TAB2 USER-COMMAND BTN2. ” DEFAULT SCREEN 102.
SELECTION-SCREEN TAB (79) TAB3 USER-COMMAND BTN3. ” DEFAULT SCREEN 103.
SELECTION-SCREEN TAB (79) TAB4 USER-COMMAND BTN4. ” DEFAULT SCREEN 104.
SELECTION-SCREEN TAB (79) TAB5 USER-COMMAND BTN5. ” DEFAULT SCREEN 105.
SELECTION-SCREEN END OF BLOCK TABBLK.
INITIALIZATION.
GET PARAMETER ID: ‘DYN’ FIELD TABBLK-DYNNR.
PERFORM SET_TAB USING TABBLK-DYNNR.
AT SELECTION-SCREEN.
* CASE SY-DYNNR.
* WHEN 1000.
CASE SY-UCOMM.
WHEN ‘BTN1’.
PERFORM SET_TAB USING ‘101’.
WHEN ‘BTN2’.
PERFORM SET_TAB USING ‘102’.
WHEN ‘BTN3’.
PERFORM SET_TAB USING ‘103’.
WHEN ‘BTN4’.
PERFORM SET_TAB USING ‘104’.
WHEN ‘BTN5’.
PERFORM SET_TAB USING ‘105’.
ENDCASE.
* ENDCASE.
AT SELECTION-SCREEN ON EXIT-COMMAND.
SET PARAMETER ID: ‘DYN’ FIELD SPACE.
*————– Start of Selection ————–*
START-OF-SELECTION.
SET EXTENDED CHECK OFF.
SET PARAMETER ID: ‘DYN’ FIELD TABBLK-DYNNR.
CASE TABBLK-ACTIVETAB.
WHEN ‘BTN1’.
PERFORM getdata1.
WHEN ‘BTN2’.
PERFORM getdata2.
WHEN ‘BTN3’.
PERFORM getdata3.
WHEN ‘BTN4’. ” Mapping plant
PERFORM getdata4.
WHEN ‘BTN5’.
PERFORM getdata5.
ENDCASE.