Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

module pool program

Former Member
0 Kudos

hi,

i have created a module pool program ( for the first time!!) which has 2 screens 100 and 200.there is a employee table 'ztabemp'.screen 100 has dlete save and add buttons.the delete command tht i have written in the code doesnt work also i need help in knwowing how to tranfers data from screen 200 into tablecontrol in screen 100.

kindly help me out !.

&----


*& Module pool ZEMPMP *

*& *

&----


*& *

*& *

&----


PROGRAM ZEMPMP MESSAGE-ID zz .

&----


*& Module STATUS_0100 OUTPUT

&----


  • text

----


***********************************************************************

  • Tables Declaration

***********************************************************************

tables ztabemp.

***********************************************************************

  • Internal table Declaration

***********************************************************************

data : lt_ztabemp type standard table of ztabemp with header line.

***********************************************************************

  • Table control Declaration

***********************************************************************

CONTROLS TC_EMPLOYEE TYPE TABLEVIEW USING SCREEN 0100.

&----


*& Module GET_DATA OUTPUT

&----


*Populating Data.

----


MODULE GET_DATA OUTPUT.

SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_zTABEMP

FROM ZTABEMP.

ENDMODULE. " GET_DATA OUTPUT

&----


*& Module set_status OUTPUT

&----


  • Setting the GUI status

----


module STATUS_0100 output.

  • SET PF-STATUS 'xxxxxxxx'.

  • SET TITLEBAR 'xxx'.

ZTABEMP = LT_ZTABEMP.

endmodule. " STATUS_0100 OUTPUT

&----


*& Module USER_COMMAND_0100 INPUT

&----


  • text

----


module USER_COMMAND_0100 input.

SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_zTABEMP

FROM ZTABEMP.

data :LV_FCODE LIKE SY-UCOMM,

LV_ANSWER(1) TYPE C,

FLG.

  • LV_FCODE = SY-UCOMM.

  • CASE LV_FCODE.

CASE SY-UCOMM.

WHEN 'DELETE'.

FLG = 'Y'.

CALL FUNCTION 'POPUP_TO_CONFIRM'

EXPORTING

TITLEBAR = 'CONFIRM '

  • DIAGNOSE_OBJECT = ' '

text_question = 'ARE YOU SURE TO DELETE FROM DATABASE?'

TEXT_BUTTON_1 = 'YES'(001)

  • ICON_BUTTON_1 = ' '

TEXT_BUTTON_2 = 'NO'(002)

  • ICON_BUTTON_2 = ' '

  • DEFAULT_BUTTON = '1'

  • DISPLAY_CANCEL_BUTTON = 'X'

  • USERDEFINED_F1_HELP = ' '

  • START_COLUMN = 25

  • START_ROW = 6

  • POPUP_TYPE =

  • IV_QUICKINFO_BUTTON_1 = ' '

  • IV_QUICKINFO_BUTTON_2 = ' '

IMPORTING

ANSWER = LV_ANSWER.

  • TABLES

  • PARAMETER =

  • EXCEPTIONS

  • TEXT_NOT_FOUND = 1

  • OTHERS = 2

.

IF sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

IF LV_ANSWER EQ '1'.

UPDATE ZTABEMP FROM LT_ZTABEMP.

DELETE LT_ZTABEMP WHERE PICK = 'X'.

DELETE FROM ZTABEMP WHERE PICK = 'X'.

MESSAGE s005(100) WITH 'DELETED SUCCESSFULLY!'.

ENDIF.

leave program.

when 'EXIT'.

leave program.

when 'ADD'.

leave to screen 0200.

WHEN 'SAVE'.

MODIFY ZTABEMP FROM TABLE LT_ZTABEMP.

MESSAGE s005 WITH 'SAVED SUCCESSFULLY!'.

endcase.

endmodule.

&----


*& Module USER_COMMAND_0200 INPUT

&----


  • text

----


module USER_COMMAND_0200 input.

CASE SY-UCOMM.

WHEN 'SAVE'.

LT_ZTABEMP-EMPID = ZTABEMP-EMPID.

LT_ZTABEMP-TITLE = ZTABEMP-TITLE.

LT_ZTABEMP-FNAME = ZTABEMP-FNAME.

LT_ZTABEMP-MNAME = ZTABEMP-MNAME.

LT_ZTABEMP-LNAME = ZTABEMP-LNAME.

LT_ZTABEMP-AG = ZTABEMP-AG.

LT_ZTABEMP-DU = ZTABEMP-DU.

LT_ZTABEMP-DESIG = ZTABEMP-DESIG .

LT_ZTABEMP-PRIM_SKILL = ZTABEMP-PRIM_SKILL.

LT_ZTABEMP-JOIN_DATE = ZTABEMP-JOIN_DATE.

LT_ZTABEMP-EMAIL = ZTABEMP-EMAIL.

LT_ZTABEMP-TEL1 = ZTABEMP-TEL1.

LT_ZTABEMP-TEL2 = ZTABEMP-TEL2.

MODIFY ZTABEMP FROM TABLE LT_ZTABEMP.

LEAVE TO SCREEN 0100.

ENDCASE.

endmodule. " USER_COMMAND_0200 INPUT

&----


*& Module STATUS_0200 OUTPUT

&----


  • text

----


module STATUS_0200 output.

  • SET PF-STATUS 'xxxxxxxx'.

  • SET TITLEBAR 'xxx'.

endmodule. " STATUS_0200 OUTPUT

2 REPLIES 2

Former Member
0 Kudos

Hi

Rohan

can u tell me wht the problem u r getting right now if u explain it then we can go through the code ok

regards

Sunil Kumar Mutyala

0 Kudos

hi,

firstly thanks

the problem is dat i have to add a row in the table using table control.the data is to be enterd in screen 200 and then once i save it the updated table shud appear in the table control on screen 100.

the problem with the delete funtion is tht i have used the POP function 'POPUP_TO_CONFIRM' but it does not appear and the data does not get deleted.

Regards,

Rohan