ABAP Select data from SAP table J_3RF_DKSLD_NUMERIC_VALUES 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 J_3RF_DKSLD_NUMERIC_VALUES 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 J_3RF_DKSLD_NUMERIC_VALUES. 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 J_3RF_DKSLD_NUMERIC_VALUES 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_J_3RF_DKSLD_NUMERIC_VALUES TYPE STANDARD TABLE OF J_3RF_DKSLD_NUMERIC_VALUES,
      WA_J_3RF_DKSLD_NUMERIC_VALUES TYPE J_3RF_DKSLD_NUMERIC_VALUES,
      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: <J_3RF_DKSLD_NUMERIC_VALUES> TYPE J_3RF_DKSLD_NUMERIC_VALUES.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM J_3RF_DKSLD_NUMERIC_VALUES
*  INTO TABLE @DATA(IT_J_3RF_DKSLD_NUMERIC_VALUES2).
*--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_J_3RF_DKSLD_NUMERIC_VALUES INDEX 1 INTO DATA(WA_J_3RF_DKSLD_NUMERIC_VALUES2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<J_3RF_DKSLD_NUMERIC_VALUES>-DMBTR = 1.
<J_3RF_DKSLD_NUMERIC_VALUES>-WRBTR = 1.
<J_3RF_DKSLD_NUMERIC_VALUES>-MWSTS = 1.
<J_3RF_DKSLD_NUMERIC_VALUES>-WMWST = 1.
<J_3RF_DKSLD_NUMERIC_VALUES>-BDIFF = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_J_3RF_DKSLD_NUMERIC_VALUES-BDIF2, sy-vline,
  WA_J_3RF_DKSLD_NUMERIC_VALUES-SKNTO, sy-vline,
  WA_J_3RF_DKSLD_NUMERIC_VALUES-WSKTO, sy-vline,
  WA_J_3RF_DKSLD_NUMERIC_VALUES-DMBT1, sy-vline,
  WA_J_3RF_DKSLD_NUMERIC_VALUES-WRBT1, sy-vline,
  WA_J_3RF_DKSLD_NUMERIC_VALUES-DMBT2, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_J_3RF_DKSLD_NUMERIC_VALUES 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_J_3RF_DKSLD_NUMERIC_VALUES 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_J_3RF_DKSLD_NUMERIC_VALUES INTO WA_J_3RF_DKSLD_NUMERIC_VALUES.


*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 AC152, internal->external for field DMBTR
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-DMBTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-DMBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field WRBTR
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-WRBTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-WRBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field MWSTS
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-MWSTS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-MWSTS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field WMWST
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-WMWST
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-WMWST.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field BDIFF
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-BDIFF
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-BDIFF.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field BDIF2
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-BDIF2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-BDIF2.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field SKNTO
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-SKNTO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-SKNTO.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field WSKTO
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-WSKTO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-WSKTO.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field DMBT1
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-DMBT1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-DMBT1.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field WRBT1
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-WRBT1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-WRBT1.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field DMBT2
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-DMBT2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-DMBT2.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field WRBT2
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-WRBT2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-WRBT2.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field DMBT3
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-DMBT3
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-DMBT3.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field WRBT3
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-WRBT3
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-WRBT3.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field DMB21
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-DMB21
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-DMB21.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field DMB22
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-DMB22
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-DMB22.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field DMB23
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-DMB23
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-DMB23.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field DMB31
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-DMB31
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-DMB31.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field DMB32
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-DMB32
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-DMB32.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field DMB33
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-DMB33
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-DMB33.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field MWST2
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-MWST2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-MWST2.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field MWST3
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-MWST3
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-MWST3.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field SKNT2
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-SKNT2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-SKNT2.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field SKNT3
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-SKNT3
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-SKNT3.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field BDIF3
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-BDIF3
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-BDIF3.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field TXBHW
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-TXBHW
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-TXBHW.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field TXBFW
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-TXBFW
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-TXBFW.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field HWBAS
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-HWBAS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-HWBAS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field FWBAS
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-FWBAS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-FWBAS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field HWZUZ
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-HWZUZ
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-HWZUZ.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field FWZUZ
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-FWZUZ
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-FWZUZ.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field KLIBT
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-KLIBT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-KLIBT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field NAVHW
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-NAVHW
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-NAVHW.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field NAVFW
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-NAVFW
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-NAVFW.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field RDIFF
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-RDIFF
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-RDIFF.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field RDIF2
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-RDIF2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-RDIF2.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field NAVH2
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-NAVH2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-NAVH2.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field NAVH3
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-NAVH3
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-NAVH3.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field RDIF3
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-RDIF3
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-RDIF3.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field TXBH2
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-TXBH2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-TXBH2.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field TXBH3
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-TXBH3
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-TXBH3.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field BWSHB
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-BWSHB
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-BWSHB.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field BWSH2
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_DKSLD_NUMERIC_VALUES-BWSH2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_DKSLD_NUMERIC_VALUES-BWSH2.
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_J_3RF_DKSLD_NUMERIC_VALUES_STR, 
DMBTR TYPE STRING,
WRBTR TYPE STRING,
MWSTS TYPE STRING,
WMWST TYPE STRING,
BDIFF TYPE STRING,
BDIF2 TYPE STRING,
SKNTO TYPE STRING,
WSKTO TYPE STRING,
DMBT1 TYPE STRING,
WRBT1 TYPE STRING,
DMBT2 TYPE STRING,
WRBT2 TYPE STRING,
DMBT3 TYPE STRING,
WRBT3 TYPE STRING,
DMB21 TYPE STRING,
DMB22 TYPE STRING,
DMB23 TYPE STRING,
DMB31 TYPE STRING,
DMB32 TYPE STRING,
DMB33 TYPE STRING,
MWST2 TYPE STRING,
MWST3 TYPE STRING,
SKNT2 TYPE STRING,
SKNT3 TYPE STRING,
BDIF3 TYPE STRING,
TXBHW TYPE STRING,
TXBFW TYPE STRING,
HWBAS TYPE STRING,
FWBAS TYPE STRING,
HWZUZ TYPE STRING,
FWZUZ TYPE STRING,
KLIBT TYPE STRING,
NAVHW TYPE STRING,
NAVFW TYPE STRING,
RDIFF TYPE STRING,
RDIF2 TYPE STRING,
NAVH2 TYPE STRING,
NAVH3 TYPE STRING,
RDIF3 TYPE STRING,
TXBH2 TYPE STRING,
TXBH3 TYPE STRING,
BWSHB TYPE STRING,
BWSH2 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_J_3RF_DKSLD_NUMERIC_VALUES_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_J_3RF_DKSLD_NUMERIC_VALUES_STR-DMBTR sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-WRBTR sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-MWSTS sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-WMWST sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-BDIFF sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-BDIF2 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-SKNTO sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-WSKTO sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-DMBT1 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-WRBT1 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-DMBT2 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-WRBT2 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-DMBT3 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-WRBT3 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-DMB21 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-DMB22 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-DMB23 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-DMB31 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-DMB32 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-DMB33 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-MWST2 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-MWST3 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-SKNT2 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-SKNT3 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-BDIF3 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-TXBHW sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-TXBFW sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-HWBAS sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-FWBAS sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-HWZUZ sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-FWZUZ sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-KLIBT sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-NAVHW sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-NAVFW sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-RDIFF sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-RDIF2 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-NAVH2 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-NAVH3 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-RDIF3 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-TXBH2 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-TXBH3 sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-BWSHB sy-vline 
WA_J_3RF_DKSLD_NUMERIC_VALUES_STR-BWSH2 sy-vline      INTO ld_text SEPARATED BY SPACE.

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