Disappeared row data from table control.

[Former Member]

Dear All,

In my "M" program I am using table-control in one screen.

when I trying to save all row from table-control, data is not saving. Even row data is disappearing from the table control.

Can any body has the idea, why happining this?

Thanks & Best regards.

[learnsap]

In the Module Pool Program after you click the SAVE button, the PAI get executed and you need to write the code in the PAI when Sy-Ucomm is SAVE and it get saved in the database.

After it completes the execution with PAI, it executes PBO there I think your table control is getting refreshed and the data is getting cleared. Check out by debugging what is happening when you are clicking the SAVE and after it?

Or else send me the code so that it gives a clear picture what exactly you are doing there? so that we can suggest you on that.

Regards,

Ramesh

[Former Member]

hi,

there what is happening is the data u entered is geting only into the heaader line but it is not coming in to the internal table u declared in order to get what u do is wirte one module between chain and endchain in that module write this statement

append <workarea> to <internaltable>.

sure u r problem get solves

plzz reward if it is usefull,,,

plzz dont forget to reward''

[Former Member]

Dear Ramesh

Thanks a lot for your prompt reply.

Please help me.

Thanks & Best regards.

This is my program

==============

Pushbutton: DISP,EDIT,SAVE,NEW

REPORT zchar_conv.

TABLES : cabn,cabnt,cawn,cawnt,tline.

DATA : BEGIN OF itab OCCURS 0,

atinn LIKE cabn-atinn,

atnam LIKE cabn-atnam,

atzhl LIKE cawn-atzhl,

atwrt LIKE cawn-atwrt,

atwtb LIKE cawnt-atwtb,

atkla LIKE cabn-atkla,

atmst LIKE cabn-atmst,

zl_entry LIKE BDCDATA-FVAL,

zg_entry LIKE BDCDATA-FVAL,

zGE_TXT LIKE BDCDATA-FVAL,

zCON_RMKS LIKE BDCDATA-FVAL,

lkenz LIKE cabn-lkenz,

END OF itab.

data atn like BDCDATA-FVAL.

data atw like BDCDATA-FVAL.

DATA itab1 like TABLE OF itab.

DATA : atnam LIKE cabn-atnam.

DATA : zatinn LIKE cawn-atinn.

DATA : atwrt LIKE cawn-atwrt.

DATA : leng LIKE cabn-anzst.

DATA desc LIKE cabnt-atbez.

DATA : flg, "Flag to set the change mode

ln TYPE i.

*&SPWIZARD: DECLARATION OF TABLECONTROL 'T_CTRL' ITSELF

CONTROLS: t_ctrl TYPE TABLEVIEW USING SCREEN 9000.

*&SPWIZARD: LINES OF TABLECONTROL 'T_CTRL'

DATA: g_t_ctrl_lines LIKE sy-loopc.

DATA: ok_code LIKE sy-ucomm.

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

*&SPWIZARD: UPDATE LINES FOR EQUIVALENT SCROLLBAR

MODULE t_ctrl_change_tc_attr OUTPUT.

DESCRIBE TABLE itab LINES t_ctrl-lines.

ENDMODULE. "T_CTRL_CHANGE_TC_ATTR OUTPUT

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

*&SPWIZARD: GET LINES OF TABLECONTROL

MODULE t_ctrl_get_lines OUTPUT.

g_t_ctrl_lines = sy-loopc.

ENDMODULE. "T_CTRL_GET_LINES OUTPUT

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

*&SPWIZARD: MODIFY TABLE

MODULE t_ctrl_modify INPUT.

MODIFY itab

INDEX t_ctrl-current_line.

ENDMODULE. "T_CTRL_MODIFY INPUT

*&SPWIZARD: INPUT MODUL FOR TC 'T_CTRL'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: MARK TABLE

MODULE t_ctrl_mark INPUT.

DATA: g_t_ctrl_wa2 LIKE LINE OF itab.

IF t_ctrl-line_sel_mode = 1

AND itab-lkenz = 'X'.

LOOP AT itab INTO g_t_ctrl_wa2

WHERE lkenz = 'X'.

g_t_ctrl_wa2-lkenz = ''.

MODIFY itab

FROM g_t_ctrl_wa2

TRANSPORTING lkenz.

ENDLOOP.

ENDIF.

MODIFY itab

INDEX t_ctrl-current_line

TRANSPORTING lkenz.

ENDMODULE. "T_CTRL_MARK INPUT

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

*&SPWIZARD: PROCESS USER COMMAND

MODULE t_ctrl_user_command INPUT.

ok_code = sy-ucomm.

PERFORM user_ok_tc USING 'T_CTRL'

'ITAB'

'LKENZ'

CHANGING ok_code.

sy-ucomm = ok_code.

ENDMODULE. "T_CTRL_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.

*&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

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

DELETE <table> INDEX syst-tabix.

IF sy-subrc = 0.

<tc>-lines = <tc>-lines - 1.

ENDIF.

ENDIF.

ENDLOOP.

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 USER_COMMAND_9000 INPUT

&----

---

• text

----

---

MODULE user_command_9000 INPUT.

DATA :lv_fcode LIKE sy-ucomm, "Function Code

lv_answer(1) TYPE c. "Storing the answer

lv_fcode = sy-ucomm.

DATA atbez_d2 LIKE cabnt-atbez.

DATA atbez LIKE cabnt-atbez.

DATA anzst LIKE cabn-anzst.

DATA atinn LIKE cabn-atinn.

DATA zatnam LIKE cabn-atnam.

• DATA desc LIKE cabnt-atbez.

• DATA leng LIKE cabn-anzst.

CLEAR: atbez_d2, anzst.

DATA lkenz TYPE c.

CASE lv_fcode.

WHEN 'BNEW'.

zatnam = ''.

desc = ''.

• leng = 3.

• CLEAR: itab. REFRESH: itab.

WHEN 'BDISP'.

• CLEAR: itab. REFRESH: itab.

• CLEAR: desc.

SELECT SINGLE * FROM cabn WHERE atnam = zatnam.

atinn = cabn-atinn.

zatinn = atinn.

anzst = cabn-anzst.

SELECT SINGLE * FROM cabnt WHERE atinn = cabn-atinn.

atbez = cabnt-atbez.

atbez_d2 = atbez.

DESCRIBE TABLE itab LINES t_ctrl-lines.

SELECT cabn~atinn cabn~atnam cawn~atzhl cawn~atwrt cawnt~atwtb

cabn~atkla cabn~atmst

INTO CORRESPONDING FIELDS OF TABLE itab

FROM cabn

INNER JOIN cawn ON cabn~atinn = cawn~atinn

INNER JOIN cawnt ON cabn~atinn = cawnt~atinn

WHERE cabn~atnam = cabn-atnam

AND cawn~atzhl = cawnt~atzhl.

DESCRIBE TABLE itab LINES ln.

• To make the vertical scroll bar to come on runtime

t_ctrl-lines = ln + 100.

desc = atbez_d2.

leng = anzst.

WHEN 'BACK'.

SET SCREEN '0'.

LEAVE PROGRAM.

WHEN 'BEDIT'.

flg = 'Y'.

WHEN 'BSAVE'.

PERFORM checkchar.

• LOOP AT itab.

• UPDATE zzz_makt FROM TABLE i_makt.

*

• MOVE itab-lkenz TO cawnt-lkenz.

*

• UPDATE cawnt SET lkenz = ITAB-LKENZ

• WHERE atinn = itab-atinn AND atzhl = itab-atzhl.

*

• update cawnt set lkenz = itab-lkenz.

*

• DELETE itab WHERE lkenz = 'X'.

• DELETE FROM cawnt WHERE lkenz = 'X'.

*

• MOVE:

• itab-atwtb TO cawnt-atwtb.

*

• UPDATE cawnt SET atwtb = itab-atwtb

• WHERE atinn = itab-atinn AND atzhl = itab-atzhl.

*break-point.

*

• ENDLOOP.

*

ENDCASE.

ENDMODULE. " USER_COMMAND_9000 INPUT

&----

---

*& Module STATUS_9000 OUTPUT

&----

---

• text

----

---

MODULE status_9000 OUTPUT.

SET PF-STATUS '9000'.

SET TITLEBAR '900'.

ENDMODULE. " STATUS_9000 OUTPUT

&----

---

*& Module set_screen_fields OUTPUT

&----

---

• text

----

---

MODULE set_screen_fields OUTPUT.

LOOP AT SCREEN.

IF flg IS INITIAL.

screen-input = 0.

ELSEIF ( flg EQ 'Y' ).

IF ( ( screen-name = 'Itab-atwrt'

OR screen-name = 'Itab-lkenz' )

AND t_ctrl-current_line LE ln ) .

• Making the screen fields as editable

screen-input = 1.

ELSEIF ( ( screen-name = 'Itab-atwrt' )

AND t_ctrl-current_line LE ln ).

• Making the screen field as uneditable

screen-input = 0.

ENDIF.

ENDIF.

• Modifying the screen after making changes

MODIFY SCREEN.

ENDLOOP.

ENDMODULE. " set_screen_fields OUTPUT

&----

---

*& Form charsave2

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM charsave2 .

ENDFORM. " charsave2

&----

---

*& Form CheckChar

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM checkchar .

DATA it_return LIKE bapiret2 OCCURS 0 WITH HEADER LINE.

DATA zcharname LIKE bapicharactkey-charactname.

DATA it_detail LIKE bapicharactdetail OCCURS 0 WITH HEADER LINE.

DATA it_descr LIKE bapicharactdescr OCCURS 0 WITH HEADER LINE.

DATA it_actv LIKE bapicharactvaluesdescr OCCURS 0 WITH HEADER LINE.

DATA it_char LIKE bapicharactvalueschar OCCURS 0 WITH HEADER LINE.

DATA it_snum LIKE bapicharactvaluesnum OCCURS 0 WITH HEADER LINE.

DATA it_curr LIKE bapicharactvaluescurr OCCURS 0 WITH HEADER LINE.

DATA it_nces LIKE bapicharactreferences OCCURS 0 WITH HEADER LINE.

DATA it_ions LIKE bapicharactrestrictions OCCURS 0 WITH HEADER LINE.

DATA zatinn LIKE cabn-atinn.

DATA it_return1 LIKE bapiret2 OCCURS 0 WITH HEADER LINE.

DATA zcharname1 LIKE bapicharactkey-charactname.

DATA it_detail1 LIKE bapicharactdetail OCCURS 0 WITH HEADER LINE.

DATA it_descr1 LIKE bapicharactdescr OCCURS 0 WITH HEADER LINE.

DATA it_actv1 LIKE bapicharactvaluesdescr OCCURS 0 WITH HEADER LINE.

DATA it_char1 LIKE bapicharactvalueschar OCCURS 0 WITH HEADER LINE.

DATA it_snum1 LIKE bapicharactvaluesnum OCCURS 0 WITH HEADER LINE.

DATA it_curr1 LIKE bapicharactvaluescurr OCCURS 0 WITH HEADER LINE.

DATA it_nces1 LIKE bapicharactreferences OCCURS 0 WITH HEADER LINE.

DATA it_ions1 LIKE bapicharactrestrictions OCCURS 0 WITH HEADER LINE.

DATA zatinn1 LIKE cabn-atinn.

DATA:BEGIN OF it_msg OCCURS 0,

• atnam(30) type c,

type LIKE bapiret2-type,

msgno LIKE bapiret2-number,

messg LIKE bapiret2-message,

END OF it_msg.

• CLEAR: it_detail,it_descr,it_actv.

• REFRESH: it_descr,it_actv.

• perform char_check.

• READ TABLE itab.

*DESCRIBE TABLE itab LINES t_ctrl-lines.

READ TABLE itab INDEX t_ctrl-CURRENT_LINE.

LOOP AT itab.

zcharname = zatnam.

it_detail-charact_name = zcharname.

it_detail-data_type = 'CHAR'.

it_detail-length = leng.

it_detail-charact_group = '/AFS/SAP-D'.

it_detail-status = '1'.

it_detail-value_assignment = 'X'.

APPEND it_detail.

it_descr-description = desc.

it_descr-language_int = sy-langu.

APPEND it_descr.

it_char-value_char = itab-atwrt.

APPEND it_char.

it_actv-value_char = itab-atwrt.

it_actv-language_int = sy-langu.

it_actv-description = itab-atwtb.

APPEND it_actv.

ENDLOOP.

LOOP AT it_return.

CLEAR it_msg.

it_msg-type = it_return-type.

it_msg-msgno = it_return-number.

it_msg-messg = it_return-message.

APPEND it_msg.

ENDLOOP.

break-point.

CALL FUNCTION 'BAPI_CHARACT_CHANGE'

EXPORTING

charactname = zcharname

• CHANGENUMBER =

keydate = sy-datum

TABLES

charactdetailnew = it_detail

charactdescrnew = it_descr

• CHARACTVALUESNUMNEW =

charactvaluescharnew = it_char

• CHARACTVALUESCURRNEW =

charactvaluesdescrnew = it_actv

• CHARACTREFERENCESNEW =

• CHARACTRESTRICTIONSNEW =

return = it_return

.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

wait = 'X'

• IMPORTING

• RETURN =

.

endloop.

ENDFORM. " CheckChar

[Former Member]

Dear Ramesh,

I am using Workarea for another table:

DATA itab1 LIKE TABLE OF itab WITH HEADER LINE.

Looping statement:

loop at itab.

APPEND itab TO itab1.

endloop.

• But still data is disappearing when I am saving or in debug mode.

Thanks & best regards.

[Former Member]

closed

[Former Member]

ignore