alv editable and saving data into database table --sample program

[Former Member]

hi i need a help on alv report with editable and saving data into the database table

thanx in advance

sat

[Former Member]

Please refer these sample programs,

BCALV_EDIT_01

BCALV_EDIT_02

BCALV_EDIT_03

BCALV_EDIT_04

BCALV_EDIT_05

BCALV_EDIT_06

BCALV_EDIT_07

BCALV_EDIT_08

[Former Member]

Pl. see this prog.

REPORT z_demo_alv_jg.

***********************************************************************

• 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 '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

Regards,

Joy.