topic Re: module pool programming in Application Development and Automation Discussions

module pool programming

Former Member — Fri, 15 Dec 2006 14:37:10 GMT

hi, i am in assignment as a fresher, in that i need to code for module pool programing with table controls.

I am getting no errors, and getting the scrren after using trasaction code what the thing , if i try to insert any data, its giving not inserted message.i am sending the code can any one help me.

----

***INCLUDE ZSAINPUTSCREEN_USER_COMMANDI01 .

----

&----

*& Module USER_COMMAND_0100 INPUT

&----

text

----

TABLES: ZSAORDERS.

DATA: IT_ITAB LIKE ZSAORDERS OCCURS 0 WITH HEADER LINE.

CONTROLS: VCONTROL TYPE TABLEVIEW USING SCREEN '100'.

module USER_COMMAND_0100 input.

CASE SY-UCOMM.

WHEN 'INSERT'.

MOVE ZSAORDERS TO IT_ITAB. " SCREEN FIELDS TO WORKAREA

APPEND IT_ITAB. " WORK AREA TO BODY.

INSERT INTO ZSAORDERS VALUES IT_ITAB. " INTO DATA BASE.

IF SY-SUBRC = 0.

MESSAGE I000(0) WITH 'INSERTED'.

ELSE.

MESSAGE I000(0) WITH 'NOT INSERTED'.

ENDIF.

WHEN 'UPDATE'.

MOVE ZSAORDERS TO IT_ITAB.

APPEND IT_ITAB.

UPDATE ZSAORDERS FROM TABLE IT_ITAB.

IF SY-SUBRC = 0.

MESSAGE I000(0) WITH 'INSERTED'.

ELSE.

MESSAGE I000(0) WITH 'NOT INSERTED'.

ENDIF.

ENDCASE.

endmodule. " USER_COMMAND_0100 INPUT

PROCESS BEFORE OUTPUT.

LOOP AT IT_ITAB WITH CONTROL VCONTROL.

MODULE STATUS_0100.

ENDLOOP.

PROCESS AFTER INPUT.

MODULE USER_COMMAND_0100.

LOOP AT IT_ITAB.

ENDLOOP .

MODULE USER_EXIT.

----

***INCLUDE ZSAINPUTSCREEN_STATUS_0100O01 .

----

&----

*& Module STATUS_0100 OUTPUT

&----

text

----

module STATUS_0100 output.

MOVE-CORRESPONDING IT_ITAB TO ZSAORDERS.

SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.

endmodule. " STATUS_0100 OUTPUT

thanks in advance.

sarath

Re: module pool programming

Former Member — Fri, 15 Dec 2006 14:40:01 GMT

The message might be displayed on the status bar at the bottom of your screen.

Jsut to make sure, repeat the MESSAGE statement one more time and you should be able to see a popup..

regards,

Ravi

Re: module pool programming

Former Member — Fri, 15 Dec 2006 14:41:53 GMT

thanks for u r replay

i am not able to insert the data.

giving message like not inserted.

is coding is write or wrong

Re: module pool programming

Former Member — Fri, 15 Dec 2006 14:44:41 GMT

Then you might be trying to insert a duplicate key in the table. Just make sure that the data you are not inserting duplicates. Check the table once for existing data.

Regards,

Ravi

Note - Please mark all the helpful answers

Re: module pool programming

Former Member — Fri, 15 Dec 2006 14:50:47 GMT

Hi,

try using INSERT ZSAORDERS FROM TABLE IT_ITAB.

instead of INSERT INTO ZSAORDERS VALUES IT_ITAB.

Re: module pool programming

Former Member — Fri, 15 Dec 2006 14:55:30 GMT

its giving error,

i had given data which is not there in the data base then also its giving same msg

Re: module pool programming

Former Member — Fri, 15 Dec 2006 15:06:40 GMT

Hi Sarath,

Chk the SY-SUBRC check for UPDATE , may be one of ur lines of ITAB does not match with the primary key of Database table

SY-SUBRC = 0:

All lines from itab could be used to update the database table.

SY-SUBRC = 4:

At least one line of the internal table itab in the database table had no line with the same primary key. The other lines of the database table were updated.

Re: module pool programming

Former Member — Fri, 15 Dec 2006 15:16:07 GMT

Hi,

declares these things in the top incklude . I don't how you are able to activate with declaring then in the module.

TABLES: ZSAORDERS.

DATA: IT_ITAB LIKE ZSAORDERS OCCURS 0 WITH HEADER LINE.

CONTROLS: VCONTROL TYPE TABLEVIEW USING SCREEN '100'.

go to debug and see whether you have data

change insert to modify

WHEN 'INSERT'.

MOVE ZSAORDERS TO IT_ITAB. " SCREEN FIELDS TO WORKAREA

APPEND IT_ITAB. " WORK AREA TO BODY.

modify ZSAORDERS from table IT_ITAB. " INTO DATA BASE.

IF SY-SUBRC = 0.

MESSAGE I000(0) WITH 'INSERTED'.

ELSE.

MESSAGE I000(0) WITH 'NOT INSERTED'.

ENDIF.

Hope this helps

Thanks

Re: module pool programming

Former Member — Fri, 15 Dec 2006 15:58:10 GMT

PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
LOOP AT IT_ITAB.
ENDLOOP .

can u just make this user command place after the endloop. like this and in debugging just chk the entries putting a breakpoint.

PROCESS AFTER INPUT.

LOOP AT IT_ITAB.
ENDLOOP .

MODULE USER_COMMAND_0100.

"over here

i cant make from the code but see if the user command triggering with the data .

regards,

vijay

Re: module pool programming

Former Member — Fri, 15 Dec 2006 16:15:19 GMT

ITS SHOWING AS INSERTED BUT DATA IS NOT THERE IN DATA BASE.

Re: module pool programming

Former Member — Fri, 15 Dec 2006 16:19:29 GMT

Hi sarath,

if you use the insert command and if the record with the same primary values already exist in the data it cannot insert.

so try using modify

Thanks

Re: module pool programming

ferry_lianto — Fri, 15 Dec 2006 16:29:34 GMT

Hi Sarath,

Please check demo DEMO_DYNPRO_TABCONT_LOOP_AT perhaps it may help.

To insert to custom table from table control, you can do something like this.


...

WHEN 'INSERT'.
  READ TABLE TC-COLS INTO COL WITH KEY SCREEN-INPUT = '1'.
  IF SY-SUBRC = 0.
    LOOP AT I_BINLOC INTO ZMBINLOC WHERE ZMARK = 'X'.
      CLEAR ZMBINLOC.
      INSERT ZMBINLOC INTO I_BINLOC INDEX SY-TABIX.
    ENDLOOP.
    DESCRIBE TABLE I_BINLOC LINES TC-LINES.
  ENDIF.
...

Hope this will help.

Regards,

Ferry Lianto

Re: module pool programming

Former Member — Fri, 15 Dec 2006 16:42:48 GMT

thanks to each and every one.

i will check my DB table and coding

sarath