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

Similar Messages

  • 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.

  • Error in assign structure passed is too short ....

    while passing parameter to function hr_infotype_operations error received was structure passed is too short than that given for the  field symbol
    assign <f > to <fs> casting <tabname>
    i don't want to pass all the fields that are existing in table.
    MSK

    i have passed the fields as follows:-
    DATA: l_p0169 like pa0169.
      l_p0169-barea = 'US'.
      l_p0169-pltyp = '401k'.
      l_p0169-bplan = '401k'.
      l_p0169-elidt = '20070601'.
      l_p0169-enrty = 'M'.
      l_p0169-perio = '4'.
    CALL FUNCTION 'HR_INFOTYPE_OPERATION'
      EXPORTING
        INFTY                = '0169'
        NUMBER                = p_pernr
       SUBTYPE                = p_subtype
       VALIDITYEND            = '20070608'
       VALIDITYBEGIN          = '99991231'
        record                 = l_p0169
        operation              = 'INS'
       TCLAS                  = 'A'
    IMPORTING
       RETURN                 = l_bapireturn
       KEY                    = bapipakey_tab.

  • Iw22 is giving dump

    hi,
           Standard PM Transaction IW22 is giving dump the use entered the correct data. There is a select statment from table VIQMEL(notification header),to fetch data from this table it's taking lot of time and going to dump.This select statment is in FM BREAKDOWN_NOTIFS_READ_F04 and program name is SAPLMCI1. I Searched Service market palce and i not found any suitable notes for this dump. Earlier it worked fine from fast few days it's giving dump. If any body faced these kind of problem please kindly give the solution. There are no customization errors.
    Thanks and Regards,
    Surendar Reddy.

    The problem is that there's too much data.  If it was working before, and has only recently stopped, this would imply it's taking too long, because the data volumes have grown.
    I'd log a call with SAP.
    As a short-term measure, ask your basis people to increase the timeout parameter.  Or use the transaction with less data selected, if possible.
    matt

  • While Creating Implicit enhancement system is giving dump

    Hello All,
    I am enhanceing standard code with the help of implicit enhancement.. I have done successfully in one system but when i try to do it in other system it is giving me short dump.. And the dump also didn't give any information..
    I am working on ECC 6.0 and i assume we can use implicit enhancement points...
    Kindly let me know why i am getting dump..
    This is what dump says..
    The exception 'CX_SY_MESSAGE_ILLEGAL_TEXT' was raised, but it was not caught
    anywhere along
    the call hierarchy.
    What happened?
    Since exceptions represent error situations and this error was not
    adequately responded to, the running ABAP program
    'CL_MESSAGE_HELPER=============CP' has to be
    terminated.
    Error analysis
    An exception occurred that is explained in detail below.
    The exception, which is assigned to class 'CX_SY_MESSAGE_ILLEGAL_TEXT', was not
    caught in
    procedure "ACTION" "(FORM)", nor was it propagated by a RAISING clause.
    Since the caller of the procedure could not have anticipated that the
    exception would occur, the current program is terminated.
    The reason for the exception is:
    The text parameter in MESSAGE  cannot be an initial reference
    METHOD set_msg_vars_for_if_t100_msg.
      IF text IS INITIAL.
        RAISE EXCEPTION TYPE cx_sy_message_illegal_text
            EXPORTING textid = cx_sy_message_illegal_text=>initial_ref.
      ENDIF.
    Thanks all for your help.
    Regards,
    Raj

    Hi,
    This is for SE16N transaction code.. Even i tried in SE38 for a custom program but still giving dump..
    So this is not an issue with particular transaction but somehow getting dump ..I doono if there is any OSS notes to be implemented...
    Regards,
    Raj

  • Error "602" System error: AK Datapart too short

    Hi all,
    Ok, I have looked just about everywhere for an answer to this but to no avail...I even tried under a few rocks we have laying around.
    Anyway here it is:
    While running a compression in BW we get Error "602"  System error: AK Datapart too short.
    This is happening while doing a select statement during the compression of the infocube.  It does not happen all the time, just kind like when ever it feels like.  The only note I could find in OSS was one about Live Cache and it does not seem to apply.
    Here is the dump which I really hate doing this, but it gives all the info needed :
    untime Error          DBIF_DSQL2_SQL_ERROR
    Except.                CX_SY_NATIVE_SQL_ERROR
    Date and Time          08/15/2007 12:23:09
    ShrtText
    An SQL error occurred when executing Native SQL.
    What happened?
    Error "-602" occurred in the current database connection "DEFAULT".
    What can you do?
    Print out the error message (using the "Print" function)
    and make a note of the actions and input that caused the
    error.
    To resolve the problem, contact your SAP system administrator.
    You can use transaction ST22 (ABAP Dump Analysis) to view and administer
    termination messages, especially those beyond their normal deletion
    date.
    is especially useful if you want to keep a particular message.
    How to correct the error
    Database error text........: "System error: AK Datapart too short"
    Database error code .......: "-602"
    Triggering SQL statement...: "INSERT INTO "/BIC/EZPSD_C03" ( "KEY_ZPSD_C03P",
    "KEY_ZPSD_C03T", "KEY_ZPSD_C03U", "KEY_ZPSD_C031", "KEY_ZPSD_C032",
    "KEY_ZPSD_C033", "KEY_ZPSD_C034", "/BIC/ZNET_ASP" ) SELECT ? ,
    F."KEY_ZPSD_C03T", F."KEY_ZPSD_C03U", F."KEY_ZPSD_C031", F."KEY_ZPSD_C032","
    Internal call code.........: "[DBDS/NEW DSQL]"
    Please check the entries in the system log (Transaction SM21).
    You may able to find an interim solution to the problem
    in the SAP note system. If you have access to the note system yourself,
    use the following search criteria:
    "DBIF_DSQL2_SQL_ERROR" CX_SY_NATIVE_SQL_ERRORC
    "GP31VIZWJDTT90894L1IA5YAC7G" or "GP31VIZWJDTT90894L1IA5YAC7G"
    "TRANSFER_ALL"
    If you cannot solve the problem yourself and you wish to send
    an error message to SAP, include the following documents:
    1. A printout of the problem description (short dump)
    To obtain this, select in the current display "System->List->
    Save->Local File (unconverted)".
    2. A suitable printout of the system log
    To obtain this, call the system log through transaction SM21.
    Limit the time interval to 10 minutes before and 5 minutes
    after the short dump. In the display, then select the function
    "System->List->Save->Local File (unconverted)".
    3. If the programs are your own programs or modified SAP programs,
    supply the source code.
    To do this, select the Editor function "Further Utilities->
    Upload/Download->Download".
    4. Details regarding the conditions under which the error occurred
    or which actions and input led to the error.
    The exception must either be prevented, caught within the procedure
    "TRANSFER_ALL"
    "(FORM)", or declared in the procedure's RAISING clause.
    To prevent the exception, note the following:
    System environment
    SAP Release.............. "640"
    Application server....... "sdcbw03"
    Network address.......... "10.64.18.76"
    Operating system......... "Linux"
    Release.................. "2.6.9-55.ELsmp"
    Hardware type............ "x86_64"
    Character length......... 16 Bits
    Pointer length........... 64 Bits
    Work process number...... 21
    Short dump setting....... "full"
    Database server.......... "sdcbw03"
    Database type............ "ADABAS D"
    Database name............ "BWP"
    Database owner........... "SAPBWP"
    Character set............ "C"
    SAP kernel............... "640"
    Created on............... "Nov 5 2006 19:46:34"
    Created in............... "Linux GNU SLES-9 x86_64 cc3.3.3"
    Database version......... "SAPDB 7.5.0.030 "
    Patch level.............. "156"
    Patch text............... " "
    Supported environment....
    Database................. "MaxDB 7.5.0"
    SAP database version..... "640"
    Operating system......... "Linux 2.6"
    Memory usage.............
    Roll..................... 16192
    EM....................... 20949280
    Heap..................... 0
    Page..................... 24576
    MM Used.................. 9235016
    MM Free.................. 3331560
    SAP Release.............. "640"
    User and Transaction
    Client.............. 011
    User................ "ALEREMOTE"
    Language key........ "E"
    Transaction......... " "
    Program............. "GP31VIZWJDTT90894L1IA5YAC7G"
    Screen.............. "SAPMSSY0 1000"
    Screen line......... 6
    Information on where terminated
    The termination occurred in the ABAP program "GP31VIZWJDTT90894L1IA5YAC7G" in
    "TRANSFER_ALL".
    The main program was "RSPROCESS ".
    The termination occurred in line 573 of the source code of the (Include)
    program "GP31VIZWJDTT90894L1IA5YAC7G"
    of the source code of program "GP31VIZWJDTT90894L1IA5YAC7G" (when calling the
    editor 5730).
    The program "GP31VIZWJDTT90894L1IA5YAC7G" was started as a background job.
    Job name........ "BI_PROCESS_COMPRESS"
    Job initiator... "ALEREMOTE"
    Job number...... 12185102
    Processing was terminated because the exception "CX_SY_NATIVE_SQL_ERROR"
    occurred in the
    procedure "TRANSFER_ALL" "(FORM)" but was not handled locally, not declared in
    the
    RAISING clause of the procedure.
    The procedure is in the program "GP31VIZWJDTT90894L1IA5YAC7G ". Its source code
    starts in line 557
    of the (Include) program "GP31VIZWJDTT90894L1IA5YAC7G ".
    Source Code Extract
    Line
    SourceCde
    543
    ENDIF.
    544
    545
    COMMIT WORK.   " commit and close cursors
    546
    547
    l_str = i_max_requid.
    548
    PERFORM msg_append(saplrscondense)
    549
    USING    'S' '355' l_str space space space
    550
    CHANGING c_t_msg.
    551
    552
    ENDFORM.                               " CONDENSE_FACTTABLE_NEW
    553
    554
    555
         Form  TRANSFER_ALL
    556
    557
    FORM TRANSFER_ALL USING i_ref_update       TYPE rs_bool
    558
    i_pdimid           TYPE I
    559
    i_pdimid_ref_point TYPE rsd_sid
    560
    i_pdimid_normal    TYPE rsd_sid
    561
    i_recordtp         TYPE rsd_sid
    562
    CHANGING e_ref_ins_cnt TYPE I
    563
    e_ins_cnt     TYPE I
    564
    c_t_msg       TYPE rs_t_msg.
    565
    566
    CALL FUNCTION 'RSDU_INFOCUBE_INDEXES_DROP'
    567
    EXPORTING
    568
    I_INFOCUBE = 'ZPSD_C03'
    569
    I_FACTTAB  = '/BIC/EZPSD_C03'.
    570
    571
    572
    EXEC SQL.
    >>>>>
    INSERT INTO "/BIC/EZPSD_C03"
    574
    ( "KEY_ZPSD_C03P"
    575
    , "KEY_ZPSD_C03T"
    576
    , "KEY_ZPSD_C03U"
    577
    , "KEY_ZPSD_C031"
    578
    , "KEY_ZPSD_C032"
    579
    , "KEY_ZPSD_C033"
    580
    , "KEY_ZPSD_C034"
    581
    , "/BIC/ZNET_ASP"
    582
    583
    SELECT :i_pdimid_normal
    584
    , F."KEY_ZPSD_C03T"
    585
    , F."KEY_ZPSD_C03U"
    586
    , F."KEY_ZPSD_C031"
    587
    , F."KEY_ZPSD_C032"
    588
    , F."KEY_ZPSD_C033"
    589
    , F."KEY_ZPSD_C034"
    590
    , SUM( F."/BIC/ZNET_ASP" )
    591
    FROM "/BIC/FZPSD_C03" F
    592
    WHERE F."KEY_ZPSD_C03P" = :i_pdimid
    Any thoughts would be helpful,
    Thanks,
    David

    This error usually occurs when there is a database lock or no space in teh database. Got DB02 and Click on Space critical objects to see whether any entries are there. If yes contact your basis to increase the space.
    Hope this helps
    Thanks,
    Satish

  • Report (uses LDB's) giving dump due to memory problem

    Hi,
    I have a report which is giving dump in production due to memory problem.
    Memory is increased from basis part,but still getting same error.
    the report uses Logical DataBases.
    Can anyone suggest solution to solve this problem.
    regards
    Mallik

    Hi Amit,
    thanks for ur quick reply and ur idea "make changes in development and write the logic to read records in chunks".
    I have n't worked on LDB's till now.So i Don't know how I can read the data in chunks from LDB's.
    Can u Plz give some idea how to read data in chunks.
    Iam also sending the code,if possible ,plz go thru it and give me some idea.
    Hope u will help me.
    CODE.
    REPORT ZAROP028
    ABLES: PROJ,                          " Project definition
            PRPS_R,                        " WBS element
            PRPS,                          " WBS elements
            TJ02T,                         " System Status Values
            TCJ1,                          " Project Types
            JEST,                          " Active System Status
            COSP1,                         " cost totals - external postings
            COSS1,                         " cost totals - internal postings
            COVP11,                        " Line Items by Prd & Doc Header
            COVP12,                        " Line Items by Prd & Doc Header
            BHDGD,                         " Page heading table.
            AUFK,                          " Order Master Data for WBS (LDB)
            ANEP,                          " Asset line item
            COBRB,                         "Distribution Rules Settlement Ru
            SETHIER,                       "Hierarchy Structure
            TKA02,                         "Controlling Area Assignment
            CEPC,                          "Profit Center Master Data
            PSDYPD,                        "Dummy struct for GET proj late
            PSDYPR,                        "Dummy struct for GET PRPS_R late
            PSDYNP.                        "Dummy struct for GET AUFK late
    CONSTANTS:
              C_E                   TYPE C VALUE 'E',
              C_I                   TYPE C VALUE 'I',
              C_N                   TYPE C VALUE 'N',
              C_X                   TYPE C VALUE 'X',
              C_Y                   TYPE C VALUE 'Y',
              C_NE(2)               TYPE C VALUE 'NE',
              C_EQ(2)               TYPE C VALUE 'EQ',
              C_USD(3)              TYPE C VALUE 'USD',
              C_04(2)               TYPE C VALUE '04',
              C_I0046(5)            TYPE C VALUE 'I0046'
    various working storage
    DATA:
         W_TXT04(4)  TYPE C.                      " make status uppercase
    DATA: ACTIVE(1)        TYPE C VALUE 'A',       " type for status_flag
          INACTIVE(1)      TYPE C VALUE 'I',       " type for status_flag
          STATUS_FLAG(1)   TYPE C VALUE 'I',       " wbs active or inactive?
          INACTIVEDT       LIKE SY-DATUM,          " inactive date for wbs
          REC_FLAG         TYPE C VALUE 'N',       " records retrieved?
          DAYS_INACTIVE    TYPE I,                 " days wbs has been inac
          W_LOWINACT       TYPE I,                 " smallest inactive days
          WBS_CNT          TYPE I,                 " cnt for wbs in status
          W_AUC_COST       TYPE P DECIMALS 2,      " unsettled auc cost
          W_VNAME          LIKE PRPS_R-VNAME.      " venture number storage
    DATA:  BEGIN OF ITAB OCCURS 0,                              "MELI-5F2KMH
            COMPCODE       LIKE PROJ-VBUKR,    " company code
            PLANT          LIKE PROJ-WERKS,    " plant
            PROJECT        LIKE PROJ-PSPID,    " project
            NAME           LIKE PROJ-POST1,    " project description
            DINACT         TYPE I,             " days proj inactive
            PRCTR          LIKE PROJ-PRCTR,    " profit center
            SETID          LIKE SETHIER-SETID, " level 2 pc hier
            DESCRIPT       LIKE SETHEADERT-DESCRIPT,
            VERNA          LIKE PROJ-VERNA,    " person responsible
            AUC            TYPE P DECIMALS 2,  " AUC unsettled amount
          END OF ITAB.
    DATA: BEGIN OF I_INACT OCCURS 0,
            STAT  LIKE JEST-STAT,
            INACT LIKE JEST-INACT,
          END OF I_INACT.
    DATA: EQ_FLAG TYPE C,                       " system status flag
          NE_FLAG TYPE C.                       " system status flag
    TYPES:  BEGIN OF T_COSTS,
              PSPID  LIKE PROJ-PSPID,
              BUDAT  LIKE COVP11-BUDAT,
            END OF T_COSTS.
    DATA:  I_PROJ LIKE PROJ OCCURS 0 WITH HEADER LINE,
           I_PRPS_R LIKE PRPS_R OCCURS 0 WITH HEADER LINE,
           I_COSTS TYPE T_COSTS OCCURS 0 WITH HEADER LINE.
    DATA:  W_RECORDS TYPE I.
    DATA: FOUND_FLAG TYPE C.                        " CHAD-4PRPDE
    DATA: BEGIN OF I_HIER OCCURS 0.                             "FEAT-5BNRRP
            INCLUDE STRUCTURE SETHIER.                          "FEAT-5BNRRP
    DATA: END OF I_HIER.                                        "FEAT-5BNRRP
    RANGES: R_TJ02T FOR TJ02T-ISTAT.
    DATA: W_LVL2 LIKE SETHIER-SETID.                            "MELI-5F2KMH
    SELECTION-SCREEN BEGIN OF BLOCK PROJECT WITH FRAME TITLE TEXT-B01.
    PARAMETERS:       P_BUDAT LIKE COVP11-BUDAT,
                      DAYINACT(3) TYPE N DEFAULT '090'.
    SELECTION-SCREEN SKIP.                                      "FEAT-5BNRRP
    PARAMETERS:       P_PC-SET LIKE CEPC-KHINR OBLIGATORY       "FEAT-5BNRRP
                      DEFAULT 'SCH_STREAM'.                     "FEAT-5BNRRP
    SELECTION-SCREEN END OF BLOCK PROJECT.
    SELECTION-SCREEN BEGIN OF BLOCK SORT WITH FRAME TITLE TEXT-B02.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(13) TEXT-C01.
    SELECTION-SCREEN POSITION 15.
    PARAMETERS:  P_PLANT RADIOBUTTON GROUP SORT DEFAULT 'X'.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(13) TEXT-C03.                    "FEAT-5BNRRP
    SELECTION-SCREEN POSITION 15.
    PARAMETERS:  P_PRCTR RADIOBUTTON GROUP SORT.                "FEAT-5BNRRP
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(13) TEXT-C04.
    SELECTION-SCREEN POSITION 15.
    PARAMETERS:  P_DAYS RADIOBUTTON GROUP SORT.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN END OF BLOCK SORT.
    AT SELECTION-SCREEN OUTPUT.
      PERFORM USER_PARM_INIT.
    AT SELECTION-SCREEN.
      PERFORM CHECK_PROJ_CRITERIA.
    START-OF-SELECTION.
    PERFORM BUILD_PC_HIER USING P_PC-SET.  
    Project Definition                                                  *
    GET PROJ.
      MOVE-CORRESPONDING PROJ TO I_PROJ.                        "MELI-5F2KMH
      APPEND I_PROJ.                                            "MELI-5F2KMH
      CLEAR I_PROJ.
    WBS element table
    GET PRPS_R.
      MOVE-CORRESPONDING PRPS_R TO I_PRPS_R.
      APPEND I_PRPS_R.
      CLEAR I_PRPS_R.
    GET all order and cost objects associated with order and elements
    GET AUFK.
    GET COSP1.
    CHECK COSP1-WRTTP EQ C_04.      " check if value type '04'
      Get last date that the wbselement was updated and determine status
    GET COVP11.
      MOVE PROJ-PSPID TO I_COSTS-PSPID.
      MOVE COVP11-BUDAT TO I_COSTS-BUDAT.
      APPEND I_COSTS.
      CLEAR I_COSTS.
      Loop through Internal cost statements
    GET COSS1.
    CHECK COSS1-WRTTP EQ C_04.           " if value type is 04
      Get last date that the wbselement was updated and determine status
    GET COVP12.
      MOVE PROJ-PSPID TO I_COSTS-PSPID.
      MOVE COVP12-BUDAT TO I_COSTS-BUDAT.
      APPEND I_COSTS.
      CLEAR I_COSTS.
    END-OF-SELECTION.
      PERFORM BUILD_TABLE.
      DELETE ITAB WHERE DINACT < DAYINACT.
      DESCRIBE TABLE ITAB LINES W_RECORDS.
      IF W_RECORDS = 0.
        MESSAGE I024.
      ENDIF.
      PERFORM WRITE_REPORT.
          FORM  CHECK_PROJ_CRITERIA                                      *
    This form verifies correct selection criteria has been entered from *
    the selection screen inputs.  If incorrect data has been entered the*
    valid information messages are displayed.                           *
    FORM CHECK_PROJ_CRITERIA.
    check for either posting date or inactivity criteria but not both
      IF NOT P_BUDAT IS INITIAL AND NOT DAYINACT IS INITIAL.
        MESSAGE E119.
      ENDIF.
      IF NOT DAYINACT IS INITIAL.          "check s/o day inactive
        IF NOT DAYINACT <= 998.
          MESSAGE E018.
        ELSE.
          INACTIVEDT = SY-DATUM - DAYINACT.
        ENDIF.
    if days inactive is initial set INACTIVEDT using the posting date
      ELSE.
        INACTIVEDT = P_BUDAT.
      ENDIF.
    ENDFORM.                    " CHECK_PROJ_CRITERIA
          FORM  GET_AUC_COSTS                                            *
    This form retrieves AUC costs for records based on AUFK2 where they *
    meet project criteria.  This pulls the unsettled amount on a AUC as *
    a settlement receiver.                                              *
    FORM GET_AUC_COSTS USING F_OBJNR F_BUKRS.
      CONSTANTS:
       C_SETLEMENT_ANNUAL LIKE COBRB-PERBZ VALUE 'JHR',   "Annual Settlement
        C_DEP_AREA_STD     LIKE ANEP-AFABE  VALUE '01'.    "Std depreciation
      DATA: L_ANLC LIKE ANLC  OCCURS 0 WITH HEADER LINE,
            L_ANLCV LIKE ANLCV OCCURS 0 WITH HEADER LINE,
            BEGIN OF L_COBRB OCCURS 0,                       "SRIN-6ZNEAR
            ANLN1 LIKE COBRB-ANLN1,
            ANLN2 LIKE COBRB-ANLN2,
            END OF L_COBRB,
            F_H_COST TYPE P DECIMALS 2.
      SELECT ANLN1 ANLN2 FROM COBRB
        INTO TABLE L_COBRB                                    " SRIN-6ZNEAR
         WHERE OBJNR = F_OBJNR
           AND PERBZ = C_SETLEMENT_ANNUAL.
      IF SY-SUBRC NE 0.                                        " gary-463qbd
        EXIT.                                                  " gary-463qbd
      ENDIF.                                                   " gary-463qbd
    LOOP AT L_COBRB.                                           " gary-463qbd
      CLEAR: F_H_COST.
      SELECT SINGLE * FROM ANLC
        INTO L_ANLC
        WHERE BUKRS = F_BUKRS AND
                ANLN1 = L_COBRB-ANLN1 AND
                ANLN2 = L_COBRB-ANLN2 AND
                GJAHR = SY-DATUM(4) AND
                AFABE = C_DEP_AREA_STD AND
                ZUJHR = '0000' AND
                ZUCOD = '0000'.
        IF SY-SUBRC = 0.
          CALL FUNCTION 'FI_AA_VALUES_CALCULATE'
               EXPORTING
                    I_ANLC  = L_ANLC
               IMPORTING
                    E_ANLCV = L_ANLCV.
          F_H_COST = L_ANLCV-BCHWRT_LFD.
        ENDIF.
      ADD: F_H_COST TO W_AUC_COST.
    ENDLOOP.                                                   " gary-463qbd
    ENDFORM.                    " GET_AUC_COSTS
          FORM  CHECK_INACTIVE_DATE                                      *
    This form checks the computed inactive date based on the formal     *
    parameter DAYS_INACTIVE.  If DAYS_INACTIVE is more current than the *
    current lowest inactive date W_LOWINACT then W_LOWINACT is replaced *
    with this value.                                                    *
    FORM CHECK_INACTIVE_DATE USING DAYS_INACTIVE.
      IF DAYS_INACTIVE < W_LOWINACT.
        MOVE DAYS_INACTIVE TO W_LOWINACT.
      ELSEIF W_LOWINACT EQ 0.
        MOVE: DAYS_INACTIVE TO W_LOWINACT,
              W_LOWINACT    TO ITAB-DINACT.
      ENDIF.
    ENDFORM.                    " CHECK_INACTIVE_DATE
          FORM build_table                                               *
    collect fields to the internal table ITAB                           *
    FORM  BUILD_TABLE.
      SORT I_COSTS BY PSPID ASCENDING BUDAT DESCENDING.
      LOOP AT I_PROJ.
        CLEAR W_AUC_COST.
        READ TABLE I_COSTS WITH KEY PSPID = I_PROJ-PSPID
                                BINARY SEARCH.
        IF SY-SUBRC = 0.
          ITAB-DINACT = SY-DATUM - I_COSTS-BUDAT.
        ELSE.
          ITAB-DINACT = SY-DATUM - I_PROJ-ERDAT.
        ENDIF.
        LOOP AT I_PRPS_R WHERE PSPHI = I_PROJ-PSPNR AND
                               BELKZ = 'X'.
          IF NOT I_PRPS_R-IMPRF IS INITIAL.
            PERFORM GET_AUC_COSTS USING I_PRPS_R-OBJNR
                                        I_PRPS_R-PBUKR.
          ELSE.
            CONTINUE.
          ENDIF.
        ENDLOOP.
        ITAB-COMPCODE = I_PROJ-VBUKR.
        ITAB-PLANT    = I_PROJ-WERKS.
        ITAB-PROJECT  = I_PROJ-PSPID.
        ITAB-NAME     = I_PROJ-POST1.
        ITAB-PRCTR    = I_PROJ-PRCTR.
        ITAB-VERNA    = I_PROJ-VERNA.
        ITAB-AUC      = W_AUC_COST.
        IF ITAB-DINACT > DAYINACT.
          PERFORM GET_HIER_INFO.
        ENDIF.
        APPEND ITAB.
        CLEAR ITAB.
      ENDLOOP.
    ENDFORM.                    " BUILD_TABLE
          FORM STATUS_CHECK                                              *
    Checks the active status of the project definition for the          *
    parameter values assigned.                                          *
    FORM  STATUS_CHECK USING F_OBJNR.
    begin of GARY-463QBD
      CLEAR: I_INACT.
      REFRESH: I_INACT.
      MOVE: C_N TO EQ_FLAG,
            C_Y TO NE_FLAG.
    retrieve status for a given record
      SELECT STAT INACT
        INTO TABLE I_INACT
        FROM JEST
        WHERE OBJNR EQ F_OBJNR AND
              INACT NE C_X.
    sort internal status entered by user
      SORT R_TJ02T BY OPTION DESCENDING.
    check all current object statuses meet user entered criteria
      LOOP AT R_TJ02T WHERE OPTION EQ C_NE.
    check for user selected options
        READ TABLE I_INACT WITH KEY STAT = R_TJ02T-LOW.
        IF SY-SUBRC EQ 0.
          MOVE C_N TO NE_FLAG.
          EXIT.
        ENDIF.
      ENDLOOP.
      LOOP AT R_TJ02T WHERE OPTION EQ C_EQ.
    check for user selected options
        READ TABLE I_INACT WITH KEY STAT = R_TJ02T-LOW.
        IF SY-SUBRC EQ 0.
          MOVE C_Y TO EQ_FLAG.
          EXIT.
        ENDIF.
      ENDLOOP.
    check for no statuses entered as EQ option
      LOOP AT R_TJ02T WHERE OPTION EQ C_EQ.
        EXIT.
      ENDLOOP.
    if so move c_y to eq_flag
      IF SY-SUBRC NE 0.
        MOVE C_Y TO EQ_FLAG.
      ENDIF.
    if both eq_flag or ne_flag are true(c_y) move true to valid_flag
      IF ( EQ_FLAG EQ C_N OR
           NE_FLAG EQ C_N ).
        REJECT 'PRPS_R'.
      ENDIF.
    end of GARY-463QBD
    ENDFORM.                    " STATUS_CHECK
          Form  WRITE_REPORT
    FORM WRITE_REPORT.
      IF P_PLANT EQ 'X'.
    SORT ASCENDING BY ITAB-BUSAREA                           "FEAT-5BNRRP
        SORT ITAB ASCENDING BY PLANT
                               PROJECT.
      ELSEIF P_PRCTR EQ 'X'.
       SORT ITAB ASCENDING BY PRCTR                             "FEAT-5BNRRP
                                PROJECT.
      ELSE.
       SORT ITAB ASCENDING BY DINACT
                                PROJECT.
      ENDIF.
      FORMAT COLOR COL_BACKGROUND INTENSIFIED ON.
                                                         "MELI-5F2KMH
    LOOP AT ITAB.                                               "MELI-5F2KMH
        WRITE:   /     ITAB-COMPCODE,
                 9(4)  ITAB-PLANT,
                17(12) ITAB-SETID,
                33(40) ITAB-DESCRIPT,
                77(10) ITAB-PRCTR,
                91(24) ITAB-PROJECT,
               119(40) ITAB-NAME,
               163(25) ITAB-VERNA,
               192(15) ITAB-AUC CURRENCY C_USD,
               211(8)  ITAB-DINACT.
      ENDLOOP.
    ENDFORM.                    " WRITE_REPORT
          Form  USER_PARM_INIT
    Initializes user parameter settings
    FORM USER_PARM_INIT.
    ENDFORM.                    " USER_PARM_INIT
    At top of every page, generate Amoco-standard header.
    TOP-OF-PAGE.
      MOVE: '0'       TO BHDGD-INIFL,
           SY-LINSZ   TO BHDGD-LINES,
           SY-UNAME   TO BHDGD-UNAME,
           SY-REPID   TO BHDGD-REPID,
           SY-TITLE   TO BHDGD-LINE1,
           SPACE      TO BHDGD-DOMAI,
           SPACE      TO BHDGD-SEPAR,
           SPACE      TO BHDGD-MIFFL.
      IF P_PLANT EQ 'X'.
        MOVE TEXT-H01 TO BHDGD-LINE2.
      ELSE.
        MOVE TEXT-H03 TO BHDGD-LINE2.                          "FEAT-5BNRRP
      ENDIF.
    temporarily clear sy-mandt to remove "europe" from header "FEAT-5BNRRP
      DATA:  W_MANDT LIKE SY-MANDT.
      BHDGD-BUKRS = SPACE.
      W_MANDT     = SY-MANDT.
      CLEAR  SY-MANDT.
      FORMAT  COLOR COL_BACKGROUND INTENSIFIED OFF.
      PERFORM BATCH-HEADING(RSBTCHH0).
      FORMAT RESET.
    reset sy-mandt                                            "FEAT-5BNRRP
      SY-MANDT = W_MANDT.
      PERFORM PGH_WRITE_HEADING USING TEXT-003 INACTIVEDT.      "MELI-5F2KMH
      SKIP 1.
      ULINE.
    write heading info
      FORMAT COLOR COL_TOTAL INTENSIFIED ON.
      WRITE: /1(5)'CCode',
              9(5)'Plant',
              17(12)'Level 2 Node',
              33(40)'Level 2 Node Description',
              77(10)'Profit Ctr',
              91(18)'Project Definition',
             119(19)'Project Description',
              163(18)'Person Responsible',
              192(15)' AUC Unsettled',
              211(13)'Days Inactive'.
    end FEAT-5BNRRP
    BEGIN FEAT-5BNRRP NEW FORMS
    FORM BUILD_PC_HIER
    FORM BUILD_PC_HIER USING SETID.
      DATA:  W_SETID LIKE SETHIER-SETID,
             W_NEWSETID LIKE SETHIER-SETID.
      CONCATENATE '0H' SETID INTO W_SETID.
      CALL FUNCTION 'G_SET_GET_ID_FROM_NAME'
           EXPORTING
                SHORTNAME     = W_SETID
                TABNAME       = 'GLPCT'
                SETCLASS      = '0106'
                SUPRESS_POPUP = 'X'
                OLD_SETID     = W_NEWSETID
           IMPORTING
                NEW_SETID     = W_NEWSETID.
      CALL FUNCTION 'G_SET_TREE_IMPORT'
           EXPORTING
                CLIENT                    = SY-MANDT
                LANGU                     = SY-LANGU
                SETID                     = W_NEWSETID
                TABNAME                   = 'GLPCT'
           TABLES
                SET_HIERARCHY             = I_HIER
           EXCEPTIONS
                SET_NOT_FOUND             = 1
                ILLEGAL_FIELD_REPLACEMENT = 2
                ILLEGAL_TABLE_REPLACEMENT = 3
                OTHERS                    = 4.
      CLEAR I_HIER.
    ENDFORM.
    FORM GET_HIER_INFO
    FORM GET_HIER_INFO.
      DATA:  W_SETID LIKE SETHIER-SETID,
             W_KHINR LIKE CEPC-KHINR,
             W_INDEX  TYPE I.
      CLEAR: W_SETID,
             W_KHINR,
             W_INDEX.
    DETERMINE PROFIT CENTER NODE
      SELECT SINGLE KHINR
        FROM CEPC
        INTO W_KHINR
        WHERE PRCTR EQ ITAB-PRCTR.
      CONCATENATE '0106' I_PROJ-VKOKR W_KHINR
        INTO W_SETID.
      READ TABLE I_HIER WITH KEY
                        SETID = W_SETID.
      IF SY-SUBRC EQ 0.
        W_INDEX = SY-TABIX.
        DO.
          READ TABLE I_HIER INDEX W_INDEX.
          IF W_INDEX = 0.
            ITAB-SETID = 'Not Found'.
            EXIT.
          ENDIF.
          IF I_HIER-LEVEL = 1.
            ITAB-SETID = I_HIER-SETID+8(12).
            ITAB-DESCRIPT = I_HIER-DESCRIPT.
            EXIT.
          ENDIF.
          IF I_HIER-LEVEL = 2.
            ITAB-SETID = I_HIER-SETID+8(12).
            ITAB-DESCRIPT = I_HIER-DESCRIPT.
            EXIT.
          ENDIF.
          W_INDEX = W_INDEX - 1.
        ENDDO.
      ELSE.
        ITAB-SETID = 'Not Found'.
      ENDIF.
    ENDFORM.
    END FEAT-5BNRRP NEW FORMS
    *&      Form  PGH_WRITE_HEADING WR MELI-5F2KMH
    FORM PGH_WRITE_HEADING USING L_V1 L_V2.
      DATA:  L_LINSZ    LIKE SY-LINSZ.
      DATA:  L_TITLEL   LIKE SY-TABIX.
      DATA:  L_START    LIKE SY-TABIX.
      DATA:  L_DATE     LIKE SY-DATUM.
      DATA:  L_FORMATTED_DATE(10) TYPE C.
      DATA:  L_TITLE(27) TYPE C.
      MOVE L_V2 TO L_DATE.
      WRITE L_DATE TO L_FORMATTED_DATE.
      CONCATENATE L_V1 L_FORMATTED_DATE INTO L_TITLE
        SEPARATED BY SPACE.
      L_LINSZ = SY-LINSZ.
      L_TITLEL = STRLEN( L_TITLE ).
      L_START = ( L_LINSZ / 2 ) - ( L_TITLEL / 2 ) - 2.
      NEW-LINE.
      POSITION L_START.
      WRITE: L_TITLE.
    regards
    Mallik

  • Dynamic data select from table is giving dump

    Hello Experts,
       Below statement is giving Dump after it move all the data in my dynamic table.
    When i see in debug. All my recored are avilable in <T_TAB> Table.
    SELECT * FROM (pa_tab) INTO CORRESPONDING FIELDS OF TABLE <T_TAB>.
    > IF SY-SUBRC = 0.
    Information on where terminated
    The termination occurred in the ABAP program "ZFIR_ZTABLE_UPLOAD" in
    "F_DOWNLOAD".
    The main program was "ZFIR_ZTABLE_UPLOAD ".
    The termination occurred in line 403 of the source code of the (Include)
    program "ZFIR_ZTABLE_UPLOAD"
    of the source code of program "ZFIR_ZTABLE_UPLOAD" (when calling the editor
    4030).
    Processing was terminated because the exception "CX_SY_OPEN_SQL_DB" occurred in
    the
    procedure "F_DOWNLOAD" "(FORM)" but was not handled locally, not declared in
    the
    RAISING clause of the procedure.
    The procedure is in the program "ZFIR_ZTABLE_UPLOAD ". Its source code starts
    in line 399
    of the (Include) program "ZFIR_ZTABLE_UPLOAD ".
    please help me.
    Regards,
    Amit
    Message was edited by:
            Amit Gupta

    Hi Amit,
    Check if you are doing the following in your program
    FIELD-SYMBOLS <T_TAB> TYPE STANDARD TABLE.
    DATA: g_tabref type ref to data.   "Reference to your table structure
    CREATE DATA g_tabref type standard table of (pa_tab).
    ASSIGN g_tabref->* to <T_TAB>.
    SELECT * FROM (PA_TAB) INTO TABLE <T_TAB>.
    Hope this solves your problem.
    Let me know if you require any further info.
    Enjoy SAP. Reward points of useful
    Rajasekhar

  • 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.

  • CN71 is giving dump

    Hi,
    I am creating version in cn72. when I am displaying it in cn71,it is giving dump.
    In cn71 , I am giving project,then choosing DB profile and clicking version data and sales data and then enter.Then in the project version I am giving the version that I have created in  CN72.And when I execute it, it is giving dump.
    The error analysis(in the dump)  :
    An exception occurred that is explained in detail below.
    The exception, which is assigned to class 'CX_SY_DYNAMIC_OSQL_SEMANTICS', was
    not caught in
    procedure "SELECT_VBAK_FOR_ITAB_VBELN" "(FORM)", nor was it propagated by a
    RAISING clause.
    Since the caller of the procedure could not have anticipated that the
    exception would occur, the current program is terminated.
    The reason for the exception is:
    An Open SQL clause was specified dynamically. The contained field name
    "CRM_GUID" does not exist in any of the database tables from the FROM clause.
    Please help.
    Thanks in advance.

    Sounds like a problem in SAP standard code, did you check for SAP notes?
    Thomas

  • Dadatasouce 0TCT_DS22 giving dump in delta load.(

    H Experts,
    I have Initialised technical datasource 0TCT_DS22 and immidiately wants to fetch delta but it's giving dump.
    TSV_TNEW_PAGE_ALLOC_FAILED. This seems to be internal memory problem ,but after initalisation it shouldn't throw this dump.What may be another reason?
    When should one go for technical content data loading?is it during normal loads?or later?
    Thanks
    Girish

    Hi,
    As Neetika mentioned, it is due to large data volume.
    Please check with the basis team to get reduced the jobs scheduled for this activity or try to extract the relevant data by providing any filters if possible.
    Regards,
    Geeta

  • FAGL_FC_VAL is giving DUMP ERROR

    Hello Friends,
    When i execute FCV for G/L Balances, system is giving dump error which i mentioned below.
    Runtime Errors         RAISE_EXCEPTION
    Date and Time          16.01.2010 18:31:11
    Short text
         Exception condition "CURRENCY_EMPTY" raised.
    What happened?
         The current ABAP/4 program encountered an unexpected
         situation.
    What can you do?
         Note down which actions and inputs caused the error.
         To process the problem further, contact you SAP system
         administrator.
         Using Transaction ST22 for ABAP Dump Analysis, you can look
         at and manage termination messages, and you can also
         keep them for a long time.
    Error analysis
         A RAISE statement in the program "SAPLGICV" raised the exception
         condition "CURRENCY_EMPTY".
         Since the exception was not intercepted by a superior
         program, processing was terminated.
         Short description of exception condition:
    For detailed documentation of the exception condition, use
    Transaction SE37 (Function Library). You can take the called
    function module from the display of active calls.
    to correct the error
    If the error occures in a non-modified SAP program, you may be able to
    find an interim solution in an SAP Note.
    If you have access to SAP Notes, carry out a search with the following
    keywords:
    "RAISE_EXCEPTION" " "
    "SAPLGICV" or "LGICVU02"
    "G_CURRENCY_FROM_CT_GET"
    or
    "SAPLGICV" "CURRENCY_EMPTY"
    or
    "FAGL_FC_VALUATION " "CURRENCY_EMPTY"
    If you cannot solve the problem yourself and want to send an error
    notification to SAP, include the following information:
    1. The description of the current problem (short dump)
        To save the description, choose "System->List->Save->Local File
    (Unconverted)".
    As per this dump i've searched SAP Notes in OSS. Unfortunately i couldn't find anything.
    But i'm not getting this error when execute FCV for Open Items.
    What could be the solution?
    Please guide me.
    Rgds
    Swapna

    Hi Anuj,
    Thanks for your response.
    Actually no need to maintain currency in the main screen.
    This is the problem with non-maintenance of currency for a company code. It will be fixed once we maintain the currency for that Company code.
    Bye
    Swapna

  • Channel length too short for calculation

    I've just switched from 9.1 to 2010 and I was told that our VBS scripts wouldn't need updating - not so it seems.
    I have the following piece of code:
    Call ChnAlloc("Input PSD") 
    L1=Cno("RealPart")
    L2=Cno("ImaginaryPart")
    Call FormulaCalc("Ch('Input PSD'):=Ch(L1)^2+Ch(L2)^2")
    but this doesn't work anymore. I get an error message saying that channel 7 (Input PSD) is too short for calculation. Previously I would have checked the data matrix but I can't find this anymore so I assume DIAdem works in a different way know. The help files suggest that the channel length option for ChnAlloc is optional so I don't understand why it thinks the channel is too short.
    Any help appreciated.
    Thanks, Si.

    Hi SI,
    You only need a minor addition, and you get the benefit that all new channels can have their length(s) dynamically changed.  Please add this line of code after creating the channel and before the FormulaCalc() command:
    ChnLength("Input PSD") = NeededNumberOfRows
    Back in the dark days of the DIAdem memory matrix, DIAdem would by default launch with 60 static channels of exactly 8196 rows each.  As you apparently know, you could customize the memory matrix to have fewer or more channels, and you could change their static lengths assigned when DIAdem launched.  The fully dynamic channel lengths are a vast improvement, but it does mean that for FormulaCalc() commands you need to tell the channel to be big enough first.  Interestingly, none of the ANALYSIS commands require you to do explicitly set the channel length before writing to them-- just the channel calculator.
    Ask if you have any further trouble,
    Brad Turpin
    DIAdem Product Support Engineer
    National Instruments

  • SAPDBA: Error - global buffer too short

    Hi,
    When I run SAPDBA and do a 'Check of freespace of objects in all tablespaces', I encounter the error:
    bdf: could not find the mount point for /oracle/<SID>/sapdata<n>/btabd_<xx>
    SAPDBA: Error - global buffer too short
    This error sometimes appear and at times it doesn't.  What does this error mean and how can i resolve it? 
    Many thanks,
    Kris

    Hi Kristoffer,
    Kindly gothrough the following link. It will lead you to solve your problem,
    http://sap.ittoolbox.com/groups/technical-functional/sap-basis/sapdba-error-1244276#
    Regards,
    Harish

  • Notes tabs giving dump up on save in opportunitiy for PCUI

    Hi,
    We are facing a problem while saving a text under notes tabe for opportunity in PCUI.
    We are getting predefined texts but if we add any text and click the save button we are getting dump.
    Dump is coming  CL_CRM_BSP_TRACE for method add_screen_structure_tab .
    at assign statement.
    I have checked the entire configuration every thing is fine I was able to add the text from GUI but when I am doing from PCUI it is giving dump.
    Kindly do the needful.
    Thanks
    Naveen

    Hi Naveen,
    Just have a look at note 991206. See if this fits your requirement.
    Regards,
    Hemanth

Maybe you are looking for