Hi Krupa Shenkar,
See this Example Module Pool Program it may hap you
Screen 9001
process before output.
loopat it_final into wa_final withcontrol vcontrol cursor
vcontrol-current_line.
endloop.
module status_9001.
*
process after input.
*chain.
field rollno.
*endchain.
loopat it_final.
chain.
field wa_final-name.
field wa_final-age.
field wa_final-gropu.
field wa_final-marks1.
field wa_final-marks2.
field wa_final-marks3.
field wa_final-tot.
module wa_final.
endchain.
endloop.
module user_command_9001.
Table:
Program:
TABLES : zram1,.
DATA : wa_final TYPE zram1.
DATA : it_final TYPETABLEOF zram1.
DATA : rollno TYPE zram1-rollno.
CONTROLS: vcontrol TYPE TABLEVIEW USINGSCREEN9001.
CALLSCREEN9001.
*&---------------------------------------------------------------------*
*& Module STATUS_9001 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_9001 OUTPUT.
SET PF-STATUS '9001'.
SETTITLEBAR'9001'.
ENDMODULE. " STATUS_9001 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_9001 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_9001 INPUT.
CASE sy-ucomm.
WHEN'CREATE'.
MODIFY zram1 FROMTABLE it_final.
CLEAR it_final.
CLEAR rollno.
IF sy-subrc = 0.
MESSAGE : 'CREATED....'TYPE'S'.
ENDIF.
WHEN'DISPLAY'.
SELECT * FROM zram1 INTOTABLE it_final WHERE rollno = rollno.
WHEN'UPDATE'.
MODIFY zram1 FROMTABLE it_final.
CLEAR it_final.
CLEAR rollno.
IF sy-subrc = 0.
MESSAGE : 'UPDATED....'TYPE'S'.
ENDIF.
WHEN'DELETE'.
DELETE zram1 FROMTABLE it_final.
CLEAR it_final.
CLEAR rollno.
IF sy-subrc = 0.
MESSAGE : 'DELETED....'TYPE'S'.
ENDIF.
WHEN'EXIT'.
LEAVEPROGRAM.
WHENOTHERS.
ENDCASE.
ENDMODULE. " USER_COMMAND_9001 INPUT
*&---------------------------------------------------------------------*
*& Module wa_final INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE wa_final INPUT.
wa_final-rollno = rollno.
APPEND wa_final TO it_final.
ENDMODULE. " wa_final INPUT
Output
Regards,
Ramesh.T