Program is giving a Short Dump u201CCONVT_NO_NUMBERu201D.

[Former Member]

Hi,

The current ABAP program "ZINPUTMODULE" had to be terminated because one of th

statements could not be executed.

Program is giving a Short Dump u201CCONVT_NO_NUMBERu201D.

Can anyone please help with the cause of the dump?

Thanks in advance

Reshma

[Former Member]

Please check your define variable. It 's not match with value of result.

Hope this helps

[Former Member]

Hi Reshma,

See the Note 856312 - Dump CONVT_NO_NUMBER

FORM FCODE_ALT_1000

Delta001Context Block

DATA: lv_parvw TYPE parvw_4,

lv_parnr TYPE sd_partner_parnr,

lv_pargr TYPE pargr,

lvs_old_partner LIKE gvs_tc_data,

lv_cancel TYPE xfeld,

lv_tabix TYPE sy-tabix,

lv_selline TYPE i,

lv_error LIKE sy-subrc,

lv_selection_done type xflag,

lv_new_parnr type sd_partner_parnr,

lvs_message_info type message_info,

lvs_syncro_subscreen like gvs_syncro_subscreen,

lv_result type xfeld,

lv_parnr_to_change type partner_vb.

• loop at selected lines

LOOP AT gt_tc_selected_lines.

lv_parvw = gt_tc_selected_lines-rec-parvw.

Delete Block

IF gt_tc_selected_lines-rec-partner co ' 0123456789'.

UNPACK gt_tc_selected_lines-rec-partner TO lv_parnr.

ELSE.

lv_parnr = gt_tc_selected_lines-rec-partner.

ENDIF.

Insert Block

CATCH SYSTEM-EXCEPTIONS CONVT_NO_NUMBER = 01

OTHERS = 02.

IF gt_tc_selected_lines-rec-partner co ' 0123456789'.

UNPACK gt_tc_selected_lines-rec-partner TO lv_parnr.

ELSE.

lv_parnr = gt_tc_selected_lines-rec-partner.

ENDIF.

ENDCATCH.

if sy-subrc <> 0.

lv_parnr = gt_tc_selected_lines-rec-partner.

endif.

Delta002Context Block

GET CURSOR LINE lv_selline.

lv_tabix = gv_tc_partner_overview-top_line + lv_selline - 1.

READ TABLE gt_tc_data INTO lvs_old_partner INDEX lv_tabix.

IF lvs_old_partner cn ' 0'.

lv_parvw = lvs_old_partner-rec-parvw.

Delete Block

IF lvs_old_partner-rec-partner co ' 0123456789'.

UNPACK lvs_old_partner-rec-partner TO lv_parnr.

ELSE.

Insert Block

CATCH SYSTEM-EXCEPTIONS CONVT_NO_NUMBER = 01

OTHERS = 02.

IF lvs_old_partner-rec-partner co ' 0123456789'.

UNPACK lvs_old_partner-rec-partner TO lv_parnr.

ELSE.

lv_parnr = lvs_old_partner-rec-partner.

ENDIF.

ENDCATCH.

if sy-subrc <> 0.

Regards,

Md Ziauddin

[Former Member]

Thanks Md Ziauddin.

It was really helpful answer.

However i have found the below code as a cause.

DATA: d_wrbtr LIKE bseg-wrbtr. bseg-wrbtr is a currency field

i_kdce is a structure of kcde_cells i_kdce-VALUE is type CHAR

FORM convert_to_number USING text number.

CONDENSE text NO-GAPS.

• replace ',' with '.' into text. "-KDB01

• REPLACE ',' WITH '' INTO text. "+KDB01 "-CR3000002787

REPLACE ALL OCCURRENCES OF ',' IN text WITH ''. "+CR3000002787

CONDENSE text NO-GAPS. "+KDB01

number = text. Converting text to the currency field - This step is giving a dump

ENDFORM.

PERFORM convert_to_number USING i_kdce-value d_wrbtr

Could you please help me with how can i map the text field to the currency field?

Thanks

Reshma K