Field too short-DUMP

Hi Folks,
I am getting the following dump error.Can any one here please throw some light on this.
Field too small when calculating totals in internal table.
<b>In the internal table "\PROGRAM=ZFI\DATA=IT_HEADER[]", a SUM statement is used to calculate totals. However, the values are too large for the designated field.
The name of the field is "KURSF".
The name of the field is "KURSF".</b>
The field "KURSF" in the program "ZFIR_IMPORT_REGISTER"
be a different
type (e.g. type P of appropriate length).
REPORT  ZFI.
TABLES: rbkp,
        rseg,
        bset,
        mara,
        lfa1,
        ekko,
        t161t.
TYPE-POOLS: slis.
TYPES: BEGIN OF TY_CUSTOM,
          WRBTR TYPE RSEG-WRBTR,
          KSCHL TYPE RSEG-KSCHL,
          EBELN TYPE RSEG-EBELN,
          EBELP TYPE RSEG-EBELP,
       END OF TY_CUSTOM.
TYPES: BEGIN OF ty_itab,
      lfbnr LIKE rseg-lfbnr,               " GR NO
      belnr LIKE rbkp-belnr,               " MIRO doc.no.
      buzei LIKE rseg-buzei,               " MIRO line item number
      fidoc LIKE bkpf-belnr,               " accounting doc.no.
      matnr LIKE rseg-matnr,               " Material number
      maktx LIKE makt-maktx,               " material description
      xblnr LIKE rbkp-xblnr,               " Reference Document Number
      budat LIKE rbkp-budat,               " Posting Date in Document
      mwskz LIKE rseg-mwskz,               " Tax Code
      bklas LIKE rseg-bklas,               " Valuation Class
      menge LIKE rseg-menge,               " Quantity
      gjahr LIKE rseg-gjahr,               " Fiscal Year
      bldat LIKE rbkp-bldat,               " Document Date
      lifnr TYPE rbkp-lifnr,                "Vendor Code
      stcd1 TYPE lfa1-stcd1,                "Tin number
      matkl TYPE mara-matkl,                "Mat Desc
      name1 TYPE lfa1-name1,                "Vendor Name
      awkey TYPE bkpf-awkey,                "Reference Key
      str_suppl1 TYPE adrc-str_suppl1,      "Street
      post_code1 TYPE adrc-post_code1,      "Pincode
      city1 TYPE adrc-city1,                "City
      region TYPE adrc-region,              "Region
      adrnr TYPE lfa1-adrnr,                "Address Number
      dms(3) TYPE c,                        "DMS
      werks TYPE rseg-werks,                "PLANT
      bukrs TYPE rseg-bukrs,                "COMPANY CODE
      stblg TYPE rbkp-stblg,                "DOCUMENT REVERSAL INDICATOR
      mtart TYPE mara-mtart,                "MATERIAL TYPE
      wrbtr TYPE rseg-wrbtr,                "Base Amount
      tax_amount TYPE konv-kwert,           "Tax amount for summary
      vgart TYPE rbkp-vgart,                "Transaction Type
      ivtyp TYPE rbkp-ivtyp,                "Invoice Category
      reverse(2),                           "Invoice Reversed
      land1 TYPE lfa1-land1,                "Country Key
*Fields added for customs
      BED TYPE RSEG-WRBTR,                  "BASIC ED FOR CUSTOMS
      CVD TYPE RSEG-WRBTR,                  "CVD FOR CUSTOMS
      ECVD TYPE RSEG-WRBTR,                 "CESS ON VD FOR CUSTOMS
      ECED TYPE RSEG-wrbtr,                 "CESS ON DUTIES
      lfgja type rseg-lfgja,                "Mat Doc Year
      frbnr type mkpf-frbnr,                "Bill of Lading No
      waers type rbkp-waers,
      txz01 TYPE ekpo-txz01,                "Short Text for Material
      ebeln TYPE rseg-ebeln,                "Purchasing Doc
      bsart type ekko-bsart,                "Pur.Doc Type
      batxt type t161t-batxt,               "Desc for Pur Doc.Type
      ebelp TYPE ekpo-ebelp,                "Purchase Ord Ln Item
      NCVD TYPE RSEG-WRBTR,                 "CESS ON VD FOR CUSTOMS
      SBED TYPE RSEG-wrbtr,                 "CESS ON DUTIES
      TEXT(30),
      qtr_yr(4),
      qtr_mth(10),
*Fields added for Inr Value for exchange rate
      kursf type rbkp-kursf,
      inrval type rseg-wrbtr,
      BELNR1 TYPE RBKP-BELNR,
      remarks(15),
END OF ty_itab.
TYPES: BEGIN OF ty_header,
      belnr LIKE rbkp-belnr,               " MIRO doc.no.
      fidoc LIKE bkpf-belnr,               " accounting doc.no.
      xblnr LIKE rbkp-xblnr,               " Reference Document Number
      budat LIKE rbkp-budat,               " Posting Date in Document
      mwskz LIKE rseg-mwskz,               " Tax Code
      bklas LIKE rseg-bklas,               " Valuation Class
      gjahr LIKE rseg-gjahr,               " Fiscal Year
      bldat LIKE rbkp-bldat,               " Document Date
      lifnr TYPE rbkp-lifnr,                "Vendor Code
      stcd1 TYPE lfa1-stcd1,                "Tin number
      name1 TYPE lfa1-name1,                "Vendor Name
      awkey TYPE bkpf-awkey,                "Reference Key
      str_suppl1 TYPE adrc-str_suppl1,      "Street
      post_code1 TYPE adrc-post_code1,      "Pincode
      city1 TYPE adrc-city1,                "City
      region TYPE adrc-region,              "Region
      adrnr TYPE lfa1-adrnr,                "Address Number
      dms(3) TYPE c,                        "DMS
      werks TYPE rseg-werks,                "PLANT
      bukrs TYPE rseg-bukrs,                "COMPANY CODE
      stblg TYPE rbkp-stblg,                "DOCUMENT REVERSAL INDICATOR
      mtart TYPE mara-mtart,                "MATERIAL TYPE
      wrbtr TYPE rseg-wrbtr,                "Base Amount
      tax_amount TYPE konv-kwert,           "Tax amount for summary
      vgart TYPE rbkp-vgart,                "Transaction Type
      ivtyp TYPE rbkp-ivtyp,                "Invoice Category
      reverse(2),                           "Invoice Reversed
      land1 TYPE lfa1-land1,                "Country Key
      BED TYPE RSEG-WRBTR,                  "BASIC ED FOR CUSTOMS
      CVD TYPE RSEG-WRBTR,                  "CVD FOR CUSTOMS
      ECVD TYPE RSEG-WRBTR,                 "CESS ON VD FOR CUSTOMS
      ECED TYPE RSEG-wrbtr,                 "CESS ON DUTIES
      lfgja type rseg-lfgja,                "Mat Doc Year
      frbnr type mkpf-frbnr,                "Bill of Lading No
      waers type rbkp-waers,
      txz01 TYPE ekpo-txz01,                "Short Text for Material
      NCVD TYPE RSEG-WRBTR,                 "CESS ON VD FOR CUSTOMS
      SBED TYPE RSEG-wrbtr,                 "CESS ON DUTIES
      TEXT(30),
      qtr_yr(4),
      qtr_mth(10),
*Fields added for Inr Value for exchange rate
      kursf type rbkp-kursf,
      inrval type rseg-wrbtr,
      BELNR1 TYPE RBKP-BELNR,
      remarks(15),
END OF ty_header.
types: begin of ty_pohistory,
        xblnr type ekbe-xblnr,
        bewtp type ekbe-bewtp,
        belnr type ekbe-belnr,
        gjahr type ekbe-gjahr,
       end of ty_pohistory.
TYPES: BEGIN OF ty_temp,
        fidoc TYPE bkpf-belnr,              "FIDOC No
        awkey TYPE bkpf-belnr,              "Reference Key
        gjahr TYPE bkpf-gjahr,              "Fiscal Year
        budat TYPE bkpf-budat,              "Posting Date
        belnr TYPE rbkp-belnr,              "Doc No
        blart TYPE bkpf-blart,              "Document Type
       END OF ty_temp.
*Internal Table
DATA: itab TYPE ty_itab OCCURS 0 WITH HEADER LINE.
DATA: itab_temp TYPE ty_temp OCCURS 0 WITH HEADER LINE.
DATA : IT_CUSTOM TYPE TY_CUSTOM OCCURS 0 WITH HEADER LINE.
data: it_pohistory type ty_pohistory occurs 0 with header line.
data : it_header type ty_header occurs 0 with header  line.
data : it_temp14 type ty_header occurs 0 with header  line.
*Data Declaration
DATA: BKTXT TYPE MKPF-BKTXT.
DATA: FRBNR TYPE MKPF-FRBNR.
data: budat type mkpf-budat.
DATA: BELNR TYPE RSEG-BELNR.
data: gjahr type rseg-gjahr.
data: date1(10).
data: date2(10).
data: title(70).
DATA : adrnr1 LIKE t001w-adrnr.
DATA: plant_name1 LIKE adrc-name1.
DATA: plant_name2 type adrc-name2.
data: plant_name(70).
DATA: comp_name1 LIKE adrc-name1.
DATA: comp_name2 type adrc-name2.
data: comp_name(70).
DATA: month(2).
For ALV display
DATA: itfieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      gd_layout TYPE slis_layout_alv,
      itsort TYPE slis_t_sortinfo_alv WITH HEADER LINE.
DATA: gd_prntparams TYPE slis_print_alv.
DATA : it_data TYPE slis_t_listheader,
       wa_data LIKE LINE OF it_data.
**ALV Declaration
DATA: it_alv1 LIKE TABLE OF itab WITH HEADER LINE.
DATA : i TYPE n.
DATA : col_name(10) TYPE c.
data: text(70).
*Selection Screen
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.
PARAMETERS:p_bukrs LIKE rbkp-bukrs OBLIGATORY.
SELECT-OPTIONS: s_werks FOR rseg-werks NO INTERVALS OBLIGATORY.
SELECT-OPTIONS: s_regio FOR lfa1-regio NO INTERVALS.
SELECT-OPTIONS: s_lifnr FOR lfa1-lifnr NO INTERVALS.
select-options: s_bsart for ekko-bsart no intervals.
SELECT-OPTIONS:s_bldat FOR rbkp-bldat.
SELECT-OPTIONS:s_budat FOR rbkp-budat OBLIGATORY.
SELECTION-SCREEN END OF BLOCK block1.
SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME TITLE text-002.
PARAMETERS : R1  RADIOBUTTON GROUP G1.
PARAMETERS : R2  RADIOBUTTON GROUP G1.
SELECTION-SCREEN END OF BLOCK block2.
SELECT-OPTIONS: s_mwskz FOR rseg-mwskz NO-DISPLAY.
SELECT-OPTIONS: s_land1 FOR lfa1-land1 NO-DISPLAY.
START-OF-SELECTION.
PERFORM get_data.
**Filtering the Data based on the Document Type and Document Status in the Internal Table
LOOP AT itab_temp.
IF itab_temp-blart = 'RE'.
itab_temp-belnr = itab_temp-awkey+0(10).
MODIFY itab_temp.
ELSE.
DELETE itab_temp.
ENDIF.
ENDLOOP.
WRITE : s_budat-low TO date1,
         s_budat-high TO date2.
CONCATENATE 'Import Purchase Register From :' date1 ' To : '   date2 INTO text.
if r1 = 'X'.
PERFORM taxvalues.
PERFORM filtering.
PERFORM CUSTOMS.
perform filtering2.
PERFORM build_layout.
PERFORM build_fieldcat.
PERFORM alv_display.
endif.
if r2 = 'X'.
PERFORM taxvalues.
PERFORM filtering.
PERFORM CUSTOMS.
perform filtering2.
PERFORM importheader.
PERFORM build_layout.
PERFORM build_fieldcat1.
PERFORM alv_display_header.
endif.
*&      Form  get_data
      text
-->  p1        text
<--  p2        text
FORM get_data .
SELECT belnr AS fidoc
       awkey
       budat
       gjahr
       blart
       FROM bkpf INTO CORRESPONDING FIELDS OF TABLE itab_temp
       WHERE bukrs = p_bukrs
       AND budat IN s_budat
       AND bstat = space.
IF sy-subrc NE 0.
  MESSAGE 'No Values exist for the Selection.' TYPE 'S'.
  STOP.
ENDIF.
ENDFORM.
*&      Form  taxvalues
      text
-->  p1        text
<--  p2        text
FORM taxvalues .
LOOP AT itab_temp.
MOVE-CORRESPONDING itab_temp TO itab.
  SELECT SINGLE
          lifnr
          xblnr
          belnr
          gjahr
          stblg
          bldat
          vgart
          ivtyp
          waers
          kursf
          FROM rbkp INTO CORRESPONDING FIELDS OF itab
             WHERE belnr = itab_temp-belnr
               AND gjahr = itab_temp-gjahr.
  SELECT  menge
          bklas
          matnr
          lfbnr
          werks
          mwskz
          buzei
          wrbtr
          pstyp
          kschl
          ebeln
          ebelp
          lfgja
          shkzg FROM rseg INTO CORRESPONDING FIELDS OF itab
          WHERE belnr = itab_temp-belnr
          AND gjahr = itab_temp-gjahr.
APPEND itab.
ENDSELECT.
CLEAR itab.
CLEAR itab_temp.
ENDLOOP.
LOOP AT itab .
*Purchase Order Document Type.
select single bsart from ekko into corresponding fields of itab
where ebeln = itab-ebeln.
select single batxt from t161t into corresponding fields of itab
where spras = 'EN' AND
      bsart = itab-bsart.
*Material Details
SELECT SINGLE  matkl mtart FROM mara
                INTO CORRESPONDING FIELDS OF itab
                WHERE mara~matnr = itab-matnr.
SELECT SINGLE name1 adrnr land1 FROM lfa1 INTO
                (itab-name1,itab-adrnr,itab-land1) WHERE lifnr = itab-lifnr.
*Short Text
SELECT SINGLE txz01 INTO itab-maktx FROM ekpo
            WHERE ebeln = itab-ebeln
            and ebelp = itab-ebelp.
**Vendor Address
SELECT SINGLE str_suppl1
       post_code1
       city1
       region
       FROM adrc INTO CORRESPONDING FIELDS OF itab
             WHERE addrnumber = itab-adrnr.
itab-qtr_yr = itab-bldat+0(4).
month = itab-bldat+4(2).
CASE month.
  WHEN '01'.
    itab-qtr_mth = 'JAN'.
  WHEN '02'.
    itab-qtr_mth = 'FEB'.
  WHEN '03'.
    itab-qtr_mth = 'MAR'.
  WHEN '04'.
    itab-qtr_mth = 'APR'.
  WHEN '05'.
    itab-qtr_mth = 'MAY'.
  WHEN '06'.
    itab-qtr_mth = 'JUN'.
  WHEN '07'.
    itab-qtr_mth = 'JUL'.
  WHEN '08'.
    itab-qtr_mth = 'AUG'.
  WHEN '09'.
    itab-qtr_mth = 'SEP'.
  WHEN '10'.
    itab-qtr_mth = 'OCT'.
  WHEN '11'.
    itab-qtr_mth = 'NOV'.
  WHEN '12'.
    itab-qtr_mth = 'DEC'.
ENDCASE.
*INR VALUE CALCULATION
<b>itab-inrval = itab-wrbtr * itab-kursf.</b>MODIFY itab.
ENDLOOP.
ENDFORM.                    " taxvalues
*&      Form  build_layout
      text
-->  p1        text
<--  p2        text
FORM build_layout .
  CLEAR itab.
  gd_layout-zebra = 'X'.
  gd_layout-colwidth_optimize = 'X'.
ENDFORM.                    " build_layout
*&      Form  build_fieldcat
      text
-->  p1        text
<--  p2        text
FORM build_fieldcat .
IF itab[] IS INITIAL.
  MESSAGE 'No Values exist for the Selection.' TYPE 'S'.
  STOP.
ENDIF.
  DEFINE m_fieldcat.
    itfieldcat-fieldname = &1.
    itfieldcat-col_pos = &2.
    itfieldcat-seltext_l = &3.
    itfieldcat-do_sum = &4.
    itfieldcat-outputlen = &5.
    append itfieldcat to itfieldcat.
    clear itfieldcat.
  END-OF-DEFINITION.
  m_fieldcat 'LFBNR' '' 'GR NO' '' 10.
  m_fieldcat 'BELNR' '' 'MIRO NO' '' 10.
  m_fieldcat 'BUZEI' '' 'MIRO LN ITM' '' 10.
  m_fieldcat 'LIFNR' '' 'VENDOR CODE' '' 10.
  m_fieldcat 'NAME1' '' 'VENDOR NAME'  '' 14.
  m_fieldcat 'STR_SUPPL1' '' 'VENDOR ADDRESS' '' '15'  .
  m_fieldcat 'POST_CODE1' '' 'PINCODE' '' 6.
  m_fieldcat 'XBLNR' '' 'VEN INV NO' '' 16.
  m_fieldcat 'BLDAT' '' 'VEN INV DATE' '' 8.
  m_fieldcat 'EBELN' '' 'PUR ORD NO' '' 10.
m_fieldcat 'BATXT' '' 'PUR ORD DOC.TYPE' '' 20.  "Pur Doc. Type Description
  m_fieldcat 'EBELP' '' 'PUR LN ITM' '' 5.
  m_fieldcat 'WERKS' '' 'PLANT' '' 8.
  m_fieldcat 'MATNR' '' 'MAT NO' '' 18.
  m_fieldcat 'MAKTX' '' 'MAT DESC' '' 15.
  m_fieldcat 'MATKL' '' 'MAT CC' '' 7.
  m_fieldcat 'MENGE' '' 'QTY' '' 13.
  m_fieldcat 'WRBTR' '' 'VAL. OF GOODS' '' 11.
  m_fieldcat 'WAERS' '' 'CURR' '' 5.
  m_fieldcat 'INRVAL' '' 'INR VALUE' '' 13.
  m_fieldcat 'BED' '' 'BED' '' 10.
  m_fieldcat 'CVD' '' 'CVD' '' 10.
  m_fieldcat 'ECVD' '' 'CESS ON CVD' '' 10.
  m_fieldcat 'ECED' '' 'CESS ON DUTIES' '' 13.
*Bill of Lading Removed and Bill of Entry Added.
m_fieldcat 'FRBNR' '' 'BILL OF LADING' '' 13.
  m_fieldcat 'BELNR1' '' 'BILL OF ENTRY' '' 13.
  m_fieldcat 'REVERSE' '' 'Reversed' '' 2.
  m_fieldcat 'FIDOC' '' 'FI DOC NO' '' 10.
  m_fieldcat 'MWSKZ' '' 'TC' '' 2.
  m_fieldcat 'BKLAS' '' 'VL CLS' '' 4.
  m_fieldcat 'CITY1' '' 'VENDOR CITY' '' 10.
  m_fieldcat 'QTR_MTH' '' 'MONTH' '' 10.
  m_fieldcat 'QTR_YR' '' 'YEAR' '' 4.
  m_fieldcat 'REMARKS' '' 'REMARKS' '' 15.
ENDFORM.                    " build_fieldcat
*&      Form  list1
      text
     -->R_UCOMM    text
     -->RS_SELFIELDtext
FORM list1 USING r_ucomm LIKE sy-ucomm
                  rs_selfield TYPE slis_selfield.
Check function code
  CASE r_ucomm.
    WHEN '&IC1'.
  Check field clicked on within ALVgrid report
      IF rs_selfield-fieldname = 'LFBNR'.
   AND rs_selfield-fieldname = 'GJAHR'.
    Read data table, using index of row user clicked on
        READ TABLE itab
     INTO wa_ekko
        INDEX rs_selfield-tabindex.
    Set parameter ID for transaction screen field
        SET PARAMETER ID 'MBN' FIELD itab-lfbnr.
        SET PARAMETER ID 'GJR' FIELD itab-gjahr.
    Sxecute transaction ME23N, and skip initial data entry screen
        CALL TRANSACTION 'MB03' AND SKIP FIRST SCREEN.
      ENDIF.
      IF rs_selfield-fieldname = 'FIDOC'.
   AND rs_selfield-fieldname = 'GJAHR'.
    Read data table, using index of row user clicked on
        READ TABLE itab
     INTO wa_ekko
        INDEX rs_selfield-tabindex.
    Set parameter ID for transaction screen field
        SET PARAMETER ID 'BLN' FIELD itab-fidoc.
        SET PARAMETER ID 'BUK' FIELD p_bukrs.
        SET PARAMETER ID 'GJR' FIELD itab-gjahr.
    Sxecute transaction ME23N, and skip initial data entry screen
        CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
      ENDIF.
      IF rs_selfield-fieldname = 'BELNR'.
   AND rs_selfield-fieldname = 'GJAHR'.
    Read data table, using index of row user clicked on
        READ TABLE itab
     INTO wa_ekko
        INDEX rs_selfield-tabindex.
    Set parameter ID for transaction screen field
        SET PARAMETER ID 'RBN' FIELD itab-BELNR.
        SET PARAMETER ID 'GJR' FIELD itab-gjahr.
    Sxecute transaction ME23N, and skip initial data entry screen
        CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN.
      ENDIF.
      IF rs_selfield-fieldname = 'BELNR1'.
   AND rs_selfield-fieldname = 'GJAHR'.
    Read data table, using index of row user clicked on
        READ TABLE itab
     INTO wa_ekko
        INDEX rs_selfield-tabindex.
    Set parameter ID for transaction screen field
        SET PARAMETER ID 'RBN' FIELD itab-BELNR1.
        SET PARAMETER ID 'GJR' FIELD itab-gjahr.
    Sxecute transaction ME23N, and skip initial data entry screen
        CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN.
      ENDIF.
  ENDCASE.
ENDFORM.
*&      Form  alv_display
      text
-->  p1        text
<--  p2        text
FORM alv_display .
IF sy-batch = space.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program      = sy-repid
      is_layout               = gd_layout
      i_callback_user_command = 'LIST1'
      I_CALLBACK_TOP_OF_PAGE  = 'TOP_OF_PAGE'
      it_fieldcat             = itfieldcat[]
      i_save                  = 'A'
      is_print                = gd_prntparams
      it_sort                 = itsort[]
    TABLES
      t_outtab                = itab
      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.
ELSEIF sy-batch = 'X'.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
   EXPORTING
     i_callback_program             = sy-repid
     it_fieldcat                    = itfieldcat[]
      it_sort                       = itsort[]
    TABLES
      t_outtab                       = itab
   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.
ENDIF.
ENDFORM.                    " alv_display
*&      Form  FILTERING
      text
-->  p1        text
<--  p2        text
FORM filtering .
Material type should be of ROH or HALB or FERT
*CLEAR s_mtart.
*REFRESH s_mtart.
*s_mtart-sign = 'I'.
*s_mtart-option = 'EQ'.
*s_mtart-low = 'ROH'.
*APPEND s_mtart.
*s_mtart-low = 'HALB'.
*APPEND s_mtart.
*s_mtart-low = 'FERT'.
*APPEND s_mtart.
*CLEAR  s_mtart.
*Tax Code for WCT should not be included.
s_mwskz-sign = 'I'.
s_mwskz-option = 'EQ'.
s_mwskz-low = 'W1'.
APPEND s_mwskz.
s_mwskz-low = 'W2'.
APPEND s_mwskz.
s_mwskz-low = 'W3'.
APPEND s_mwskz.
s_mwskz-low = 'W4'.
APPEND s_mwskz.
s_mwskz-low = 'W5'.
APPEND s_mwskz.
s_mwskz-low = 'W6'.
APPEND s_mwskz.
s_land1-sign = 'I'.
s_land1-option = 'NE'.
s_land1-low = 'IN'.
APPEND s_land1.
LOOP AT itab.
    IF itab-mwskz NOT IN s_mwskz
      AND itab-shkzg EQ 'S'
       AND itab-bldat IN s_bldat
       AND itab-region IN s_regio
       AND itab-lifnr IN s_lifnr
       AND itab-land1 IN s_land1
       AND itab-werks IN s_werks
       AND itab-bsart IN s_bsart.
     ELSE.
       DELETE itab.
       CONTINUE.
    ENDIF.
    IF itab-vgart EQ 'RS'
       AND itab-ivtyp EQ '5'
       AND itab-stblg NE ' '.
         itab-reverse = 'RS'.
    ELSEIF  itab-vgart EQ 'RD'
       AND itab-ivtyp EQ ' '
       AND itab-stblg NE ' '.
         itab-reverse = 'RD'.
    ENDIF.
   MODIFY itab.
ENDLOOP.
ENDFORM.                    " FILTERING
*&      Form  CUSTOMS
      text
-->  p1        text
<--  p2        text
form CUSTOMS .
LOOP AT ITAB.
IF ITAB-LFBNR IS NOT INITIAL.
SELECT SINGLE BKTXT
              FRBNR
              budat
              FROM MKPF INTO (BKTXT,FRBNR,budat)
              WHERE MBLNR = ITAB-LFBNR
              and mjahr = itab-lfgja.
  move frbnr to itab-frbnr.
  perform get_custom_invoice.
else.
select xblnr
       bewtp
       belnr
       gjahr
       from ekbe into table it_pohistory
       where ebeln = itab-ebeln
       and ebelp = itab-ebelp.
sort it_pohistory by xblnr.
read table it_pohistory with key xblnr = itab-xblnr bewtp = 'E' binary search.
if sy-subrc = 0.
    SELECT SINGLE BKTXT
              FRBNR
              budat
              FROM MKPF INTO (BKTXT,FRBNR,budat)
              WHERE MBLNR = it_pohistory-belnr
              and mjahr = it_pohistory-gjahr.
    move it_pohistory-belnr to itab-lfbnr.
    move frbnr to itab-frbnr.
    perform get_custom_invoice.
endif.
ENDIF.
MODIFY ITAB.
clear: bktxt,frbnr,budat.
ENDLOOP.
SORT itab BY lfbnr belnr. " Sorting by GR no.
endform.                    " CUSTOMS
*&      Form  get_custom_invoice
      text
-->  p1        text
<--  p2        text
form get_custom_invoice .
CALL FUNCTION 'GET_CURRENT_YEAR'
EXPORTING
   BUKRS         = p_bukrs
   DATE          =  budat
IMPORTING
   CURRY         = gjahr
determine if wrong characters were entered
IF ( BKTXT CN '1234567890' ).
*string contains wrong characters!
      ITAB-BELNR1 = BKTXT.
      ITAB-remarks = 'Wrng BoE Ref'.
    EXIT.
  ENDIF.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  EXPORTING
    input         = BKTXT
IMPORTING
   OUTPUT        = BELNR
ITAB-BELNR1 = BELNR.
*For getting the Customs MIRO doc, it is assumed that the Fiscal Year of Customs Miro is same as Fiscal Year of Migo Posting Date
clear it_custom.
refresh it_custom.
SELECT WRBTR
       KSCHL
       EBELN
       EBELP
       FROM RSEG INTO CORRESPONDING FIELDS OF IT_CUSTOM
       WHERE BELNR = BELNR
       and gjahr = gjahr.
if sy-subrc = 0.
  APPEND IT_CUSTOM.
endif.
ENDSELECT.
LOOP AT IT_CUSTOM.
    IF IT_CUSTOM-EBELN = ITAB-EBELN AND IT_CUSTOM-EBELP = ITAB-EBELP.
         CASE IT_CUSTOM-KSCHL.
             WHEN 'JCDB'.
                 MOVE IT_CUSTOM-WRBTR TO ITAB-BED.
             WHEN 'JCV1'.
                 MOVE IT_CUSTOM-WRBTR TO ITAB-CVD.
             WHEN 'JECV'.
                 MOVE IT_CUSTOM-WRBTR TO ITAB-ECVD.
             WHEN 'JEDB'.
                 MOVE IT_CUSTOM-WRBTR TO ITAB-ECED.
             WHEN 'JCDS'.
                 MOVE IT_CUSTOM-WRBTR TO ITAB-SBED.
             WHEN 'JCV2'.
                 MOVE IT_CUSTOM-WRBTR TO ITAB-NCVD.
          ENDCASE.
    ENDIF.
ENDLOOP.
endform.                    " get_custom_invoice
*&      Form  filtering2
      text
-->  p1        text
<--  p2        text
form filtering2 .
loop at itab.
  if itab-lfbnr is initial.
      delete itab.
  endif.
endloop.
endform.                    " filtering2
*& Form top_of_page
text
FORM top_of_page.
CLEAR IT_DATA.
REFRESH IT_DATA.
*Company Details
SELECT adrnr FROM t001 INTO adrnr1 WHERE bukrs = p_bukrs.
ENDSELECT.
SELECT name1 name2 FROM adrc INTO (comp_name1,comp_name2) WHERE addrnumber = adrnr1.
ENDSELECT.
concatenate comp_name1 comp_name2 into comp_name.
wa_data-typ = 'H'.
wa_data-info = comp_name.
APPEND wa_data TO it_data.
*Plant Details for Display
loop at s_werks.
SELECT single adrnr FROM t001w INTO adrnr1 WHERE werks = s_werks-low.
SELECT single name1 name2 FROM adrc INTO (plant_name1,plant_name2) WHERE addrnumber = adrnr1.
concatenate s_werks-low ' - ' plant_name1 ',' plant_name2 into plant_name.
wa_data-info = plant_name.
APPEND wa_data TO it_data.
endloop.
WRITE : s_budat-low TO date1,
        s_budat-high TO date2.
if r1 = 'X'.
CONCATENATE 'Import Purchase Register From :' date1 ' To : '   date2 INTO title.
elseif r2 = 'X'.
CONCATENATE 'Imp.Pur.Reg- Inv.Header From :' date1 ' To : '   date2 INTO title.
endif.
wa_data-info = title.
APPEND wa_data TO it_data.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = it_data
I_LOGO =
I_END_OF_LIST_GRID =
CLEAR WA_DATA.
CLEAR IT_DATA.
ENDFORM. "top_of_page
*&      Form  importheader
      text
-->  p1        text
<--  p2        text
form importheader .
LOOP AT itab.
  MOVE-CORRESPONDING itab TO it_header.
  APPEND it_header.
ENDLOOP.
SORT it_header BY belnr.
<b>LOOP AT it_header.
AT END OF belnr.
  READ TABLE it_header INDEX sy-tabix.
  SUM.                </b>                                      " Summing the Amount for each Vendor Invoice No.
  MOVE-CORRESPONDING it_header TO it_temp14.
  APPEND it_temp14.
  CLEAR it_temp14.
ENDAT.
ENDLOOP.
SORT it_temp14  BY belnr  ASCENDING.                                 " SORTING BY MIRO NUMBER
endform.                    " importheader
*&      Form  build_fieldcat1
      text
-->  p1        text
<--  p2        text
form build_fieldcat1 .
IF itab[] IS INITIAL.
  MESSAGE 'No Values exist for the Selection.' TYPE 'S'.
  STOP.
ENDIF.
  DEFINE m_fieldcat.
    itfieldcat-fieldname = &1.
    itfieldcat-col_pos = &2.
    itfieldcat-seltext_l = &3.
    itfieldcat-do_sum = &4.
    itfieldcat-outputlen = &5.
    append itfieldcat to itfieldcat.
    clear itfieldcat.
  END-OF-DEFINITION.
  m_fieldcat 'BELNR' '' 'MIRO NO' '' 10.
  m_fieldcat 'LIFNR' '' 'VENDOR CODE' '' 10.
  m_fieldcat 'NAME1' '' 'VENDOR NAME'  '' 14.
  m_fieldcat 'STR_SUPPL1' '' 'VENDOR ADDRESS' '' '15'  .
  m_fieldcat 'POST_CODE1' '' 'PINCODE' '' 6.
  m_fieldcat 'XBLNR' '' 'VEN INV NO' '' 16.
  m_fieldcat 'BLDAT' '' 'VEN INV DATE' '' 8.
  m_fieldcat 'WERKS' '' 'PLANT' '' 8.
  m_fieldcat 'WRBTR' '' 'VAL. OF GOODS' '' 11.
  m_fieldcat 'WAERS' '' 'CURR' '' 5.
  m_fieldcat 'INRVAL' '' 'INRVALUE' '' 11.
  m_fieldcat 'BED' '' 'BED' '' 10.
  m_fieldcat 'CVD' '' 'CVD' '' 10.
  m_fieldcat 'ECVD' '' 'CESS ON CVD' '' 10.
  m_fieldcat 'ECED' '' 'CESS ON DUTIES' '' 13.
*Bill of Lading Removed and Bill of Entry Added.
m_fieldcat 'FRBNR' '' 'BILL OF LADING' '' 13.
  m_fieldcat 'BELNR1' '' 'BILL OF ENTRY' '' 13.
  m_fieldcat 'REVERSE' '' 'Reversed' '' 2.
  m_fieldcat 'FIDOC' '' 'FI DOC NO' '' 10.
  m_fieldcat 'MWSKZ' '' 'TC' '' 2.
  m_fieldcat 'BKLAS' '' 'VL CLS' '' 4.
  m_fieldcat 'CITY1' '' 'VENDOR CITY' '' 10.
  m_fieldcat 'QTR_MTH' '' 'MONTH' '' 10.
  m_fieldcat 'QTR_YR' '' 'YEAR' '' 4.
  m_fieldcat 'REMARKS' '' 'REMARKS' '' 15.
  ENDFORM.                    " build_fieldcat
*&      Form  alv_display_header
      text
-->  p1        text
<--  p2        text
form alv_display_header .
IF sy-batch = space.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program      = sy-repid
      is_layout               = gd_layout
      i_callback_user_command = 'LIST2'
      I_CALLBACK_TOP_OF_PAGE  = 'TOP_OF_PAGE'
      it_fieldcat             = itfieldcat[]
      i_save                  = 'A'
      is_print                = gd_prntparams
      it_sort                 = itsort[]
    TABLES
      t_outtab                = it_temp14
      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.
ELSEIF sy-batch = 'X'.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
   EXPORTING
     i_callback_program             = sy-repid
     it_fieldcat                    = itfieldcat[]
      it_sort                       = itsort[]
    TABLES
      t_outtab                       = it_temp14
   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.
ENDIF.
endform.                    " alv_display_header
*&      Form  list1
      text
     -->R_UCOMM    text
     -->RS_SELFIELDtext
FORM list2 USING r_ucomm LIKE sy-ucomm
                  rs_selfield TYPE slis_selfield.
Check function code
  CASE r_ucomm.
    WHEN '&IC1'.
      IF rs_selfield-fieldname = 'FIDOC'.
   AND rs_selfield-fieldname = 'GJAHR'.
    Read data table, using index of row user clicked on
        READ TABLE it_temp14
     INTO wa_ekko
        INDEX rs_selfield-tabindex.
    Set parameter ID for transaction screen field
        SET PARAMETER ID 'BLN' FIELD it_temp14-fidoc.
        SET PARAMETER ID 'BUK' FIELD p_bukrs.
        SET PARAMETER ID 'GJR' FIELD it_temp14-gjahr.
    Sxecute transaction ME23N, and skip initial data entry screen
        CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
      ENDIF.
      IF rs_selfield-fieldname = 'BELNR'.
   AND rs_selfield-fieldname = 'GJAHR'.
    Read data table, using index of row user clicked on
        READ TABLE it_temp14
     INTO wa_ekko
        INDEX rs_selfield-tabindex.
    Set parameter ID for transaction screen field
        SET PARAMETER ID 'RBN' FIELD it_temp14-BELNR.
        SET PARAMETER ID 'GJR' FIELD it_temp14-gjahr.
    Sxecute transaction ME23N, and skip initial data entry screen
        CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN.
      ENDIF.
      IF rs_selfield-fieldname = 'BELNR1'.
   AND rs_selfield-fieldname = 'GJAHR'.
    Read data table, using index of row user clicked on
        READ TABLE it_temp14
     INTO wa_ekko
        INDEX rs_selfield-tabindex.
    Set parameter ID for transaction screen field
        SET PARAMETER ID 'RBN' FIELD it_temp14-BELNR1.
        SET PARAMETER ID 'GJR' FIELD it_temp14-gjahr.
    Sxecute transaction ME23N, and skip initial data entry screen
        CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN.
      ENDIF.
  ENDCASE.
ENDFORM.
Message was edited by:
        Kiran K

Sandeep,
It is working fine for all the dates,but going giving dump only for a particular date.
KURSF is of length 9.Is it including decimal places.
So,if i declare a varibale of type p decimals 5 and then move actual kursf value to this variable and then SUM,it will work fine.
data:kursf1 type p decimals 5.
move it_header-kursf to it_header-kursf1.
or
just declare the existing kursf as type p decimals 5
But why it is not giving dump for other dates.
Thanks,
K.Kiran.

Similar Messages

  • FMDependency field too short in Sharepoint

    Hi,
    we are using FM10 with Sharepoint 2010.
    It works fine, generally speaking, but we are running into an issue with the field FMDependency.
    The field is created automatically when a FM10 file is uploaded. However it is too short for the kind of dependencies we have and it issues an error when we modify other metadata in Sharepoint and save the item.
    is it possibile to change the length of this field ? Where and how ?
    Thanks for your support
    Carlo Tognoni
    Milano - Italy

    I have not tried this myself, but I am concerned in case the problem affects us one day. If you follow this suggestion, please let us know how it goes.
    In SharePoint:
    Site Actions > Site Settings > Site Administration: Site Libraries and lists > Customize [your DITA list].
    Scroll down to the Columns section and select FMDependency.
    In the Additional Column Settings section, set Allow unlimited length in document libraries to Yes.
    My reference for this was http://sharepoint.stackexchange.com/questions/14195/more-than-255-characters-in-multiple-l ines-of-text
    Alternatively, you could try increasing the Number of lines for editing on the same page.

  • Save Dialog input field too short

    When i save documents in any app, the save dialog appears. The input field for the file name in very short, meaning, with long filenames you have to scroll and move your mouse in this tiny field?
    Why does OSX not use more space for this input field, there is so much more horizontal space left???
    Any ideas how to fix this with a workaround?
    Apple, please fix this in future updates.
    Thanks!

    Sandeep,
    It is working fine for all the dates,but going giving dump only for a particular date.
    KURSF is of length 9.Is it including decimal places.
    So,if i declare a varibale of type p decimals 5 and then move actual kursf value to this variable and then SUM,it will work fine.
    data:kursf1 type p decimals 5.
    move it_header-kursf to it_header-kursf1.
    or
    just declare the existing kursf as type p decimals 5
    But why it is not giving dump for other dates.
    Thanks,
    K.Kiran.

  • CRM replication t_other_info BAPIEXTC structure field too short

    I am using the FM to map r3 to crm and it tells us to use the structure T_other_info which has 4 fields, field 1, field 2, field 3, and field 4 each only 250 chars.
    My structure that i am passing to the function module is 300 char for field3, what can i do?   I am not able to replicate addiitional fields because when i pass it over it turns into '###' when the field is mapped.   I am assuming it is because i can only pass 250 chars to field1,2,3,4 etc.
    The fm i am using is 'Z_U_EXIT_MAT_MAP_OLTP' .
    tables
    t_int_tables = t_int_tables
    t_bapistruct = t_bapistruct
    t_messages = t_messages
    t_other_info = t_other_info.
    thank you.

    not answered

  • Authorization Object for 0TCTBISBOBJ - restriction field too short in PFCG

    Dear all,
    I created an authorization object (TA: RSSM) with the InfoObject 0TCTBISBOBJ and 1KYFNM. When I restrict my authorization object in TA: PFCG, I can only type in 11 letters for InfoObject 0TCTBISBOBJ but I need 12 because of a bad naming convention. Working with more than one asterisk (*) in this field is not working!
    Does anyone know how to manage this problem?
    Thanks in advance
    F. L.

    Martin,
    It is not possible to restrict this in CRM.  The person, organization, and group influences the type of address for the business partner.  There are no user exits available in CRM 4.0 that are at the point to perform an authorization check on this value.
    I had to unfortuantely debug and read much of BUPA_DIALOG_JOEL before reaching this conclusion.  The only way to achieve this would be to write a custom front-end to the BP transaction or PCUI screens for business partners.
    Hope this answers your question,
    Stephen

  • Short Dump created while modifying a process chain

    Hi guys ,
    Iam getting a short dump while trying to modify a process chain and it is taking me too short dump where the message is PROCESS HAS NO PREDECESSOR but even when Iam trying to DETAILED VIEW it is taking me too short dump
    Can anyone help me out of this issue

    Hi ,
    I have removed the existing start process  and I have checked but there is no Use the same short dump is created again
    Please suggest me some usefull solution .

  • Short dump in alv too many parameters in perform)

    I M GETTING PROBLEM IN THIS PROGRAM AGAIN.
    Getting short dump too many paramamerets in perform
    <CODE>Report Z_50840_ALV
    Line-size 80
    Line-count 64
    Message-id ZZ
    No Standard Page Heading.
    Copyright statement *
    @ copyright 2007 by Intelligroup Inc. *
    Program Details *
    Program Name: Z_50840_ALV
    Date : 19.07.2007
    Author : Vasudevaraman V
    Description : Test Program
    Transport No:
    Change Log *
    Date :
    Author :
    Description :
    Transport No:
    Tables *
    Tables: vbrk.
    Type Pools *
    Type-Pools: SLIS.
    Variables *
    Data: GV_REPID TYPE SY-REPID.
    Structures *
    Data: BEGIN OF GIT_VBRK OCCURS 0,
    VBELN LIKE VBRK-VBELN, "Billing Document
    FKART LIKE VBRK-FKART, "Billing Type
    KNUMV LIKE VBRK-KNUMV, "Number of the document condition
    BUKRS LIKE VBRK-BUKRS, "Company code
    NETWR LIKE VBRK-NETWR, "Net value in document currency
    WAERK LIKE VBRK-WAERK, "SD document currency in basic list
    END OF GIT_VBRK,
    GIT_FCAT TYPE SLIS_T_FIELDCAT_ALV,
    WA_FCAT TYPE slis_fieldcat_alv,
    GIT_EVENTS TYPE SLIS_T_EVENT,
    WA_EVENTS TYPE SLIS_ALV_EVENT.
    Field Symbols *
    Field-symbols: <fs_xxxx>.
    Selection Screen *
    SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
    SELECT-OPTIONS: S_VBELN FOR VBRK-VBELN.
    PARAMETERS: LISTDISP RADIOBUTTON GROUP G1,
    GRIDDISP RADIOBUTTON GROUP G1 DEFAULT 'X'.
    SELECTION-SCREEN END OF BLOCK B1.
    Initialization *
    Initialization.
    GV_REPID = SY-REPID.
    At Selection Screen *
    At selection-screen.
    Start Of Selection *
    Start-of-selection.
    SET PF-STATUS 'ABC'(001).
    PERFORM GET_BILLING_DETAILS.
    PERFORM FIELD_CATALOGUE.
    PERFORM GET_EVENTS.
    End Of Selection *
    End-of-selection.
    PERFORM DISPLAY_BILLING_DETAILS.
    Top Of Page *
    Top-of-page.
    End Of Page *
    End-of-page.
    *& Form GET_BILLING_DETAILS
    text
    --> p1 text
    <-- p2 text
    FORM GET_BILLING_DETAILS .
    SELECT VBELN
    FKART
    KNUMV
    BUKRS
    NETWR
    WAERK
    FROM VBRK
    INTO TABLE GIT_VBRK
    WHERE VBELN IN S_VBELN.
    IF SY-SUBRC = 0.
    SORT GIT_VBRK BY VBELN.
    ENDIF.
    ENDFORM. " GET_BILLING_DETAILS
    *& Form FIELD_CATALOGUE
    text
    --> p1 text
    <-- p2 text
    FORM FIELD_CATALOGUE .
    CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
    I_PROGRAM_NAME = GV_REPID
    I_INTERNAL_TABNAME = 'GIT_VBRK'
    I_STRUCTURE_NAME = I_STRUCTURE_NAME
    I_CLIENT_NEVER_DISPLAY = 'X'
    I_INCLNAME = GV_REPID
    I_BYPASSING_BUFFER = 'X'
    I_BUFFER_ACTIVE = ' '
    CHANGING
    CT_FIELDCAT = GIT_FCAT
    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.
    ENDFORM. " FIELD_CATALOGUE
    *& Form DISPLAY_BILLING_DETAILS
    text
    --> p1 text
    <-- p2 text
    FORM DISPLAY_BILLING_DETAILS .
    IF LISTDISP = 'X'.
    CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
    I_INTERFACE_CHECK = ' '
    I_BYPASSING_BUFFER = 'X'
    I_BUFFER_ACTIVE = ' '
    I_CALLBACK_PROGRAM = GV_REPID
    I_CALLBACK_PF_STATUS_SET = ' '
    I_CALLBACK_USER_COMMAND = ' '
    I_STRUCTURE_NAME = I_STRUCTURE_NAME
    IS_LAYOUT = IS_LAYOUT
    IT_FIELDCAT = GIT_FCAT
    IT_EXCLUDING = IT_EXCLUDING
    IT_SPECIAL_GROUPS = IT_SPECIAL_GROUPS
    IT_SORT = IT_SORT
    IT_FILTER = IT_FILTER
    IS_SEL_HIDE = IS_SEL_HIDE
    I_DEFAULT = 'X'
    I_SAVE = ' '
    IS_VARIANT = IS_VARIANT
    IT_EVENTS = GIT_EVENTS
    IT_EVENT_EXIT = IT_EVENT_EXIT
    IS_PRINT = IS_PRINT
    IS_REPREP_ID = IS_REPREP_ID
    I_SCREEN_START_COLUMN = 0
    I_SCREEN_START_LINE = 0
    I_SCREEN_END_COLUMN = 0
    I_SCREEN_END_LINE = 0
    IR_SALV_LIST_ADAPTER = IR_SALV_LIST_ADAPTER
    IT_EXCEPT_QINFO = IT_EXCEPT_QINFO
    I_SUPPRESS_EMPTY_DATA = ABAP_FALSE
    IMPORTING
    E_EXIT_CAUSED_BY_CALLER = E_EXIT_CAUSED_BY_CALLER
    ES_EXIT_CAUSED_BY_USER = ES_EXIT_CAUSED_BY_USER
    TABLES
    T_OUTTAB = GIT_VBRK
    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.
    ELSE.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
    I_INTERFACE_CHECK = ' '
    I_BYPASSING_BUFFER = 'X'
    I_BUFFER_ACTIVE = ' '
    I_CALLBACK_PROGRAM = GV_REPID
    I_CALLBACK_PF_STATUS_SET = ' '
    I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
    I_CALLBACK_TOP_OF_PAGE = ' '
    I_CALLBACK_HTML_TOP_OF_PAGE = ' '
    I_CALLBACK_HTML_END_OF_LIST = ' '
    I_STRUCTURE_NAME = I_STRUCTURE_NAME
    I_BACKGROUND_ID = ' '
    I_GRID_TITLE = I_GRID_TITLE
    I_GRID_SETTINGS = I_GRID_SETTINGS
    IS_LAYOUT = IS_LAYOUT
    IT_FIELDCAT = GIT_FCAT
    IT_EXCLUDING = IT_EXCLUDING
    IT_SPECIAL_GROUPS = IT_SPECIAL_GROUPS
    IT_SORT = IT_SORT
    IT_FILTER = IT_FILTER
    IS_SEL_HIDE = IS_SEL_HIDE
    I_DEFAULT = 'X'
    I_SAVE = ' '
    IS_VARIANT = IS_VARIANT
    IT_EVENTS = GIT_EVENTS
    IT_EVENT_EXIT = IT_EVENT_EXIT
    IS_PRINT = IS_PRINT
    IS_REPREP_ID = 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_ALV_GRAPHICS
    IT_HYPERLINK = IT_HYPERLINK
    IT_ADD_FIELDCAT = IT_ADD_FIELDCAT
    IT_EXCEPT_QINFO = IT_EXCEPT_QINFO
    IR_SALV_FULLSCREEN_ADAPTER = IR_SALV_FULLSCREEN_ADAPTER
    IMPORTING
    E_EXIT_CAUSED_BY_CALLER = E_EXIT_CAUSED_BY_CALLER
    ES_EXIT_CAUSED_BY_USER = ES_EXIT_CAUSED_BY_USER
    TABLES
    T_OUTTAB = GIT_VBRK
    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.
    ENDIF.
    ENDFORM. " DISPLAY_BILLING_DETAILS
    *& Form GET_EVENTS
    text
    --> p1 text
    <-- p2 text
    FORM GET_EVENTS .
    CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
    I_LIST_TYPE = 0
    IMPORTING
    ET_EVENTS = GIT_EVENTS
    EXCEPTIONS
    LIST_TYPE_WRONG = 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.
    LOOP AT GIT_EVENTS INTO WA_EVENTS.
    CASE WA_EVENTS-NAME.
    WHEN 'USER_COMMAND'.
    WA_EVENTS-FORM = 'USER_COMMAND'.
    ENDCASE.
    MODIFY GIT_EVENTS FROM WA_EVENTS INDEX SY-TABIX.
    ENDLOOP.
    ENDFORM. " GET_EVENTS
    FORM USER_COMMAND.
    WRITE :/ 'USER_COMMAND'.
    ENDFORM.</CODE>.
    REGARDS,
    SURAJ

    I have run the program in my system and getting the following display instead of dump.
    Bill.Doc.  BillT Doc.cond.  CoCd             Net value Curr.
    90000763   B2    0000002800 1000                 0.00  DEM
    90005177   F2    0000012141 1000             5,500.00  DEM
    90005178   F2    0000012144 1000            32,838.00  DEM
    90005179   F2    0000012146 1000             6,100.00  DEM
    90005180   F2    0000012147 1000             6,100.00  DEM
    90005182   S1    0000012226 1000             5,500.00  DEM
    90005183   S1    0000012227 1000            32,838.00  DEM
    90005184   S1    0000012228 1000             6,100.00  DEM
    90005185   S1    0000012229 1000             6,100.00  DEM
    90005186   F2    0000012230 1000             6,100.00  DEM
    90005187   F2    0000012231 1000             6,100.00  DEM
    90005188   F2    0000012232 1000            32,778.00  DEM
    90005189   F2    0000012233 1000            34,354.00  DEM
    90005190   F2    0000012234 1000            19,991.00  DEM
    90005191   F2    0000012235 1000            19,719.00  DEM
    90005192   F2    0000012236 1000            43,004.00  DEM
    90005193   F2    0000012237 1000             9,242.00  DEM
    90005194   F2    0000012238 1000            12,156.00  DEM
    90005195   F2    0000012239 1000             7,294.00  DEM
    90005196   F2    0000012240 1000             9,694.00  DEM
    90005197   F2    0000012241 1000            32,838.00  DEM
    90005198   F2    0000012242 1000             9,352.00  DEM
    90005199   F2    0000012243 1000            13,013.00  DEM

  • Short dump GETWA_NOT_ASSIGNED - Field symbol FS_ENVDLIST not assigned

    Hi Experts,
    I need your help. Currently i am getting a short in CIC0 transaction.
    Please find steps executed which result in short dump.
    Search for a BP with BD display as the active tab. This search will be successful.
    Press u2018End Contactu2019 Now search for 2nd BP with BD display as the active tab.
    This will result in a dump.
    Now if I again execute the t-code CIC0 & enter the same BP it will be successful
    On debugging, I found out that the program cannot identify the data environment since the field symbol <fs_envdlist> does not get assigned when BD_DISPLAY tab is active.  But the program still continues to use this field symbol which results in a dump
    CRM Version - 4.0 - Patch level 10
    Please let me know if the below link is not accessible
    [http://imageshack.us/photo/my-images/685/page3uk.jpg/]
    [http://imageshack.us/photo/my-images/338/page2dr.jpg]
    [http://imageshack.us/photo/my-images/510/page1up.jpg/]
    [http://imageshack.us/photo/my-images/140/page4fa.jpg/]
    [http://imageshack.us/photo/my-images/845/screenshotsxq.jpg/]

    Hi Andrei,
    Thank you for the reply, but both this note are applicable to me
    1144076 u2013 Talks about dump when too many hits are returned - I do not have any such message
    996915 u2013 Talks about searching for the premise for a point of delivery without entering any search parameters - again in my scenario, input data is always provided.
    Is there any solution, i did get note 1254404 which is closest to my issue, but its valid from crm 5.0 and we are on CRM 4.0

  • Empty System Fields after error creates a short dump

    Hello!
    Could someone please help me?
    After calling a function, I catch errors with sy-subrc NE 0.
    Handling this error the "normal" way throws a short dump (I marked the row bold), because all the system fields are empty!
    Could someone please give me a hint, how to handle this situation?
    Many thanx in advance!
    Perhaps some code:
    CALL FUNCTION 'Z_CONFIRM'
      EXPORTING
        is_bdnum      = is_bed-bdnum
      TABLES
        et_return     = lt_return
      EXCEPTIONS
        error_occured = 1
        lock_error    = 2
      OTHERS        = 3.
    IF sy-subrc NE 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    I get a short dump with this:
    Content of the system fields
    Name
    Wert
    SY-SUBRC
    1
    SY-INDEX
    1
    SY-TABIX
    1
    SY-DBCNT
    0
    SY-FDPOS
    0
    SY-LSIND
    0
    SY-PAGNO
    0
    SY-LINNO
    1
    SY-COLNO
    1
    SY-PFKEY
    SY-UCOMM
    SY-TITLE
    HTTP-Steuerung
    SY-MSGTY
    SY-MSGID
    SY-MSGNO
    SY-MSGV1
    SY-MSGV2
    SY-MSGV3
    SY-MSGV4
    SY-MODNO
    0
    SY-DATUM
    20080117
    SY-UZEIT
    080907
    SY-XPROG
    SY-XFORM

    Hi,
    You need to capture the message like this way
    IF sy-subrc eq 1.
       message e999(your mesage class) with 'Error Occured'.
    endif.
    IF sy-subrc eq 2.
       message e999(your mesage class) with 'Lock error'.
    endif.
    IF sy-subrc eq 3.
       message e999(your mesage class) with 'Other Errors'.
    endif.

  • Short dump while reading a currency field from Flat file into internal tabl

    Hi,
    I am getting a short dump........saying number conversion dump (while reading a currency value into field in internal table from a fixed lenght flat file).........
    Do I need to use a string variable to get the value from flat file or how ??
    Please suggest.

    Santosh,
    Thanks for your inputs,
    But my internal table type is of DEC (5,2) , I am getting that... it needs to be of type 'C'. Can you suggest.
    Ex :
    MOVE wa_temp-infile_string+106(8)  TO wa_item-QT_PERCENT
    This didnt work
    so i tried moving into a seperate variable
    MOVE wa_temp-infile_string+106(8)  TO v_percent.
    and then write to
    WRITE v_percent to  wa_item-QT_PERCENT.

  • Short Dump while making a fields as required in BDT object screens

    Hi,
    I'm making a field as "required" by checking the required button on that field in the BDT screen.
    But am getting a short dump when I'm trying to use that screen.
    It seems like some data is getting converted to bad format due to this (am not fully sure about it.)
    Any idea on this.
    Thanks & Regards,
    Vipul.

    Hi Pinaki,
    The entire functionality is working absolutely perfect if I dont check that field as "Required" .
    I'm not sure if I'm missing some customising or is it a problem with BDT.
    Thanks & Regards,
    Vipul.

  • Short dump - field LIKP-WAERK is uknown

    Hi,
    When compiled my adobe form which has one import parameter of type custom structure which has currency field whose reference field are declared as likp-waerk,
    I get a short dump stating Field LIKP-WAERK is uknown. At the statement in lt_params:
    dynamic call of the generated function module
      CALL FUNCTION m_fm_name
        PARAMETER-TABLE lt_params
        EXCEPTION-TABLE lt_exceptions.
    In the function module when checked in the code that dumps out,
    PERFORM %OUTPUT USING 'AMT_FROM' %WORKAREA1-AMT_FROM 'CURR' 'P' 'LIKP-WAERK' LIKP-WAERK ' '.
    I think in the ref value instead of variable LIKP-WAERK it should have been blank like ' '.
    But I do not know a way to rectify this dump.
    Really appreciate if you anyone could please help me out.
    Edited by: Bharathi M on Nov 28, 2010 8:46 AM
    Edited by: Bharathi M on Nov 28, 2010 9:23 AM

    Hi,
    May I know how this was corrected? I'm facing the same issue.
    Thanks,
    Jeff

  • Short dump  GETWA_NOT_ASSIGNED field symbol not been assigned

    Hi Gurus,
    I am calling a RFC  BAPI_PBSRVAPS_CHANGEKEYFIGVAL2 from R/3 sytem to SCM 5.0.
    Acutally this FM BAPI_PBSRVAPS_CHANGEKEYFIGVAL2 not available in R/3 system.
    So i am using scm destination and calling above FM directly from R/3 but i am getting the short dump
    in SCM system as GETWA_NOT_ASSIGNED field symbol not been assigned.
    Can you pls check and advise.
    Best Regards,
    Radhakrishna.

    Hi Radhakrishna,
            It looks like you have a discrepancy in the planning area with respect to keyfigure. Some thing like the key figure description is not synchronized between live cache and db.
    I suggest you log onto your SCM system, run the program /SAPAPO/TS_LCM_CONS_CHECK on your planning area with correct error option.
    Please let me know if this works.

  • Assign base too short giving dump

    Hi,
       I am facing problem ,when i try to assign im_value(type any) to field symbol
    <value> TYPE domvalue_l. its giving short dump.i tried casting also,but still
    giving dump.i cant define fieldsymbol also of type any because i need to pass it to
    a function module to    i_domvalue ,which i have shown below..Anybody plz help.
    define local field symbol
      FIELD-SYMBOLS <value> TYPE domvalue_l.
    check precondition
      CHECK: im_domain IS NOT INITIAL,
             im_value IS NOT INITIAL.
    assign value which shall be check to field symbol (because of ANY)
      TRY.
          ASSIGN im_value TO <value> casting.
        CATCH cx_root.                                       "#EC CATCH_ALL
          RAISE EXCEPTION TYPE cx_mmpur_root.
      ENDTRY.
    call check function module
      CALL FUNCTION 'DOMAIN_VALUE_GET'
        EXPORTING
          i_domname     = im_domain
          i_domvalue    = <value>
        EXCEPTIONS
          not_exist     = 1
          error_message = 2
          OTHERS        = 3.
      CHECK sy-subrc <> 0.
    message is available from domain value check
      RAISE EXCEPTION TYPE cx_mmpur_message.
    Regards,
    Tess

    Hi,
    try the following code..
    define local field symbol
    FIELD-SYMBOLS <value> TYPE domvalue_l.
    check precondition
    <b>data : tem type domvalue_l.</b>
    CHECK: im_domain IS NOT INITIAL,
    im_value IS NOT INITIAL.
    assign value which shall be check to field symbol (because of ANY)
    TRY.
    <b>temp  =  im_value.</b>
    ASSIGN <b>temp</b> TO <value> casting.
    CATCH cx_root. "#EC CATCH_ALL
    RAISE EXCEPTION TYPE cx_mmpur_root.
    ENDTRY.
    call check function module
    CALL FUNCTION 'DOMAIN_VALUE_GET'
    EXPORTING
    i_domname = im_domain
    i_domvalue = <value>
    EXCEPTIONS
    not_exist = 1
    error_message = 2
    OTHERS = 3.
    CHECK sy-subrc <> 0.
    message is available from domain value check
    RAISE EXCEPTION TYPE cx_mmpur_message.
    Regards,
    Aparna

  • Dynamic Field-Symbol assignment - Short Dump

    Create three programs as mentioned:
    REPORT  zforms.
    *&      Form  form_fs_assign
    *       text
    FORM form_fs_assign.
      FIELD-SYMBOLS <fs> TYPE table.
      DATA: fs_itab LIKE STANDARD TABLE OF tab_matnr WITH HEADER LINE.
      break-point.
      ASSIGN ('(ZPROGRAM1)ITAB[]') TO <fs>.
      IF sy-subrc EQ 0.
        fs_itab[] = <fs>[].
        LOOP AT fs_itab.
          WRITE / fs_itab-matnr.
        ENDLOOP.
      ELSE.
        Write:/ sy-repid, 'field-symbol not assigned'.
      ENDIF.
    ENDFORM.                    "form_fs_assign
    REPORT zprogram1.
    DATA: itab LIKE STANDARD TABLE OF tab_matnr WITH HEADER LINE.
    itab-matnr = '1111'.
    APPEND itab.
    itab-matnr = '2222'.
    APPEND itab.
    WRITE:/ sy-repid.
    PERFORM form_fs_assign IN PROGRAM zforms.
    SUBMIT zprogram2.
    REPORT zprogram2.
    break-point.
    *-- enter (ZPROGRAM1)ITAB[] in the variable and press enter
    * the yellow icon stating that it doesn't exist appears
    * but when the following form is called, it does checks
    * the <fs> assign and doesnt gives any runtime error
    * while in Pricing routine, the similar situation
    * does gives the error
    PERFORM form_fs_assign IN PROGRAM zforms.
    *Execute zprogram1 and debug, works fine..*
    *Execute zprogram2, (ZPROGRAM1)ITAB[] doesn't exist, still it doesn't leads to short dump*
    *BUT, a very similar situation in a Pricing Requirment Routine leads to a short dump:*
    *Runtime Error          GETWA_NOT_ASSIGNED*
    *ShrtText    Field symbol has not yet been assigned.*
    *Pricing Routine Code Snippet:*
    *-- {3. -
    determine qualifying prior invoices in memory----
    FIELD-SYMBOLS: <fs_vbrk> TYPE table.
                FIELD-SYMBOLS: <fs_vbpa> TYPE table.
                FIELD-SYMBOLS: <fs_komv> TYPE table.
                DATA g_it_vbrk LIKE STANDARD TABLE OF vbrkvb WITH HEADER LINE.
                DATA g_it_vbpa LIKE STANDARD TABLE OF vbpavb WITH HEADER LINE.
                DATA g_it_komv LIKE STANDARD TABLE OF konv WITH HEADER LINE.
                DATA: l_vbrk_lines TYPE i.
                ASSIGN ('(SAPLV60A)XVBRK[]') TO <fs_vbrk>. <- "Error occurs here
                ASSIGN ('(SAPLV60A)XVBPA[]') TO <fs_vbpa>.
                ASSIGN ('(SAPLV60A)XKOMV[]') TO <fs_komv>.
                g_it_vbrk[] = <fs_vbrk>.
                g_it_vbpa[] = <fs_vbpa>.
                g_it_komv[] = <fs_komv>.
                DESCRIBE TABLE g_it_vbrk LINES l_vbrk_lines.
                READ TABLE g_it_vbrk INDEX l_vbrk_lines.
    ** remember to make vkorg and vtweg check for vbrk invoices
                DELETE g_it_vbrk WHERE vbeln = g_it_vbrk-vbeln.
                DELETE g_it_vbpa WHERE vbeln = g_it_vbrk-vbeln OR parvw <> 'WE'.
                DELETE g_it_komv WHERE knumv = g_it_vbrk-vbeln OR kschl <> 'ZF02' OR kbetr = 0.

    Hello friends,
    Rich,
    The piece of code you suggested didn't work, and still led to the short dump.
    Naimesh,
    I agree that XVBRK is not declared globally, and if it is a Table, and declared as global work area using Tables, we could have used it directly using ASSIGN (VBRK)...
    But, since its not the case, I am not able to do so...
    Still, my requirement remains the same. I have to get the invoices created (in memory) but not saved during a collective billing run.
    And the required data is available in the (SAPLV60A)XVBRK internal table, from which I am able to retrieve it for the first time, but clicking on the conditions tab in the item details leads to this short dump, becs (SAPLV60A)XVBRK[] isn't available at that moment. Still, if it is not available I suppose it should just set the sy-subrc to 4 instead of ending into a short-dump.
    Jürgen Hartwig,
    I know ZPROGRAM 1 can't work in ZPROGRAM 2, but it doesnt leads to the short dump either, does it? But in case of pricing it gives the run time error, this is exception I want to handle!
    XVBRK is not declared globally, but since SAPLV60A calls a perform in SAPLV61A, it remains in the ABAP stack and we can access it using (SAPLV60A)XVBRK[] kind of assignment.
    When the same is called during Item Conditions display, its PBO is in the stack but not other forms (in which it might have defined).
    Rich, is there a way to get all the variables available in scope at any instance during runtime?
    Well, Jürgen, I though it Germany it was called "schmutzig zuweisen" :-)... by the way, the same method has been used at several places in standard SAP programs with the sy-subrc check.
    Reference Data:
    when the assignment happens successfully, the ABAP Stack looks similar to:
    Call | Program   | Subroutine
    10   | SAPLV61A  | some_subrountine
    09   | SAPLV61A  | some_subrountine
    08   | SAPLV61A  | some_subrountine
    07   | SAPLV60A  | some_subrountine
    06   | SAPLV60A  | some_subrountine
    05   | SAPLV60A  | some_subrountine
    04   | SAPLV60A  | some_subrountine
    03   | SAPLV60A  | some_subrountine
    02   | SAPLV60A  | some_XKOMV_AUBE..subrountine
    01   | SAPLV60A  | PAI_some_subrountine
    when the assignment doesnt happens, the ABAP Stack looks similar to:
    04   | SAPLV61A  | some_subrountine
    03   | SAPLV61A  | some_subrountine
    02   | SAPLV61A  | some_subrountine
    01   | SAPLV60A  | PBO_some_subrountine

Maybe you are looking for

  • How to restart movie play using AirPlay

    I have an iPad 2 connected to Apple TV which is connected to our HDTV. Click Video. Select a Movie. Start playing the movie. Click the AirPlay control and send the movie to Apple TV. After a couple of minutes the iPad screen will go dark. If I double

  • Cs5 Install registry Error

    Error 1402.Could not open key: UNKNOWN\Components\DA42BC89BF25F5BD0AF18C3B9B1A1EE8\3EDFA09D76E3A704CA8A0FABDA10F280.   Verify that you have sufficient access to that key, or contact your support personnel. Action ended 16:43:44: InstallFinalize. Retu

  • Hadrware load balancing for WLS 5.1

    Rather than using the proxy plug-in to determine which server to dispatch a request to in case of failover, I would like to use hardware load balancer. So on normal conditions, the load-balancer would look at the primary server in the cookie and rout

  • Multiple Remote Panel Instances

    Hello all, I am interested in adapting some simulation VIs for a distance learning application. The VIs demonstrate some of the basics of control theory, and I would like the students to be able to access via the web. Playing around with the web buil

  • What to do about a "File Error"

    Alright. Here's my sad story. When I go to turn on my iPOD, I get the little apple icon. It then goes to a "File Error" screen (the little folder with an exclamation point). I've tried to fix it, I went through all the little things that apple says t