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
data : tem type domvalue_l.
CHECK: im_domain IS NOT INITIAL,
im_value IS NOT INITIAL.
assign value which shall be check to field symbol (because of ANY)
TRY.
temp = im_value.
ASSIGN temp 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.
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".
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
itab-inrval = itab-wrbtr * itab-kursf.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.
LOOP AT it_header.
AT END OF belnr.
READ TABLE it_header INDEX sy-tabix.
SUM. " 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

Assign base too short giving dump

Similar Messages

Maybe you are looking for