Adding one more field in O/P
---------------------DECLARATION-----------------------------------------------
TYPES : BEGIN OF ty_temp_st,
matnr TYPE mara-matnr,
yynewmat TYPE yeco-yynewmat,
END OF ty_temp_st.
DATA : lt_eco TYPE TABLE OF ty_temp_st,
lv_matnr type matnr,
lv_yynewmat TYPE char36.
FIELD-SYMBOLS <eco> TYPE ty_temp_st.
----------------------FETCHING DATA--------------------------------------------
SELECT matnr yynewmat
FROM yeco
INTO TABLE lt_eco.
* HCL start of change.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
input = <fs_mara>-matnr
IMPORTING
output = lv_matnr.
--------------------POPULATE THE DATA INTO FILED---------------------------------
LOOP AT lt_eco ASSIGNING <eco> WHERE matnr = lv_matnr.
CONCATENATE lv_yynewmat <eco>-yynewmat INTO lv_yynewmat SEPARATED BY ','.
ENDLOOP.
IF lv_yynewmat IS INITIAL.
<fs_final>-yynewmat = 'NONE'.
ELSE.
CONDENSE lv_yynewmat.
<fs_final>-yynewmat = lv_yynewmat(18).
ENDIF.
---------------------------------------------------------------------------------
TYPES : BEGIN OF ty_temp_st,
matnr TYPE mara-matnr,
yynewmat TYPE yeco-yynewmat,
END OF ty_temp_st.
DATA : lt_eco TYPE TABLE OF ty_temp_st,
lv_matnr type matnr,
lv_yynewmat TYPE char36.
FIELD-SYMBOLS <eco> TYPE ty_temp_st.
----------------------FETCHING DATA--------------------------------------------
SELECT matnr yynewmat
FROM yeco
INTO TABLE lt_eco.
* HCL start of change.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
input = <fs_mara>-matnr
IMPORTING
output = lv_matnr.
--------------------POPULATE THE DATA INTO FILED---------------------------------
LOOP AT lt_eco ASSIGNING <eco> WHERE matnr = lv_matnr.
CONCATENATE lv_yynewmat <eco>-yynewmat INTO lv_yynewmat SEPARATED BY ','.
ENDLOOP.
IF lv_yynewmat IS INITIAL.
<fs_final>-yynewmat = 'NONE'.
ELSE.
CONDENSE lv_yynewmat.
<fs_final>-yynewmat = lv_yynewmat(18).
ENDIF.
---------------------------------------------------------------------------------
Comments
Post a Comment