ABAP Select data from SAP table CDCCALCRSLT into internal table

Get Example source ABAP code based on a different SAP table
  Get ABAP code

Below is a number of ABAP code snippets to demonstrate how to select data from SAP CDCCALCRSLT table and store it within an internal table, including using the newer @DATA inline declaration methods. It also shows you various ways to process this data using ABAP work area, inline declaration or field symbols including executing all the relevant CONVERSION_EXIT routines specific to CDCCALCRSLT. See here for more generic Select statement tips.

Sometimes data within SAP is stored within the database table in a different format to what it is displayed to the user. These input/output conversation FM routines are what translates the data between the two formats.

There is also a full declaration of the CDCCALCRSLT table where each field has a char/string type for you to simply copy and paste. This allows you to use processing that is only available to these field types such as the CONCATENATE statement.

DATA: IT_CDCCALCRSLT TYPE STANDARD TABLE OF CDCCALCRSLT,
      WA_CDCCALCRSLT TYPE CDCCALCRSLT,
      GD_STR TYPE STRING.

DATA: lo_typedescr type REF TO cl_abap_typedescr.
DATA: lv_fieldname type fieldname.

FIELD-SYMBOLS: <FIELD> TYPE any.
FIELD-SYMBOLS: <CDCCALCRSLT> TYPE CDCCALCRSLT.

*Process all fields in table header/work area as string values
  PERFORM process_as_string_field_values CHANGING wa_CDCCALCRSLT.

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM CDCCALCRSLT
  INTO TABLE IT_CDCCALCRSLT.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM CDCCALCRSLT
*  INTO TABLE @DATA(IT_CDCCALCRSLT2).
*--Further methods of using ABAP code to  select data from SAP database tables

*You can also declare the header/work area using the in-line DATA declaration method
READ TABLE IT_CDCCALCRSLT INDEX 1 INTO DATA(WA_CDCCALCRSLT2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_CDCCALCRSLT ASSIGNING <CDCCALCRSLT>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
<CDCCALCRSLT>-MANDT = 1.
<CDCCALCRSLT>-COMPANYCODE = 1.
<CDCCALCRSLT>-MASTERFIXEDASSET = 1.
<CDCCALCRSLT>-FIXEDASSET = 1.
<CDCCALCRSLT>-ASSETDEPRECIATIONAREA = 1.

ENDLOOP.

LOOP AT IT_CDCCALCRSLT INTO WA_CDCCALCRSLT.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_CDCCALCRSLT-FISCALYEAR, sy-vline,
  WA_CDCCALCRSLT-CURRENCYROLE, sy-vline,
  WA_CDCCALCRSLT-DISPLAYCURRENCY, sy-vline,
  WA_CDCCALCRSLT-FYSACCMLTDACQNPRODNAMTINDC, sy-vline,
  WA_CDCCALCRSLT-FYSACCMLTDRRVAMTINDSPCRCY, sy-vline,
  WA_CDCCALCRSLT-FYSACCMLTDINVMTGRANTAMTINDC, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_CDCCALCRSLT you want to display...

  WRITE:/ sy-uline.
* Aternatively use generic code to Write field values (and NAME) to screen report
  DO.
    ASSIGN COMPONENT sy-index OF STRUCTURE wa_CDCCALCRSLT TO <field>.
    IF sy-subrc <> 0. EXIT. ENDIF.
    WRITE:/ 'Field Value', <field>, sy-vline.
    gd_str = <field> .
    lo_typedescr ?= CL_ABAP_DATADESCR=>DESCRIBE_BY_DATA( <field> ).
    lv_fieldname = lo_typedescr->GET_RELATIVE_NAME( ).
    WRITE:/ 'Field Name', lv_fieldname.
  ENDDO.

  
*Redo loop but convert all fields from internal to out value  
LOOP AT IT_CDCCALCRSLT INTO WA_CDCCALCRSLT.


*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Convert all fields to display/output versions using conversion routines
  PERFORM convert_all_field_values CHANGING wa_EKKO.
	 
ENDLOOP.

  
*&---------------------------------------------------------------------*
*& Form convert_all_field_values
*&---------------------------------------------------------------------*
FORM convert_all_field_values CHANGING p_EKKO LIKE wa_EKKO.
DATA: ld_input(1000) TYPE c, ld_output(1000) TYPE C.

*Conversion exit ALPHA, internal->external for field MASTERFIXEDASSET
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-MASTERFIXEDASSET
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-MASTERFIXEDASSET.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field FIXEDASSET
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-FIXEDASSET
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-FIXEDASSET.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field FYSACCMLTDACQNPRODNAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-FYSACCMLTDACQNPRODNAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-FYSACCMLTDACQNPRODNAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field FYSACCMLTDRRVAMTINDSPCRCY
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-FYSACCMLTDRRVAMTINDSPCRCY
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-FYSACCMLTDRRVAMTINDSPCRCY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field FYSACCMLTDINVMTGRANTAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-FYSACCMLTDINVMTGRANTAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-FYSACCMLTDINVMTGRANTAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field FYSACCMLTDORDNRYDEPRAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-FYSACCMLTDORDNRYDEPRAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-FYSACCMLTDORDNRYDEPRAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field FYSACCMLTDSPECIALDEPRAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-FYSACCMLTDSPECIALDEPRAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-FYSACCMLTDSPECIALDEPRAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field FYSACCMLTDUNPLNDDEPRAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-FYSACCMLTDUNPLNDDEPRAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-FYSACCMLTDUNPLNDDEPRAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field FYSACCMLTDTRANSFOFRSRVAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-FYSACCMLTDTRANSFOFRSRVAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-FYSACCMLTDTRANSFOFRSRVAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field FYSACCMLTDINTERESTAMOUNTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-FYSACCMLTDINTERESTAMOUNTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-FYSACCMLTDINTERESTAMOUNTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field FYSACCMLTDODEPRREVALAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-FYSACCMLTDODEPRREVALAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-FYSACCMLTDODEPRREVALAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field FYSACCMLTDDOWNPAYMENTAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-FYSACCMLTDDOWNPAYMENTAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-FYSACCMLTDDOWNPAYMENTAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CURRENTYEARACQNPRODNAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-CURRENTYEARACQNPRODNAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-CURRENTYEARACQNPRODNAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CURRENTYEARRPLCMTREVALAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-CURRENTYEARRPLCMTREVALAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-CURRENTYEARRPLCMTREVALAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CURRENTYEARINVMTGRANTAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-CURRENTYEARINVMTGRANTAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-CURRENTYEARINVMTGRANTAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CURRENTYEARORDNRYDEPRAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-CURRENTYEARORDNRYDEPRAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-CURRENTYEARORDNRYDEPRAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CURRENTYEARSPECIALDEPRAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-CURRENTYEARSPECIALDEPRAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-CURRENTYEARSPECIALDEPRAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CURRENTYEARUNPLNDDEPRAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-CURRENTYEARUNPLNDDEPRAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-CURRENTYEARUNPLNDDEPRAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CURRENTYEARTRANSFOFRSRVAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-CURRENTYEARTRANSFOFRSRVAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-CURRENTYEARTRANSFOFRSRVAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CURRENTYEARINTERESTAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-CURRENTYEARINTERESTAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-CURRENTYEARINTERESTAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CYRREVALUATIONODEPRAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-CYRREVALUATIONODEPRAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-CYRREVALUATIONODEPRAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CURRENTYEARDOWNPAYMENTAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-CURRENTYEARDOWNPAYMENTAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-CURRENTYEARDOWNPAYMENTAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field FSCLYRSTRTPYAACQNPRODNAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-FSCLYRSTRTPYAACQNPRODNAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-FSCLYRSTRTPYAACQNPRODNAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field FYSPRPTNREVALRPLCMTAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-FYSPRPTNREVALRPLCMTAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-FYSPRPTNREVALRPLCMTAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field FYSTRTPYAINVMTGRANTAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-FYSTRTPYAINVMTGRANTAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-FYSTRTPYAINVMTGRANTAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field FYSTRTPYAPRPTNLODEPRAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-FYSTRTPYAPRPTNLODEPRAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-FYSTRTPYAPRPTNLODEPRAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field FYSTRTPYAPRPTNLSDEPRAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-FYSTRTPYAPRPTNLSDEPRAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-FYSTRTPYAPRPTNLSDEPRAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field FYSTRTPYAPRPTNLUDEPRAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-FYSTRTPYAPRPTNLUDEPRAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-FYSTRTPYAPRPTNLUDEPRAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field FYSTRTPYAPRPTNLRESERVEAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-FYSTRTPYAPRPTNLRESERVEAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-FYSTRTPYAPRPTNLRESERVEAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field FYSTRTPYAPRPTNLINTERESTAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-FYSTRTPYAPRPTNLINTERESTAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-FYSTRTPYAPRPTNLINTERESTAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field FYSPRPTNLREVALODEPRAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-FYSPRPTNLREVALODEPRAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-FYSPRPTNLREVALODEPRAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field FYSTRTPYADOWNPAYTAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-FYSTRTPYADOWNPAYTAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-FYSTRTPYADOWNPAYTAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CURRENTYEARPRPTNLRRVAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-CURRENTYEARPRPTNLRRVAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-CURRENTYEARPRPTNLRRVAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CURYRPYAPRPTNLODEPRAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-CURYRPYAPRPTNLODEPRAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-CURYRPYAPRPTNLODEPRAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CURYRPYAPRPTNLSDEPRAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-CURYRPYAPRPTNLSDEPRAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-CURYRPYAPRPTNLSDEPRAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CURYRPYAPRPTNLUDEPRAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-CURYRPYAPRPTNLUDEPRAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-CURYRPYAPRPTNLUDEPRAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CURYRPYAPRPTNLINTERESTAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-CURYRPYAPRPTNLINTERESTAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-CURYRPYAPRPTNLINTERESTAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CURYRPRPTNLODEPRREVALAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-CURYRPRPTNLODEPRREVALAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-CURYRPRPTNLODEPRREVALAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field ACCMLTDACQNPRODUCTIONAMOUNT
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-ACCMLTDACQNPRODUCTIONAMOUNT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-ACCMLTDACQNPRODUCTIONAMOUNT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field ACCMLTDREPLACEMENTREVALAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-ACCMLTDREPLACEMENTREVALAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-ACCMLTDREPLACEMENTREVALAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field ACCMLTDINVESTMENTGRANTAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-ACCMLTDINVESTMENTGRANTAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-ACCMLTDINVESTMENTGRANTAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field ACCUMULATEDORDINARYDEPRAMOUNT
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-ACCUMULATEDORDINARYDEPRAMOUNT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-ACCUMULATEDORDINARYDEPRAMOUNT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field ACCUMULATEDSPECIALDEPRAMOUNT
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-ACCUMULATEDSPECIALDEPRAMOUNT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-ACCUMULATEDSPECIALDEPRAMOUNT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field ACCUMULATEDUNPLANNEDDEPRAMOUNT
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-ACCUMULATEDUNPLANNEDDEPRAMOUNT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-ACCUMULATEDUNPLANNEDDEPRAMOUNT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field ACCUMULATEDTRNSFDRSRVAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-ACCUMULATEDTRNSFDRSRVAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-ACCUMULATEDTRNSFDRSRVAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field ACCUMULATEDINTERESTAMOUNTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-ACCUMULATEDINTERESTAMOUNTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-ACCUMULATEDINTERESTAMOUNTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field ACCMLTDREVALORDINARYDEPRAMOUNT
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-ACCMLTDREVALORDINARYDEPRAMOUNT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-ACCMLTDREVALORDINARYDEPRAMOUNT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field ACCUMULATEDDOWNPAYMENTAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-ACCUMULATEDDOWNPAYMENTAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-ACCUMULATEDDOWNPAYMENTAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PYAACQNPRODNAMTINDSPCRCY
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-PYAACQNPRODNAMTINDSPCRCY
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-PYAACQNPRODNAMTINDSPCRCY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PYAREVALRPLCMTVALUEAMOUNTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-PYAREVALRPLCMTVALUEAMOUNTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-PYAREVALRPLCMTVALUEAMOUNTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PYAINVESTMENTGRANTAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-PYAINVESTMENTGRANTAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-PYAINVESTMENTGRANTAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PYAORDINARYDEPRAMTINDSPCRCY
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-PYAORDINARYDEPRAMTINDSPCRCY
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-PYAORDINARYDEPRAMTINDSPCRCY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PYASPECIALDEPRAMTINDSPCRCY
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-PYASPECIALDEPRAMTINDSPCRCY
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-PYASPECIALDEPRAMTINDSPCRCY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PYAUNPLANNEDDEPRAMTINDSPCRCY
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-PYAUNPLANNEDDEPRAMTINDSPCRCY
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-PYAUNPLANNEDDEPRAMTINDSPCRCY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PYATRANSFERREDRESERVEAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-PYATRANSFERREDRESERVEAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-PYATRANSFERREDRESERVEAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PYAINTERESTAMOUNTINDSPCRCY
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-PYAINTERESTAMOUNTINDSPCRCY
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-PYAINTERESTAMOUNTINDSPCRCY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PYAORDNRYDEPRPLNDREVALAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-PYAORDNRYDEPRPLNDREVALAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-PYAORDNRYDEPRPLNDREVALAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PYADOWNPAYMENTAMOUNTINDSPCRCY
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-PYADOWNPAYMENTAMOUNTINDSPCRCY
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-PYADOWNPAYMENTAMOUNTINDSPCRCY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field ORDINARYDEPRREDUCEDAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-ORDINARYDEPRREDUCEDAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-ORDINARYDEPRREDUCEDAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field SPECIALDEPRREDUCEDAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCRSLT-SPECIALDEPRREDUCEDAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCRSLT-SPECIALDEPRREDUCEDAMTINDC.
WRITE:/ 'New Value:', ld_input.
ENDFORM. 

*&---------------------------------------------------------------------*
*& Form process_as_string_field_values
*&---------------------------------------------------------------------*
FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO.

TYPES: BEGIN OF T_CDCCALCRSLT_STR, 
MANDT TYPE STRING,
COMPANYCODE TYPE STRING,
MASTERFIXEDASSET TYPE STRING,
FIXEDASSET TYPE STRING,
ASSETDEPRECIATIONAREA TYPE STRING,
FISCALYEAR TYPE STRING,
CURRENCYROLE TYPE STRING,
DISPLAYCURRENCY TYPE STRING,
FYSACCMLTDACQNPRODNAMTINDC TYPE STRING,
FYSACCMLTDRRVAMTINDSPCRCY TYPE STRING,
FYSACCMLTDINVMTGRANTAMTINDC TYPE STRING,
FYSACCMLTDORDNRYDEPRAMTINDC TYPE STRING,
FYSACCMLTDSPECIALDEPRAMTINDC TYPE STRING,
FYSACCMLTDUNPLNDDEPRAMTINDC TYPE STRING,
FYSACCMLTDTRANSFOFRSRVAMTINDC TYPE STRING,
FYSACCMLTDINTERESTAMOUNTINDC TYPE STRING,
FYSACCMLTDODEPRREVALAMTINDC TYPE STRING,
FYSACCMLTDDOWNPAYMENTAMTINDC TYPE STRING,
CURRENTYEARACQNPRODNAMTINDC TYPE STRING,
CURRENTYEARRPLCMTREVALAMTINDC TYPE STRING,
CURRENTYEARINVMTGRANTAMTINDC TYPE STRING,
CURRENTYEARORDNRYDEPRAMTINDC TYPE STRING,
CURRENTYEARSPECIALDEPRAMTINDC TYPE STRING,
CURRENTYEARUNPLNDDEPRAMTINDC TYPE STRING,
CURRENTYEARTRANSFOFRSRVAMTINDC TYPE STRING,
CURRENTYEARINTERESTAMTINDC TYPE STRING,
CYRREVALUATIONODEPRAMTINDC TYPE STRING,
CURRENTYEARDOWNPAYMENTAMTINDC TYPE STRING,
FSCLYRSTRTPYAACQNPRODNAMTINDC TYPE STRING,
FYSPRPTNREVALRPLCMTAMTINDC TYPE STRING,
FYSTRTPYAINVMTGRANTAMTINDC TYPE STRING,
FYSTRTPYAPRPTNLODEPRAMTINDC TYPE STRING,
FYSTRTPYAPRPTNLSDEPRAMTINDC TYPE STRING,
FYSTRTPYAPRPTNLUDEPRAMTINDC TYPE STRING,
FYSTRTPYAPRPTNLRESERVEAMTINDC TYPE STRING,
FYSTRTPYAPRPTNLINTERESTAMTINDC TYPE STRING,
FYSPRPTNLREVALODEPRAMTINDC TYPE STRING,
FYSTRTPYADOWNPAYTAMTINDC TYPE STRING,
CURRENTYEARPRPTNLRRVAMTINDC TYPE STRING,
CURYRPYAPRPTNLODEPRAMTINDC TYPE STRING,
CURYRPYAPRPTNLSDEPRAMTINDC TYPE STRING,
CURYRPYAPRPTNLUDEPRAMTINDC TYPE STRING,
CURYRPYAPRPTNLINTERESTAMTINDC TYPE STRING,
CURYRPRPTNLODEPRREVALAMTINDC TYPE STRING,
ACCMLTDACQNPRODUCTIONAMOUNT TYPE STRING,
ACCMLTDREPLACEMENTREVALAMTINDC TYPE STRING,
ACCMLTDINVESTMENTGRANTAMTINDC TYPE STRING,
ACCUMULATEDORDINARYDEPRAMOUNT TYPE STRING,
ACCUMULATEDSPECIALDEPRAMOUNT TYPE STRING,
ACCUMULATEDUNPLANNEDDEPRAMOUNT TYPE STRING,
ACCUMULATEDTRNSFDRSRVAMTINDC TYPE STRING,
ACCUMULATEDINTERESTAMOUNTINDC TYPE STRING,
ACCMLTDREVALORDINARYDEPRAMOUNT TYPE STRING,
ACCUMULATEDDOWNPAYMENTAMTINDC TYPE STRING,
PYAACQNPRODNAMTINDSPCRCY TYPE STRING,
PYAREVALRPLCMTVALUEAMOUNTINDC TYPE STRING,
PYAINVESTMENTGRANTAMTINDC TYPE STRING,
PYAORDINARYDEPRAMTINDSPCRCY TYPE STRING,
PYASPECIALDEPRAMTINDSPCRCY TYPE STRING,
PYAUNPLANNEDDEPRAMTINDSPCRCY TYPE STRING,
PYATRANSFERREDRESERVEAMTINDC TYPE STRING,
PYAINTERESTAMOUNTINDSPCRCY TYPE STRING,
PYAORDNRYDEPRPLNDREVALAMTINDC TYPE STRING,
PYADOWNPAYMENTAMOUNTINDSPCRCY TYPE STRING,
ORDINARYDEPRREDUCEDAMTINDC TYPE STRING,
SPECIALDEPRREDUCEDAMTINDC TYPE STRING,END OF T_EKKO_STR.
DATA: WA_CDCCALCRSLT_STR type T_EKKO_STR.

DATA: ld_text TYPE string.

LOOP AT IT_EKKO INTO WA_EKKO.
  MOVE-CORRESPONDING wa_EKKO TO WA_EKKO_STR.
  CONCATENATE: sy-vline
WA_CDCCALCRSLT_STR-MANDT sy-vline 
WA_CDCCALCRSLT_STR-COMPANYCODE sy-vline 
WA_CDCCALCRSLT_STR-MASTERFIXEDASSET sy-vline 
WA_CDCCALCRSLT_STR-FIXEDASSET sy-vline 
WA_CDCCALCRSLT_STR-ASSETDEPRECIATIONAREA sy-vline 
WA_CDCCALCRSLT_STR-FISCALYEAR sy-vline 
WA_CDCCALCRSLT_STR-CURRENCYROLE sy-vline 
WA_CDCCALCRSLT_STR-DISPLAYCURRENCY sy-vline 
WA_CDCCALCRSLT_STR-FYSACCMLTDACQNPRODNAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-FYSACCMLTDRRVAMTINDSPCRCY sy-vline 
WA_CDCCALCRSLT_STR-FYSACCMLTDINVMTGRANTAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-FYSACCMLTDORDNRYDEPRAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-FYSACCMLTDSPECIALDEPRAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-FYSACCMLTDUNPLNDDEPRAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-FYSACCMLTDTRANSFOFRSRVAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-FYSACCMLTDINTERESTAMOUNTINDC sy-vline 
WA_CDCCALCRSLT_STR-FYSACCMLTDODEPRREVALAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-FYSACCMLTDDOWNPAYMENTAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-CURRENTYEARACQNPRODNAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-CURRENTYEARRPLCMTREVALAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-CURRENTYEARINVMTGRANTAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-CURRENTYEARORDNRYDEPRAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-CURRENTYEARSPECIALDEPRAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-CURRENTYEARUNPLNDDEPRAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-CURRENTYEARTRANSFOFRSRVAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-CURRENTYEARINTERESTAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-CYRREVALUATIONODEPRAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-CURRENTYEARDOWNPAYMENTAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-FSCLYRSTRTPYAACQNPRODNAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-FYSPRPTNREVALRPLCMTAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-FYSTRTPYAINVMTGRANTAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-FYSTRTPYAPRPTNLODEPRAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-FYSTRTPYAPRPTNLSDEPRAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-FYSTRTPYAPRPTNLUDEPRAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-FYSTRTPYAPRPTNLRESERVEAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-FYSTRTPYAPRPTNLINTERESTAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-FYSPRPTNLREVALODEPRAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-FYSTRTPYADOWNPAYTAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-CURRENTYEARPRPTNLRRVAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-CURYRPYAPRPTNLODEPRAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-CURYRPYAPRPTNLSDEPRAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-CURYRPYAPRPTNLUDEPRAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-CURYRPYAPRPTNLINTERESTAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-CURYRPRPTNLODEPRREVALAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-ACCMLTDACQNPRODUCTIONAMOUNT sy-vline 
WA_CDCCALCRSLT_STR-ACCMLTDREPLACEMENTREVALAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-ACCMLTDINVESTMENTGRANTAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-ACCUMULATEDORDINARYDEPRAMOUNT sy-vline 
WA_CDCCALCRSLT_STR-ACCUMULATEDSPECIALDEPRAMOUNT sy-vline 
WA_CDCCALCRSLT_STR-ACCUMULATEDUNPLANNEDDEPRAMOUNT sy-vline 
WA_CDCCALCRSLT_STR-ACCUMULATEDTRNSFDRSRVAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-ACCUMULATEDINTERESTAMOUNTINDC sy-vline 
WA_CDCCALCRSLT_STR-ACCMLTDREVALORDINARYDEPRAMOUNT sy-vline 
WA_CDCCALCRSLT_STR-ACCUMULATEDDOWNPAYMENTAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-PYAACQNPRODNAMTINDSPCRCY sy-vline 
WA_CDCCALCRSLT_STR-PYAREVALRPLCMTVALUEAMOUNTINDC sy-vline 
WA_CDCCALCRSLT_STR-PYAINVESTMENTGRANTAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-PYAORDINARYDEPRAMTINDSPCRCY sy-vline 
WA_CDCCALCRSLT_STR-PYASPECIALDEPRAMTINDSPCRCY sy-vline 
WA_CDCCALCRSLT_STR-PYAUNPLANNEDDEPRAMTINDSPCRCY sy-vline 
WA_CDCCALCRSLT_STR-PYATRANSFERREDRESERVEAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-PYAINTERESTAMOUNTINDSPCRCY sy-vline 
WA_CDCCALCRSLT_STR-PYAORDNRYDEPRPLNDREVALAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-PYADOWNPAYMENTAMOUNTINDSPCRCY sy-vline 
WA_CDCCALCRSLT_STR-ORDINARYDEPRREDUCEDAMTINDC sy-vline 
WA_CDCCALCRSLT_STR-SPECIALDEPRREDUCEDAMTINDC sy-vline      INTO ld_text SEPARATED BY SPACE.

*Add any further fields from structure WA_EKKO_STR you want to CONCATENATE...
ENDLOOP.
ENDFORM.