Multiple Table Controls
Here we are creating multiple table controls by using different screens. At first we shall have a selection screen where we are using select option (selection range) to enter the input of airline code. Since select option can only be used under a selection screen, we have declared a sub screen while creating the first screen 9001.
The first screen 9001 contains two push buttons ‘DISPLAY’ and ‘CLEAR’. After entering the selection range if DISPLAY button is clicked then the program will continue with second screen.
On the second screen 9002 we shall have the airline details with table control. In this table control we have declared a selection mark by which we can mark a specific row. We have a push button ‘FLIGHT NUMBER’ in this screen 9002. Now after selecting a row we can see flight number details by clicking that button.
Step – 1:
At first we need to create all the include programs.
INCLUDE mz_testtop . " global Data
INCLUDE mz_testo01 . " PBO-Modules
INCLUDE mz_testi01 . " PAI-Modules
INCLUDE mz_testf01 . " FORM-Routines
INCLUDE mz_testo01 . " PBO-Modules
INCLUDE mz_testi01 . " PAI-Modules
INCLUDE mz_testf01 . " FORM-Routines
Step – 2:
Next we are declaring the top include for global declaration.
*&---------------------------------------------------------------------*
*& Include MZ_TESTTOP Module Pool SAPMZ_TEST
*&
*&---------------------------------------------------------------------*
PROGRAM sapmz_test.
*-------Decalring the database tables for screen fields----------------*
TABLES: scarr, spfli, sflight.
TYPES:
*------Airline structure-----------------------------------------------*
BEGIN OF ty_scarr,
carrid TYPE scarr-carrid,
carrname TYPE scarr-carrname,
currcode TYPE scarr-currcode,
END OF ty_scarr,
*------Airline structure for screen output-----------------------------*
BEGIN OF ty_out_scarr,
mark TYPE char1, "Selection box
carrid TYPE scarr-carrid,
carrname TYPE scarr-carrname,
currcode TYPE scarr-currcode,
END OF ty_out_scarr,
*------Flight schedule structure---------------------------------------*
BEGIN OF ty_spfli,
carrid TYPE spfli-carrid,
connid TYPE spfli-connid,
countryfr TYPE spfli-countryfr,
cityfrom TYPE spfli-cityfrom,
airpfrom TYPE spfli-airpfrom,
cityto TYPE spfli-cityto,
airpto TYPE spfli-airpto,
END OF ty_spfli,
*------Flight schedule structure for screen output---------------------*
BEGIN OF ty_out_spfli,
mark TYPE char1,
carrid TYPE spfli-carrid,
connid TYPE spfli-connid,
countryfr TYPE spfli-countryfr,
cityfrom TYPE spfli-cityfrom,
airpfrom TYPE spfli-airpfrom,
cityto TYPE spfli-cityto,
airpto TYPE spfli-airpto,
END OF ty_out_spfli.
DATA:
*-----Airline work areas & internal tables-----------------------------*
lw_scarr TYPE ty_scarr,
wa_scarr TYPE ty_out_scarr,
lt_scarr TYPE TABLE OF ty_scarr,
it_scarr TYPE TABLE OF ty_out_scarr,
*-----Temporary internal table to store data for reusing---------------*
it_temp_scarr TYPE TABLE OF ty_out_scarr,
*-----To capture the Airline code for different use--------------------*
v_carrid TYPE scarr-carrid,
*-----Flight schedule work areas & internal tables---------------------*
lw_spfli TYPE ty_spfli,
wa_spfli TYPE ty_out_spfli,
lt_spfli TYPE TABLE OF ty_spfli,
it_spfli TYPE TABLE OF ty_out_spfli.
DATA: ok_code1 TYPE sy-ucomm, "User command for screen 9001
ok_code2 TYPE sy-ucomm, "User command for screen 9002
ok_code3 TYPE sy-ucomm. "User command for screen 9003
*---------Declaring the selection screen as a subscreen of 100---------*
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
SELECT-OPTIONS: s_carrid FOR scarr-carrid. "Select option
SELECTION-SCREEN END OF SCREEN 100.
*---------Declaring the table controls for different screen------------*
CONTROLS: tab_ctrl_scarr TYPE TABLEVIEW USING SCREEN 9002,
tab_ctrl_spfli TYPE TABLEVIEW USING SCREEN 9003.
*& Include MZ_TESTTOP Module Pool SAPMZ_TEST
*&
*&---------------------------------------------------------------------*
PROGRAM sapmz_test.
*-------Decalring the database tables for screen fields----------------*
TABLES: scarr, spfli, sflight.
TYPES:
*------Airline structure-----------------------------------------------*
BEGIN OF ty_scarr,
carrid TYPE scarr-carrid,
carrname TYPE scarr-carrname,
currcode TYPE scarr-currcode,
END OF ty_scarr,
*------Airline structure for screen output-----------------------------*
BEGIN OF ty_out_scarr,
mark TYPE char1, "Selection box
carrid TYPE scarr-carrid,
carrname TYPE scarr-carrname,
currcode TYPE scarr-currcode,
END OF ty_out_scarr,
*------Flight schedule structure---------------------------------------*
BEGIN OF ty_spfli,
carrid TYPE spfli-carrid,
connid TYPE spfli-connid,
countryfr TYPE spfli-countryfr,
cityfrom TYPE spfli-cityfrom,
airpfrom TYPE spfli-airpfrom,
cityto TYPE spfli-cityto,
airpto TYPE spfli-airpto,
END OF ty_spfli,
*------Flight schedule structure for screen output---------------------*
BEGIN OF ty_out_spfli,
mark TYPE char1,
carrid TYPE spfli-carrid,
connid TYPE spfli-connid,
countryfr TYPE spfli-countryfr,
cityfrom TYPE spfli-cityfrom,
airpfrom TYPE spfli-airpfrom,
cityto TYPE spfli-cityto,
airpto TYPE spfli-airpto,
END OF ty_out_spfli.
DATA:
*-----Airline work areas & internal tables-----------------------------*
lw_scarr TYPE ty_scarr,
wa_scarr TYPE ty_out_scarr,
lt_scarr TYPE TABLE OF ty_scarr,
it_scarr TYPE TABLE OF ty_out_scarr,
*-----Temporary internal table to store data for reusing---------------*
it_temp_scarr TYPE TABLE OF ty_out_scarr,
*-----To capture the Airline code for different use--------------------*
v_carrid TYPE scarr-carrid,
*-----Flight schedule work areas & internal tables---------------------*
lw_spfli TYPE ty_spfli,
wa_spfli TYPE ty_out_spfli,
lt_spfli TYPE TABLE OF ty_spfli,
it_spfli TYPE TABLE OF ty_out_spfli.
DATA: ok_code1 TYPE sy-ucomm, "User command for screen 9001
ok_code2 TYPE sy-ucomm, "User command for screen 9002
ok_code3 TYPE sy-ucomm. "User command for screen 9003
*---------Declaring the selection screen as a subscreen of 100---------*
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
SELECT-OPTIONS: s_carrid FOR scarr-carrid. "Select option
SELECTION-SCREEN END OF SCREEN 100.
*---------Declaring the table controls for different screen------------*
CONTROLS: tab_ctrl_scarr TYPE TABLEVIEW USING SCREEN 9002,
tab_ctrl_spfli TYPE TABLEVIEW USING SCREEN 9003.
Here we have declared the selection screen as a sub screen of 100. Select option can only be called from a selection screen in module pool program. We need to create this sub screen at 9001 layout. We must not create the sub screen manually. In the layout there is an option of creating a sub screen.
Step – 3:
Next we have to create the screen 9001.
PROCESS BEFORE OUTPUT.
"PBO for PF status & Title bar
MODULE status_9001.
"Calling the subscreen which is selection screen
CALL SUBSCREEN sel INCLUDING sy-repid '100'.
PROCESS AFTER INPUT.
"Subscreen needs to be called at PAI level
CALL SUBSCREEN sel.
"PAI for different button functionality
MODULE user_command_9001.
"PBO for PF status & Title bar
MODULE status_9001.
"Calling the subscreen which is selection screen
CALL SUBSCREEN sel INCLUDING sy-repid '100'.
PROCESS AFTER INPUT.
"Subscreen needs to be called at PAI level
CALL SUBSCREEN sel.
"PAI for different button functionality
MODULE user_command_9001.
Step – 4:
Then we need to create the PBO & PAI modules.
MODULE status_9001 OUTPUT.
SET PF-STATUS 'PF_SEL'.
SET TITLEBAR 'TI_SEL'.
ENDMODULE. " status_9001 OUTPUT
SET PF-STATUS 'PF_SEL'.
SET TITLEBAR 'TI_SEL'.
ENDMODULE. " status_9001 OUTPUT
MODULE user_command_9001 INPUT.
CASE ok_code1. "User command for 9001
WHEN 'DISP'.
PERFORM get_airline.
WHEN 'CLR'.
REFRESH s_carrid.
WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE. " user_command_9001 INPUT
CASE ok_code1. "User command for 9001
WHEN 'DISP'.
PERFORM get_airline.
WHEN 'CLR'.
REFRESH s_carrid.
WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE. " user_command_9001 INPUT
Step – 5:
After this we have to create the subroutine called in PAI.
*&---------------------------------------------------------------------*
*& Form get_airline
*&---------------------------------------------------------------------*
* Get data of Airline
*----------------------------------------------------------------------*
FORM get_airline .
IF s_carrid[] IS NOT INITIAL.
"It will refresh previous data when program moves with BACK
REFRESH: lt_scarr.
SELECT carrid carrname currcode
FROM scarr INTO TABLE lt_scarr
WHERE carrid IN s_carrid.
IF sy-subrc = 0.
REFRESH it_scarr.
"Preparing the output table for screen fields
LOOP AT lt_scarr INTO lw_scarr.
wa_scarr-carrid = lw_scarr-carrid.
wa_scarr-carrname = lw_scarr-carrname.
wa_scarr-currcode = lw_scarr-currcode.
APPEND wa_scarr TO it_scarr.
CLEAR: wa_scarr, lw_scarr.
ENDLOOP.
IF it_scarr IS NOT INITIAL.
SORT it_scarr.
"Storing the data to a temp table for reusing
it_temp_scarr = it_scarr.
"Refreshing the table control to display new records
REFRESH CONTROL 'TAB_CTRL_SCARR' FROM SCREEN 9002.
"Calling the next screen
CALL SCREEN 9002.
ENDIF.
ELSE.
MESSAGE 'Airline code doesn''t exist' TYPE 'S'.
LEAVE LIST-PROCESSING.
ENDIF.
ELSE.
MESSAGE 'Enter a valid Airline Code' TYPE 'I'.
ENDIF.
ENDFORM. " get_airline
*& Form get_airline
*&---------------------------------------------------------------------*
* Get data of Airline
*----------------------------------------------------------------------*
FORM get_airline .
IF s_carrid[] IS NOT INITIAL.
"It will refresh previous data when program moves with BACK
REFRESH: lt_scarr.
SELECT carrid carrname currcode
FROM scarr INTO TABLE lt_scarr
WHERE carrid IN s_carrid.
IF sy-subrc = 0.
REFRESH it_scarr.
"Preparing the output table for screen fields
LOOP AT lt_scarr INTO lw_scarr.
wa_scarr-carrid = lw_scarr-carrid.
wa_scarr-carrname = lw_scarr-carrname.
wa_scarr-currcode = lw_scarr-currcode.
APPEND wa_scarr TO it_scarr.
CLEAR: wa_scarr, lw_scarr.
ENDLOOP.
IF it_scarr IS NOT INITIAL.
SORT it_scarr.
"Storing the data to a temp table for reusing
it_temp_scarr = it_scarr.
"Refreshing the table control to display new records
REFRESH CONTROL 'TAB_CTRL_SCARR' FROM SCREEN 9002.
"Calling the next screen
CALL SCREEN 9002.
ENDIF.
ELSE.
MESSAGE 'Airline code doesn''t exist' TYPE 'S'.
LEAVE LIST-PROCESSING.
ENDIF.
ELSE.
MESSAGE 'Enter a valid Airline Code' TYPE 'I'.
ENDIF.
ENDFORM. " get_airline
Step – 6:
After that we have to create the next screen 9002.
PROCESS BEFORE OUTPUT.
"PBO for PF status & Title bar
MODULE status_9002.
"Populating the output table data in table control
LOOP AT it_scarr INTO wa_scarr WITH CONTROL tab_ctrl_scarr.
MODULE table_control_scarr.
ENDLOOP.
PROCESS AFTER INPUT.
"Reseting the output table after it gets modified
MODULE reset_scarr.
"Modifying the output table with current line operation
LOOP AT it_scarr.
MODULE modify_scarr.
ENDLOOP.
"PAI for different button functionality
MODULE user_command_9002.
"PBO for PF status & Title bar
MODULE status_9002.
"Populating the output table data in table control
LOOP AT it_scarr INTO wa_scarr WITH CONTROL tab_ctrl_scarr.
MODULE table_control_scarr.
ENDLOOP.
PROCESS AFTER INPUT.
"Reseting the output table after it gets modified
MODULE reset_scarr.
"Modifying the output table with current line operation
LOOP AT it_scarr.
MODULE modify_scarr.
ENDLOOP.
"PAI for different button functionality
MODULE user_command_9002.
Here we have prepared the table control’s MARK field with work area WA_SCARR-MARK.
Step – 7:
Now we have to create the PBO and PAI modules.
MODULE status_9002 OUTPUT.
SET PF-STATUS 'PF_SEL'.
SET TITLEBAR 'TI_AIR'.
"The internal table needs to be reset with its previous data
"The table has been modified with MARK
"So it needs to be reset to use it again
it_scarr = it_temp_scarr.
ENDMODULE. " status_9002 OUTPUT
SET PF-STATUS 'PF_SEL'.
SET TITLEBAR 'TI_AIR'.
"The internal table needs to be reset with its previous data
"The table has been modified with MARK
"So it needs to be reset to use it again
it_scarr = it_temp_scarr.
ENDMODULE. " status_9002 OUTPUT
Now we are putting the data from work area to screen fields of table control.
MODULE table_control_scarr OUTPUT.
CLEAR scarr.
scarr-carrid = wa_scarr-carrid.
scarr-carrname = wa_scarr-carrname.
scarr-currcode = wa_scarr-currcode.
ENDMODULE. " table_control_scarr OUTPUT
CLEAR scarr.
scarr-carrid = wa_scarr-carrid.
scarr-carrname = wa_scarr-carrname.
scarr-currcode = wa_scarr-currcode.
ENDMODULE. " table_control_scarr OUTPUT
Now we need to reset the output internal table to its previous value. This is because the table will be reused for different sort of commands.
MODULE reset_scarr INPUT.
"Resetting the internal table to its previous data
"It is needed to remove the modification with MARKs
it_scarr = it_temp_scarr.
ENDMODULE. " reset_scarr INPUT
"Resetting the internal table to its previous data
"It is needed to remove the modification with MARKs
it_scarr = it_temp_scarr.
ENDMODULE. " reset_scarr INPUT
Now we have to modify the internal table with its MARK fields for different sort of commands.
MODULE modify_scarr INPUT.
"When one row is selected the internal table is modified
"with the MARK fields x coming from wa_scarr-mark
IF wa_scarr-mark = 'X'.
MODIFY it_scarr INDEX tab_ctrl_scarr-current_line FROM wa_scarr.
ENDIF.
"When the table control is scralled
READ TABLE it_scarr INTO wa_scarr
INDEX tab_ctrl_scarr-current_line.
IF sy-subrc = 0.
MODIFY it_scarr INDEX tab_ctrl_scarr-current_line FROM wa_scarr.
ENDIF.
ENDMODULE. " modify_scarr INPUT
"When one row is selected the internal table is modified
"with the MARK fields x coming from wa_scarr-mark
IF wa_scarr-mark = 'X'.
MODIFY it_scarr INDEX tab_ctrl_scarr-current_line FROM wa_scarr.
ENDIF.
"When the table control is scralled
READ TABLE it_scarr INTO wa_scarr
INDEX tab_ctrl_scarr-current_line.
IF sy-subrc = 0.
MODIFY it_scarr INDEX tab_ctrl_scarr-current_line FROM wa_scarr.
ENDIF.
ENDMODULE. " modify_scarr INPUT
Now we need to create the user commands for different buttons functionality.
MODULE user_command_9002 INPUT.
CASE ok_code2. "User command of screen 9002
WHEN 'FLNM'.
PERFORM capture_carrid.
PERFORM get_flight_number.
WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
"Previous user command needs to be cleared for further operation
CLEAR ok_code1.
LEAVE LIST-PROCESSING.
LEAVE TO SCREEN 9001.
ENDCASE.
ENDMODULE. " user_command_9002 INPUT
CASE ok_code2. "User command of screen 9002
WHEN 'FLNM'.
PERFORM capture_carrid.
PERFORM get_flight_number.
WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
"Previous user command needs to be cleared for further operation
CLEAR ok_code1.
LEAVE LIST-PROCESSING.
LEAVE TO SCREEN 9001.
ENDCASE.
ENDMODULE. " user_command_9002 INPUT
Step – 8:
After this we have to create all the subroutines defined at user command. Here we need to capture the selected row data into a variable.
*&---------------------------------------------------------------------*
*& Form capture_carrid
*&---------------------------------------------------------------------*
* Capturing the selected rows into a table
*----------------------------------------------------------------------*
FORM capture_carrid .
IF it_scarr IS NOT INITIAL.
LOOP AT it_scarr INTO wa_scarr WHERE mark = 'X'.
v_carrid = wa_scarr-carrid.
CLEAR: wa_scarr.
ENDLOOP.
ENDIF.
ENDFORM. " capture_carrid
*& Form capture_carrid
*&---------------------------------------------------------------------*
* Capturing the selected rows into a table
*----------------------------------------------------------------------*
FORM capture_carrid .
IF it_scarr IS NOT INITIAL.
LOOP AT it_scarr INTO wa_scarr WHERE mark = 'X'.
v_carrid = wa_scarr-carrid.
CLEAR: wa_scarr.
ENDLOOP.
ENDIF.
ENDFORM. " capture_carrid
Now we have to get data from flight table based on the selected row data.
*&---------------------------------------------------------------------*
*& Form get_flight_number
*&---------------------------------------------------------------------*
* Get data from Flight schedule table
*----------------------------------------------------------------------*
FORM get_flight_number .
IF v_carrid IS NOT INITIAL.
"It will refresh previous data when program moves with BACK
REFRESH: lt_spfli, it_spfli.
SELECT carrid connid countryfr cityfrom airpfrom cityto airpto
FROM spfli INTO TABLE lt_spfli
WHERE carrid = v_carrid.
"Preparing the output table for screen fields
IF sy-subrc = 0.
CLEAR v_carrid. "Clearing v_carrid for UAT - BUGs
LOOP AT lt_spfli INTO lw_spfli.
wa_spfli-carrid = lw_spfli-carrid.
wa_spfli-connid = lw_spfli-connid.
wa_spfli-countryfr = lw_spfli-countryfr.
wa_spfli-cityfrom = lw_spfli-cityfrom.
wa_spfli-airpfrom = lw_spfli-airpfrom.
wa_spfli-cityto = lw_spfli-cityto.
wa_spfli-airpto = lw_spfli-airpto.
APPEND wa_spfli TO it_spfli.
CLEAR: wa_spfli, lw_spfli.
ENDLOOP.
IF it_spfli IS NOT INITIAL.
SORT it_spfli.
"Refreshing the table control to display new records
REFRESH CONTROL 'TAB_CTRL_SPFLI' FROM SCREEN 9003.
"Calling the next screen
CALL SCREEN 9003.
ENDIF.
ELSE.
CLEAR ok_code2. "Clearing OK_CODE2 for UAT - BUGs
MESSAGE 'Flight doesn''t exist' TYPE 'I'.
ENDIF.
ELSE.
CLEAR ok_code2. "Clearing OK_CODE2 for UAT - BUGs
MESSAGE 'Select an Airline' TYPE 'I'.
ENDIF.
ENDFORM. " get_flight_number
*& Form get_flight_number
*&---------------------------------------------------------------------*
* Get data from Flight schedule table
*----------------------------------------------------------------------*
FORM get_flight_number .
IF v_carrid IS NOT INITIAL.
"It will refresh previous data when program moves with BACK
REFRESH: lt_spfli, it_spfli.
SELECT carrid connid countryfr cityfrom airpfrom cityto airpto
FROM spfli INTO TABLE lt_spfli
WHERE carrid = v_carrid.
"Preparing the output table for screen fields
IF sy-subrc = 0.
CLEAR v_carrid. "Clearing v_carrid for UAT - BUGs
LOOP AT lt_spfli INTO lw_spfli.
wa_spfli-carrid = lw_spfli-carrid.
wa_spfli-connid = lw_spfli-connid.
wa_spfli-countryfr = lw_spfli-countryfr.
wa_spfli-cityfrom = lw_spfli-cityfrom.
wa_spfli-airpfrom = lw_spfli-airpfrom.
wa_spfli-cityto = lw_spfli-cityto.
wa_spfli-airpto = lw_spfli-airpto.
APPEND wa_spfli TO it_spfli.
CLEAR: wa_spfli, lw_spfli.
ENDLOOP.
IF it_spfli IS NOT INITIAL.
SORT it_spfli.
"Refreshing the table control to display new records
REFRESH CONTROL 'TAB_CTRL_SPFLI' FROM SCREEN 9003.
"Calling the next screen
CALL SCREEN 9003.
ENDIF.
ELSE.
CLEAR ok_code2. "Clearing OK_CODE2 for UAT - BUGs
MESSAGE 'Flight doesn''t exist' TYPE 'I'.
ENDIF.
ELSE.
CLEAR ok_code2. "Clearing OK_CODE2 for UAT - BUGs
MESSAGE 'Select an Airline' TYPE 'I'.
ENDIF.
ENDFORM. " get_flight_number
Step – 9:
After this we need to create the screen 9003 (last screen).
PROCESS BEFORE OUTPUT.
"PBO for PF status & Title bar
MODULE status_9003.
"Populating the output table data in table control
LOOP AT it_spfli INTO wa_spfli WITH CONTROL tab_ctrl_spfli.
MODULE table_control_spfli.
ENDLOOP.
PROCESS AFTER INPUT.
"Modifying the output table with current line operation
LOOP AT it_spfli.
MODULE modify_spfli.
ENDLOOP.
"PAI for different button functionality
MODULE user_command_9003.
"PBO for PF status & Title bar
MODULE status_9003.
"Populating the output table data in table control
LOOP AT it_spfli INTO wa_spfli WITH CONTROL tab_ctrl_spfli.
MODULE table_control_spfli.
ENDLOOP.
PROCESS AFTER INPUT.
"Modifying the output table with current line operation
LOOP AT it_spfli.
MODULE modify_spfli.
ENDLOOP.
"PAI for different button functionality
MODULE user_command_9003.
Step – 10:
Then similarly we have to create all these modules.
MODULE status_9003 OUTPUT.
SET PF-STATUS 'PF_SEL'.
SET TITLEBAR 'TI_SPFLI'.
ENDMODULE. " status_9003 OUTPUT
SET PF-STATUS 'PF_SEL'.
SET TITLEBAR 'TI_SPFLI'.
ENDMODULE. " status_9003 OUTPUT
Here we are populating the screen fields of table control for flight number details.
MODULE table_control_spfli OUTPUT.
CLEAR spfli.
spfli-carrid = wa_spfli-carrid.
spfli-connid = wa_spfli-connid.
spfli-countryfr = wa_spfli-countryfr.
spfli-cityfrom = wa_spfli-cityfrom.
spfli-airpfrom = wa_spfli-airpfrom.
spfli-cityto = wa_spfli-cityto.
spfli-airpto = wa_spfli-airpto.
ENDMODULE. " table_control_spfli OUTPUT
CLEAR spfli.
spfli-carrid = wa_spfli-carrid.
spfli-connid = wa_spfli-connid.
spfli-countryfr = wa_spfli-countryfr.
spfli-cityfrom = wa_spfli-cityfrom.
spfli-airpfrom = wa_spfli-airpfrom.
spfli-cityto = wa_spfli-cityto.
spfli-airpto = wa_spfli-airpto.
ENDMODULE. " table_control_spfli OUTPUT
Now we are again modifying the output table. Since this is the last screen of table control, there is no option to get marked row.
MODULE modify_spfli INPUT.
"When the table control is scralled
READ TABLE it_spfli INTO wa_spfli
INDEX tab_ctrl_spfli-current_line.
IF sy-subrc = 0.
MODIFY it_spfli INDEX tab_ctrl_spfli-current_line FROM wa_spfli.
ENDIF.
ENDMODULE. " modify_spfli INPUT
"When the table control is scralled
READ TABLE it_spfli INTO wa_spfli
INDEX tab_ctrl_spfli-current_line.
IF sy-subrc = 0.
MODIFY it_spfli INDEX tab_ctrl_spfli-current_line FROM wa_spfli.
ENDIF.
ENDMODULE. " modify_spfli INPUT
Now we are preparing the buttons at user command for screen 9003.
MODULE user_command_9003 INPUT.
CASE ok_code3.
WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
"Previous user command needs to be cleared for further operation
CLEAR: ok_code1, ok_code2.
LEAVE LIST-PROCESSING.
LEAVE TO SCREEN 9002.
ENDCASE.
ENDMODULE. " user_command_9003 INPUT
CASE ok_code3.
WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
"Previous user command needs to be cleared for further operation
CLEAR: ok_code1, ok_code2.
LEAVE LIST-PROCESSING.
LEAVE TO SCREEN 9002.
ENDCASE.
ENDMODULE. " user_command_9003 INPUT
The output screen 9001 is as follows:
Click on the Display after setting the selection range and the output is as follows:
We can scroll the table control and the output will be like follows:
Next we select a particular row like follows:
After that we want to see the Flight number details by clicking the Flight number button.
