Error i am not able to recognise

Question

hi frnds, this is the pgm which i have written.but it is eating my brain when i am running.it is giving me runtime error.can anybody pls help me
*& Report  ZCASE9_ORDERSLISTREPORT
REPORT  ZCASE9_ORDERSLISTREPORT.
TYPE-POOLS: VRM,SLIS.
TABLES:VBAK,
       VBAP,
       VBKD,
       VBEP,
       KNA1,
       VBPA,
       MAKT,
       VBUP,
       TVBST.
TYPES:BEGIN OF ST_VBAK,
        VBELN TYPE VBAK-VBELN,
        ERDAT TYPE VBAK-ERDAT,
        ERZET TYPE VBAK-ERZET,
        ERNAM TYPE VBAK-ERNAM,
        AUDAT TYPE VBAK-AUDAT,
        LIFSK TYPE VBAK-LIFSK,
        VDATU TYPE VBAK-VDATU,
        VSBED TYPE VBAK-VSBED,
        BSTNK TYPE VBAK-BSTNK,
        BNAME TYPE VBAK-BNAME,
        AEDAT TYPE VBAK-AEDAT,
      END OF ST_VBAK,
      BEGIN OF ST_VBAP,
        VBELN1 TYPE VBAP-VBELN,
        MATNR TYPE VBAP-MATNR,
        CHARG TYPE VBAP-CHARG,
        PSTYV TYPE VBAP-PSTYV,
        ABGRU TYPE VBAP-ABGRU,
        MEINS TYPE VBAP-MEINS,
        VKAUS TYPE VBAP-VKAUS,
        KWMENG TYPE VBAP-KWMENG,
        LPRIO TYPE VBAP-LPRIO,
        WERKS TYPE VBAP-WERKS,
        LGORT TYPE VBAP-LGORT,
        VSTEL TYPE VBAP-VSTEL,
        ROUTE TYPE VBAP-ROUTE,
        MVGR5 TYPE VBAP-MVGR5,
      END OF ST_VBAP,
      BEGIN OF ST_VBPA,
        VBELN TYPE VBPA-VBELN,
        KUNNR TYPE VBPA-KUNNR,
      END OF ST_VBPA,
      BEGIN OF ST_KNA1,
        KUNNR TYPE KNA1-KUNNR,
        NAME1 TYPE KNA1-NAME1,
        TELF1 TYPE KNA1-TELF1,
      END OF ST_KNA1,
      BEGIN OF ST_MAKT,
        MATNR TYPE MAKT-MATNR,
        MAKTX TYPE MAKT-MAKTX,
      END OF ST_MAKT,
      BEGIN OF ST_VBEP,
        VBELN TYPE VBEP-VBELN,
        ETENR TYPE VBEP-ETENR,
        WADAT TYPE VBEP-WADAT,
      END OF ST_VBEP,
      BEGIN OF ST_VBUP,
        VBELN TYPE VBUP-VBELN,
        LFSTA TYPE VBUP-LFSTA,
        GBSTA TYPE VBUP-GBSTA,
      END OF ST_VBUP,
      begin of st_finalHDR,
        VBELN TYPE VBAK-VBELN,
        ERDAT TYPE VBAK-ERDAT,
        ERZET TYPE VBAK-ERZET,
        ERNAM TYPE VBAK-ERNAM,
        AUDAT TYPE VBAK-AUDAT,
        LIFSK TYPE VBAK-LIFSK,
        VDATU TYPE VBAK-VDATU,
        VSBED TYPE VBAK-VSBED,
        BSTNK TYPE VBAK-BSTNK,
        BNAME TYPE VBAK-BNAME,
        AEDAT TYPE VBAK-AEDAT,
        KUNNR TYPE VBPA-KUNNR,
        NAME1 TYPE KNA1-NAME1,
        TELF1 TYPE KNA1-TELF1,
      end of st_finalHDR,
      BEGIN OF ST_FINALTEM,
        VBELN1 TYPE VBAP-VBELN,
        LPRIO TYPE VBAP-LPRIO,
        WERKS TYPE VBAP-WERKS,
        LGORT TYPE VBAP-LGORT,
        VSTEL TYPE VBAP-VSTEL,
        ROUTE TYPE VBAP-ROUTE,
        MVGR5 TYPE VBAP-MVGR5,
        MATNR TYPE VBAP-MATNR,
        CHARG TYPE VBAP-CHARG,
        PSTYV TYPE VBAP-PSTYV,
        ABGRU TYPE VBAP-ABGRU,
        MEINS TYPE VBAP-MEINS,
        VKAUS TYPE VBAP-VKAUS,
        KWMENG TYPE VBAP-KWMENG,
        MAKTX TYPE MAKT-MAKTX,
        ETENR TYPE VBEP-ETENR,
        WADAT TYPE VBEP-WADAT,
        LFSTA TYPE VBUP-LFSTA,
        GBSTA TYPE VBUP-GBSTA,
      END OF ST_FINALTEM.
DATA:IT_VBAK TYPE STANDARD TABLE OF ST_VBAK,
     IT_VBAP TYPE STANDARD TABLE OF ST_VBAP,
     IT_VBPA TYPE STANDARD TABLE OF ST_VBPA,
     IT_KNA1 TYPE STANDARD TABLE OF ST_KNA1,
     IT_MAKT TYPE STANDARD TABLE OF ST_MAKT,
     IT_VBEP TYPE STANDARD TABLE OF ST_VBEP,
     IT_VBUP TYPE STANDARD TABLE OF ST_VBUP,
     IT_FINALHDR TYPE STANDARD TABLE OF ST_FINALHDR,
     IT_FINALTEM TYPE STANDARD TABLE OF ST_FINALTEM,
     WA_VBAK TYPE ST_VBAK,
     WA_VBAP TYPE ST_VBAP,
     WA_VBPA TYPE ST_VBPA,
     WA_KNA1 TYPE ST_KNA1,
     WA_MAKT TYPE ST_MAKT,
     WA_VBEP TYPE ST_VBEP,
     WA_VBUP TYPE ST_VBUP,
     WA_FINALHDR TYPE ST_FINALHDR,
     WA_FINALTEM TYPE ST_FINALTEM.
DATA: NAME TYPE VRM_ID,
      LIST TYPE VRM_VALUES,
      VALUE LIKE LINE OF LIST,
      REPID TYPE SY-REPID,
     TY_KEYINFO TYPE SLIS_KEYINFO_ALV, " key information type.
     IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
     WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV," field catalog type
     IT_HEADER TYPE SLIS_TABNAME,    " table to store header data
     IT_ITEM TYPE SLIS_TABNAME. " table to store item data
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS:OPEN_ORD RADIOBUTTON GROUP g1 DEFAULT 'X',                  " DOWNLOAD TO APPLICATION SERVER
           ALL_ORD RADIOBUTTON GROUP g1,
           MY_ORD AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
PARAMETERS:PF(25) AS LISTBOX VISIBLE LENGTH 20,  P_KUNNR TYPE VBAK-KUNNR,
           P_MATNR TYPE VBAP-MATNR,
           P_BSTNK TYPE VBAK-BSTNK.
SELECTION-SCREEN END OF BLOCK B2.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.
SELECT-OPTIONS:S_AUDAT FOR VBAK-AUDAT,
               S_VBELN FOR VBAK-VBELN,
               S_AUART FOR VBAK-AUART,
               S_LPRIO FOR VBAP-LPRIO,
               S_PRSDT FOR VBKD-PRSDT,
               S_WADAT FOR VBEP-WADAT,
               S_VSBED FOR VBAK-VSBED,
               S_EDATU FOR VBEP-EDATU,
               S_LIFSK FOR VBAK-LIFSK,
               S_ERNAM FOR VBAK-ERNAM.
SELECTION-SCREEN END OF BLOCK B3.
SELECTION-SCREEN BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-004.
SELECT-OPTIONS:S_VKORG FOR VBAK-VKORG,
               S_VTWEG FOR VBAK-VTWEG,
               S_SPART FOR VBAP-SPART,
               S_VKGRP FOR VBAK-VKGRP,
               S_VKBUR FOR VBAK-VKBUR,
               S_WAERK FOR VBAK-WAERK.
SELECTION-SCREEN END OF BLOCK B4.
INITIALIZATION.
NAME = 'PF'.
VALUE-KEY = '1'.
VALUE-TEXT = 'SHIP TO'.
APPEND VALUE TO LIST.
NAME = 'PF'.
VALUE-KEY = '2'.
VALUE-TEXT = 'SOLD TO'.
APPEND VALUE TO LIST.
NAME = 'PF'.
VALUE-KEY = '3'.
VALUE-TEXT = 'BILL TO'.
APPEND VALUE TO LIST.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = NAME
VALUES = LIST.
REPID = SY-REPID.            " variable having the program name
IT_HEADER = 'IT_FINALHDR'.
IT_ITEM = 'IT_FINALTEM'.
CLEAR TY_KEYINFO.
TY_KEYINFO-HEADER01 = 'VBELN'." comparing the keys and relating the header and item internal tables
TY_KEYINFO-ITEM01 = 'VBELN'.
START-OF-SELECTION.
SELECT VBELN
       ERDAT
       ERZET
       ERNAM
       AUDAT
       LIFSK
       VDATU
       VSBED
       BSTNK
       BNAME
       AEDAT INTO TABLE IT_VBAK FROM VBAK WHERE VKORG IN S_VKORG.
IF SY-SUBRC NE 0.
   MESSAGE E099(ZMMCASE) WITH 'NO VBAK HDR DATA FOUND'.
ENDIF.
SELECT VBELN
       MATNR
       CHARG
       PSTYV
       ABGRU
       MEINS
       VKAUS
       KWMENG
       LPRIO
       WERKS
       LGORT
       VSTEL
       ROUTE
       MVGR5 INTO TABLE IT_VBAP FROM VBAP
                  FOR ALL ENTRIES IN IT_VBAK
                  WHERE VBELN = IT_VBAK-VBELN.
IF SY-SUBRC NE 0.
   MESSAGE E098(ZMMCASE) WITH 'NO DATA FOUND IN TABLE VBAP'.
ENDIF.
SELECT VBELN
       KUNNR INTO TABLE IT_VBPA FROM VBPA
                  FOR ALL ENTRIES IN IT_VBAP
                  WHERE VBELN = IT_VBAP-VBELN1.
IF SY-SUBRC NE 0.
   MESSAGE E097(ZMMCASE) WITH 'NO DATA FOUND IN TABLE VBPA'.
ENDIF.
SELECT KUNNR
       NAME1
       TELF1 INTO TABLE IT_KNA1 FROM KNA1
                  FOR ALL ENTRIES IN IT_VBPA
                  WHERE KUNNR = IT_VBPA-KUNNR.
IF SY-SUBRC NE 0.
   MESSAGE E096(ZMMCASE) WITH 'NO DATA FOUND IN TABLE KNA1'.
ENDIF.
SELECT MATNR
       MAKTX INTO TABLE IT_MAKT FROM MAKT
                  FOR ALL ENTRIES IN IT_VBAP
                  WHERE MATNR = IT_VBAP-MATNR.
IF SY-SUBRC NE 0.
   MESSAGE E095(ZMMCASE) WITH 'NO DATA FOUND IN TABLE MAKT'.
ENDIF.
SELECT VBELN
       ETENR
       WADAT INTO TABLE IT_VBEP FROM VBEP
             FOR ALL ENTRIES IN IT_VBAP
             WHERE VBELN = IT_VBAP-VBELN1.
IF SY-SUBRC NE 0.
   MESSAGE E094(ZMMCASE) WITH 'NO DATA FOUND IN TABLE VBEP'.
ENDIF.
SELECT VBELN
       LFSTA
       GBSTA INTO TABLE IT_VBUP FROM VBUP
             FOR ALL ENTRIES IN IT_VBAP
             WHERE VBELN = IT_VBAP-VBELN1.
IF SY-SUBRC NE 0.
   MESSAGE E093(ZMMCASE) WITH 'NO DATA FOUND IN TABLE VBUP'.
ENDIF.
IF IT_VBAK IS NOT INITIAL.
   LOOP AT IT_VBAK INTO WA_VBAK.
        READ TABLE IT_VBAP INTO WA_VBAP WITH KEY VBELN1 = WA_VBAK-VBELN.
             CHECK SY-SUBRC EQ 0.
        READ TABLE IT_VBPA INTO WA_VBPA WITH KEY VBELN = WA_VBAP-VBELN1.
             CHECK SY-SUBRC EQ 0.
        READ TABLE IT_KNA1 INTO WA_KNA1 WITH KEY KUNNR = WA_VBPA-KUNNR.
             CHECK SY-SUBRC EQ 0.
        READ TABLE IT_MAKT INTO WA_MAKT WITH KEY MATNR = WA_VBAP-MATNR.
             CHECK SY-SUBRC EQ 0.
        READ TABLE IT_VBEP INTO WA_VBEP WITH KEY VBELN = WA_VBAP-VBELN1.
             CHECK SY-SUBRC EQ 0.
        READ TABLE IT_VBUP INTO WA_VBUP WITH KEY VBELN = WA_VBAP-VBELN1.
             CHECK SY-SUBRC EQ 0.
             WA_FINALHDR-VBELN = WA_VBAK-VBELN.
             WA_FINALHDR-ERNAM = WA_VBAK-ERNAM.
             WA_FINALHDR-ERDAT = WA_VBAK-ERDAT.
             WA_FINALHDR-ERZET = WA_VBAK-ERZET.
             WA_FINALHDR-AEDAT = WA_VBAK-AEDAT.
             WA_FINALHDR-AUDAT = WA_VBAK-AUDAT.
             WA_FINALHDR-LIFSK = WA_VBAK-LIFSK.
             WA_FINALHDR-VDATU = WA_VBAK-VDATU.
             WA_FINALHDR-VSBED = WA_VBAK-VSBED.
             WA_FINALHDR-BNAME = WA_VBAK-BNAME.
             WA_FINALHDR-BSTNK = WA_VBAK-BSTNK.
             WA_FINALHDR-TELF1 = WA_KNA1-TELF1.
             WA_FINALHDR-NAME1 = WA_KNA1-NAME1.
             WA_FINALHDR-KUNNR = WA_VBPA-KUNNR.
             WA_FINALTEM-VBELN1 = WA_VBAP-VBELN1.
             WA_FINALTEM-LPRIO = WA_VBAP-LPRIO.
             WA_FINALTEM-MATNR = WA_VBAP-MATNR.
             WA_FINALTEM-CHARG = WA_VBAP-CHARG.
             WA_FINALTEM-MAKTX = WA_MAKT-MAKTX.
             WA_FINALTEM-LGORT = WA_VBAP-LGORT.
             WA_FINALTEM-MVGR5 = WA_VBAP-MVGR5.
             WA_FINALTEM-ETENR = WA_VBEP-ETENR.
             WA_FINALTEM-KWMENG = WA_VBAP-KWMENG.
             WA_FINALTEM-GBSTA = WA_VBUP-GBSTA.
             WA_FINALTEM-LFSTA = WA_VBUP-LFSTA.
             WA_FINALTEM-VSTEL = WA_VBAP-VSTEL.
             WA_FINALTEM-PSTYV = WA_VBAP-PSTYV.
             WA_FINALTEM-ABGRU = WA_VBAP-ABGRU.
             WA_FINALTEM-MEINS = WA_VBAP-MEINS.
             WA_FINALTEM-VKAUS = WA_VBAP-VKAUS.
             WA_FINALTEM-WERKS = WA_VBAP-WERKS.
             WA_FINALTEM-ROUTE = WA_VBAP-ROUTE.
             WA_FINALTEM-WADAT = WA_VBEP-WADAT.
             APPEND WA_FINALHDR TO IT_FINALHDR.
             APPEND WA_FINALTEM TO IT_FINALTEM.
   ENDLOOP.
ENDIF.
SORT iT_FINALHDR.
DELETE ADJACENT DUPLICATES FROM iT_FINALHDR COMPARING ALL FIELDS.
SORT iT_FINALTEM.
DELETE ADJACENT DUPLICATES FROM iT_FINALTEM COMPARING ALL FIELDS.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'VBELN'.
WA_FIELDCAT-SELTEXT_L = 'SALES DOC NO'.
WA_FIELDCAT-COL_POS = 1.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'ERNAM'.
WA_FIELDCAT-SELTEXT_L = 'CREATED BY'.
WA_FIELDCAT-COL_POS = 2.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'ERDAT'.
WA_FIELDCAT-SELTEXT_L = 'CREATED ON'.
WA_FIELDCAT-COL_POS = 3.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'ERZET'.
WA_FIELDCAT-SELTEXT_L = 'CREATED TIME'.
WA_FIELDCAT-COL_POS = 4.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'AEDAT'.
WA_FIELDCAT-SELTEXT_L = 'CHANGED ON'.
WA_FIELDCAT-COL_POS = 5.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'AUDAT'.
WA_FIELDCAT-SELTEXT_L = 'DOCUMENT DATE'.
WA_FIELDCAT-COL_POS = 6.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'LIFSK'.
WA_FIELDCAT-SELTEXT_L = 'DELIVERY BLOCK'.
WA_FIELDCAT-COL_POS = 7.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'VDATU'.
WA_FIELDCAT-SELTEXT_L = 'REQ DEL. DATE'.
WA_FIELDCAT-COL_POS = 8.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'VSBED'.
WA_FIELDCAT-SELTEXT_L = 'SHIPPING CONDITION'.
WA_FIELDCAT-COL_POS = 9.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'BNAME'.
WA_FIELDCAT-SELTEXT_L = 'NAME OF THE ORDERER'.
WA_FIELDCAT-COL_POS = 10.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'TELF1'.
WA_FIELDCAT-SELTEXT_L = 'SHIP 2 PARTY TELEPHONE'.
WA_FIELDCAT-COL_POS = 11.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'BSTNK'.
WA_FIELDCAT-SELTEXT_L = 'PURCHASE ORDER NO'.
WA_FIELDCAT-COL_POS = 12.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'KUNNR'.
WA_FIELDCAT-SELTEXT_L = 'SHIP 2 PARTY'.
WA_FIELDCAT-COL_POS = 13.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'NAME1'.
WA_FIELDCAT-SELTEXT_L = 'SHIP 2 PARTY NAME'.
WA_FIELDCAT-COL_POS = 14.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'VBELN1'.
WA_FIELDCAT-SELTEXT_L = 'SALES DOC'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'LPRIO'.
WA_FIELDCAT-SELTEXT_L = 'DEL. PRIORITY'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-SELTEXT_L = 'MATERIAL'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'CHARG'.
WA_FIELDCAT-SELTEXT_L = 'BATCH'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'MAKTX'.
WA_FIELDCAT-SELTEXT_L = 'MAT DESC'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'LGORT'.
WA_FIELDCAT-SELTEXT_L = 'STORAGE LOC'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'MVGR5'.
WA_FIELDCAT-SELTEXT_L = 'MAT GROUP'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'ETENR'.
WA_FIELDCAT-SELTEXT_L = 'SCHED LINE NO'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'KWMENG'.
WA_FIELDCAT-SELTEXT_L = 'ORD QUANTITY'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'GBSTA'.
WA_FIELDCAT-SELTEXT_L = 'OVERALL STATUS'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'LFSTA'.
WA_FIELDCAT-SELTEXT_L = 'DEL. STATUS'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'VSTEL'.
WA_FIELDCAT-SELTEXT_L = 'SHIPPING POINT'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'PSTYV'.
WA_FIELDCAT-SELTEXT_L = 'ITEM CATEGORY'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'ABGRU'.
WA_FIELDCAT-SELTEXT_L = 'REASON 4 REJECTION'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'MEINS'.
WA_FIELDCAT-SELTEXT_L = 'BASE UOM'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'VKAUS'.
WA_FIELDCAT-SELTEXT_L = 'USAGE'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'WERKS'.
WA_FIELDCAT-SELTEXT_L = 'PLANT'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'ROUTE'.
WA_FIELDCAT-SELTEXT_L = 'ROUTE'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'WADAT'.
WA_FIELDCAT-SELTEXT_L = 'GOODS ISSUE DATE'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
  EXPORTING
  I_INTERFACE_CHECK              = ' '
   I_CALLBACK_PROGRAM             = REPID
  I_CALLBACK_PF_STATUS_SET       = ' '
  I_CALLBACK_USER_COMMAND        = ' '
  IS_LAYOUT                      =
   IT_FIELDCAT                    = IT_FIELDCAT
  IT_EXCLUDING                   =
  IT_SPECIAL_GROUPS              =
  IT_SORT                        =
  IT_FILTER                      =
  IS_SEL_HIDE                    =
  I_SCREEN_START_COLUMN          = 0
  I_SCREEN_START_LINE            = 0
  I_SCREEN_END_COLUMN            = 0
  I_SCREEN_END_LINE              = 0
  I_DEFAULT                      = 'X'
  I_SAVE                         = ' '
  IS_VARIANT                     =
  IT_EVENTS                      =
  IT_EVENT_EXIT                  =
    i_tabname_header               = IT_HEADER
    i_tabname_item                 = IT_ITEM
  I_STRUCTURE_NAME_HEADER        =
  I_STRUCTURE_NAME_ITEM          =
    is_keyinfo                     = TY_KEYINFO
  IS_PRINT                       =
  IS_REPREP_ID                   =
  I_BYPASSING_BUFFER             =
  I_BUFFER_ACTIVE                =
  IR_SALV_HIERSEQ_ADAPTER        =
  IT_EXCEPT_QINFO                =
  I_SUPPRESS_EMPTY_DATA          = ABAP_FALSE
IMPORTING
  E_EXIT_CAUSED_BY_CALLER        =
  ES_EXIT_CAUSED_BY_USER         =
  tables
    t_outtab_header                = IT_FINALHDR
    t_outtab_item                  = IT_FINALTEM
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.

Answer 1

hi madan
i saw ur prog.
i replace vbeln1 into vbeln.
it s working with dump
but output is not displayed only displayed lines.
so pls see this code useful its and its very simple
*& Report  ZSAMP_HIERARCHY                                             *
REPORT  zsamp_hierarchy  NO STANDARD PAGE HEADING    "Suppress Standard
                         LINE-SIZE  220      "No. of characters per line
                         LINE-COUNT 65.      "No. of lines per page.
                 tables
TABLES : ekko,ekpo.
TYPE-POOLS : slis.
                         GLOBAL-STRUCTURES
TYPES : BEGIN OF x_ekko,
         ebeln TYPE ekko-ebeln,   " PO
         bukrs TYPE ekko-bukrs,   "Comp code
         aedat TYPE ekko-aedat,
        END OF x_ekko.
TYPES:  BEGIN OF x_ekpo,
         ebeln TYPE ekpo-ebeln,   " Sales Document
         ebelp TYPE ekpo-ebelp,   " Item number
         matnr TYPE ekpo-matnr,   " Material number
         txz01 TYPE ekpo-txz01,   " short text
         menge TYPE ekpo-menge,   " Purchase order quantity
         meins TYPE ekpo-meins,   " Order unit
      END OF x_ekpo.
    Print structure for ALV
DATA: x_print TYPE slis_print_alv.
*Global Internal table for ALV
DATA: t_keyinfo  TYPE slis_keyinfo_alv,
      t_fieldcat TYPE STANDARD TABLE OF slis_fieldcat_alv.
     t_layout   TYPE slis_layout_alv,
     t_alv_sort TYPE slis_t_sortinfo_alv,
     t_events   TYPE STANDARD TABLE OF slis_alv_event.
                    INTERNAL TABLES
TYPES : tt_ekko TYPE STANDARD TABLE OF x_ekko,
        tt_ekpo TYPE STANDARD TABLE OF x_ekpo.
DATA:   t_ekpo TYPE tt_ekpo,
        t_ekko TYPE tt_ekko.
                    WORK AREAS
*Work areas for ALV
DATA:
      wa_events    TYPE slis_alv_event,
      wa_fieldcat  TYPE slis_fieldcat_alv,
      wa_alv_sort TYPE slis_sortinfo_alv.
                       CONSTANT DECLARATIONS
CONSTANTS:
          c_set(1)       TYPE c VALUE 'X',
          c_header       TYPE slis_tabname VALUE 'T_EKKO',
          c_item         TYPE slis_tabname VALUE 'T_EKPO',
          c_top(11)      TYPE c VALUE 'TOP_OF_LIST',
          c_ftop(13)     TYPE c VALUE 'F_TOP_OF_LIST',
          c_end(11)      TYPE c VALUE 'END_OF_LIST',
          c_fend(13)     TYPE c VALUE 'F_END_OF_LIST',
          c_user_command TYPE slis_formname VALUE 'USER_COMMAND',
          c_ic1(4)       TYPE c VALUE '&IC1',
          c_bes(3)       TYPE c VALUE 'BES',
          c_me23(4)      TYPE c VALUE 'ME23',
          c_ebelp(5)     TYPE c VALUE 'EBELP',
          c_1            LIKE alvdynp-sortpos VALUE '1'.    "#EC *
                         SELECTION-SCREEN
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
SELECT-OPTIONS : s_ebeln FOR ekko-ebeln.
SELECTION-SCREEN END OF BLOCK b1. "End of Selection Screen
                        START-OF-SELECTION
START-OF-SELECTION.
*GET THE DATA
  PERFORM get_data TABLES t_ekko t_ekpo.
  IF t_ekpo[] IS NOT INITIAL.
perform field catlog.
    PERFORM fill_catlog.
  ENDIF.
End-of-selection                                                     *
END-OF-SELECTION.
Subroutine for Report display
  PERFORM f_report_display  TABLES t_ekko
                                   t_ekpo
                                   t_fieldcat
                                 t_events
                                 t_alv_sort
                            USING  x_print.
*&      Form  get_data
      text
-->  p1        text
<--  p2        text
FORM get_data TABLES   p_t_ekko LIKE  t_ekko
                       p_t_ekpo LIKE  t_ekpo.
  SELECT ebeln bukrs aedat FROM ekko INTO TABLE p_t_ekko WHERE ebeln IN s_ebeln.
  IF sy-subrc  = 0.
    SORT t_ekko BY ebeln .
  ENDIF.
  IF NOT p_t_ekko[] IS INITIAL.
    SELECT   ebeln
             ebelp
             matnr
             txz01
             menge
             meins FROM ekpo INTO TABLE p_t_ekpo
             FOR ALL ENTRIES IN p_t_ekko
             WHERE ebeln = p_t_ekko-ebeln.
    IF sy-subrc = 0.
      SORT p_t_ekpo BY ebeln ebelp.
    ENDIF.
  ENDIF.
ENDFORM.                    " get_data
*&      Form  fill_catlog
      text
-->  p1        text
<--  p2        text
FORM fill_catlog .
LOCAL CONSTANTS
  CONSTANTS:
           Field lengts.
             lc_3(1)       TYPE c VALUE '3',  "MEINS
             lc_6(1)       TYPE c VALUE '6',  "EBELP
             lc_8(1)       TYPE c VALUE '8',  "ERDAT
             lc_10(2)      TYPE c VALUE '10', "EBELN
             lc_12(2)      TYPE c VALUE '12', "ERNAM
             lc_18(2)      TYPE c VALUE '18', "MATNR, MENGE
             lc_40(2)      TYPE c VALUE '40',               "TXZ01
           Field names.
             lc_ebeln   TYPE slis_fieldname VALUE 'EBELN',
             lc_ebelp   TYPE slis_fieldname VALUE 'EBELP',
             lc_ernam   TYPE slis_fieldname VALUE 'BUKRS',
             lc_erdat   TYPE slis_fieldname VALUE 'ERDAT',
             lc_matnr   TYPE slis_fieldname VALUE 'MATNR',
             lc_txz01   TYPE slis_fieldname VALUE 'TXZ01',
             lc_menge   TYPE slis_fieldname VALUE 'MENGE',
             lc_meins   TYPE slis_fieldname VALUE 'MEINS'.
PO Document
  PERFORM f_fill_fields TABLES t_fieldcat
       USING c_header lc_ebeln text-h01 lc_10 space space.
  PERFORM f_fill_fields TABLES t_fieldcat
     USING c_header lc_erdat text-h02 lc_8 space space.
  PERFORM f_fill_fields TABLES t_fieldcat
     USING c_header lc_ernam text-h03 lc_12 space space.
PO Document Item
  PERFORM f_fill_fields TABLES t_fieldcat
     USING c_item lc_ebelp text-h04 lc_6 space space.
Material Number
  PERFORM f_fill_fields TABLES t_fieldcat
     USING c_item lc_matnr text-h05 lc_18 space space.
Short Text for PO Item
  PERFORM f_fill_fields TABLES t_fieldcat
     USING c_item lc_txz01 text-h06 lc_40 space space.
Order quantity
  PERFORM f_fill_fields TABLES t_fieldcat
     USING c_item lc_menge text-h07 lc_18 space space.
UOM
  PERFORM f_fill_fields TABLES t_fieldcat
     USING c_item lc_meins text-h08 lc_3 space space.
ENDFORM.                    " fill_catlog
*&      Form  f_fill_fields
      text
     -->P_T_FIELDCAT  text
     -->P_C_HEADER  text
     -->P_LC_EBELN  text
     -->P_TEXT_H01  text
     -->P_LC_10  text
     -->P_C_SET  text
     -->P_SPACE  text
FORM f_fill_fields  TABLES   p_t_fieldcat LIKE  t_fieldcat
                   USING     p_tabname     TYPE any
                             p_fieldname   TYPE any
                             p_seltext_l   TYPE any
                             p_length      TYPE any
                             p_hot         TYPE any
                             p_zero        TYPE any.
  wa_fieldcat-tabname   = p_tabname.
  wa_fieldcat-fieldname = p_fieldname.
  wa_fieldcat-seltext_l = p_seltext_l.
  wa_fieldcat-edit      = 'x'.
  wa_fieldcat-outputlen = p_length.
  wa_fieldcat-hotspot   = p_hot.
  wa_fieldcat-no_zero   = p_zero.
Do sum for quantity
  IF wa_fieldcat-fieldname = 'MENGE'.
    wa_fieldcat-do_sum    = c_set.
  ENDIF.
  APPEND wa_fieldcat TO p_t_fieldcat.
  CLEAR wa_fieldcat.
ENDFORM.                    " f_fill_fields
*&        Form  f_report_display
        text
       -->P_I_EKKO  text
       -->P_I_EKPO  text
       -->P_T_FIELDCAT  text
       -->P_X_PRINT  text
FORM f_report_display  TABLES   p_t_header   LIKE  t_ekko
                                p_t_item     LIKE  t_ekpo
                                p_t_fieldcat LIKE  t_fieldcat
                       USING    p_x_print    TYPE  slis_print_alv.
  DATA: l_repid TYPE sy-repid.
  l_repid = sy-repid.
  t_keyinfo-header01 = 'EBELN'.
  t_keyinfo-item01   = 'EBELN'.
  CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
    EXPORTING
      i_callback_program      = l_repid
      i_callback_user_command = c_user_command`
      it_fieldcat             = p_t_fieldcat[]
      i_default               = 'X'
      i_tabname_header        = 'T_EKKO'
      i_tabname_item          = 'T_EKPO'
      is_keyinfo              = t_keyinfo
      is_print                = p_x_print
    TABLES
      t_outtab_header         = p_t_header[]
      t_outtab_item           = p_t_item[].
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " f_report_display
*&      Form  f_top_list
      text
-->  p1        text
<--  p2        text
FORM f_top_list .
  FORMAT COLOR COL_HEADING ON.
  WRITE: /10 text-h10,  text-h09.
  FORMAT COLOR OFF.
  WRITE: /10 text-h11, sy-datum.
  WRITE: /10 text-h12,  sy-pagno.
ENDFORM.                    " f_top_list
*&      Form  f_user_command
      text
-->  p1        text
<--  p2        text
FORM f_user_command USING     r_ucomm     LIKE sy-ucomm     "#EC *
                             rs_selfield TYPE slis_selfield."#EC *
  DATA : l_ebeln LIKE ekko-ebeln.
  DATA: wa_ekko TYPE x_ekko.
  IF r_ucomm = c_ic1.
    CLEAR wa_ekko.
    IF rs_selfield-fieldname cs c_ebelp.
      READ TABLE t_ekko INTO wa_ekko INDEX rs_selfield-tabindex.
      IF NOT wa_ekko-ebeln IS INITIAL.
        SET PARAMETER ID c_bes FIELD wa_ekko-ebeln.  "L_EBELN.
        CALL TRANSACTION c_me23 AND SKIP FIRST SCREEN.
        CLEAR wa_ekko-ebeln.
      ENDIF.
    ENDIF.
  ENDIF.
ENDFORM.                    " f_user_command
*&      Form  f_end_list
      text
-->  p1        text
<--  p2        text
FORM f_end_list .
  WRITE: sy-uline.
  WRITE: /10 text-h13.
ENDFORM.                    " f_end_list