topic Re: Inserting Record in database table from table control... in Application Development and Automation Discussions

Inserting Record in database table from table control...

Former Member — Wed, 18 Oct 2006 06:23:01 GMT

Hi Experts,

I m inserting record from table control to my database table. programme is executing without Error msg. but record in not getting inserted.

my Code is this :

PROCESS BEFORE OUTPUT.

MODULE STATUS_0001.

LOOP WITH CONTROL TBLCTRL.

MODULE move_data_to_table.

ENDLOOP.

PROCESS AFTER INPUT.

MODULE USER_COMMAND_0001.

LOOP WITH CONTROL TBLCTRL.

MODULE move_data_from_table.

ENDLOOP.

&----

*& Module pool ZGSTT_YTBLCTRL

&----

PROGRAM ZGSTT_YTBLCTRL.

&----

*& Module move_data_to_table OUTPUT

&----

text

----

TABLES : ZYEMP_DTL.

DATA : ITAB LIKE ZYEMP_DTL OCCURS 0 WITH HEADER LINE.

CONTROLS : TBLCTRL TYPE TABLEVIEW USING SCREEN '0001'.

MODULE move_data_to_table OUTPUT.

READ TABLE ITAB INDEX TBLCTRL-current_line.

IF sy-subrc = 0.

zYEMP_DTL-ZEMPID = ITAB-ZEMPID.

zYEMP_DTL-ZEMPNM = ITAB-ZEMPNM.

zYEMP_DTL-ZEMPPHN = ITAB-ZEMPPHN.

zYEMP_DTL-ZDEPID = ITAB-ZDEPID.

ENDIF.

ENDMODULE. " move_data_to_table OUTPUT

&----

*& Module move_data_from_table INPUT

&----

text

----

MODULE move_data_from_table INPUT.

ITAB-ZEMPID = zYEMP_DTL-ZEMPID.

ITAB-ZEMPNM = zYEMP_DTL-ZEMPNM.

ITAB-ZEMPPHN = zYEMP_DTL-ZEMPPHN.

ITAB-ZDEPID = zYEMP_DTL-ZDEPID.

*here if the data is there, it will modify

MODIFY ITAB INDEX TBLCTRL-current_line.

IF sy-subrc NE 0. "data not exixting in table control . ie new data, then append it

APPEND ITAB.

CLEAR ITAB.

ENDIF.

ENDMODULE. " move_data_from_table INPUT

&----

*& Module USER_COMMAND_0001 INPUT

&----

text

----

MODULE USER_COMMAND_0001 INPUT.

CASE SY-UCOMM.

WHEN 'INS'.

INSERT INTO ZYEMP_DTL VALUES ITAB.

MESSAGE I001(ABC) WITH : 'RECORD INSERTED'.

WHEN 'EXIT'.

LEAVE PROGRAM.

ENDCASE.

Thanks & Regards,

yunus

Re: Inserting Record in database table from table control...

jayanthi_jayaraman — Wed, 18 Oct 2006 06:29:11 GMT

Hi,

Use modify for inserting into databse from itab.Since it has some records already existing in databse.

WHEN 'INS'.

modify ZYEMP_DTL from table itab.

Re: Inserting Record in database table from table control...

gopi_narendra — Wed, 18 Oct 2006 06:29:25 GMT

CASE SY-UCOMM.

WHEN 'INS'.

<b>modify ZYEMP_DTL from table ITAB.</b>

MESSAGE I001(ABC) WITH : 'RECORD INSERTED'.

Regards

- Gopi

Re: Inserting Record in database table from table control...

Former Member — Wed, 18 Oct 2006 06:32:18 GMT

try using a COMMIT statement after insert the data into the table.

Regards,

Ravi

Note : Please mark all the helpful answers

Re: Inserting Record in database table from table control...

former_member404244 — Wed, 18 Oct 2006 07:05:41 GMT

Hi Yunus,

WHEN 'INS'.

INSERT INTO ZYEMP_DTL VALUES ITAB.

if sy-subrc eq 0.

commit work.

endif.

MESSAGE I001(ABC) WITH : 'RECORD INSERTED'.

Regards,

nagaraj

Re: Inserting Record in database table from table control...

Former Member — Wed, 18 Oct 2006 10:07:24 GMT

Tried above all Code but only Blank record getting inserted.

pls help...

Re: Inserting Record in database table from table control...

gopi_narendra — Wed, 18 Oct 2006 10:09:29 GMT

are u able to c the data during debug in the internal table even.

Regards

- Gopi

Re: Inserting Record in database table from table control...

Former Member — Wed, 18 Oct 2006 10:49:21 GMT

yes i can c the record in the internal table during debug mode.