ABAP Select data from SAP table DSKOS into internal table
Get Example source ABAP code based on a different SAP table
Below is a number of ABAP code snippets to demonstrate how to select data from SAP DSKOS 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 DSKOS. 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 DSKOS 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_DSKOS TYPE STANDARD TABLE OF DSKOS,
WA_DSKOS TYPE DSKOS,
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: <DSKOS> TYPE DSKOS.
*Process all fields in table header/work area as string values
PERFORM process_as_string_field_values CHANGING wa_DSKOS.
SELECT *
*restrict ABAP select to first 10 rows
UP TO 10 ROWS
FROM DSKOS
INTO TABLE IT_DSKOS.
*Select data and declare internal table using in-line method @DATA
*SELECT *
* FROM DSKOS
* INTO TABLE @DATA(IT_DSKOS2).
*--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_DSKOS INDEX 1 INTO DATA(WA_DSKOS2).
*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_DSKOS ASSIGNING <DSKOS>.
*To update a field value using a field symbol simply change the value via the field symbol pointer<DSKOS>-MANDT = 1.
<DSKOS>-KOART = 1.
<DSKOS>-BUKRS = 1.
<DSKOS>-KONTO = 1.
<DSKOS>-GJAHR = 1.
ENDLOOP. LOOP AT IT_DSKOS INTO WA_DSKOS. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_DSKOS-GSBER, sy-vline,
WA_DSKOS-SAART, sy-vline,
WA_DSKOS-KTOKS, sy-vline,
WA_DSKOS-SKBEZ, sy-vline,
WA_DSKOS-ZUAWA, sy-vline,
WA_DSKOS-XBILK, sy-vline.
ENDLOOP. *Add any further fields from structure WA_DSKOS 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_DSKOS 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_DSKOS INTO WA_DSKOS. *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 KONTO CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_DSKOS-KONTO IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-KONTO.
WRITE:/ 'New Value:', ld_input.
*Conversion exit GJAHR, internal->external for field GJAHR CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_DSKOS-GJAHR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-GJAHR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field ALTKT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_DSKOS-ALTKT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-ALTKT.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ISOLA, internal->external for field SPRAS CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT' EXPORTING input = WA_DSKOS-SPRAS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-SPRAS.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field SLVFW CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-SLVFW IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-SLVFW.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UMSAV CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UMSAV IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UMSAV.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM01S CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM01S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM01S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM01H CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM01H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM01H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM02S CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM02S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM02S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM02H CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM02H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM02H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM03S CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM03S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM03S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM03H CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM03H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM03H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM04S CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM04S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM04S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM04H CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM04H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM04H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM05S CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM05S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM05S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM05H CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM05H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM05H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM06S CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM06S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM06S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM06H CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM06H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM06H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM07S CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM07S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM07S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM07H CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM07H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM07H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM08S CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM08S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM08S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM08H CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM08H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM08H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM09S CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM09S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM09S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM09H CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM09H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM09H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM10S CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM10S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM10S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM10H CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM10H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM10H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM11S CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM11S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM11S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM11H CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM11H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM11H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM12S CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM12S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM12S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM12H CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM12H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM12H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM13S CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM13S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM13S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM13H CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM13H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM13H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM14S CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM14S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM14S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM14H CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM14H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM14H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM15S CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM15S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM15S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM15H CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM15H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM15H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM16S CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM16S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM16S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field UM16H CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_DSKOS-UM16H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-UM16H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM01S CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM01S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM01S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM01H CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM01H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM01H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM02S CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM02S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM02S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM02H CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM02H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM02H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM03S CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM03S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM03S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM03H CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM03H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM03H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM04S CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM04S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM04S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM04H CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM04H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM04H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM05S CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM05S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM05S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM05H CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM05H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM05H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM06S CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM06S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM06S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM06H CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM06H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM06H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM07S CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM07S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM07S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM07H CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM07H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM07H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM08S CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM08S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM08S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM08H CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM08H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM08H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM09S CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM09S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM09S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM09H CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM09H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM09H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM10S CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM10S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM10S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM10H CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM10H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM10H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM11S CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM11S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM11S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM11H CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM11H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM11H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM12S CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM12S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM12S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM12H CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM12H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM12H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM13S CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM13S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM13S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM13H CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM13H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM13H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM14S CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM14S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM14S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM14H CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM14H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM14H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM15S CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM15S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM15S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM15H CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM15H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM15H.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM16S CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM16S IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM16S.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AU152, internal->external for field WM16H CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_DSKOS-WM16H IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DSKOS-WM16H.
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_DSKOS_STR,
MANDT TYPE STRING,
KOART TYPE STRING,
BUKRS TYPE STRING,
KONTO TYPE STRING,
GJAHR TYPE STRING,
GSBER TYPE STRING,
SAART TYPE STRING,
KTOKS TYPE STRING,
SKBEZ TYPE STRING,
ZUAWA TYPE STRING,
XBILK TYPE STRING,
MITKZ TYPE STRING,
MWSKZ TYPE STRING,
WAERS TYPE STRING,
FIPLS TYPE STRING,
ZUBEZ TYPE STRING,
WMETH TYPE STRING,
XKOAR TYPE STRING,
KSART TYPE STRING,
ALTKZ TYPE STRING,
ALTKT TYPE STRING,
VZSKZ TYPE STRING,
ZINDT TYPE STRING,
DATLZ TYPE STRING,
ZINRT TYPE STRING,
SPRAS TYPE STRING,
SLVFW TYPE STRING,
UMSAV TYPE STRING,
UM01S TYPE STRING,
UM01H TYPE STRING,
UM02S TYPE STRING,
UM02H TYPE STRING,
UM03S TYPE STRING,
UM03H TYPE STRING,
UM04S TYPE STRING,
UM04H TYPE STRING,
UM05S TYPE STRING,
UM05H TYPE STRING,
UM06S TYPE STRING,
UM06H TYPE STRING,
UM07S TYPE STRING,
UM07H TYPE STRING,
UM08S TYPE STRING,
UM08H TYPE STRING,
UM09S TYPE STRING,
UM09H TYPE STRING,
UM10S TYPE STRING,
UM10H TYPE STRING,
UM11S TYPE STRING,
UM11H TYPE STRING,
UM12S TYPE STRING,
UM12H TYPE STRING,
UM13S TYPE STRING,
UM13H TYPE STRING,
UM14S TYPE STRING,
UM14H TYPE STRING,
UM15S TYPE STRING,
UM15H TYPE STRING,
UM16S TYPE STRING,
UM16H TYPE STRING,
WM01S TYPE STRING,
WM01H TYPE STRING,
WM02S TYPE STRING,
WM02H TYPE STRING,
WM03S TYPE STRING,
WM03H TYPE STRING,
WM04S TYPE STRING,
WM04H TYPE STRING,
WM05S TYPE STRING,
WM05H TYPE STRING,
WM06S TYPE STRING,
WM06H TYPE STRING,
WM07S TYPE STRING,
WM07H TYPE STRING,
WM08S TYPE STRING,
WM08H TYPE STRING,
WM09S TYPE STRING,
WM09H TYPE STRING,
WM10S TYPE STRING,
WM10H TYPE STRING,
WM11S TYPE STRING,
WM11H TYPE STRING,
WM12S TYPE STRING,
WM12H TYPE STRING,
WM13S TYPE STRING,
WM13H TYPE STRING,
WM14S TYPE STRING,
WM14H TYPE STRING,
WM15S TYPE STRING,
WM15H TYPE STRING,
WM16S TYPE STRING,
WM16H TYPE STRING,END OF T_EKKO_STR. DATA: WA_DSKOS_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_DSKOS_STR-MANDT sy-vline
WA_DSKOS_STR-KOART sy-vline
WA_DSKOS_STR-BUKRS sy-vline
WA_DSKOS_STR-KONTO sy-vline
WA_DSKOS_STR-GJAHR sy-vline
WA_DSKOS_STR-GSBER sy-vline
WA_DSKOS_STR-SAART sy-vline
WA_DSKOS_STR-KTOKS sy-vline
WA_DSKOS_STR-SKBEZ sy-vline
WA_DSKOS_STR-ZUAWA sy-vline
WA_DSKOS_STR-XBILK sy-vline
WA_DSKOS_STR-MITKZ sy-vline
WA_DSKOS_STR-MWSKZ sy-vline
WA_DSKOS_STR-WAERS sy-vline
WA_DSKOS_STR-FIPLS sy-vline
WA_DSKOS_STR-ZUBEZ sy-vline
WA_DSKOS_STR-WMETH sy-vline
WA_DSKOS_STR-XKOAR sy-vline
WA_DSKOS_STR-KSART sy-vline
WA_DSKOS_STR-ALTKZ sy-vline
WA_DSKOS_STR-ALTKT sy-vline
WA_DSKOS_STR-VZSKZ sy-vline
WA_DSKOS_STR-ZINDT sy-vline
WA_DSKOS_STR-DATLZ sy-vline
WA_DSKOS_STR-ZINRT sy-vline
WA_DSKOS_STR-SPRAS sy-vline
WA_DSKOS_STR-SLVFW sy-vline
WA_DSKOS_STR-UMSAV sy-vline
WA_DSKOS_STR-UM01S sy-vline
WA_DSKOS_STR-UM01H sy-vline
WA_DSKOS_STR-UM02S sy-vline
WA_DSKOS_STR-UM02H sy-vline
WA_DSKOS_STR-UM03S sy-vline
WA_DSKOS_STR-UM03H sy-vline
WA_DSKOS_STR-UM04S sy-vline
WA_DSKOS_STR-UM04H sy-vline
WA_DSKOS_STR-UM05S sy-vline
WA_DSKOS_STR-UM05H sy-vline
WA_DSKOS_STR-UM06S sy-vline
WA_DSKOS_STR-UM06H sy-vline
WA_DSKOS_STR-UM07S sy-vline
WA_DSKOS_STR-UM07H sy-vline
WA_DSKOS_STR-UM08S sy-vline
WA_DSKOS_STR-UM08H sy-vline
WA_DSKOS_STR-UM09S sy-vline
WA_DSKOS_STR-UM09H sy-vline
WA_DSKOS_STR-UM10S sy-vline
WA_DSKOS_STR-UM10H sy-vline
WA_DSKOS_STR-UM11S sy-vline
WA_DSKOS_STR-UM11H sy-vline
WA_DSKOS_STR-UM12S sy-vline
WA_DSKOS_STR-UM12H sy-vline
WA_DSKOS_STR-UM13S sy-vline
WA_DSKOS_STR-UM13H sy-vline
WA_DSKOS_STR-UM14S sy-vline
WA_DSKOS_STR-UM14H sy-vline
WA_DSKOS_STR-UM15S sy-vline
WA_DSKOS_STR-UM15H sy-vline
WA_DSKOS_STR-UM16S sy-vline
WA_DSKOS_STR-UM16H sy-vline
WA_DSKOS_STR-WM01S sy-vline
WA_DSKOS_STR-WM01H sy-vline
WA_DSKOS_STR-WM02S sy-vline
WA_DSKOS_STR-WM02H sy-vline
WA_DSKOS_STR-WM03S sy-vline
WA_DSKOS_STR-WM03H sy-vline
WA_DSKOS_STR-WM04S sy-vline
WA_DSKOS_STR-WM04H sy-vline
WA_DSKOS_STR-WM05S sy-vline
WA_DSKOS_STR-WM05H sy-vline
WA_DSKOS_STR-WM06S sy-vline
WA_DSKOS_STR-WM06H sy-vline
WA_DSKOS_STR-WM07S sy-vline
WA_DSKOS_STR-WM07H sy-vline
WA_DSKOS_STR-WM08S sy-vline
WA_DSKOS_STR-WM08H sy-vline
WA_DSKOS_STR-WM09S sy-vline
WA_DSKOS_STR-WM09H sy-vline
WA_DSKOS_STR-WM10S sy-vline
WA_DSKOS_STR-WM10H sy-vline
WA_DSKOS_STR-WM11S sy-vline
WA_DSKOS_STR-WM11H sy-vline
WA_DSKOS_STR-WM12S sy-vline
WA_DSKOS_STR-WM12H sy-vline
WA_DSKOS_STR-WM13S sy-vline
WA_DSKOS_STR-WM13H sy-vline
WA_DSKOS_STR-WM14S sy-vline
WA_DSKOS_STR-WM14H sy-vline
WA_DSKOS_STR-WM15S sy-vline
WA_DSKOS_STR-WM15H sy-vline
WA_DSKOS_STR-WM16S sy-vline
WA_DSKOS_STR-WM16H sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.
