ABAP Select data from SAP table KABR_GSUM 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 KABR_GSUM 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 KABR_GSUM. 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 KABR_GSUM 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_KABR_GSUM TYPE STANDARD TABLE OF KABR_GSUM,
WA_KABR_GSUM TYPE KABR_GSUM,
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: <KABR_GSUM> TYPE KABR_GSUM.
*Process all fields in table header/work area as string values
PERFORM process_as_string_field_values CHANGING wa_KABR_GSUM.
SELECT *
*restrict ABAP select to first 10 rows
UP TO 10 ROWS
FROM KABR_GSUM
INTO TABLE IT_KABR_GSUM.
*Select data and declare internal table using in-line method @DATA
*SELECT *
* FROM KABR_GSUM
* INTO TABLE @DATA(IT_KABR_GSUM2).
*--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_KABR_GSUM INDEX 1 INTO DATA(WA_KABR_GSUM2).
*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_KABR_GSUM ASSIGNING <KABR_GSUM>.
*To update a field value using a field symbol simply change the value via the field symbol pointer<KABR_GSUM>-OBJNR = 1.
<KABR_GSUM>-REC = 1.
<KABR_GSUM>-EMPF = 1.
<KABR_GSUM>-WKG_0 = 1.
<KABR_GSUM>-WKG_1 = 1.
ENDLOOP. LOOP AT IT_KABR_GSUM INTO WA_KABR_GSUM. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_KABR_GSUM-WKG_2, sy-vline,
WA_KABR_GSUM-WOG_0, sy-vline,
WA_KABR_GSUM-WOG_1, sy-vline,
WA_KABR_GSUM-WOG_2, sy-vline,
WA_KABR_GSUM-VARIA, sy-vline,
WA_KABR_GSUM-POR, sy-vline.
ENDLOOP. *Add any further fields from structure WA_KABR_GSUM 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_KABR_GSUM 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_KABR_GSUM INTO WA_KABR_GSUM. *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 WKG_0 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WKG_0 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WKG_0.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG_1 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WKG_1 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WKG_1.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG_2 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WKG_2 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WKG_2.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG_0 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WOG_0 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WOG_0.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG_1 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WOG_1 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WOG_1.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG_2 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WOG_2 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WOG_2.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG_5 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WKG_5 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WKG_5.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG_6 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WKG_6 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WKG_6.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG_7 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WKG_7 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WKG_7.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG_5 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WOG_5 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WOG_5.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG_6 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WOG_6 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WOG_6.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG_7 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WOG_7 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WOG_7.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WAG_0 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WAG_0 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WAG_0.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WAG_1 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WAG_1 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WAG_1.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WAG_2 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WAG_2 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WAG_2.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WAG_5 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WAG_5 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WAG_5.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WAG_6 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WAG_6 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WAG_6.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WAG_7 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WAG_7 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WAG_7.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WVG_0 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WVG_0 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WVG_0.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WVG_1 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WVG_1 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WVG_1.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WVG_2 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WVG_2 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WVG_2.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WVG_5 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WVG_5 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WVG_5.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WVG_6 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WVG_6 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WVG_6.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WVG_7 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WVG_7 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WVG_7.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WBG_0 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WBG_0 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WBG_0.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WBG_1 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WBG_1 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WBG_1.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WBG_2 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WBG_2 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WBG_2.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WBG_5 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WBG_5 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WBG_5.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WBG_6 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WBG_6 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WBG_6.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WBG_7 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WBG_7 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WBG_7.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WCG_0 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WCG_0 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WCG_0.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WCG_1 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WCG_1 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WCG_1.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WCG_2 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WCG_2 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WCG_2.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WCG_5 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WCG_5 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WCG_5.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WCG_6 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WCG_6 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WCG_6.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WCG_7 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WCG_7 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WCG_7.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WDG_0 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WDG_0 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WDG_0.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WDG_1 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WDG_1 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WDG_1.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WDG_2 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WDG_2 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WDG_2.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WDG_5 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WDG_5 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WDG_5.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WDG_6 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WDG_6 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WDG_6.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WDG_7 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WDG_7 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WDG_7.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WEG_0 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WEG_0 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WEG_0.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WEG_1 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WEG_1 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WEG_1.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WEG_2 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WEG_2 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WEG_2.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WEG_5 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WEG_5 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WEG_5.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WEG_6 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WEG_6 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WEG_6.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WEG_7 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WEG_7 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WEG_7.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFG_0 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WFG_0 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WFG_0.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFG_1 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WFG_1 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WFG_1.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFG_2 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WFG_2 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WFG_2.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFG_5 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WFG_5 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WFG_5.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFG_6 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WFG_6 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WFG_6.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFG_7 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WFG_7 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WFG_7.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WGG_0 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WGG_0 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WGG_0.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WGG_1 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WGG_1 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WGG_1.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WGG_2 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WGG_2 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WGG_2.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WGG_5 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WGG_5 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WGG_5.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WGG_6 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WGG_6 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WGG_6.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WGG_7 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WGG_7 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WGG_7.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WHG_0 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WHG_0 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WHG_0.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WHG_1 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WHG_1 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WHG_1.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WHG_2 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WHG_2 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WHG_2.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WHG_5 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WHG_5 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WHG_5.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WHG_6 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WHG_6 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WHG_6.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WHG_7 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WHG_7 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WHG_7.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WSG_0 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WSG_0 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WSG_0.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WSG_1 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WSG_1 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WSG_1.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WSG_2 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WSG_2 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WSG_2.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WSG_5 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WSG_5 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WSG_5.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WSG_6 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WSG_6 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WSG_6.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WSG_7 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WSG_7 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WSG_7.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFCG_0 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WFCG_0 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WFCG_0.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFCG_1 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WFCG_1 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WFCG_1.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFCG_2 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WFCG_2 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WFCG_2.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFCG_5 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WFCG_5 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WFCG_5.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFCG_6 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WFCG_6 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WFCG_6.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFCG_7 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KABR_GSUM-WFCG_7 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KABR_GSUM-WFCG_7.
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_KABR_GSUM_STR,
OBJNR TYPE STRING,
REC TYPE STRING,
EMPF TYPE STRING,
WKG_0 TYPE STRING,
WKG_1 TYPE STRING,
WKG_2 TYPE STRING,
WOG_0 TYPE STRING,
WOG_1 TYPE STRING,
WOG_2 TYPE STRING,
VARIA TYPE STRING,
POR TYPE STRING,
SREC TYPE STRING,
SEMPF TYPE STRING,
AIB TYPE STRING,
JHR_DONE_ONLY TYPE STRING,
NO_PLAN_DOC TYPE STRING,
OWAER TYPE STRING,
AWAER TYPE STRING,
VWAER TYPE STRING,
BWAER TYPE STRING,
CWAER TYPE STRING,
DWAER TYPE STRING,
EWAER TYPE STRING,
FWAER TYPE STRING,
GWAER TYPE STRING,
HWAER TYPE STRING,
SWAER TYPE STRING,
FCWAER TYPE STRING,
WKG_5 TYPE STRING,
WKG_6 TYPE STRING,
WKG_7 TYPE STRING,
WOG_5 TYPE STRING,
WOG_6 TYPE STRING,
WOG_7 TYPE STRING,
WAG_0 TYPE STRING,
WAG_1 TYPE STRING,
WAG_2 TYPE STRING,
WAG_5 TYPE STRING,
WAG_6 TYPE STRING,
WAG_7 TYPE STRING,
WVG_0 TYPE STRING,
WVG_1 TYPE STRING,
WVG_2 TYPE STRING,
WVG_5 TYPE STRING,
WVG_6 TYPE STRING,
WVG_7 TYPE STRING,
WBG_0 TYPE STRING,
WBG_1 TYPE STRING,
WBG_2 TYPE STRING,
WBG_5 TYPE STRING,
WBG_6 TYPE STRING,
WBG_7 TYPE STRING,
WCG_0 TYPE STRING,
WCG_1 TYPE STRING,
WCG_2 TYPE STRING,
WCG_5 TYPE STRING,
WCG_6 TYPE STRING,
WCG_7 TYPE STRING,
WDG_0 TYPE STRING,
WDG_1 TYPE STRING,
WDG_2 TYPE STRING,
WDG_5 TYPE STRING,
WDG_6 TYPE STRING,
WDG_7 TYPE STRING,
WEG_0 TYPE STRING,
WEG_1 TYPE STRING,
WEG_2 TYPE STRING,
WEG_5 TYPE STRING,
WEG_6 TYPE STRING,
WEG_7 TYPE STRING,
WFG_0 TYPE STRING,
WFG_1 TYPE STRING,
WFG_2 TYPE STRING,
WFG_5 TYPE STRING,
WFG_6 TYPE STRING,
WFG_7 TYPE STRING,
WGG_0 TYPE STRING,
WGG_1 TYPE STRING,
WGG_2 TYPE STRING,
WGG_5 TYPE STRING,
WGG_6 TYPE STRING,
WGG_7 TYPE STRING,
WHG_0 TYPE STRING,
WHG_1 TYPE STRING,
WHG_2 TYPE STRING,
WHG_5 TYPE STRING,
WHG_6 TYPE STRING,
WHG_7 TYPE STRING,
WSG_0 TYPE STRING,
WSG_1 TYPE STRING,
WSG_2 TYPE STRING,
WSG_5 TYPE STRING,
WSG_6 TYPE STRING,
WSG_7 TYPE STRING,
WFCG_0 TYPE STRING,
WFCG_1 TYPE STRING,
WFCG_2 TYPE STRING,
WFCG_5 TYPE STRING,
WFCG_6 TYPE STRING,
WFCG_7 TYPE STRING,END OF T_EKKO_STR. DATA: WA_KABR_GSUM_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_KABR_GSUM_STR-OBJNR sy-vline
WA_KABR_GSUM_STR-REC sy-vline
WA_KABR_GSUM_STR-EMPF sy-vline
WA_KABR_GSUM_STR-WKG_0 sy-vline
WA_KABR_GSUM_STR-WKG_1 sy-vline
WA_KABR_GSUM_STR-WKG_2 sy-vline
WA_KABR_GSUM_STR-WOG_0 sy-vline
WA_KABR_GSUM_STR-WOG_1 sy-vline
WA_KABR_GSUM_STR-WOG_2 sy-vline
WA_KABR_GSUM_STR-VARIA sy-vline
WA_KABR_GSUM_STR-POR sy-vline
WA_KABR_GSUM_STR-SREC sy-vline
WA_KABR_GSUM_STR-SEMPF sy-vline
WA_KABR_GSUM_STR-AIB sy-vline
WA_KABR_GSUM_STR-JHR_DONE_ONLY sy-vline
WA_KABR_GSUM_STR-NO_PLAN_DOC sy-vline
WA_KABR_GSUM_STR-OWAER sy-vline
WA_KABR_GSUM_STR-AWAER sy-vline
WA_KABR_GSUM_STR-VWAER sy-vline
WA_KABR_GSUM_STR-BWAER sy-vline
WA_KABR_GSUM_STR-CWAER sy-vline
WA_KABR_GSUM_STR-DWAER sy-vline
WA_KABR_GSUM_STR-EWAER sy-vline
WA_KABR_GSUM_STR-FWAER sy-vline
WA_KABR_GSUM_STR-GWAER sy-vline
WA_KABR_GSUM_STR-HWAER sy-vline
WA_KABR_GSUM_STR-SWAER sy-vline
WA_KABR_GSUM_STR-FCWAER sy-vline
WA_KABR_GSUM_STR-WKG_5 sy-vline
WA_KABR_GSUM_STR-WKG_6 sy-vline
WA_KABR_GSUM_STR-WKG_7 sy-vline
WA_KABR_GSUM_STR-WOG_5 sy-vline
WA_KABR_GSUM_STR-WOG_6 sy-vline
WA_KABR_GSUM_STR-WOG_7 sy-vline
WA_KABR_GSUM_STR-WAG_0 sy-vline
WA_KABR_GSUM_STR-WAG_1 sy-vline
WA_KABR_GSUM_STR-WAG_2 sy-vline
WA_KABR_GSUM_STR-WAG_5 sy-vline
WA_KABR_GSUM_STR-WAG_6 sy-vline
WA_KABR_GSUM_STR-WAG_7 sy-vline
WA_KABR_GSUM_STR-WVG_0 sy-vline
WA_KABR_GSUM_STR-WVG_1 sy-vline
WA_KABR_GSUM_STR-WVG_2 sy-vline
WA_KABR_GSUM_STR-WVG_5 sy-vline
WA_KABR_GSUM_STR-WVG_6 sy-vline
WA_KABR_GSUM_STR-WVG_7 sy-vline
WA_KABR_GSUM_STR-WBG_0 sy-vline
WA_KABR_GSUM_STR-WBG_1 sy-vline
WA_KABR_GSUM_STR-WBG_2 sy-vline
WA_KABR_GSUM_STR-WBG_5 sy-vline
WA_KABR_GSUM_STR-WBG_6 sy-vline
WA_KABR_GSUM_STR-WBG_7 sy-vline
WA_KABR_GSUM_STR-WCG_0 sy-vline
WA_KABR_GSUM_STR-WCG_1 sy-vline
WA_KABR_GSUM_STR-WCG_2 sy-vline
WA_KABR_GSUM_STR-WCG_5 sy-vline
WA_KABR_GSUM_STR-WCG_6 sy-vline
WA_KABR_GSUM_STR-WCG_7 sy-vline
WA_KABR_GSUM_STR-WDG_0 sy-vline
WA_KABR_GSUM_STR-WDG_1 sy-vline
WA_KABR_GSUM_STR-WDG_2 sy-vline
WA_KABR_GSUM_STR-WDG_5 sy-vline
WA_KABR_GSUM_STR-WDG_6 sy-vline
WA_KABR_GSUM_STR-WDG_7 sy-vline
WA_KABR_GSUM_STR-WEG_0 sy-vline
WA_KABR_GSUM_STR-WEG_1 sy-vline
WA_KABR_GSUM_STR-WEG_2 sy-vline
WA_KABR_GSUM_STR-WEG_5 sy-vline
WA_KABR_GSUM_STR-WEG_6 sy-vline
WA_KABR_GSUM_STR-WEG_7 sy-vline
WA_KABR_GSUM_STR-WFG_0 sy-vline
WA_KABR_GSUM_STR-WFG_1 sy-vline
WA_KABR_GSUM_STR-WFG_2 sy-vline
WA_KABR_GSUM_STR-WFG_5 sy-vline
WA_KABR_GSUM_STR-WFG_6 sy-vline
WA_KABR_GSUM_STR-WFG_7 sy-vline
WA_KABR_GSUM_STR-WGG_0 sy-vline
WA_KABR_GSUM_STR-WGG_1 sy-vline
WA_KABR_GSUM_STR-WGG_2 sy-vline
WA_KABR_GSUM_STR-WGG_5 sy-vline
WA_KABR_GSUM_STR-WGG_6 sy-vline
WA_KABR_GSUM_STR-WGG_7 sy-vline
WA_KABR_GSUM_STR-WHG_0 sy-vline
WA_KABR_GSUM_STR-WHG_1 sy-vline
WA_KABR_GSUM_STR-WHG_2 sy-vline
WA_KABR_GSUM_STR-WHG_5 sy-vline
WA_KABR_GSUM_STR-WHG_6 sy-vline
WA_KABR_GSUM_STR-WHG_7 sy-vline
WA_KABR_GSUM_STR-WSG_0 sy-vline
WA_KABR_GSUM_STR-WSG_1 sy-vline
WA_KABR_GSUM_STR-WSG_2 sy-vline
WA_KABR_GSUM_STR-WSG_5 sy-vline
WA_KABR_GSUM_STR-WSG_6 sy-vline
WA_KABR_GSUM_STR-WSG_7 sy-vline
WA_KABR_GSUM_STR-WFCG_0 sy-vline
WA_KABR_GSUM_STR-WFCG_1 sy-vline
WA_KABR_GSUM_STR-WFCG_2 sy-vline
WA_KABR_GSUM_STR-WFCG_5 sy-vline
WA_KABR_GSUM_STR-WFCG_6 sy-vline
WA_KABR_GSUM_STR-WFCG_7 sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.
