ABAP Select data from SAP table KKAG_COEPB_ADCUR 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 KKAG_COEPB_ADCUR 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 KKAG_COEPB_ADCUR. 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 KKAG_COEPB_ADCUR 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_KKAG_COEPB_ADCUR TYPE STANDARD TABLE OF KKAG_COEPB_ADCUR, WA_KKAG_COEPB_ADCUR TYPE KKAG_COEPB_ADCUR, 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: <KKAG_COEPB_ADCUR> TYPE KKAG_COEPB_ADCUR. *Process all fields in table header/work area as string values PERFORM process_as_string_field_values CHANGING wa_KKAG_COEPB_ADCUR. SELECT * *restrict ABAP select to first 10 rows UP TO 10 ROWS FROM KKAG_COEPB_ADCUR INTO TABLE IT_KKAG_COEPB_ADCUR. *Select data and declare internal table using in-line method @DATA *SELECT * * FROM KKAG_COEPB_ADCUR * INTO TABLE @DATA(IT_KKAG_COEPB_ADCUR2). *--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_KKAG_COEPB_ADCUR INDEX 1 INTO DATA(WA_KKAG_COEPB_ADCUR2). *Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL LOOP AT IT_KKAG_COEPB_ADCUR ASSIGNING <KKAG_COEPB_ADCUR>.*To update a field value using a field symbol simply change the value via the field symbol pointer
<KKAG_COEPB_ADCUR>-MANDT = 1.
<KKAG_COEPB_ADCUR>-OBJNR = 1.
<KKAG_COEPB_ADCUR>-GJAHR = 1.
<KKAG_COEPB_ADCUR>-WRTTP = 1.
<KKAG_COEPB_ADCUR>-VERSN = 1.
ENDLOOP. LOOP AT IT_KKAG_COEPB_ADCUR INTO WA_KKAG_COEPB_ADCUR. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_KKAG_COEPB_ADCUR-ABKAT, sy-vline,
WA_KKAG_COEPB_ADCUR-KSTAR, sy-vline,
WA_KKAG_COEPB_ADCUR-HRKFT, sy-vline,
WA_KKAG_COEPB_ADCUR-VRGNG, sy-vline,
WA_KKAG_COEPB_ADCUR-AWKUS, sy-vline,
WA_KKAG_COEPB_ADCUR-PERIO, sy-vline.
ENDLOOP. *Add any further fields from structure WA_KKAG_COEPB_ADCUR 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_KKAG_COEPB_ADCUR 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_KKAG_COEPB_ADCUR INTO WA_KKAG_COEPB_ADCUR. *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 GJAHR, internal->external for field GJAHR CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-GJAHR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-GJAHR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field WRTTP CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WRTTP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WRTTP.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field VERSN CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-VERSN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-VERSN.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ABKAT, internal->external for field ABKAT CALL FUNCTION 'CONVERSION_EXIT_ABKAT_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-ABKAT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-ABKAT.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field KSTAR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-KSTAR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-KSTAR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WDG001 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WDG001 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WDG001.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WDG002 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WDG002 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WDG002.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WDG003 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WDG003 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WDG003.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WDG004 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WDG004 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WDG004.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WDG005 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WDG005 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WDG005.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WDG006 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WDG006 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WDG006.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WDG007 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WDG007 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WDG007.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WDG008 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WDG008 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WDG008.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WDG009 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WDG009 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WDG009.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WDG010 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WDG010 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WDG010.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WDG011 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WDG011 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WDG011.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WDG012 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WDG012 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WDG012.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WDG013 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WDG013 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WDG013.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WDG014 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WDG014 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WDG014.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WDG015 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WDG015 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WDG015.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WDG016 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WDG016 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WDG016.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WVG001 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WVG001 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WVG001.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WVG002 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WVG002 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WVG002.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WVG003 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WVG003 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WVG003.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WVG004 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WVG004 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WVG004.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WVG005 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WVG005 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WVG005.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WVG006 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WVG006 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WVG006.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WVG007 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WVG007 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WVG007.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WVG008 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WVG008 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WVG008.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WVG009 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WVG009 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WVG009.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WVG010 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WVG010 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WVG010.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WVG011 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WVG011 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WVG011.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WVG012 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WVG012 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WVG012.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WVG013 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WVG013 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WVG013.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WVG014 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WVG014 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WVG014.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WVG015 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WVG015 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WVG015.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WVG016 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WVG016 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WVG016.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFG001 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WFG001 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WFG001.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFG002 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WFG002 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WFG002.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFG003 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WFG003 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WFG003.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFG004 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WFG004 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WFG004.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFG005 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WFG005 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WFG005.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFG006 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WFG006 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WFG006.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFG007 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WFG007 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WFG007.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFG008 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WFG008 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WFG008.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFG009 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WFG009 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WFG009.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFG010 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WFG010 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WFG010.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFG011 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WFG011 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WFG011.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFG012 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WFG012 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WFG012.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFG013 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WFG013 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WFG013.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFG014 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WFG014 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WFG014.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFG015 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WFG015 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WFG015.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WFG016 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_KKAG_COEPB_ADCUR-WFG016 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_KKAG_COEPB_ADCUR-WFG016.
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_KKAG_COEPB_ADCUR_STR,
MANDT TYPE STRING,
OBJNR TYPE STRING,
GJAHR TYPE STRING,
WRTTP TYPE STRING,
VERSN TYPE STRING,
ABKAT TYPE STRING,
KSTAR TYPE STRING,
HRKFT TYPE STRING,
VRGNG TYPE STRING,
AWKUS TYPE STRING,
PERIO TYPE STRING,
ZLNID TYPE STRING,
DWAER TYPE STRING,
VWAER TYPE STRING,
FWAER TYPE STRING,
WDG001 TYPE STRING,
WDG002 TYPE STRING,
WDG003 TYPE STRING,
WDG004 TYPE STRING,
WDG005 TYPE STRING,
WDG006 TYPE STRING,
WDG007 TYPE STRING,
WDG008 TYPE STRING,
WDG009 TYPE STRING,
WDG010 TYPE STRING,
WDG011 TYPE STRING,
WDG012 TYPE STRING,
WDG013 TYPE STRING,
WDG014 TYPE STRING,
WDG015 TYPE STRING,
WDG016 TYPE STRING,
WVG001 TYPE STRING,
WVG002 TYPE STRING,
WVG003 TYPE STRING,
WVG004 TYPE STRING,
WVG005 TYPE STRING,
WVG006 TYPE STRING,
WVG007 TYPE STRING,
WVG008 TYPE STRING,
WVG009 TYPE STRING,
WVG010 TYPE STRING,
WVG011 TYPE STRING,
WVG012 TYPE STRING,
WVG013 TYPE STRING,
WVG014 TYPE STRING,
WVG015 TYPE STRING,
WVG016 TYPE STRING,
WFG001 TYPE STRING,
WFG002 TYPE STRING,
WFG003 TYPE STRING,
WFG004 TYPE STRING,
WFG005 TYPE STRING,
WFG006 TYPE STRING,
WFG007 TYPE STRING,
WFG008 TYPE STRING,
WFG009 TYPE STRING,
WFG010 TYPE STRING,
WFG011 TYPE STRING,
WFG012 TYPE STRING,
WFG013 TYPE STRING,
WFG014 TYPE STRING,
WFG015 TYPE STRING,
WFG016 TYPE STRING,END OF T_EKKO_STR. DATA: WA_KKAG_COEPB_ADCUR_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_KKAG_COEPB_ADCUR_STR-MANDT sy-vline
WA_KKAG_COEPB_ADCUR_STR-OBJNR sy-vline
WA_KKAG_COEPB_ADCUR_STR-GJAHR sy-vline
WA_KKAG_COEPB_ADCUR_STR-WRTTP sy-vline
WA_KKAG_COEPB_ADCUR_STR-VERSN sy-vline
WA_KKAG_COEPB_ADCUR_STR-ABKAT sy-vline
WA_KKAG_COEPB_ADCUR_STR-KSTAR sy-vline
WA_KKAG_COEPB_ADCUR_STR-HRKFT sy-vline
WA_KKAG_COEPB_ADCUR_STR-VRGNG sy-vline
WA_KKAG_COEPB_ADCUR_STR-AWKUS sy-vline
WA_KKAG_COEPB_ADCUR_STR-PERIO sy-vline
WA_KKAG_COEPB_ADCUR_STR-ZLNID sy-vline
WA_KKAG_COEPB_ADCUR_STR-DWAER sy-vline
WA_KKAG_COEPB_ADCUR_STR-VWAER sy-vline
WA_KKAG_COEPB_ADCUR_STR-FWAER sy-vline
WA_KKAG_COEPB_ADCUR_STR-WDG001 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WDG002 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WDG003 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WDG004 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WDG005 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WDG006 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WDG007 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WDG008 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WDG009 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WDG010 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WDG011 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WDG012 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WDG013 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WDG014 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WDG015 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WDG016 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WVG001 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WVG002 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WVG003 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WVG004 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WVG005 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WVG006 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WVG007 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WVG008 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WVG009 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WVG010 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WVG011 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WVG012 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WVG013 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WVG014 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WVG015 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WVG016 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WFG001 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WFG002 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WFG003 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WFG004 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WFG005 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WFG006 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WFG007 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WFG008 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WFG009 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WFG010 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WFG011 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WFG012 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WFG013 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WFG014 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WFG015 sy-vline
WA_KKAG_COEPB_ADCUR_STR-WFG016 sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.