PROCESS BEFORE OUTPUT.
*&SPWIZARD: PBO FLOW LOGIC FOR TABLECONTROL 'TCL1'
MODULE TCL1_CHANGE_TC_ATTR.
*&SPWIZARD: MODULE TCL1_CHANGE_COL_ATTR.
LOOP AT IT_MARA
INTO WA_MARA
WITH CONTROL TCL1
CURSOR TCL1-CURRENT_LINE.
MODULE TCL1_GET_LINES.
*&SPWIZARD: MODULE TCL1_CHANGE_FIELD_ATTR
ENDLOOP.
MODULE STATUS_0100.
*
PROCESS AFTER INPUT.
*&SPWIZARD: PAI FLOW LOGIC FOR TABLECONTROL 'TCL1'
LOOP AT IT_MARA.
CHAIN.
FIELD WA_MARA-MATNR.
module get_mat.
FIELD WA_MARA-MAKTX.
FIELD WA_MARA-MTART.
FIELD WA_MARA-MBRSH.
FIELD WA_MARA-MATKL.
FIELD WA_MARA-MEINS.
endchain.
FIELD WA_MARA-SEL
MODULE TCL1_MARK ON REQUEST.
ENDLOOP.
MODULE TCL1_USER_COMMAND.
*&SPWIZARD: MODULE TCL1_CHANGE_TC_ATTR.
*&SPWIZARD: MODULE TCL1_CHANGE_COL_ATTR.
MODULE USER_COMMAND_0100.
-----------------
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = wa_mara-matnr
IMPORTING
OUTPUT = wa_mara-matnr
.
select single matnr
* MTART
* MBRSH
* MATKL
into wa_mara-matnr
from mara
where matnr = wa_mara-matnr.
IF sy-subrc = 0.
select single maktx from makt into wa_mara-maktx where matnr = wa_mara-matnr.
append wa_mara to it_mara.
ENDIF.
------
top include:
data: it_mara type table of ty_mara,
wa_mara type ty_mara.
*&SPWIZARD: DECLARATION OF TABLECONTROL 'TCL1' ITSELF
CONTROLS: TCL1 TYPE TABLEVIEW USING SCREEN 0100.
*&SPWIZARD: LINES OF TABLECONTROL 'TCL1'
DATA: G_TCL1_LINES LIKE SY-LOOPC.
DATA: OK_CODE LIKE SY-UCOMM.
check this..!