Hi all,
here is my coding for deleting selected row.
But it is not working correctly.
I am able to delete seleced row.
Can anyone can help me plz...
CONTROLS rowdeleting TYPE TABLEVIEW USING SCREEN 100.
TABLES zdetails.
data : begin of itab occurs 0,
NAME TYPE ZDETAILS-NAME,
ADDRES TYPE ZDETAILS-ADDRES,
CONTACTNO TYPE ZDETAILS-CONTACTNO,
INIT TYPE C,
end of itab .
DATA OK_CODE LIKE SY-UCOMM.
CALL SCREEN 100.
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'BACK'.
IF ITAB-INIT IS INITIAL.
SELECT NAME ADDRES CONTACTNO FROM ZDETAILS
INTO CORRESPONDING FIELDS OF TABLE ITAB.
DESCRIBE TABLE ITAB LINES rowdeleting-LINES.
ITAB-INIT = 'X'.
ENDIF.
ENDMODULE. " STATUS_0100 OUTPUT
MODULE CHANGE_SDYN_CONN OUTPUT.
READ TABLE itab INTO ZDETAILS INDEX rowdeleting-current_line.
ENDMODULE. " CHANGE_SDYN_CONN OUTPUT
MODULE READ_TABLE_CONTROL INPUT.
IF ITAB-INIT = 'X' AND OK_CODE = 'DELETE'.
DELETE ITAB index rowdeleting-current_line ."FROM ZDETAILS.
DESCRIBE TABLE ITAB LINES rowdeleting-LINES.
ENDIF.
ENDMODULE. " READ_TABLE_CONTROL INPUT
MODULE USER_COMMAND_0100 INPUT.
CASE OK_CODE.
WHEN 'BACK'.
LEAVE PROGRAM.
WHEN 'DELETE'.
IF ITAB-INIT = 'X' AND OK_code = 'DELETE'.
DELETE ITAB index rowdeleting-current_line .
ENDIF.
ENDCASE.
ENDMODULE.
regards ,
ranjith.