SAP Tutorials Blog

 


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.


Serkan AKKAVAK

Computer Engineer BSc

SAP Department Manager

Contact : serkurumsal@yandex.com