Hi Lucas,
Good Morning...
See this code it will help you...
PROCESS BEFORE OUTPUT.
MODULE STATUS_1000.
module tc_row_fix.
loopat it_sflight into wa_sflight
withcontrol tc cursor tc-current_line.
endloop.
PROCESS AFTER INPUT.
moduleclear.
loopat it_sflight.
chain.
field wa_sflight-CARRID.
field wa_sflight-CONNID.
field wa_sflight-FLDATE.
field wa_sflight-PRICE.
field wa_sflight-CURRENCY.
field wa_sflight-PLANETYPE.
field wa_sflight-SEATSMAX.
field wa_sflight-SEATSOCC.
field wa_sflight-PAYMENTSUM.
field wa_sflight-SEATSMAX_B.
field wa_sflight-SEATSOCC_B.
field wa_sflight-SEATSMAX_F.
field wa_sflight-SEATSOCC_F.
field wa_sflight-RAM.
moduleappend.
endchain.
endloop.
MODULE USER_COMMAND_1000.
Program
TYPE-POOLS : vrm.
TABLES : sflight.
CONTROLS tc TYPE TABLEVIEW USINGSCREEN1000.
DATA: linesTYPEi. " To display right scrolling
DATA : tc_lines LIKE sy-loopc,
tc_cur_line LIKE sy-loopc.
TYPES: BEGINOF ty_final,
carrid TYPE sflight-carrid,
connid TYPE sflight-connid,
fldate TYPE sflight-fldate,
price TYPE sflight-price,
currency TYPE sflight-currency,
planetype TYPE sflight-planetype,
seatsmax TYPE sflight-seatsmax,
seatsocc TYPE sflight-seatsocc,
paymentsum TYPE sflight-paymentsum,
seatsmax_b TYPE sflight-seatsmax_b,
seatsocc_b TYPE sflight-seatsocc_b,
seatsmax_f TYPE sflight-seatsmax_f,
seatsocc_f TYPE sflight-seatsocc_f,
ram TYPEc,
ENDOF ty_final.
DATA : it_sflight TYPETABLEOF ty_final,
wa_sflight TYPE ty_final.
DATA : it_final TYPETABLEOF sflight,
wa_final TYPE sflight.
CALLSCREEN'1000'.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_1000 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_1000 INPUT.
CASE sy-ucomm.
WHEN'SAVE'.
CLEAR wa_sflight.
LOOPAT it_sflight INTO wa_sflight.
MOVE-CORRESPONDING wa_sflight TO wa_final.
APPEND wa_final TO it_final.
ENDLOOP.
MODIFY sflight FROMTABLE it_final.
CLEAR: it_final.
WHEN'GET'.
CLEAR it_sflight.
SELECT * FROM sflight INTOTABLE it_final upto1000rows.
LOOPAT it_final INTO wa_final.
MOVE-CORRESPONDING wa_final TO wa_sflight.
APPEND wa_sflight TO it_sflight.
ENDLOOP.
WHEN'DELROW'.
CLEAR wa_final.
lOOPAT it_sflight INTO wa_sflight WHEREram = 'X'.
DELETEFROM sflight WHERE carrid = wa_sflight-carrid AND
connid = wa_sflight-connid AND
fldate = wa_sflight-fldate.
CLEAR wa_sflight.
ENDLOOP.
delete it_sflight whereram = 'X'.
when'CLEAR'.
CLEAR IT_SFLIGHT.
CALLSCREEN1000.
WHEN'BACK'.
LEAVEPROGRAM.
WHENOTHERS.
ENDCASE.
ENDMODULE. " USER_COMMAND_1000 INPUT
*&---------------------------------------------------------------------*
*& Module STATUS_1000 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_1000 OUTPUT.
SET PF-STATUS 'PF1000'.
SETTITLEBAR'Table Control'.
DESCRIBETABLE it_sflight LINESlines. " To display right scrolling
tc-lines = lines. " To display right scrolling
ENDMODULE. " STATUS_1000 OUTPUT
*&---------------------------------------------------------------------*
*& Module append INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULEappendINPUT.
APPEND wa_sflight TO it_sflight.
CLEAR wa_sflight.
ENDMODULE. " append INPUT
*&---------------------------------------------------------------------*
*& Module clear INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULEclearINPUT.
CLEAR it_sflight.
ENDMODULE. " clear INPUT
*&---------------------------------------------------------------------*
*& Module tc_row_fix OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module tc_row_fix output.
WHILE tc-lines<= 8.
if sy-ucomm = 'ADDROW'.
tc-lines = lines( it_sflight ) + 1.
endif.
EXIT.
ENDWHILE.
endmodule. " tc_row_fix OUTPUT
Out put
Deleted
Regards,
Ramesh.T