Dear Vinod,
This is the table control structure am using in my program with line selector column 'marked':
data: begin of it_dep OCCURS 0,
marked,
deptid type zdeptid,
deptdesc type zdeptdesc,
end of it_dep.
Following is the screen shot of my table control in screen in which i have marked w/SelColumn and assingned a field to it.
But still my problem is there in the output
Pls help me in solving this.
Regards,
Rithika.
- SAP Managed Tags:
PLEASE FOLLOW THE CODE SPECIALLY MODIFY CODE
report ZTESTM.
TYPE-POOLS: vrm.
CONTROLS tbl TYPE TABLEVIEW USING SCREEN '0100'.
TYPES : BEGIN OF ty_final,
flag(1),
srno TYPE i,
END OF ty_final.
DATA : it_final TYPE STANDARD TABLE OF ty_final,
wa_final TYPE ty_final,
count TYPE I.
CALL SCREEN 100.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module status_0100 output.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.
endmodule. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module user_command_0100 input.
endmodule. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Module UPDATE_TABLE_MODIFY INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module update_table_modify input.
CLEAR : count.
DESCRIBE TABLE it_final LINES COUNT.
IF tbl-current_line NE COUNT AND
tbl-current_line GE COUNT.
APPEND wa_final TO it_final.
ELSE.
MODIFY it_final FROM wa_final INDEX tbl-current_line.
ENDIF.
CLEAR wa_final.
endmodule. " UPDATE_TABLE_MODIFY INPUTreport ZTESTM.
TYPE-POOLS: vrm.
CONTROLS tbl TYPE TABLEVIEW USING SCREEN '0100'.
TYPES : BEGIN OF ty_final,
flag(1),
srno TYPE i,
END OF ty_final.
DATA : it_final TYPE STANDARD TABLE OF ty_final,
wa_final TYPE ty_final,
count TYPE I.
CALL SCREEN 100.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module status_0100 output.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.
endmodule. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module user_command_0100 input.
CASE SY-UCOMM.
WHEN 'DELETE'.
DELETE IT_FINAL WHERE FLAG = 'X'."SELECTED VALUES in TABLE CONTEROL DELETE IS COMMAND assign on it
ENDCASE.
endmodule. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Module UPDATE_TABLE_MODIFY INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module update_table_modify input.
CLEAR : count.
DESCRIBE TABLE it_final LINES COUNT.
IF tbl-current_line NE COUNT AND
tbl-current_line GE COUNT.
APPEND wa_final TO it_final.
ELSE.
MODIFY it_final FROM wa_final INDEX tbl-current_line.
ENDIF.
CLEAR wa_final.
endmodule. " UPDATE_TABLE_MODIFY INPUT
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
LOOP AT IT_FINAL INTO WA_FINAL WITH CONTROL tbl
CURSOR tbl-CURRENT_LINE.
ENDLOOP.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
LOOP AT IT_FINAL.
CHAIN.
FIELD WA_FINAL-flag.
FIELD WA_FINAL-srno.
*** Modify Table According to User Requirement
MODULE UPDATE_TABLE_MODIFY ON CHAIN-REQUEST.
ENDCHAIN.
ENDLOOP.
SCREENN CODE
- SAP Managed Tags:
