regarding table control

[Former Member]

How to create and delete entries in a table control?

I have defined two pushbuttons on the screen and have given the function codes as

TABLCTRL2_INSR and TABLCTRL2_DELE where 'TABLCTRL2' is the name of the tablecontrol. I have created this using the wizard.

Its very urgent.

Please let me know if you have the answer.

Thank you very much.

[Former Member]

hI,...

here is tha tprogram...just go through the code..which is working fine...when 'DELE'...SEE THE CODE...

REPORT YH642_DIALOG_TABLECONTROL.

CALL SCREEN 999.

DATA:

W_INDEX TYPE I.

DATA:

W_UCOMM LIKE SY-UCOMM.

***&SPWIZARD: DATA DECLARATION FOR TABLECONTROL 'TAB'

*&SPWIZARD: DEFINITION OF DDIC-TABLE

TABLES: YH642_RAM.

DATA:

BEGIN OF DDTAB,

TAB_FLAG TYPE C,

MANDT LIKE YH642_RAM-MANDT,

EID LIKE YH642_RAM-EID,

ENAME LIKE YH642_RAM-ENAME,

MOBILE LIKE YH642_RAM-MOBILE,

END OF DDTAB.

*&SPWIZARD: TYPE FOR THE DATA OF TABLECONTROL 'TAB'

TYPES: BEGIN OF T_TAB,

TAB_FLAG TYPE C,

MANDT LIKE YH642_RAM-MANDT,

EID LIKE YH642_RAM-EID,

ENAME LIKE YH642_RAM-ENAME,

MOBILE LIKE YH642_RAM-MOBILE,

END OF T_TAB.

*&SPWIZARD: INTERNAL TABLE FOR TABLECONTROL 'TAB'

DATA: G_TAB_ITAB TYPE T_TAB OCCURS 0,

H_TAB_ITAB TYPE T_TAB OCCURS 0,

G_TAB_WA TYPE T_TAB. "work area

DATA: G_TAB_COPIED. "copy flag

*&SPWIZARD: DECLARATION OF TABLECONTROL 'TAB' ITSELF

CONTROLS: TAB TYPE TABLEVIEW USING SCREEN 0999.

*&SPWIZARD: LINES OF TABLECONTROL 'TAB'

DATA: G_TAB_LINES LIKE SY-LOOPC.

DATA: OK_CODE LIKE SY-UCOMM.

*&SPWIZARD: OUTPUT MODULE FOR TC 'TAB'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: COPY DDIC-TABLE TO ITAB

MODULE TAB_INIT OUTPUT.

IF G_TAB_COPIED IS INITIAL.

*&SPWIZARD: COPY DDIC-TABLE 'YH642_RAM'

*&SPWIZARD: INTO INTERNAL TABLE 'g_TAB_itab'

SELECT * FROM YH642_RAM

INTO CORRESPONDING FIELDS

OF TABLE G_TAB_ITAB.

G_TAB_COPIED = 'X'.

H_TAB_ITAB[] = G_TAB_ITAB[].

REFRESH CONTROL 'TAB' FROM SCREEN '0999'.

ENDIF.

ENDMODULE. "TAB_INIT OUTPUT

*&SPWIZARD: OUTPUT MODULE FOR TC 'TAB'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: MOVE ITAB TO DYNPRO

MODULE TAB_MOVE OUTPUT.

MOVE-CORRESPONDING G_TAB_WA TO DDTAB.

ENDMODULE. "TAB_MOVE OUTPUT

*&SPWIZARD: OUTPUT MODULE FOR TC 'TAB'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: GET LINES OF TABLECONTROL

MODULE TAB_GET_LINES OUTPUT.

G_TAB_LINES = SY-LOOPC.

ENDMODULE. "TAB_GET_LINES OUTPUT

*&SPWIZARD: INPUT MODULE FOR TC 'TAB'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: MODIFY TABLE

MODULE TAB_MODIFY INPUT.

MOVE-CORRESPONDING DDTAB TO G_TAB_WA.

MODIFY G_TAB_ITAB

FROM G_TAB_WA

INDEX TAB-CURRENT_LINE.

ENDMODULE. "TAB_MODIFY INPUT

*&SPWIZARD: INPUT MODULE FOR TC 'TAB'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: PROCESS USER COMMAND

MODULE TAB_USER_COMMAND INPUT.

OK_CODE = SY-UCOMM.

PERFORM USER_OK_TC USING 'TAB'

'G_TAB_ITAB'

'TAB_FLAG'

CHANGING OK_CODE.

SY-UCOMM = OK_CODE.

ENDMODULE. "TAB_USER_COMMAND INPUT

----

---

• INCLUDE TABLECONTROL_FORMS *

----

---

&----

---

*& Form USER_OK_TC *

&----

---

FORM USER_OK_TC USING P_TC_NAME TYPE DYNFNAM

P_TABLE_NAME

P_MARK_NAME

CHANGING P_OK LIKE SY-UCOMM.

&SPWIZARD: BEGIN OF LOCAL DATA----

---

DATA: L_OK TYPE SY-UCOMM,

L_OFFSET TYPE I.

&SPWIZARD: END OF LOCAL DATA----

---

*&SPWIZARD: Table control specific operations *

*&SPWIZARD: evaluate TC name and operations *

SEARCH P_OK FOR P_TC_NAME.

IF SY-SUBRC <> 0.

EXIT.

ENDIF.

L_OFFSET = STRLEN( P_TC_NAME ) + 1.

L_OK = P_OK+L_OFFSET.

• L_OK = 'DELE'.

*&SPWIZARD: execute general and TC specific operations *

CASE L_OK.

WHEN 'INSR'. "insert row

PERFORM FCODE_INSERT_ROW USING P_TC_NAME

P_TABLE_NAME.

CLEAR P_OK.

WHEN 'DELE'. "delete row

• MESSAGE 'Are you really going to delete??' type 'I'.

PERFORM FCODE_DELETE_ROW USING P_TC_NAME

P_TABLE_NAME

P_MARK_NAME.

CLEAR P_OK.

WHEN 'P--' OR "top of list

'P-' OR "previous page

'P+' OR "next page

'P++'. "bottom of list

PERFORM COMPUTE_SCROLLING_IN_TC USING P_TC_NAME

L_OK.

CLEAR P_OK.

• WHEN 'L--'. "total left

• PERFORM FCODE_TOTAL_LEFT USING P_TC_NAME.

*

• WHEN 'L-'. "column left

• PERFORM FCODE_COLUMN_LEFT USING P_TC_NAME.

*

• WHEN 'R+'. "column right

• PERFORM FCODE_COLUMN_RIGHT USING P_TC_NAME.

*

• WHEN 'R++'. "total right

• PERFORM FCODE_TOTAL_RIGHT USING P_TC_NAME.

*

WHEN 'MARK'. "mark all filled lines

PERFORM FCODE_TC_MARK_LINES USING P_TC_NAME

P_TABLE_NAME

P_MARK_NAME .

CLEAR P_OK.

WHEN 'DMRK'. "demark all filled lines

PERFORM FCODE_TC_DEMARK_LINES USING P_TC_NAME

P_TABLE_NAME

P_MARK_NAME .

CLEAR P_OK.

• WHEN 'SASCEND' OR

• 'SDESCEND'. "sort column

• PERFORM FCODE_SORT_TC USING P_TC_NAME

• l_ok.

ENDCASE.

ENDFORM. " USER_OK_TC

&----

---

*& Form FCODE_INSERT_ROW *

&----

---

FORM FCODE_INSERT_ROW

USING P_TC_NAME TYPE DYNFNAM

P_TABLE_NAME .

&SPWIZARD: BEGIN OF LOCAL DATA----

---

DATA L_LINES_NAME LIKE FELD-NAME.

DATA L_SELLINE LIKE SY-STEPL.

DATA L_LASTLINE TYPE I.

DATA L_LINE TYPE I.

DATA L_TABLE_NAME LIKE FELD-NAME.

FIELD-SYMBOLS <TC> TYPE CXTAB_CONTROL.

FIELD-SYMBOLS <TABLE> TYPE STANDARD TABLE.

FIELD-SYMBOLS <LINES> TYPE I.

&SPWIZARD: END OF LOCAL DATA----

---

ASSIGN (P_TC_NAME) TO <TC>.

*&SPWIZARD: get the table, which belongs to the tc *

CONCATENATE P_TABLE_NAME '[]' INTO L_TABLE_NAME. "table body

ASSIGN (L_TABLE_NAME) TO <TABLE>. "not headerline

*&SPWIZARD: get looplines of TableControl *

CONCATENATE 'G_' P_TC_NAME '_LINES' INTO L_LINES_NAME.

ASSIGN (L_LINES_NAME) TO <LINES>.

*&SPWIZARD: get current line *

GET CURSOR LINE L_SELLINE.

IF SY-SUBRC <> 0. " append line to table

L_SELLINE = <TC>-LINES + 1.

*&SPWIZARD: set top line *

IF L_SELLINE > <LINES>.

<TC>-TOP_LINE = L_SELLINE - <LINES> + 1 .

ELSE.

<TC>-TOP_LINE = 1.

ENDIF.

ELSE. " insert line into table

L_SELLINE = <TC>-TOP_LINE + L_SELLINE - 1.

L_LASTLINE = <TC>-TOP_LINE + <LINES> - 1.

ENDIF.

*&SPWIZARD: set new cursor line *

L_LINE = L_SELLINE - <TC>-TOP_LINE + 1.

*&SPWIZARD: insert initial line *

INSERT INITIAL LINE INTO <TABLE> INDEX L_SELLINE.

<TC>-LINES = <TC>-LINES + 1.

*&SPWIZARD: set cursor *

SET CURSOR LINE L_LINE.

ENDFORM. " FCODE_INSERT_ROW

&----

---

*& Form FCODE_DELETE_ROW *

&----

---

FORM FCODE_DELETE_ROW

USING P_TC_NAME TYPE DYNFNAM

P_TABLE_NAME

P_MARK_NAME .

&SPWIZARD: BEGIN OF LOCAL DATA----

---

DATA L_TABLE_NAME LIKE FELD-NAME.

FIELD-SYMBOLS <TC> TYPE CXTAB_CONTROL.

FIELD-SYMBOLS <TABLE> TYPE STANDARD TABLE.

FIELD-SYMBOLS <WA>.

FIELD-SYMBOLS <MARK_FIELD>.

&SPWIZARD: END OF LOCAL DATA----

---

ASSIGN (P_TC_NAME) TO <TC>.

*&SPWIZARD: get the table, which belongs to the tc *

CONCATENATE P_TABLE_NAME '[]' INTO L_TABLE_NAME. "table body

ASSIGN (L_TABLE_NAME) TO <TABLE>. "not headerline

*&SPWIZARD: delete marked lines *

DESCRIBE TABLE <TABLE> LINES <TC>-LINES.

LOOP AT <TABLE> ASSIGNING <WA>.

*&SPWIZARD: access to the component 'FLAG' of the table header *

ASSIGN COMPONENT P_MARK_NAME OF STRUCTURE <WA> TO <MARK_FIELD>.

IF <MARK_FIELD> = 'X'.

W_INDEX = SYST-TABIX.

DELETE <TABLE> INDEX SYST-TABIX.

IF SY-SUBRC = 0.

<TC>-LINES = <TC>-LINES - 1.

ENDIF.

ENDIF.

ENDLOOP.

READ TABLE H_TAB_ITAB INDEX W_INDEX INTO G_TAB_WA.

IF SY-SUBRC EQ 0.

MOVE-CORRESPONDING G_TAB_WA TO YH642_RAM.

DELETE YH642_RAM.

ENDIF.

ENDFORM. " FCODE_DELETE_ROW

&----

---

*& Form COMPUTE_SCROLLING_IN_TC

&----

---

• text

----

---

• -->P_TC_NAME name of tablecontrol

• -->P_OK ok code

----

---

FORM COMPUTE_SCROLLING_IN_TC USING P_TC_NAME

P_OK.

&SPWIZARD: BEGIN OF LOCAL DATA----

---

DATA L_TC_NEW_TOP_LINE TYPE I.

DATA L_TC_NAME LIKE FELD-NAME.

DATA L_TC_LINES_NAME LIKE FELD-NAME.

DATA L_TC_FIELD_NAME LIKE FELD-NAME.

FIELD-SYMBOLS <TC> TYPE CXTAB_CONTROL.

FIELD-SYMBOLS <LINES> TYPE I.

&SPWIZARD: END OF LOCAL DATA----

---

ASSIGN (P_TC_NAME) TO <TC>.

*&SPWIZARD: get looplines of TableControl *

CONCATENATE 'G_' P_TC_NAME '_LINES' INTO L_TC_LINES_NAME.

ASSIGN (L_TC_LINES_NAME) TO <LINES>.

*&SPWIZARD: is no line filled? *

IF <TC>-LINES = 0.

*&SPWIZARD: yes, ... *

L_TC_NEW_TOP_LINE = 1.

ELSE.

*&SPWIZARD: no, ... *

CALL FUNCTION 'SCROLLING_IN_TABLE'

EXPORTING

ENTRY_ACT = <TC>-TOP_LINE

ENTRY_FROM = 1

ENTRY_TO = <TC>-LINES

LAST_PAGE_FULL = 'X'

LOOPS = <LINES>

OK_CODE = P_OK

OVERLAPPING = 'X'

IMPORTING

ENTRY_NEW = L_TC_NEW_TOP_LINE

EXCEPTIONS

• NO_ENTRY_OR_PAGE_ACT = 01

• NO_ENTRY_TO = 02

• NO_OK_CODE_OR_PAGE_GO = 03

OTHERS = 0.

ENDIF.

*&SPWIZARD: get actual tc and column *

GET CURSOR FIELD L_TC_FIELD_NAME

AREA L_TC_NAME.

IF SYST-SUBRC = 0.

IF L_TC_NAME = P_TC_NAME.

*&SPWIZARD: et actual column *

SET CURSOR FIELD L_TC_FIELD_NAME LINE 1.

ENDIF.

ENDIF.

*&SPWIZARD: set the new top line *

<TC>-TOP_LINE = L_TC_NEW_TOP_LINE.

ENDFORM. " COMPUTE_SCROLLING_IN_TC

&----

---

*& Form FCODE_TC_MARK_LINES

&----

---

• marks all TableControl lines

----

---

• -->P_TC_NAME name of tablecontrol

----

---

FORM FCODE_TC_MARK_LINES USING P_TC_NAME

P_TABLE_NAME

P_MARK_NAME.

&SPWIZARD: EGIN OF LOCAL DATA----

---

DATA L_TABLE_NAME LIKE FELD-NAME.

FIELD-SYMBOLS <TC> TYPE CXTAB_CONTROL.

FIELD-SYMBOLS <TABLE> TYPE STANDARD TABLE.

FIELD-SYMBOLS <WA>.

FIELD-SYMBOLS <MARK_FIELD>.

&SPWIZARD: END OF LOCAL DATA----

---

ASSIGN (P_TC_NAME) TO <TC>.

*&SPWIZARD: get the table, which belongs to the tc *

CONCATENATE P_TABLE_NAME '[]' INTO L_TABLE_NAME. "table body

ASSIGN (L_TABLE_NAME) TO <TABLE>. "not headerline

*&SPWIZARD: mark all filled lines *

LOOP AT <TABLE> ASSIGNING <WA>.

*&SPWIZARD: access to the component 'FLAG' of the table header *

ASSIGN COMPONENT P_MARK_NAME OF STRUCTURE <WA> TO <MARK_FIELD>.

<MARK_FIELD> = 'X'.

ENDLOOP.

ENDFORM. "fcode_tc_mark_lines

&----

---

*& Form FCODE_TC_DEMARK_LINES

&----

---

• demarks all TableControl lines

----

---

• -->P_TC_NAME name of tablecontrol

----

---

FORM FCODE_TC_DEMARK_LINES USING P_TC_NAME

P_TABLE_NAME

P_MARK_NAME .

&SPWIZARD: BEGIN OF LOCAL DATA----

---

DATA L_TABLE_NAME LIKE FELD-NAME.

FIELD-SYMBOLS <TC> TYPE CXTAB_CONTROL.

FIELD-SYMBOLS <TABLE> TYPE STANDARD TABLE.

FIELD-SYMBOLS <WA>.

FIELD-SYMBOLS <MARK_FIELD>.

&SPWIZARD: END OF LOCAL DATA----

---

ASSIGN (P_TC_NAME) TO <TC>.

*&SPWIZARD: get the table, which belongs to the tc *

CONCATENATE P_TABLE_NAME '[]' INTO L_TABLE_NAME. "table body

ASSIGN (L_TABLE_NAME) TO <TABLE>. "not headerline

*&SPWIZARD: demark all filled lines *

LOOP AT <TABLE> ASSIGNING <WA>.

*&SPWIZARD: access to the component 'FLAG' of the table header *

ASSIGN COMPONENT P_MARK_NAME OF STRUCTURE <WA> TO <MARK_FIELD>.

<MARK_FIELD> = SPACE.

ENDLOOP.

ENDFORM. "fcode_tc_mark_lines

&----

---

*& Module STATUS_0999 OUTPUT

&----

---

• text

----

---

MODULE STATUS_0999 OUTPUT.

SET PF-STATUS 'SS_STD'.

SET TITLEBAR 'TITLE'.

ENDMODULE. " STATUS_0999 OUTPUT

&----

---

*& Module USER_COMMAND_0999 INPUT

&----

---

• text

----

---

MODULE USER_COMMAND_0999 INPUT.

DATA:

H_TAB_WA LIKE G_TAB_WA.

CASE W_UCOMM.

WHEN 'BACK'.

LEAVE PROGRAM.

WHEN 'TAB_MODI' OR 'SAVE'.

LOOP AT G_TAB_ITAB INTO G_TAB_WA.

• FORMAT INPUT OFF.

MOVE-CORRESPONDING G_TAB_WA TO YH642_RAM.

READ TABLE H_TAB_ITAB WITH KEY EID = G_TAB_WA-EID INTO H_TAB_WA.

IF SY-SUBRC EQ 0.

IF G_TAB_WA NE H_TAB_WA.

MODIFY YH642_RAM.

ENDIF.

ELSE.

INSERT YH642_RAM.

ENDIF.

ENDLOOP.

SORT G_TAB_ITAB.

ENDCASE.

*CALL SCREEN 700.

ENDMODULE. " USER_COMMAND_0999 INPUT

[Former Member]

Hi,

You can simply delete the entries from the Internal table that holds the data of the table control in PAI (in the loop of TC).

and insert the data in to the internal table after fetching it from a db table and display the data in PBO.

reward if useful

regards,

Anji

[Former Member]

See the following simple code.

PROCESS AFTER INPUT.

MODULE TC1_USER_COMMAND.

&----

---

*& Module USER_COMMAND_0100 INPUT

&----

---

• text

----

---

MODULE USER_COMMAND_0100 INPUT.

DATA: L_ID(14) TYPE C,

L_FLAG(1),

L_AN(1),

L_INF(50) TYPE C,

INF(50),

ANS1.

OK_CODE = SY-UCOMM.

S_CODE = OK_CODE.

CLEAR OK_CODE.

CASE S_CODE.

WHEN 'DEL1'.

*it is to delete Material Maintainance Record.

IF NOT G_TC2_WA IS INITIAL.

clear: INF, ans1.

READ TABLE G_TC2_ITAB INDEX TC2-CURRENT_LINE.

IF SY-SUBRC = 0.

DELETE G_TC2_ITAB INDEX TC2-CURRENT_LINE.

IF NOT G_TC2_ITAB[] IS INITIAL.

DESCRIBE TABLE G_TC2_ITAB LINES TC2-LINES.

ELSE.

REFRESH CONTROL 'TC2' FROM SCREEN '0100'.

ENDIF.

ENDIF.

ENDIF.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT