Need help on ALV report

Question

hi,
i am new to ALV programming,i awant to generate the report with three teable mseg,mkpf,mard.
i need selection screen also.
in the selection screen following is the field names.
Matdoc number-mseg-mblnr
mat number - mseg-matnr
plant - mseg-werks
sloc mseg-lgort
movtype- mseg-bwart.
batch number- mseg-charg.
ordernumber -mseg-aufnr.
costcenter- mseg-kostl.
reservation number- mseg-rsnum.
storage bin - mard-lgpbe.
i want to fetch the data from three tables
mseg,mard,mkpf.
after featch report should disply in alv grid following items.
Matdoc number-mseg-mblnr
mat number - mseg-matnr
plant - mseg-werks
sloc mseg-lgort
movtype- mseg-bwart.
batch number- mseg-charg.
ordernumber -mseg-aufnr.
costcenter- mseg-kostl.
reservation number- mseg-rsnum.
storage bin - mard-lgpbe.
posting date - mkpf-budat.
if any body have the code kindly send it as early as posible.
Thanks,
Rammohan.

Answer 1

here is a sample program i think almost containing the same tables and fields
*& Report  ZSD_R_ENHANCEMENT2                                           *
*& REPORT PROGRAMMING FOR THE FURTHER ENHANCEMENT OF THE PRE-GENERATED
*& MB51. REQUIREMENT IS TO ADD FIVE MORE FIELDS.
*& OLD MATERIAL ON THE TOP LEFT CORNER OF THE HEADER AND
*& Batch number the right of material document.
*& Serial number if found should be placed to the right of the batch number.
*& Handling unit/ storage unit to the right of serial number.
*& Transaction description at the last of the report.
REPORT  ZSD_R_ENHANCEMENT2 MESSAGE-ID ZB6T2                      .
*& STRUCTURE CREATION FOR INTERNAL TABLES                              *
*STRUCUTRE CREATION FOR HEADER MATERIAL DOCMENT AND DOCUMENT SEGEMNT MATERIAL
TYPES: BEGIN OF TY_MKPF_MSEG,
       MBLNR TYPE MBLNR,   " NUMBER OF MATERIAL DOC
       MJAHR TYPE MJAHR,   " MATERIAL DOCUMENT YEAR
       VGART TYPE VGART,   " TRANSACTION EVENT TYPE
       BLART TYPE BLART,   " DOCUMENT TYPE
       BUDAT TYPE BUDAT,   " POSTING DATE INT THE DOC
       USNAM TYPE USNAM,   " USERNAME
       XBLNR TYPE XBLNR1,  " REFERENCE DOCUMENT NUMBER
       MATNR TYPE MATNR,   " MATERIAL NUMBER
       WERKS TYPE WERKS_D, " PLANT
       LGORT TYPE LGORT_D, " STORAGE LOCATION
       CHARG TYPE CHARG_D, " BATCH NUM
       LIFNR TYPE ELIFN,   " ACC OF VENDOR
       KUNNR TYPE EKUNN,   " CUSTOMER NUM
       SOBKZ TYPE SOBKZ,   " SPECIAL STOKING
       BWART TYPE BWART,   " MOVEMENT TYPE
       ZEILE TYPE MBLPO,   " ITEM IN MATERIAL DOCUMENT
       ERFMG TYPE ERFMG,   " QUANTITY IN UNIT OF ENTERY
       ERFME TYPE ERFME,   " UNIT OF ENTRY
       END OF TY_MKPF_MSEG,
*STRUCTURE FOR MATERIAL MASTER DATA
       BEGIN OF TY_MARA,
       MATNR TYPE MATNR,   " MATERIAL TYPE
       BISMT TYPE BISMT,   " OLD MATERIAL NUMBER
       END OF TY_MARA,
*STRUCTURE DECLARATION FOR MATERIAL DESCRIPTION
       BEGIN OF TY_MAKT,
       MATNR TYPE MATNR,   " MATERIAL NUM
       SPRAS TYPE SPRAS,    " LANGUAGE KEY
       MAKTX TYPE MAKTX,   " MATERIAL DESC
       END OF TY_MAKT,
*STRUCTURE DECLARATION FOR MOVEMENT TYPE TEXT
       BEGIN OF TY_T156T,
       BWART TYPE BWART,   " MOVEMENT TYPE
       BTEXT TYPE BTEXT,   " MOVEMENT TYPE TEXT
       SPRAS TYPE SPRAS,   " LANGUAGE KEY
       END OF TY_T156T,
*STRUCTURE CREATION FOR DOCUMENT HEADER FOR SERIALNUMBERS FOR GOOD MOVEMENTS
       BEGIN OF TY_SER03,
       MBLNR TYPE MBLNR,   " NUMBER OF MATERIAL DOC
       MJAHR TYPE MJAHR,   " MATERIAL DOCU YEAR
       ZEILE TYPE MBLPO,   " OUTPUT IN MATERIAL DOC
       OBKNR TYPE OBJKNR,  " OBJECT LIST NUMBER
       END OF TY_SER03,
*STRUCUTRE DECLARATION FOR PLANTS MAINTANENCE OBKECT LIST
       BEGIN OF TY_OBJK,
       OBKNR TYPE OBJKNR,  " OBJECT LIST NUMBER
       OBZAE TYPE OBJZA,   " OBLECT LIST COUNTERS
       SERNR TYPE GERNR,   " SERIAL NUMBER
       END OF TY_OBJK,
*STRUCUTRE DECLARATION FOR PLANTS/BRANCHES
       BEGIN OF TY_T001W,
       WERKS TYPE WERKS_D, " PLANT
       NAME1 TYPE NAME1,   " NAME
       END OF TY_T001W,
*STRUCUTRE DECLARATION FOR OUTPUT TABLE
      BEGIN OF TY_OUTPUT,
       MATNR TYPE MATNR,   " MATERIAL NUMBER
       BISMT TYPE BISMT,   " OLD MATERIAL NUMBER
       MAKTX TYPE MAKTX,   " MATERIAL DESC
       WERKS TYPE WERKS_D, " PLANT
       NAME1 TYPE NAME1,   " NAME
       LGORT TYPE LGORT_D, " Storage Location
       BWART TYPE BWART,   " Movement Type
       MBLNR TYPE MBLNR,   " NUMBER OF MATERIAL DOC
       CHARG TYPE CHARG_D, " BATCH NUM
       SERNR TYPE GERNR,   " SERIAL NUMBER
       ZEILE TYPE MBLPO,   " OUTPUT IN MATERIAL DOC
       BUDAT TYPE BUDAT,   " POSTING DOCU DATE
       ERFMG TYPE ERFMG,   " QUANTITY IN UNIT OF ENTRY
       ERFME TYPE ERFME,   " UNINT OF ENTRY
       BTEXT TYPE BTEXT,   " MOVEMENT TYPE TEXT
       MJAHR TYPE MJAHR,   " MATEREIAL DOC YEAR
       VGART TYPE VGART,   " TRANSACTION EVENT TYPE
       BLART TYPE BLART,   " DOCUMENT TYPE
       USNAM TYPE USNAM,   " USERNAME
       XBLNR TYPE XBLNR1,  " REFERENCE DOCUMENT NUM
       SOBKZ TYPE SOBKZ,   " SPECIAL STOCKING
       LIFNR TYPE ELIFN,   " ACC OF VENDOR
       KUNNR TYPE EKUNN,   " CUSTOMER
       OBKNR TYPE OBJKNR,  " OBJECT LIST NUMBER
       END OF TY_OUTPUT.
*&INTERNAL TABLE DECLARATION FOR STRUCUTRES                            *
INTERNAL TABLE DECLARATION FOR HEADER MATERIAL DOCMENT AND DOCUMENT SEGEMNT MATERIAL
DATA : T_MKPF_MSEG TYPE STANDARD TABLE OF TY_MKPF_MSEG INITIAL SIZE 0,
*INTERNAL TABLE DECLARATION FOR MATERIAL MASTER DAT
       T_MARA TYPE STANDARD TABLE OF TY_MARA INITIAL SIZE 0,
*INTERNAL TABLE DECLARATION FOR MATERIAL TYPE DESC
       T_MAKT TYPE STANDARD TABLE OF TY_MAKT INITIAL SIZE 0,
*INTERNAL TABLE DECLARATION FOR MOVEMENT TYPE TEXT
       T_T156T TYPE STANDARD TABLE OF TY_T156T INITIAL SIZE 0,
*INTERNAL TABLE DECLARATION FOR Document Header for Serial Numbers for Goods Movements
       T_SER03 TYPE STANDARD TABLE OF TY_SER03 INITIAL SIZE 0,
*INTERNAL TABLE DECLARATION FOR Plant Maintenance Object List
       T_OBJK TYPE STANDARD TABLE OF TY_OBJK INITIAL SIZE 0,
*INTERNAL TABLE DECLARATION FOR Plants/Branches
       T_T001W TYPE STANDARD TABLE OF TY_T001W INITIAL SIZE 0,
*INTERNAL TABLE DECLARATION FOR OUTPUT
       T_OUTPUT TYPE STANDARD TABLE OF TY_OUTPUT INITIAL SIZE 0,
*&WORK AREA DECLARATIONS FOR INTERNAL TABLES                           *
*WORK AREA DECLARATION HEADER MATERIAL DOCMENT AND DOCUMENT SEGEMNT MATERIAL
       W_MKPF_MSEG TYPE TY_MKPF_MSEG,
*WORK AREA DECLARATION MATERIAL MASTER DATA
       W_MARA TYPE TY_MARA,
*WORK AREA DECLARATION MATERIAL TYPE DESC
       W_MAKT TYPE TY_MAKT,
*WORK AREA DECLARATION MOVEMENT TYPE TEXT\
       W_T156T TYPE TY_T156T,
*WORK AREA DECLARATION Document Header for Serial Numbers for Goods Movements
       W_SER03 TYPE TY_SER03,
*WORK AREA DECLARATION PLANT MAINTENANCE OBJECT LIST
       W_OBJK TYPE TY_OBJK,
*WORK AREA DECLARATION PLANTS AND BRANCHES
       W_T001W TYPE TY_T001W,
*WORK AREA DECLARATION FOR OUTPUT TABLE.
      W_OUTPUT TYPE TY_OUTPUT,
*& GLOBAL VARIABLE DECLARATIONS                                        *
       G_MATNR TYPE MSEG-MATNR,
       G_WERKS TYPE MSEG-WERKS,
       G_LGORT TYPE MSEG-LGORT,
       G_CHARG TYPE MSEG-CHARG,
       G_LIFNR TYPE MSEG-LIFNR,
       G_KUNNR TYPE MSEG-KUNNR,
       G_BWART TYPE MSEG-BWART,
       G_SOBKZ TYPE MSEG-SOBKZ,
       G_BUDAT TYPE MKPF-BUDAT,
       G_USNAM TYPE MKPF-USNAM,
       G_VGART TYPE MKPF-VGART,
       G_XBLNR TYPE MKPF-XBLNR.
*& SELECTION SCREEN EVENT                                              *
*SELECT OPTIONS EVENTS FOR ITEM DETAILS
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.
SELECT-OPTIONS: S_MATNR FOR G_MATNR,
                S_WERKS FOR G_WERKS,
                S_LGORT FOR G_LGORT,
                S_CHARG FOR G_CHARG,
                S_LIFNR FOR G_LIFNR,
                S_KUNNR FOR G_KUNNR,
                S_BWART FOR G_BWART,
                S_SOBKZ FOR G_SOBKZ.
SELECTION-SCREEN END OF BLOCK B1.
*SELECT OPTIONS EVENTS FOR HEADER DETAILS
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME.
SELECT-OPTIONS: S_BUDAT FOR G_BUDAT,
                S_USNAM FOR G_USNAM,
                S_VGART FOR G_VGART,
                S_XBLNR FOR G_XBLNR.
SELECTION-SCREEN END OF BLOCK B2.
*&INITIALIZATION EVENTS                                                *
INITIALIZATION.
  CLEAR: W_MKPF_MSEG,
         W_MARA,
         W_MAKT,
         W_T156T,
         W_SER03,
         W_OBJK,
         W_T001W,
         W_OUTPUT.
  REFRESH: T_MKPF_MSEG,
           T_MARA,
           T_MAKT,
           T_T156T,
           T_SER03,
           T_OBJK,
           T_T001W,
           T_OUTPUT.
*&  At Selection screen Event
AT SELECTION-SCREEN.
  PERFORM SUB_VALID_MATNR.
  PERFORM SUB_VALID_WERKS.
  PERFORM SUB_VALID_LGORT.
  PERFORM SUB_VALID_CHARG.
  PERFORM SUB_VALID_LIFNR.
  PERFORM SUB_VALID_KUNNR.
  PERFORM SUB_VALID_BWART.
  PERFORM SUB_VALID_SOBKZ.
  PERFORM SUB_VALID_BUDAT.
  PERFORM SUB_VALID_USNAM.
  PERFORM SUB_VALID_VGART.
  PERFORM SUB_VALID_XBLNR.
*&  Start of selection event.
START-OF-SELECTION.
  PERFORM SUB_GET_MKPF_MSEG.
  PERFORM SUB_GET_MARA.
  PERFORM SUB_GET_MAKT.
  PERFORM SUB_GET_T156T.
  PERFORM SUB_GET_SER03.
  PERFORM SUB_GET_T001W.
  PERFORM SUB_BSLIST_DISP.
*&      Form  SUB_VALID_MATNR
*VALIDATION FOR MATERIAL NUM
FORM SUB_VALID_MATNR .
  DATA : L_MATNR TYPE MATNR.
  SELECT SINGLE MATNR
         FROM MARA
         INTO L_MATNR
         WHERE MATNR IN S_MATNR.
  IF SY-SUBRC <> 0.
   MESSAGE E001.
  ENDIF.
ENDFORM.                    " SUB_VALID_MATNR
*&      Form  SUB_VALID_WERKS
      text
FORM SUB_VALID_WERKS .
  DATA L_WERKS TYPE WERKS_D.
  SELECT SINGLE WERKS
         FROM T001W
         INTO L_WERKS
         WHERE WERKS IN S_WERKS.
  IF SY-SUBRC <> 0.
    MESSAGE E002.
  ENDIF.
ENDFORM.                    " SUB_VALID_WERKS
*&      Form  SUB_VALID_LGORT
      text
FORM SUB_VALID_LGORT .
  DATA L_LGORT TYPE LGORT_D.
  SELECT SINGLE LGORT
         FROM T001L
         INTO L_LGORT
         WHERE LGORT IN S_LGORT.
  IF SY-SUBRC <> 0.
   MESSAGE E003.
  ENDIF.
ENDFORM.                    " SUB_VALID_LGORT
*&      Form  SUB_VALID_CHARG
      text
FORM SUB_VALID_CHARG .
  DATA L_CHARG TYPE CHARG_D.
  SELECT SINGLE CHARG
         FROM MCHA
         INTO L_CHARG
         WHERE CHARG IN S_CHARG.
  IF SY-SUBRC <> 0.
   MESSAGE E004.
  ENDIF.
ENDFORM.                    " SUB_VALID_CHARG
*&      Form  SUB_VALID_LIFNR
      text
FORM SUB_VALID_LIFNR .
  DATA L_LIFNR TYPE LIFNR.
  SELECT SINGLE LIFNR
         FROM LFA1
         INTO L_LIFNR
         WHERE LIFNR IN S_LIFNR.
  IF SY-SUBRC <> 0.
   MESSAGE E005.
  ENDIF.
ENDFORM.                    " SUB_VALID_LIFNR
*&      Form  SUB_VALID_KUNNR
      text
FORM SUB_VALID_KUNNR .
  DATA L_KUNNR TYPE KUNNR.
  SELECT SINGLE KUNNR
         FROM KNA1
         INTO L_KUNNR
         WHERE KUNNR IN S_KUNNR.
  IF SY-SUBRC <> 0.
   MESSAGE E006.
  ENDIF.
ENDFORM.                    " SUB_VALID_KUNNR
*&      Form  SUB_VALID_BWART
      text
FORM SUB_VALID_BWART .
  DATA L_BWART TYPE BWART.
  SELECT SINGLE BWART
         FROM T156
         INTO L_BWART
         WHERE BWART IN S_BWART.
  IF SY-SUBRC <> 0.
   MESSAGE E007.
  ENDIF.
ENDFORM.                    " SUB_VALID_BWART
*&      Form  SUB_VALID_SOBKZ
      text
FORM SUB_VALID_SOBKZ .
DATA L_SOBKZ TYPE SOBKZ.
SELECT SINGLE SOBKZ
       FROM T148
       INTO L_SOBKZ
       WHERE SOBKZ IN S_SOBKZ.
IF SY-SUBRC <> 0.
MESSAGE E008.
ENDIF.
ENDFORM.                    " SUB_VALID_SOBKZ
*&      Form  SUB_VALID_BUDAT
      text
FORM SUB_VALID_BUDAT .
  DATA L_BUDAT TYPE BUDAT.
  SELECT SINGLE BUDAT
         FROM MKPF
         INTO L_BUDAT
         WHERE BUDAT IN S_BUDAT.
  IF SY-SUBRC <> 0.
   MESSAGE E009.
  ENDIF.
ENDFORM.                    " SUB_VALID_BUDAT
*&      Form  SUB_VALID_USNAM
      text
FORM SUB_VALID_USNAM .
  DATA L_USNAM TYPE USNAM.
  SELECT SINGLE USNAM
         FROM MKPF
         INTO L_USNAM
         WHERE USNAM IN S_USNAM.
  IF SY-SUBRC <> 0.
   MESSAGE E010.
  ENDIF.
ENDFORM.                    " SUB_VALID_USNAM
*&      Form  SUB_VALID_VGART
      text
FORM SUB_VALID_VGART .
  DATA L_VGART TYPE VGART.
  SELECT SINGLE VGART
         FROM MKPF
         INTO L_VGART
         WHERE VGART IN S_VGART.
  IF SY-SUBRC <> 0.
   MESSAGE E011.
  ENDIF.
ENDFORM.                    " SUB_VALID_VGART
*&      Form  SUB_VALID_XBLNR
      text
FORM SUB_VALID_XBLNR .
  DATA L_XBLNR TYPE XBLNR.
  SELECT SINGLE XBLNR
         FROM MKPF
         INTO L_XBLNR
         WHERE XBLNR IN S_XBLNR.
  IF SY-SUBRC <> 0.
    MESSAGE E012.
  ENDIF.
ENDFORM.                    " SUB_VALID_XBLNR
*&      Form  SUB_GET_MKPF_MSEG
      text
FORM SUB_GET_MKPF_MSEG .
  REFRESH T_MKPF_MSEG.
  SELECT KMBLNR KMJAHR K~VGART
         KBLART KBUDAT K~USNAM
         K~XBLNR
         SMATNR SWERKS S~LGORT
         SCHARG SLIFNR S~KUNNR
         SSOBKZ SBWART S~ZEILE
         SERFMG SERFME
     INTO TABLE T_MKPF_MSEG
     FROM MKPF AS K INNER JOIN MSEG AS S
       ON KMBLNR = SMBLNR AND KMJAHR = SMJAHR
    WHERE    K~VGART IN S_VGART
         AND K~BUDAT IN S_BUDAT
         AND K~USNAM IN S_USNAM
         AND K~XBLNR IN S_XBLNR
         AND S~MATNR IN S_MATNR
         AND S~WERKS IN S_WERKS
         AND S~LGORT IN S_LGORT
         AND S~CHARG IN S_CHARG
         AND S~SOBKZ IN S_SOBKZ
         AND S~LIFNR IN S_LIFNR
         AND S~KUNNR IN S_KUNNR.
ENDFORM.                    " SUB_GET_MKPF_MSEG
*&      Form  SUB_GET_MARA
      text
FORM SUB_GET_MARA .
  IF T_MKPF_MSEG IS NOT INITIAL.
    SORT T_MKPF_MSEG BY MATNR.
    REFRESH T_MARA.
  SELECT MATNR
         BISMT
         FROM MARA
         INTO TABLE T_MARA
         FOR ALL ENTRIES IN T_MKPF_MSEG
         WHERE MATNR = T_MKPF_MSEG-MATNR.
ENDIF.
ENDFORM.                    " SUB_GET_MARA
*&      Form  SUB_GET_MAKT
      text
FORM SUB_GET_MAKT .
REFRESH T_MAKT.
  SELECT MATNR
         SPRAS
         MAKTX
         FROM MAKT
         INTO TABLE T_MAKT
         FOR ALL ENTRIES IN T_MKPF_MSEG
         WHERE SPRAS = SY-LANGU AND  MATNR = T_MKPF_MSEG-MATNR.
ENDFORM.                    " SUB_GET_MAKT
*&      Form  SUB_GET_T156T
      text
FORM SUB_GET_T156T .
  SELECT BWART
         BTEXT
         SPRAS
         FROM T156T
         INTO TABLE T_T156T
         FOR ALL ENTRIES IN T_MKPF_MSEG
         WHERE SPRAS = SY-LANGU AND BWART = T_MKPF_MSEG-BWART.
ENDFORM.                    " SUB_GET_T156T
*&      Form  SUB_GET_SER03
      text
FORM SUB_GET_SER03 .
  SELECT MBLNR
         MJAHR
         ZEILE
         OBKNR
         FROM SER03
         INTO TABLE T_SER03
         FOR ALL ENTRIES IN T_MKPF_MSEG
         WHERE MBLNR = T_MKPF_MSEG-MBLNR
         AND MJAHR = T_MKPF_MSEG-MJAHR
         AND ZEILE = T_MKPF_MSEG-ZEILE.
IF T_SER03 IS NOT INITIAL.
  SELECT OBKNR
         OBZAE
         SERNR
         FROM OBJK
         INTO CORRESPONDING FIELDS OF TABLE T_OBJK
         FOR ALL ENTRIES IN T_SER03
         WHERE OBKNR = T_SER03-OBKNR.
ENDIF.
ENDFORM.                    " SUB_GET_SER03
*&      Form  SUB_GET_T001W
      text
FORM SUB_GET_T001W .
  SELECT WERKS
         NAME1
         FROM T001W
         INTO TABLE T_T001W
         FOR ALL ENTRIES IN T_MKPF_MSEG
         WHERE WERKS = T_MKPF_MSEG-WERKS.
ENDFORM.                    " SUB_GET_T001W
*&      Form  SUB_BSLIST_DISP
FOR DISPLAY OUT
FORM SUB_BSLIST_DISP .
REFRESH T_OUTPUT.
  CLEAR W_MKPF_MSEG.
  SORT T_MKPF_MSEG BY MBLNR MJAHR ZEILE MATNR.
  LOOP AT T_MKPF_MSEG INTO W_MKPF_MSEG.
    W_OUTPUT-MBLNR = W_MKPF_MSEG-MBLNR .
    W_OUTPUT-MJAHR = W_MKPF_MSEG-MJAHR.
    W_OUTPUT-VGART = W_MKPF_MSEG-VGART.
    W_OUTPUT-BLART = W_MKPF_MSEG-BLART.
    W_OUTPUT-BUDAT = W_MKPF_MSEG-BUDAT.
    W_OUTPUT-USNAM = W_MKPF_MSEG-USNAM.
    W_OUTPUT-XBLNR = W_MKPF_MSEG-XBLNR.
    W_OUTPUT-ZEILE = W_MKPF_MSEG-ZEILE.
    W_OUTPUT-BWART = W_MKPF_MSEG-BWART.
    W_OUTPUT-MATNR = W_MKPF_MSEG-MATNR.
    W_OUTPUT-WERKS = W_MKPF_MSEG-WERKS.
    W_OUTPUT-LGORT = W_MKPF_MSEG-LGORT.
    W_OUTPUT-CHARG = W_MKPF_MSEG-CHARG.
    W_OUTPUT-SOBKZ = W_MKPF_MSEG-SOBKZ.
    W_OUTPUT-LIFNR = W_MKPF_MSEG-LIFNR.
    W_OUTPUT-KUNNR = W_MKPF_MSEG-KUNNR.
    W_OUTPUT-ERFMG = W_MKPF_MSEG-ERFMG.
    W_OUTPUT-ERFME = W_MKPF_MSEG-ERFME.
    CLEAR W_MARA.
    READ TABLE T_MARA INTO W_MARA WITH KEY MATNR = W_OUTPUT-MATNR.
    IF SY-SUBRC = 0.
      W_OUTPUT-BISMT = W_MARA-BISMT.
    ENDIF.
    CLEAR W_MAKT.
    READ TABLE T_MAKT INTO W_MAKT WITH KEY MATNR = W_OUTPUT-MATNR .
    IF SY-SUBRC = 0.
      W_OUTPUT-MAKTX = W_MAKT-MAKTX.
    ENDIF.
    CLEAR W_T156T.
    READ TABLE T_T156T INTO W_T156T WITH KEY  BWART = W_OUTPUT-BWART  .
    IF SY-SUBRC = 0.
      W_OUTPUT-BTEXT = W_T156T-BTEXT.
    ENDIF.
    CLEAR W_T001W.
    READ TABLE T_T001W INTO W_T001W WITH KEY WERKS = W_MKPF_MSEG-WERKS.
    IF SY-SUBRC = 0.
      W_OUTPUT-NAME1 = W_T001W-NAME1.
    ENDIF.
    CLEAR W_SER03.
    READ TABLE T_SER03 INTO W_SER03 WITH KEY MBLNR = W_OUTPUT-MBLNR
                                              MJAHR = W_OUTPUT-MJAHR
                                              ZEILE = W_OUTPUT-ZEILE.
    IF SY-SUBRC = 0.
      W_OUTPUT-OBKNR = W_SER03-OBKNR.
    ENDIF.
    CLEAR W_OBJK.
    READ TABLE T_OBJK INTO W_OBJK WITH KEY OBKNR = W_OUTPUT-OBKNR.
    IF SY-SUBRC = 0.
    W_OUTPUT-SERNR = W_OBJK-SERNR .
    ENDIF.
    APPEND W_OUTPUT TO T_OUTPUT.
    CLEAR W_OUTPUT.
    ENDLOOP.
    PERFORM SUB_DISPLAY.
ENDFORM.
*&      Form  SUB_DISPLAY
HIERARICAL DISPLAY
FORM SUB_DISPLAY .
SORT T_OUTPUT BY MATNR BISMT MAKTX WERKS NAME1 LGORT BWART MBLNR CHARG SERNR ZEILE BUDAT ERFMG ERFME BTEXT.
CLEAR W_OUTPUT.
LOOP AT T_OUTPUT INTO W_OUTPUT.
AT NEW NAME1.
WRITE:/ W_OUTPUT-MATNR,
        W_OUTPUT-BISMT,
        W_OUTPUT-MAKTX,
        W_OUTPUT-WERKS,
        W_OUTPUT-NAME1.
ENDAT.
AT NEW BTEXT.
WRITE:/ W_OUTPUT-LGORT,
        W_OUTPUT-BWART,
        W_OUTPUT-MBLNR,
        W_OUTPUT-CHARG,
        W_OUTPUT-SERNR,
        W_OUTPUT-ZEILE,
        W_OUTPUT-BUDAT,
        W_OUTPUT-ERFMG,
        W_OUTPUT-ERFME,
        W_OUTPUT-BTEXT.
ENDAT.
CLEAR W_OUTPUT.
ENDLOOP.
REFRESH T_OUTPUT.
ENDFORM.                    " SUB_DISPLAY