Add Record, Delete Record, Save Record - Table Control

I have create a customized table ZMMZNHD

How to add new record in new line, delete record, save record?

***INCLUDE MZ01TOP

• DATA DECLARATION FOR TABLECONTROL 'ZTBLMM'

• DEFINITION OF DDIC-TABLE

TABLES: ZMMZNHD,t024e,t001.

DATA : ok_code like sy-ucomm,

save_ok TYPE sy-ucomm.

• TYPE FOR THE DATA OF TABLECONTROL 'ZTBLMM02'

TYPES: BEGIN OF T_ZTBLMM02,

ZCOUNTER LIKE ZMMZNHD-ZCOUNTER,

MANDT LIKE ZMMZNHD-MANDT,

EKGRP LIKE ZMMZNHD-EKGRP,

MARK LIKE ZMMZNHD-MARK,

END OF T_ZTBLMM02.

• INTERNAL TABLE FOR TABLECONTROL 'ZTBLMM02'

DATA: G_ZTBLMM02_ITAB TYPE T_ZTBLMM02 OCCURS 0 WITH HEADER LINE,

G_ZTBLMM02_WA TYPE T_ZTBLMM02, "work area

G_ZTBLMM02_COPIED. "copy flag

• DECLARATION OF TABLECONTROL 'ZTBLMM02' ITSELF

CONTROLS: ZTBLMM02 TYPE TABLEVIEW USING SCREEN 1001.

DATA cols LIKE LINE OF ZTBLMM02-cols.

• LINES OF TABLECONTROL 'ZTBLMM02'

DATA: G_ZTBLMM02_LINES LIKE SY-LOOPC.

***INCLUDE MZ01O01 .

&----

*& Module STATUS_1000 OUTPUT

&----

• text

----

MODULE STATUS_1000 OUTPUT.

SET PF-STATUS 'DISPLAY'.

if sy-tcode = 'YM02'.

SET TITLEBAR 'Display'.

endif.

ENDMODULE. " STATUS_1000 OUTPUT

&----

*& Module STATUS_1001 OUTPUT

&----

• text

----

MODULE STATUS_1001 OUTPUT.

SET PF-STATUS 'INITIAL'.

if sy-tcode = 'YM01'.

SET TITLEBAR 'Create'.

endif.

ENDMODULE. " STATUS_1000 OUTPUT

• OUTPUT MODULE FOR TABLECONTROL 'ZTBLMM02':

• COPY DDIC-TABLE TO ITAB

MODULE ZTBLMM02_INIT OUTPUT.

IF G_ZTBLMM02_COPIED IS INITIAL.

• COPY DDIC-TABLE 'ZMMZNHD'

• INTO INTERNAL TABLE 'g_ZTBLMM02_itab'

SELECT * FROM ZMMZNHD

INTO CORRESPONDING FIELDS

OF TABLE G_ZTBLMM02_ITAB

WHERE EKORG = ZMMZNHD-EKORG

AND BSART = ZMMZNHD-BSART.

G_ZTBLMM02_COPIED = 'X'.

REFRESH CONTROL 'ZTBLMM02' FROM SCREEN '1001'.

ENDIF.

ENDMODULE.

• OUTPUT MODULE FOR TABLECONTROL 'ZTBLMM02':

• MOVE ITAB TO DYNPRO

MODULE ZTBLMM02_MOVE OUTPUT.

MOVE-CORRESPONDING G_ZTBLMM02_WA TO ZMMZNHD.

ENDMODULE.

• OUTPUT MODULE FOR TABLECONTROL 'ZTBLMM02':

• GET LINES OF TABLECONTROL

MODULE ZTBLMM02_GET_LINES OUTPUT.

G_ZTBLMM02_LINES = SY-LOOPC.

ENDMODULE.

&----

*& Module check_field INPUT

&----

• text

----

MODULE check_field INPUT.

clear t024e.

SELECT single * FROM T024E

WHERE EKORG = ZMMZNHD-EKORG.

if sy-subrc <> 0.

message e000(zmm) with ' '.

endif.

ENDMODULE. " check_field INPUT

&----

*& Module leave_screen INPUT

&----

• text

----

MODULE leave_screen INPUT.

case ok_code.

when 'BACK'.

leave to screen 0.

when 'CANC'.

leave to screen 0.

when 'EXIT'.

leave to screen 0.

endcase.

ENDMODULE. " leave_screen INPUT

&----

*& Module Back_screen INPUT

&----

• text

----

MODULE Back_screen INPUT.

case ok_code.

when 'BACK'.

leave to screen 1000.

when 'CANC'.

leave to screen 1000.

when 'EXIT'.

leave to screen 1000.

endcase.

ENDMODULE. " Back_screen INPUT

MODULE CHECK_MARK.

G_ZTBLMM02_ITAB-MARK = ZMMZNHD-MARK.

ENDMODULE.

----

*& Module insert INPUT

&----

• text

----

MODULE insert INPUT.

• LOOP AT ZTBLMM02-cols INTO W_TABCONCOL

• WHERE SCREEN-NAME = '1001'.

• W_TABCONCOL-SCREEN-INVISIBLE = 1.

• W_TABCONCOL-INVISIBLE = 1.

• W_TABCONCOL-SELECTED = 'X'.

• MODIFY ZTBLMM02-cols FROM W_TABCONCOL.

• ENDLOOP.

save_ok = ok_code.

CLEAR ok_code.

CASE save_ok.

WHEN 'TOGGLE'.

LOOP AT ZTBLMM02-cols INTO cols WHERE index GT 2.

IF cols-screen-input = '0'.

cols-screen-input = '1'.

ELSEIF cols-screen-input = '1'.

cols-screen-input = '0'.

ENDIF.

MODIFY ZTBLMM02-cols FROM cols INDEX sy-tabix.

ENDLOOP.

WHEN 'DELE'.

ENDIF.

WHEN 'INSR'.

ENDCASE.

ENDMODULE. " insert INPUT

• INPUT MODULE FOR TABLECONTROL 'ZTBLMM02': PROCESS USER COMMAND

*MODULE ZTBLMM02_USER_COMMAND INPUT.

• PERFORM USER_OK_TC USING 'T_ZTBLMM02'

• 'ZMMZNHD'

• 'FLAG'

• CHANGING OK_CODE.

*ENDMODULE.