An SAP Consultant

REPORT ZTEST.
DATA:
      BEGIN OF IT_MARD OCCURS 0,
        MATNR TYPE MARD-MATNR,
        WERKS TYPE MARD-WERKS,
        LGORT TYPE MARD-LGORT,
        LABST TYPE MARD-LABST,
      END OF IT_MARD.
TYPE-POOLS:SLIS.
DATA:IT_FIELD TYPE SLIS_T_FIELDCAT_ALV.
DATA:WA_FIELD LIKE LINE OF IT_FIELD.
DEFINE FIELDCAT.
  WA_FIELD-FIELDNAME = &1 .
  WA_FIELD-TABNAME   = &2 .
  WA_FIELD-SELTEXT_M = &3 .
  WA_FIELD-DO_SUM    = &4 .
  APPEND WA_FIELD TO IT_FIELD.
  CLEAR  WA_FIELD.
END-OF-DEFINITION.

START-OF-SELECTION.
  SELECT * 

    FROM MARD 

     INTO CORRESPONDING FIELDS OF TABLE IT_MARD 

     UP TO 100 ROWS.
  "DO_SUM
  FIELDCAT:
        'MATNR' 'IT_MARD' 'MARD-MATNR' '',
        'WERKS' 'IT_MARD' 'MARD-WERKS' '',
        'LGORT' 'IT_MARD' 'MARD-LGORT' '',
        'LABST' 'IT_MARD' 'MARD-LABST' 'X'.

  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = SY-REPID
      IT_FIELDCAT        = IT_FIELD
    TABLES
      T_OUTTAB           = IT_MARD.