remodelling coding

[Former Member]

We have field storage location stor_loc in our ods. Using remodelling we are are trying to fill the data

using remodelling option by adding characteristic zstor using customer exit . Following are the code writtine. Even the break point set, the system is not stopping in the debugging mode.

field-symbols : <l_s_old> type any,

<l_fillfield> type any,

<l_newfield> type any,

<l_stor_loc> type any,

<l_version_dimid> type any,

<l_version_sid> type any.

DATA : l_chavl type rschavl,

l_zsto_loc_chavl type rschavl,

l_attr type string,

• l_version_sid type /BIC/AZSD_O2100-stor_loc,

l_version type C.

ASSIGN c_r_newfield->* TO <l_newfield>.

ASSIGN i_r_old->* TO <l_s_old>.

ASSIGN COMPONENT 'SID_ZSTOR' OF STRUCTURE <l_s_old> TO <l_fillfield>.

ASSIGN COMPONENT 'BILL_NUM' OF STRUCTURE <l_s_old> TO <l_version_dimid>.

break-point.

select single STOR_LOC from /BIC/AZSD_O2100 into <l_version_sid>

where BILL_NUM = <l_version_dimid>.

if sy-subrc <> 0.

RAISE EXCEPTION TYPE cx_rscnv_exception

EXPORTING

attr1 = 'CL_RSCNV_USER_EXIT_SAMPLE'

attr2 = 'EXIT-1'

attr3 = <l_version_dimid>.

l_attr = sy-subrc.

endif.

CALL FUNCTION 'RRSI_SID_VAL_CONVERT_COMPLETE'

EXPORTING

I_IOBJNM = 'ZTOR'

I_SID = <l_version_sid>

IMPORTING

E_CHAVL = l_version

EXCEPTIONS

NO_VALUE_FOR_SID = 1

X_MESSAGE = 2

OTHERS = 3.

if sy-subrc <> 0.

RAISE EXCEPTION TYPE cx_rscnv_exception

EXPORTING

attr1 = 'CL_RSCNV_USER_EXIT_SAMPLE'

attr2 = 'EXIT-1'

attr3 = <l_version_dimid>.

l_attr = sy-subrc.

endif.

endmethod.

[Lakshmipathi · Accepted solution]

I have a feeling that if you have posted in the ABAP forum, you would have get more responses. Check this link and post there

[Forum: ABAP, General |;

thanks

G. Lakshmipathi