Simple ALV Display

Create Simple ALV Display 

      1.  Goto Tcode SE38

           

       2.     Input Program Name ZDEMO and Click Create  Button

 

      3. 1.       Fill like the Example and Save - Local

4.   In Abap Editor, Type like Below :

*&---------------------------------------------------------------------*
*& Report ZDEMO
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZDEMO.

TABLES ZDEMO.
TYPE-POOLS: slis.

TYPES : BEGIN OF TY_DEMO,
ZPERNR TYPE ZDEMO-ZPERNR,
BEGDA TYPE ZDEMO-BEGDA,
NACHN TYPE ZDEMO-NACHN,
STRAS TYPE ZDEMO-STRAS,
ORT01 TYPE ZDEMO-ORT01,
PSTLZ TYPE ZDEMO-PSTLZ,
TELNR TYPE ZDEMO-TELNR,
END OF TY_DEMO.

DATA : IT_DEMO TYPE TABLE OF TY_DEMO,
WA_DEMO TYPE TY_DEMO.

DATA: fieldcatalog type slis_t_fieldcat_alv with header line,
gd_repid like sy-repid,
gd_layout type slis_layout_alv.

START-OF-SELECTION.

SELECT * FROM ZDEMO INTO CORRESPONDING FIELDS OF TABLE IT_DEMO.

END-OF-SELECTION.


fieldcatalog-fieldname = 'ZPERNR'.
fieldcatalog-seltext_m = 'Personal No'.
fieldcatalog-col_pos = 0.
fieldcatalog-outputlen = 10.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.

fieldcatalog-fieldname = 'BEGDA'.
fieldcatalog-seltext_m = 'Start Date'.
fieldcatalog-col_pos = 1.
fieldcatalog-outputlen = 10.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.

fieldcatalog-fieldname = 'NACHN'.
fieldcatalog-seltext_m = 'Last Name'.
fieldcatalog-col_pos = 2.
fieldcatalog-outputlen = 10.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.

fieldcatalog-fieldname = 'STRAS'.
fieldcatalog-seltext_m = 'House number and street'.
fieldcatalog-col_pos = 3.
fieldcatalog-outputlen = 10.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.

fieldcatalog-fieldname = 'ORT01'.
fieldcatalog-seltext_m = 'City'.
fieldcatalog-col_pos = 4.
fieldcatalog-outputlen = 10.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.


fieldcatalog-fieldname = 'PSTLZ'.
fieldcatalog-seltext_m = 'Postal Code'.
fieldcatalog-col_pos = 5.
fieldcatalog-outputlen = 10.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.

fieldcatalog-fieldname = 'TELNR'.
fieldcatalog-seltext_m = 'Telephone Number'.
fieldcatalog-col_pos = 6.
fieldcatalog-outputlen = 10.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.


gd_repid = sy-repid.
call function 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = gd_repid
* i_callback_top_of_page = 'TOP-OF-PAGE' "see FORM
is_layout = gd_layout
it_fieldcat = fieldcatalog[]
* it_sort = it_sort[]
i_save = 'X'
TABLES
t_outtab = it_DEMO
EXCEPTIONS
program_error = 1
others = 2.

if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.



5. Save and Activate.

6. Run