ALV Report DUMP

Question

Hi Experts,
I developed one alv report. Its executing properly. But once i select tab local file in application toolbar its going to dump.
im gettign this error:
Field symbol has not yet been assigned.
The current ABAP program "SAPLKKBL" had to be terminated because it has
come across a statement that unfortunately cannot be executed.
please help me in this regard.
Regards,
Vamsi.

Answer 1

REPORT  ZMM_PURCHREG.
TABLES: RBKP,RSEG,KONV,J_1IMOVEND.
TYPE-POOLS: SLIS.
DATA: IT_RBKP TYPE STANDARD TABLE OF RBKP WITH HEADER LINE.
DATA: IT_LFA1 TYPE STANDARD TABLE OF LFA1 WITH HEADER LINE.
DATA: IT_J_1IMOVEND TYPE STANDARD TABLE OF J_1IMOVEND WITH HEADER LINE.
DATA: IT_RSEG TYPE STANDARD TABLE OF RSEG WITH HEADER LINE.
TYPES: BEGIN OF IT_BAMT1 ,
      RMWWR TYPE RBKP-RMWWR,
      WMWST1 TYPE RBKP-WMWST1,
      END OF IT_BAMT1.
DATA: IT_BAMT TYPE STANDARD TABLE OF IT_BAMT1.
DATA: G_BAMT TYPE RBKP-RMWWR.
DATA: G_RMAMT TYPE RBKP-RMWWR,
      G_WMWST1 TYPE RBKP-WMWST1.
DATA: BEGIN OF IT_TAXCOM OCCURS 0.
      INCLUDE STRUCTURE TAXCOM.
DATA: END OF IT_TAXCOM.
DATA: BEGIN OF IT_MAIN OCCURS 0.
      INCLUDE STRUCTURE ZPO_REG.
DATA: END OF IT_MAIN.
DATA: BEGIN OF IT_EKKO OCCURS 0,
      EBELN TYPE EKKO-EBELN,
      KNUMV TYPE EKKO-KNUMV,
      WAERS TYPE EKKO-WAERS,
      LIFNR TYPE EKKO-LIFNR,
      EKORG TYPE EKKO-EKORG,
      LANDS TYPE EKKO-LANDS,
      END OF IT_EKKO.
DATA: BEGIN OF IT_EKPO OCCURS 0,
      EBELP TYPE EKPO-EBELP,
      EBELN TYPE EKPO-EBELN,
      MWSKZ TYPE EKPO-MWSKZ,
      NETWR TYPE EKPO-NETWR,
      TXJCD TYPE EKPO-TXJCD,
      MATNR TYPE EKPO-MATNR,
      MATKL TYPE EKPO-MATKL,
      MTART TYPE EKPO-MTART,
      WERKS TYPE EKPO-WERKS,
      MEINS TYPE EKPO-MEINS,
      MENGE TYPE EKPO-MENGE,
      END OF IT_EKPO.
DATA : BEGIN OF it_xkomv OCCURS 0.
        INCLUDE STRUCTURE komv.
DATA : END OF it_xkomv.
DATA :  fieldcat TYPE slis_fieldcat_alv,
        fieldcat_t TYPE  slis_t_fieldcat_alv,
        top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE',
        layout TYPE slis_layout_alv,
        pos TYPE sy-tabix,
        xhead(70).
DATA:  lt_sort     TYPE slis_t_sortinfo_alv,
        lt_sp_group TYPE slis_t_sp_group_alv.
==========================SELECTION SCREEN===========================
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS: S_BELNR FOR RBKP-BELNR.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS: P_BUKRS FOR RBKP-BUKRS NO INTERVALS.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS: P_LIFNR FOR RBKP-LIFNR NO INTERVALS.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS: P_BLDAT FOR RBKP-BLDAT NO INTERVALS.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS: P_BUDAT FOR RBKP-BUDAT NO INTERVALS.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN END OF BLOCK b1.
===============AT SELECTION SCREEN==================================
AT SELECTION-SCREEN.
PERFORM VALIDATE_DATA.
===============START OF SELECTION===================================
START-OF-SELECTION.
PERFORM VENDORDETAILS.
*PERFORM BASICAMT.
PERFORM EXCISEDUTY.
PERFORM CONSTRUCT_FIELD_CATALOG.
PERFORM REUSE_ALV_GRID_DISPLAY.
*&      Form  VALIDATE_DATA
      text
-->  p1        text
<--  p2        text
form VALIDATE_DATA .
SELECT BELNR BUKRS LIFNR
       BLDAT BUDAT
       FROM RBKP CLIENT SPECIFIED
       INTO
       CORRESPONDING FIELDS OF TABLE IT_RBKP
       WHERE
       MANDT = SY-MANDT
       AND BELNR IN S_BELNR.
IF SY-SUBRC NE 0.
MESSAGE 'NOT A VALID DOCUMENT NO.' TYPE 'E'.
ELSE.
READ TABLE IT_RBKP INDEX 1.
ENDIF.
endform.         " VALIDATE_DATA
*&      Form  VENDORDETAILS
      text
-->  p1        text
<--  p2        text
form VENDORDETAILS .
SELECT BELNR BUKRS LIFNR
       BLDAT BUDAT XBLNR RMWWR WMWST1
       FROM RBKP CLIENT SPECIFIED
       INTO
       CORRESPONDING FIELDS OF TABLE IT_RBKP
       WHERE
       MANDT = SY-MANDT
       AND BELNR IN S_BELNR
       AND BUKRS IN P_BUKRS
       AND LIFNR IN P_LIFNR
       AND BLDAT IN P_BLDAT
       AND BUDAT IN P_BUDAT.
sort IT_RBKP by lifnr.
LOOP AT IT_RBKP.
SELECT SINGLE LIFNR J_1IEXCD J_1ICSTNO J_1ILSTNO
       FROM J_1IMOVEND CLIENT SPECIFIED
       INTO (IT_J_1IMOVEND-lifnr, IT_J_1IMOVEND-J_1IEXCD,
         IT_J_1IMOVEND-J_1ICSTNO, IT_J_1IMOVEND-J_1ILSTNO)
       WHERE
       MANDT = SY-MANDT and
       LIFNR = IT_RBKP-LIFNR.
APPEND IT_J_1IMOVEND.
ENDLOOP.
sort IT_J_1IMOVEND by lifnr.
delete adjacent duplicates from IT_J_1IMOVEND comparing lifnr.
LOOP AT IT_RBKP.
read table IT_J_1IMOVEND with key LIFNR = it_rbkp-lifnr.
G_BAMT = IT_RBKP-RMWWR - IT_RBKP-WMWST1.
IT_MAIN-BASICAMT = G_BAMT.
IT_MAIN-BUDAT = IT_RBKP-BUDAT.
IT_MAIN-BLDAT = IT_RBKP-BLDAT.
IT_MAIN-BELNR = IT_RBKP-BELNR.
IT_MAIN-XBLNR = IT_RBKP-XBLNR.
IT_MAIN-LIFNR = IT_RBKP-LIFNR.
IT_MAIN-XBLNR = IT_RBKP-XBLNR.
IT_MAIN-J_1IEXCD = IT_J_1IMOVEND-J_1IEXCD.
IT_MAIN-J_1ILSTNO = IT_J_1IMOVEND-J_1ILSTNO.
IT_MAIN-J_1ICSTNO = IT_J_1IMOVEND-J_1ICSTNO.
IT_MAIN-J_1ILSTNO = IT_J_1IMOVEND-J_1ILSTNO.
APPEND IT_MAIN.
CLEAR G_BAMT.
ENDLOOP.
FOR CALCULATING  VAT REG NO.
loop at it_main.
SELECT SINGLE STCEG FROM LFA1
       INTO  it_main-STCEG
       WHERE LIFNR = it_main-LIFNR.
MODIFY IT_MAIN.
ENDLOOP.
endform.                    " VENDORDETAILS
*&      Form  EXCISEDUTY
      text
-->  p1        text
<--  p2        text
form EXCISEDUTY .
LOOP AT IT_RBKP.
SELECT  belnr EBELN EBELP  menge FROM RSEG
               INTO corresponding fields of IT_RSEG
               WHERE BELNR = IT_RBKP-BELNR.
APPEND IT_RSEG.
endselect.
endloop.
LOOP AT IT_MAIN.
       READ TABLE IT_RSEG WITH KEY BELNR = IT_MAIN-BELNR.
       IT_MAIN-EBELN = IT_RSEG-EBELN.
       IT_MAIN-MENGE = IT_RSEG-MENGE.
       MODIFY IT_MAIN.
ENDLOOP.
LOOP AT IT_MAIN.
SELECT  SINGLE KNUMV FROM EKKO
               INTO
               IT_MAIN-KNUMV
                WHERE EBELN = IT_MAIN-EBELN.
MODIFY IT_MAIN.
ENDLOOP.
LOOP AT IT_MAIN.
SELECT EBELP FROM EKPO
             INTO  TABLE IT_EKPO
             WHERE EBELN = IT_MAIN-EBELN.
APPEND IT_EKPO.
ENDLOOP.
DATA: V_RATE  TYPE KWERT,
      V_RATE1 TYPE KWERT,
      V_RATE2 TYPE KWERT,
      V_RATE4 TYPE KWERT,
      V_RATE5 TYPE KWERT,
      V_RATE3 TYPE KWERT,
      V_RATE6 TYPE KWERT.
CLACULATING SECESS
LOOP AT IT_MAIN.
LOOP AT IT_RSEG where belnr = IT_MAIN-belnr
                  and ebeln = IT_MAIN-ebeln.
LOOP AT IT_EKPO WHERE EBELN = IT_MAIN-EBELN.
  SELECT SINGLE kbetr FROM konv
       INTO V_rate WHERE knumv = it_MAIN-knUMV
       AND  kposn = IT_EKPO-EBELP
       AND ( kschl EQ 'JSEI' OR kschl EQ 'JSEP' ).
IF sy-subrc = 0.
IT_MAIN-SECESS = IT_MAIN-SECESS + ( V_RATE / IT_MAIN-MENGE ).
ENDIF.
ENDLOOP.
MODIFY it_main.
ENDLOOP.
ENDLOOP.
Getting ECS
LOOP AT IT_MAIN.
LOOP AT IT_RSEG where belnr = IT_MAIN-belnr
                  and ebeln = IT_MAIN-ebeln.
SELECT SINGLE kbetr FROM konv
       INTO V_rate1 WHERE knumv = it_MAIN-knumv
       AND  kposn = it_RSEG-ebelp
       AND ( kschl EQ 'JEC1' OR kschl EQ 'JEC2' ).
IF sy-subrc = 0.
IT_MAIN-ECS = IT_MAIN-ECS + ( V_RATE1 / IT_MAIN-MENGE ).
CLEAR V_RATE1.
ENDIF.
ENDLOOP.
MODIFY it_main.
ENDLOOP.
Excise Duty
LOOP AT IT_MAIN.
LOOP AT IT_RSEG where belnr = IT_MAIN-belnr
                  and ebeln = IT_MAIN-ebeln.
SELECT SINGLE kbetr FROM konv
       INTO V_rate2 WHERE knumv = it_MAIN-knumv
       AND  kposn = it_RSEG-ebelp
       AND ( kschl EQ 'JMOP' OR kschl EQ 'JMIP' ).
IF sy-subrc = 0.
IT_MAIN-EXCISE = IT_MAIN-EXCISE  + ( V_RATE2 / IT_MAIN-MENGE ).
ENDIF.
CLEAR V_RATE2.
ENDLOOP.
MODIFY it_main.
ENDLOOP.
Freight / Octroi
LOOP AT IT_MAIN.
LOOP AT IT_RSEG where belnr = IT_MAIN-belnr
                  and ebeln = IT_MAIN-ebeln.
SELECT SINGLE kbetr FROM konv
       INTO V_rate3 WHERE knumv = it_MAIN-knumv
       AND  kposn = it_RSEG-ebelp
       AND ( kschl EQ 'FRA1' OR kschl EQ 'FRB1'
          OR KSCHL EQ 'FRC1').
IF sy-subrc = 0.
SELECT SINGLE KBETR FROM KONV
        INTO V_RATE4 WHERE KNUMV = IT_MAIN-KNUMV
        AND KPOSN = IT_RSEG-EBELP
        AND KSCHL EQ 'JOCM'.
IF SY-SUBRC = 0.
        V_RATE5 = V_RATE3 + V_RATE4.
IT_MAIN-OCTROI = IT_MAIN-OCTROI + ( V_RATE5 / IT_MAIN-MENGE ).
ENDIF.
ENDIF.
CLEAR: V_RATE3,
       V_RATE4,
       V_RATE5.
ENDLOOP.
MODIFY it_main.
ENDLOOP.
Other Charges
LOOP AT IT_MAIN.
LOOP AT IT_RSEG where belnr = IT_MAIN-belnr
                  and ebeln = IT_MAIN-ebeln.
SELECT SINGLE kbetr FROM konv
       INTO V_rate6 WHERE knumv = it_MAIN-knumv
       AND  kposn = it_RSEG-ebelp
       AND ( kschl EQ 'ZOTC' ).
IF sy-subrc = 0.
IT_MAIN-OTC = IT_MAIN-OTC  + ( V_RATE6 / IT_MAIN-MENGE ).
ENDIF.
CLEAR V_RATE6.
ENDLOOP.
MODIFY it_main.
ENDLOOP.
ENDFORM.
*&      Form  CONSTRUCT_FIELD_CATALOG
      text
-->  p1        text
<--  p2        text
form CONSTRUCT_FIELD_CATALOG .
  CLEAR : fieldcat_t,pos.
  layout-colwidth_optimize = 'X'.
  CLEAR fieldcat.
  fieldcat-fieldname = 'BUDAT'.
  fieldcat-tabname   = 'IT_MAIN'.
  fieldcat-seltext_l = 'DOC DATE'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'BLDAT'.
  fieldcat-tabname   =  'IT_MAIN'.
  fieldcat-seltext_l = 'BILL DATE'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'BELNR'.
  fieldcat-tabname   =  'IT_MAIN'.
  fieldcat-seltext_l = 'INVOICE RECIEPT NO.'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'XBLNR'.
  fieldcat-tabname   = 'IT_MAIN'.
  fieldcat-seltext_l = 'BILL NO.'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'LIFNR'.
  fieldcat-tabname   =  'IT_MAIN'.
  fieldcat-seltext_l = 'VENDOR NAME'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
CLEAR fieldcat.
fieldcat-fieldname = 'STCEG'.
fieldcat-tabname   =  'IT_MAIN'.
fieldcat-seltext_l = 'VAT REG NO.'.
fieldcat-just = 'L'.
fieldcat-col_pos = pos.
pos = pos + 1.
APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'J_1IEXCD'.
  fieldcat-tabname   = 'IT_MAIN'.
  fieldcat-seltext_l = 'ECC REG NO.'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'J_1ILSTNO'.
  fieldcat-tabname   = 'IT_MAIN'.
  fieldcat-seltext_l = 'PAN REG NO.'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'J_1ICSTNO'.
  fieldcat-tabname   =  'IT_MAIN'.
  fieldcat-seltext_l = 'CST REG NO.'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'J_1ILSTNO'.
  fieldcat-tabname   =  'IT_MAIN'.
  fieldcat-seltext_l = 'LST REG NO.'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'BASICAMT'.
  fieldcat-tabname   = 'IT_MAIN'.
  fieldcat-seltext_l = 'BASIC AMOUNT'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'EXCISE'.
  fieldcat-tabname   =  'IT_MAIN'.
  fieldcat-seltext_l = 'EXCISE AMOUNT'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'ECSS'.
  fieldcat-tabname   =  'IT_MAIN'.
  fieldcat-seltext_l = 'ECSS'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'SECESS'.
  fieldcat-tabname   = 'IT_MAIN'.
  fieldcat-seltext_l = 'SECESS'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'VAT'.
  fieldcat-tabname   = 'IT_MAIN'.
  fieldcat-seltext_l = 'VAT'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'OCTROI'.
  fieldcat-tabname   = 'IT_MAIN'.
  fieldcat-seltext_l = 'Octroi'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
  CLEAR fieldcat.
  fieldcat-fieldname = 'OTC'.
  fieldcat-tabname   = 'IT_MAIN'.
  fieldcat-seltext_l = 'Other charges'.
  fieldcat-just = 'L'.
  fieldcat-col_pos = pos.
  pos = pos + 1.
  APPEND fieldcat TO fieldcat_t.
endform.                    " CONSTRUCT_FIELD_CATALOG
*&      Form  REUSE_ALV_GRID_DISPLAY
      text
-->  p1        text
<--  p2        text
form REUSE_ALV_GRID_DISPLAY .
CALL FUNCTION 'REUSE_ALV_GRID_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_CALLBACK_TOP_OF_PAGE            = TOP_OF_PAGE
  I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
  I_CALLBACK_HTML_END_OF_LIST       = ' '
   I_STRUCTURE_NAME                  = 'ZPO_REG'
  I_BACKGROUND_ID                   = ' '
    I_GRID_TITLE                      = 'PURCHASE REGISTER'
  I_GRID_SETTINGS                   =
    IS_LAYOUT                         = LAYOUT
    IT_FIELDCAT                       = FIELDCAT_T
  IT_EXCLUDING                      =
  IT_SPECIAL_GROUPS                 =
  IT_SORT                           =
  IT_FILTER                         =
  IS_SEL_HIDE                       =
  I_DEFAULT                         = 'X'
    I_SAVE                            = 'A'
  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
  I_HTML_HEIGHT_TOP                 = 0
  I_HTML_HEIGHT_END                 = 0
  IT_ALV_GRAPHICS                   =
  IT_HYPERLINK                      =
  IT_ADD_FIELDCAT                   =
  IT_EXCEPT_QINFO                   =
  IR_SALV_FULLSCREEN_ADAPTER        =
IMPORTING
  E_EXIT_CAUSED_BY_CALLER           =
  ES_EXIT_CAUSED_BY_USER            =
  TABLES
    t_outtab                          = IT_MAIN
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.