update statement is not working. module pool program,why? check this code

[Former Member]

&----

---

*& Module Pool ZCUST_CALL_REC

*&

&----

---

*&

*&

&----

---

PROGRAM ZCUST_CALL_REC.

TABLES: ZCUST_CALL_REC,ZREMARKS.

data: v_kun_low like ZCUST_CALL_REC-kunnr ,

v_kun_high like ZCUST_CALL_REC-kunnr,

v_bud_low like ZCUST_CALL_REC-budat,

v_bud_high like ZCUST_CALL_REC-budat.

ranges r_kunnr for ZCUST_CALL_REC-kunnr .

ranges r_budat for zcust_call_rec-budat.

DATA: ITAB TYPE STANDARD TABLE OF ZCUST_CALL_REC WITH HEADER LINE,

JTAB TYPE STANDARD TABLE OF ZREMARKS WITH HEADER LINE.

*data:begin of itab occurs 0,

• MANDT LIKE ZCUST_CALL_REC-MANDT,

• kunnr like ZCUST_CALL_REC-kunnr,

• budat like ZCUST_CALL_REC-budat,

• code like ZCUST_CALL_REC-code,

• remarks like ZCUST_CALL_REC-remarks,

• end of itab.

*data:begin of Jtab occurs 0,

• MANDT LIKE ZCUST_CALL_REC-MANDT,

• kunnr like ZCUST_CALL_REC-kunnr,

• budat like ZCUST_CALL_REC-budat,

• code like ZCUST_CALL_REC-code,

• remarks like ZCUST_CALL_REC-remarks,

• end of Jtab.

*

CONTROLS:vcontrol TYPE TABLEVIEW USING SCREEN '9001'.

CONTROLS:vcontrol1 TYPE TABLEVIEW USING SCREEN '9002'.

*start-of-selection.

&----

---

*& Module USER_COMMAND_9000 INPUT

&----

---

• text

----

---

MODULE USER_COMMAND_9000 INPUT.

CASE sy-ucomm.

WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.

SET SCREEN 0.

LEAVE SCREEN.

CLEAR sy-ucomm.

WHEN 'ENQUIRY'.

• perform multiple_selection.

perform append_CUSTOMER_code.

PERFORM SELECT_DATA.

call screen '9001'.

WHEN 'UPDATE'.

perform append_CUSTOMER_code.

PERFORM SELECT_DATA.

call screen '9002'.

perform update on commit.

WHEN 'DELETE'.

perform append_CUSTOMER_code.

PERFORM SELECT_DATA.

call screen '9002'.

ENDCASE.

ENDMODULE. " USER_COMMAND_9000 INPUT

&----

---

*& Module STATUS_9000 OUTPUT

&----

---

• text

----

---

MODULE STATUS_9000 OUTPUT.

SET PF-STATUS 'ZCUSTOMER'.

• SET TITLEBAR 'xxx'.

ENDMODULE. " STATUS_9000 OUTPUT

&----

---

*& Module USER_COMMAND_9001 INPUT

&----

---

• text

----

---

MODULE USER_COMMAND_9001 INPUT.

CASE sy-ucomm.

WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.

SET SCREEN 0.

LEAVE SCREEN.

CLEAR sy-ucomm.

endcase.

ENDMODULE. " USER_COMMAND_9001 INPUT

&----

---

*& Module STATUS_9001 OUTPUT

&----

---

• text

----

---

MODULE STATUS_9001 OUTPUT.

SET PF-STATUS 'ZCUSTOMER'.

• SET TITLEBAR 'xxx'.

move itab-MANDT to zcust_call_rec-MANDT.

move itab-kunnr to zcust_call_rec-kunnr.

move itab-budat to zcust_call_rec-budat.

move itab-code to zcust_call_rec-code.

move itab-remarks to zcust_call_rec-remarks.

vcontrol-lines = sy-dbcnt.

ENDMODULE. " STATUS_9001 OUTPUT

&----

---

*& Module USER_COMMAND_9002 INPUT

&----

---

• text

----

---

module USER_COMMAND_9002 input.

CASE sy-ucomm.

WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.

SET SCREEN 0.

LEAVE SCREEN.

CLEAR sy-ucomm.

WHEN 'UPDATE'.

perform move_data.

UPDATE ZCUST_CALL_REC FROM TABLE ITAB.

IF SY-SUBRC = 0.

MESSAGE I000(0) WITH 'RECORDS ARE UPDATED'.

ELSE.

MESSAGE E001(0) WITH 'RECORDS ARE NOT UPDATED'.

ENDIF.

WHEN 'DELETE'.

perform move_data.

DELETE ZCUST_CALL_REC FROM TABLE ITAB.

IF SY-SUBRC = 0.

MESSAGE I000(0) WITH 'RECORDS ARE DELETED'.

ELSE.

MESSAGE E001(0) WITH 'RECORDS ARE NOT DELETED'.

ENDIF.

endcase.

endmodule. " USER_COMMAND_9002 INPUT

&----

---

*& Module STATUS_9002 OUTPUT

&----

---

• text

----

---

module STATUS_9002 output.

SET PF-STATUS 'ZCUSTOMER1'.

• SET TITLEBAR 'xxx'.

endmodule. " STATUS_9002 OUTPUT

&----

---

*& Module update_table OUTPUT

&----

---

• text

----

---

module update_table output.

move itab-MANDT to zcust_call_rec-MANDT.

move itab-kunnr to zcust_call_rec-kunnr.

move itab-budat to zcust_call_rec-budat.

move itab-code to zcust_call_rec-code.

move itab-remarks to zcust_call_rec-remarks.

vcontrol-lines = sy-dbcnt.

endmodule. " update_table OUTPUT

*&----

---

&

***Selection Data

*&----

---

&

FORM SELECT_DATA.

SELECT mandt kunnr budat code remarks FROM zcust_call_rec INTO

table itab

WHERE kunnr IN r_kunnr AND BUDAT IN R_BUDAT.

ENDFORM.

**&----

---

&

****append vendor code

**&----

---

&

FORM APPEND_CUSTOMER_CODE.

clear r_kunnr.

clear itab.

clear r_budat.

refresh r_kunnr.

refresh itab.

refresh r_kunnr.

IF r_kunnr IS INITIAL

AND NOT v_kun_low IS INITIAL

AND NOT v_kun_high IS INITIAL.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = v_kun_low

IMPORTING

OUTPUT = r_kunnr-low.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = v_kun_high

IMPORTING

OUTPUT = r_kunnr-high.

r_kunnr-option = 'BT'.

r_kunnr-sign = 'I'.

append r_kunnr.

PERFORM V_BUDAT.

ELSEIF r_kunnr IS INITIAL

AND NOT v_kun_low IS INITIAL

AND v_kun_high IS INITIAL.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = v_kun_low

IMPORTING

OUTPUT = r_kunnr-low.

r_kunnr-SIGN = 'I'.

r_kunnr-OPTION = 'EQ'.

APPEND r_kunnr.

PERFORM V_BUDAT.

ELSEIF r_kunnr IS INITIAL

AND v_kun_low IS INITIAL

AND NOT v_kun_high IS INITIAL.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = v_kun_low

IMPORTING

OUTPUT = r_kunnr-low.

r_kunnr-SIGN = 'I'.

r_kunnr-OPTION = 'EQ'.

APPEND r_kunnr.

PERFORM V_BUDAT.

ELSEIF r_kunnr IS INITIAL

AND v_kun_low IS INITIAL

AND v_kun_high IS INITIAL.

IF SY-SUBRC = 0.

MESSAGE I003(0) WITH 'ENTER CUSTOMER NUMBER'.

CALL SCREEN '9000'.

ENDIF.

PERFORM V_BUDAT.

ENDIF.

ENDFORM.

FORM V_BUDAT.

IF R_BUDAT IS INITIAL

AND NOT v_BUD_low IS INITIAL

AND NOT v_BUD_high IS INITIAL.

r_budat-low = v_bud_low.

r_budat-high = v_bud_high.

r_budat-option = 'BT'.

r_budat-sign = 'I'.

append r_budat.

ELSEIF R_BUDAT IS INITIAL

AND NOT v_BUD_low IS INITIAL

AND v_BUD_high IS INITIAL.

r_budat-low = v_bud_low.

r_budat-high = v_bud_high.

r_budat-option = 'EQ'.

r_budat-sign = 'I'.

append r_budat.

ELSEIF R_BUDAT IS INITIAL

AND v_BUD_low IS INITIAL

AND NOT v_BUD_high IS INITIAL.

r_budat-HIGH = v_bud_HIGH.

r_budat-option = 'EQ'.

r_budat-sign = 'I'.

append r_budat.

ELSEIF R_BUDAT IS INITIAL

AND v_BUD_low IS INITIAL

AND v_BUD_high IS INITIAL.

IF SY-SUBRC = 0.

MESSAGE I002(0) WITH 'ENTER POSTING DATE'.

CALL SCREEN '9000'.

• r_budat-low = ''.

• r_budat-option = ''.

• r_budat-sign = ''.

ENDIF.

ENDIF.

ENDFORM.

&----

---

*& Form update

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form update .

commit work.

endform. " update

&----

---

*& Form move_data

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form move_data .

clear itab.

• refresh itab.

• move-corresponding zcust_call_rec to itab.

MOVE ZCUST_CALL_REC-MANDT TO ITAB-MANDT.

MOVE ZCUST_CALL_REC-KUNNR TO ITAB-KUNNR.

MOVE ZCUST_CALL_REC-BUDAT TO ITAB-BUDAT.

MOVE ZCUST_CALL_REC-CODE TO ITAB-CODE.

MOVE ZCUST_CALL_REC-REMARKS TO ITAB-REMARKS.

APPEND ITAB.

delete itab where kunnr is initial.

[Former Member]

Hi,

try to use

start-of-selection.

call screen 100.

module pai input.

endmodule

<b>Reward points</b>

Regards

[jayanthi_jayaraman]

Hi,

Check the ztable whether some of the records are updated.sy-subrc can be 4, even if one statement failed to be updated.Try use modify statement, so if records are there already in database,it will update.Otherwise, it will insert.

[Former Member]

hi

I am not getting data from screen fields to internal table(itab), when I press update.

and where I want to use the commit work in code for updatation.

thanks in advance

vidya.

[former_member219399]

Hi,

declare the variable ZCUST_CALL_REC as tables parameeter. it will solve the problem.

with regards,

Vamsi

ex:

tables ZCUST_CALL_REC.