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

Former Member — Tue, 17 Jul 2007 06:57:54 GMT

&----

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

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.

topic Re: update statement is not working. module pool program,why? check this code in Application Development and Automation Discussions

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

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

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

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

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