Skip to Content
0
Former Member
Jul 29, 2008 at 07:23 AM

deleting selected rows using table control

1527 Views

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.