ALV List display

*&---------------------------------------------------------------------*
*& Report  Ysap_ALV_LIST_DISPLAY
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ysap_alv_list_display.


TYPE-POOLS: slis.

TABLES: pa0002.




data: tfcat type slis_t_fieldcat_alv,
      wfcat type slis_fieldcat_alv.

DATA: BEGIN OF stru,
      pernr type pa0002-pernr,
      vorna type pa0002-vorna,
      nachn type pa0002-nachn,
      begda type pa0002-begda,
      endda type pa0002-endda,
      GBDAT type pa0002-GBDAT,
      NATIO type pa0002-NATIO,
      end of stru.

data: itab like table of stru initial size 0,
      wtab like stru.

SELECT-OPTIONS : pernr FOR pa0002-pernr.

start-of-selection.

select * from pa0002 into corresponding fields of table itab where pernr in pernr.

end-of-selection.

clear wfcat.

wfcat-fieldname = 'PERNR'.
wfcat-tabname   = 'ITAB'.
wfcat-seltext_m = 'Personnel number'.
append wfcat to tfcat.
clear wfcat.

wfcat-fieldname = 'VORNA'.
wfcat-tabname   = 'ITAB'.
wfcat-seltext_m = 'First name'.
append wfcat to tfcat.
Clear wfcat.

wfcat-fieldname = 'NACHN'.
wfcat-tabname   = 'ITAB'.
wfcat-seltext_m = 'Last name'.
append wfcat to tfcat.
clear wfcat.

wfcat-fieldname = 'BEGDA'.
wfcat-tabname   = 'ITAB'.
wfcat-seltext_m = 'Begin date'.
append wfcat to tfcat.
clear wfcat.

wfcat-fieldname = 'ENDDA'.
wfcat-tabname   = 'ITAB'.
wfcat-seltext_m = 'End date'.
append wfcat to tfcat.
clear wfcat.

wfcat-fieldname = 'GBDAT'.
wfcat-tabname   = 'ITAB'.
wfcat-seltext_m = 'DOB'.
append wfcat to tfcat.
clear wfcat.

wfcat-fieldname = 'NATIO'.
wfcat-tabname   = 'ITAB'.
wfcat-seltext_m = 'Nationality'.
append wfcat to tfcat.
Clear wfcat.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
*   I_INTERFACE_CHECK                          = ' '
*   I_BYPASSING_BUFFER                         =
*   I_BUFFER_ACTIVE                                 = ' '
   I_CALLBACK_PROGRAM                       = sy-repid
*   I_CALLBACK_PF_STATUS_SET           = ' '
*   I_CALLBACK_USER_COMMAND       = ' '
*   I_STRUCTURE_NAME                           =
*   IS_LAYOUT                                             =
   IT_FIELDCAT                                            = tfcat
*   IT_EXCLUDING                                      =
*   IT_SPECIAL_GROUPS                           =
*   IT_SORT                                                  =
*   IT_FILTER                                                =
*   IS_SEL_HIDE                                           =
*   I_DEFAULT                                              = 'X'
*   I_SAVE                                                     = ' '
*   IS_VARIANT                                            =
*   IT_EVENTS                                             =
*   IT_EVENT_EXIT                                     =
*   IS_PRINT                                                =
*   IS_REPREP_ID                                       =
*   I_SCREEN_START_COLUMN              = 0
*   I_SCREEN_START_LINE                      = 0
*   I_SCREEN_END_COLUMN                 = 0
*   I_SCREEN_END_LINE                          = 0
*   IR_SALV_LIST_ADAPTER                    =
*   IT_EXCEPT_QINFO                               =
*   I_SUPPRESS_EMPTY_DATA                 = ABAP_FALSE
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER              =
  TABLES
    t_outtab                                                      = itab
* 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.

 Enter the personnel numbers;

 

Output: