Code help in writing report Program

Question

Hello experts
I have to write a selection screen program based on the following requirements (only for sales Org:5090, plant:9000, Outbound delivery type= "LF")
Selection parameters:
Material (lips-matnr)
Sold to party(likp-kunag): can hardcode it to 5090
Sales Org(likp-vkorg)
Plant(lips-werks) : hard code it to plant:9000
Sales order(likp-vbeln)
Actual goods movement dates(likp-wadat_ist)
Invoice number
Sales order
Output
material numberlips~matnr ( should Display only S* materials  and  material type FERT)
  Serial number of the device shipped (objk-sernr)
Delivery number (lips~vbeln)
Invoice number (vbrp-vbeln)
Invoice price=Vbrp-vbeln/quantity (invoice price)
  Notification number (Viqmel-QMNUm)
  KBB Repair Level(VIQMEL-QMTXT from QMCOD ) 
  KBC Repair level(VIQMMA-MNCOD from KBC-SM07 code group(VIQMMA-MNGRP))
code help is higly appreciated,
Thanks
Sp

Answer 1

Hi anurag,
Code is going like this, i could able to display it but when i run it ABAP Dump is coming.
what could be the reason?
Tahnks
SP
*& Report  ZSDR_PRICING_KSE_RPT                                        *
REPORT  ZSDR_PRICING_KSE_RPT          .
TABLES: likp, lips, vbfa, vbak.
TYPE-POOLS: slis.
*/ Selection and Input Parameters
SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME TITLE text-003.
SELECT-OPTIONS: s_matnr FOR lips-matnr,
                s_kunag FOR likp-kunag.
SELECT-OPTIONS: s_vkorg FOR likp-vkorg NO INTERVALS,
                s_werks FOR lips-werks.
SELECT-OPTIONS: s_vbeln FOR likp-vbeln,
                s_waist FOR likp-wadat_ist.
SELECT-OPTIONS: s_vgbel FOR lips-vgbel.
SELECTION-SCREEN END OF BLOCK block2.
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv.
TYPES: BEGIN OF ty_data,
       matnr TYPE lips-matnr,
       sernr TYPE equi-sernr,
       vbeln TYPE lips-vbeln,
       invno TYPE vbfa-vbeln,
       qmnum TYPE vbak-qmnum,
       netwr type vbrp-netwr,
       END OF ty_data.
DATA: gt_data TYPE TABLE OF ty_data WITH HEADER LINE.
TYPES: BEGIN OF ty_lips,
       vbeln TYPE likp-vbeln,
       matnr TYPE lips-matnr,
       wersk TYPE lips-werks,
       vgbel TYPE lips-vgbel,
       END OF ty_lips.
DATA: gt_lips TYPE TABLE OF ty_lips WITH HEADER LINE.
DATA: gt_vbfa TYPE TABLE OF vbfa WITH HEADER LINE.
DATA: gt_vbrp TYPE TABLE OF vbrp WITH HEADER LINE.
TYPES: BEGIN OF ty_ser01,
       lief_nr TYPE ser01-lief_nr,
       obknr TYPE ser01-obknr,
       sernr TYPE objk-obknr,
       END OF ty_ser01.
DATA: gt_ser01 TYPE TABLE OF ty_ser01 WITH HEADER LINE.
START-OF-SELECTION.
  PERFORM get_data.
  PERFORM display_data.
*& Form get_data
FORM get_data.
  SELECT likpvbeln lipsmatnr lipswerks lipsvgbel
         INTO CORRESPONDING FIELDS OF TABLE gt_lips
         FROM likp INNER JOIN lips ON lipsvbeln = likpvbeln
         WHERE lips~matnr IN s_matnr
         AND lips~werks IN s_werks
         AND likp~kunag IN s_kunag
         AND likp~wadat_ist IN s_waist
         AND lips~vgbel IN s_vgbel
         AND likp~vkorg IN s_vkorg.
  IF NOT gt_lips[] IS INITIAL.
    SELECT vbeln vbelv INTO CORRESPONDING FIELDS OF TABLE gt_vbfa
    FROM vbfa
    FOR ALL ENTRIES IN gt_lips
      WHERE vbelv = gt_lips-vgbel
      AND vbtyp_n = 'M'.
    IF NOT gt_vbfa[] IS INITIAL.
      SELECT vbeln matnr netwr
      INTO CORRESPONDING FIELDS OF TABLE gt_vbrp
      FROM vbrp FOR ALL ENTRIES IN gt_vbfa
      WHERE vbeln = gt_vbfa-vbeln.
      SELECT ser01lief_nr ser01obknr objk~sernr
      INTO CORRESPONDING FIELDS OF TABLE gt_ser01
      FROM ser01 INNER JOIN objk ON objkobknr = ser01obknr
      FOR ALL entries IN gt_vbfa
      WHERE ser01~lief_nr = gt_vbfa-vbeln
      AND taser EQ 'SER01'.
    ENDIF.
  ENDIF.
  clear: gt_data[].
  LOOP AT gt_lips.
    LOOP AT gt_vbfa WHERE vbelv = gt_lips-vgbel.
      READ TABLE gt_vbrp WITH KEY vbeln = gt_vbfa-vbeln
      matnr = gt_lips-matnr.
      LOOP AT gt_ser01 WHERE lief_nr = gt_vbfa-vbeln.
        gt_data-matnr = gt_lips-matnr.
        gt_data-sernr = gt_ser01-sernr.
        gt_data-vbeln = gt_lips-vbeln.
        gt_data-invno = gt_vbfa-vbeln.
        gt_data-netwr = gt_vbrp-netwr.
        APPEND gt_data.
      ENDLOOP.
    ENDLOOP.
  ENDLOOP.
ENDFORM. " get_data
*& Form display_data
FORM display_data.
  DATA: lv_repid TYPE sy-repid.
  lv_repid = sy-repid.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
  EXPORTING
  i_program_name = lv_repid
I_INTERNAL_TABNAME =
  i_structure_name = gt_data
I_CLIENT_NEVER_DISPLAY = 'X'
I_INCLNAME =
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
  CHANGING
  ct_fieldcat = gt_fieldcat
EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
i_callback_program = lv_repid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_STRUCTURE_NAME =
IS_LAYOUT =
it_fieldcat = gt_fieldcat
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
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = gt_data
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.
ENDFORM.