&---------------------------------------------------------------------
*& Report Z_ALV_TEST_017
*&
&---------------------------------------------------------------------
*&
*&
&---------------------------------------------------------------------
REPORT Z_ALV_TEST_020 MESSAGE-ID OO.
*******************************************************************
- TYPE-POOLS *
*******************************************************************
TYPE-POOLS: slis.
******************************************************************* - INTERNAL TABLES/WORK AREAS/VARIABLES *
*******************************************************************
DATA: i_fieldcat TYPE slis_t_fieldcat_alv,
i_index TYPE STANDARD TABLE OF i WITH HEADER LINE,
w_field TYPE slis_fieldcat_alv,
p_table LIKE dd02l-tabname,
dy_table TYPE REF TO data,
dy_tab TYPE REF TO data,
dy_line TYPE REF TO data.
******************************************************************* - FIELD-SYMBOLS *
*******************************************************************
FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE,
<dyn_wa> TYPE ANY,
<dyn_field> TYPE ANY,
<dyn_tab_temp> TYPE STANDARD TABLE.
******************************************************************* - SELECTION SCREEN *
*******************************************************************
PARAMETERS: tabname(30) TYPE c,
lines(5) TYPE n.
******************************************************************* - START-OF-SELECTION *
*******************************************************************
START-OF-SELECTION. - Storing table name
p_table = tabname. - Create internal table dynamically with the stucture of table name
- entered in the selection screen
CREATE DATA dy_table TYPE STANDARD TABLE OF (p_table).
ASSIGN dy_table->* TO <dyn_table>.
IF sy-subrc <> 0.
MESSAGE i000(z_zzz_ca_messages) WITH ’ No table found’.
LEAVE TO LIST-PROCESSING.
ENDIF. - Create workarea for the table
CREATE DATA dy_line LIKE LINE OF <dyn_table>.
ASSIGN dy_line->* TO <dyn_wa>. - Create another temp. table
CREATE DATA dy_tab TYPE STANDARD TABLE OF (p_table).
ASSIGN dy_tab->* TO <dyn_tab_temp>.
SORT i_fieldcat BY col_pos. - Select data from table
SELECT * FROM (p_table)
INTO TABLE <dyn_table>
UP TO lines ROWS.
REFRESH <dyn_tab_temp>. - Display report
CALL FUNCTION ‘REUSE_ALV_LIST_DISPLAY’
EXPORTING
i_callback_program = sy-repid
i_structure_name = p_table
i_callback_user_command = ‘USER_COMMAND’
i_callback_pf_status_set = ‘SET_PF_STATUS’
TABLES
t_outtab = <dyn_table>
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
ENDIF.
&-----------------------------------------------------------------
*& Form SET_PF_STATUS
&----------------------------------------------------------------- - Setting custom PF-Status
------------------------------------------------------------------ - –>RT_EXTAB Excluding table
------------------------------------------------------------------
FORM set_pf_status USING rt_extab TYPE slis_t_extab.
SET PF-STATUS ‘Z_STANDARD’.
ENDFORM. "SET_PF_STATUS
&----------------------------------------------------------------
*& Form user_command
&----------------------------------------------------------------- - Handling custom function codes
------------------------------------------------------------------ - –>R_UCOMM Function code value
- –>RS_SELFIELD Info. of cursor position in ALV
------------------------------------------------------------------
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield. - Local data declaration
DATA: li_tab TYPE REF TO data,
l_line TYPE REF TO data. - Local field-symbols
FIELD-SYMBOLS:<l_tab> TYPE table,
<l_wa> TYPE ANY. - Create table
CREATE DATA li_tab TYPE STANDARD TABLE OF (p_table).
ASSIGN li_tab->* TO <l_tab>. - Create workarea
CREATE DATA l_line LIKE LINE OF <l_tab>.
ASSIGN l_line->* TO <l_wa>.
CASE r_ucomm. - When a record is selected
WHEN ‘/&IC1’. - Read the selected record
READ TABLE <dyn_table> ASSIGNING <dyn_wa> INDEX
rs_selfield-tabindex.
IF sy-subrc = 0. - Store the record in an internal table
APPEND <dyn_wa> TO <l_tab>. - Fetch the field catalog info
CALL FUNCTION ‘REUSE_ALV_FIELDCATALOG_MERGE’
EXPORTING
i_program_name = ‘Z_DEMO_PDF_JG’
i_structure_name = p_table
CHANGING
ct_fieldcat = i_fieldcat
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.
IF sy-subrc = 0. - Make all the fields input enabled except key fields
w_field-input = ‘X’.
MODIFY i_fieldcat FROM w_field TRANSPORTING input
WHERE key IS INITIAL.
ENDIF. - Display the record for editing purpose
CALL FUNCTION ‘REUSE_ALV_LIST_DISPLAY’
EXPORTING
i_callback_program = sy-repid
i_structure_name = p_table
it_fieldcat = i_fieldcat
i_screen_start_column = 10
i_screen_start_line = 15
i_screen_end_column = 200
i_screen_end_line = 20
TABLES
t_outtab = <l_tab>
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc = 0. - Read the modified data
READ TABLE <l_tab> INDEX 1 INTO <l_wa>. - If the record is changed then track its index no.
- and populate it in an internal table for future
- action
IF sy-subrc = 0 AND <dyn_wa> <> <l_wa>.
<dyn_wa> = <l_wa>.
i_index = rs_selfield-tabindex.
APPEND i_index.
ENDIF.
ENDIF.
ENDIF. - When save button is pressed
WHEN ‘/&DATA_SAVE’. - Sort the index table
SORT i_index. - Delete all duplicate records
DELETE ADJACENT DUPLICATES FROM i_index.
LOOP AT i_index. - Find out the changes in the internal table
- and populate these changes in another internal table
READ TABLE <dyn_table> ASSIGNING <dyn_wa> INDEX i_index.
IF sy-subrc = 0.
APPEND <dyn_wa> TO <dyn_tab_temp>.
ENDIF.
ENDLOOP. - Lock the table
CALL FUNCTION ‘ENQUEUE_E_TABLE’
EXPORTING
mode_rstable = ‘E’
tabname = p_table
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3.
IF sy-subrc = 0. - Modify the database table with these changes
MODIFY (p_table) FROM TABLE <dyn_tab_temp>.
REFRESH <dyn_tab_temp>. - Unlock the table
CALL FUNCTION ‘DEQUEUE_E_TABLE’
EXPORTING
mode_rstable = ‘E’
tabname = p_table.
ENDIF.
ENDCASE.
rs_selfield-refresh = ‘X’.
ENDFORM. "user_command