Hi,
refer the following code :
DATA:
BEGIN OFit_dataOCCURS0,
header1TYPEchar50,
header2TYPEchar50,
arbgbTYPEt100-arbgb,
msgnrTYPEt100-msgnr,
textTYPEt100-text,
END OFit_data.
*ALV Declarations
TYPE-POOLS:slis.
TYPES:
ty_fieldcat TYPEslis_fieldcat_alv,
ty_events TYPEslis_alv_event,
ty_layout TYPEslis_layout_alv.
DATA:
wa_fieldcat TYPEty_fieldcat,
wa_events TYPEty_events,
wa_layout TYPEty_layout.
DATA:
it_events TYPE STANDARD TABLE OFty_events,
it_fieldcat TYPE STANDARD TABLE OFty_fieldcat.
DATA:
g_program TYPEsy-repid.
START-OF-SELECTION.
SELECT*FROMt100INTOCORRESPONDING FIELDS OFTABLEit_data
UPTO20ROWSWHEREsprsl=sy-langu.
*Fieldcatalog.
PERFORMfieldcatalog USING: "Field Lengths
11'HEADER1''IT_DATA''HEADER1''30',
12'HEADER2''IT_DATA''HEADER2''73',
23'ARBGB' 'IT_DATA''ARBGB' '20',
24'MSGNR' 'IT_DATA''MSGNR' '10',
25'TEXT' 'IT_DATA''TEXT' '73'.
wa_layout-info_fieldname='COLOR'.
g_program=sy-repid.
CALL FUNCTION'REUSE_ALV_LIST_DISPLAY'
EXPORTING
i_callback_program=g_program
is_layout =wa_layout
it_fieldcat =it_fieldcat
it_events =it_events
TABLES
t_outtab =it_data
EXCEPTIONS
program_error =1
OTHERS =2.
*&---------------------------------------------------------------------*
*& Form FIELDCATALOG
*&---------------------------------------------------------------------*
FORMfieldcatalogUSINGrow_poscol_posfieldtablef_txtoutputlen.
wa_fieldcat-row_pos =row_pos.
wa_fieldcat-col_pos =col_pos.
wa_fieldcat-fieldname=field.
wa_fieldcat-tabname =table.
wa_fieldcat-seltext_l=f_txt.
wa_fieldcat-outputlen=outputlen.
APPENDwa_fieldcatTOit_fieldcat.
CLEAR wa_fieldcat.
ENDFORM. " FIELDCATALOG
thanks!!!