ABAP Select data from SAP table CEST8 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 CEST8 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 CEST8. 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 CEST8 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_CEST8 TYPE STANDARD TABLE OF CEST8,
WA_CEST8 TYPE CEST8,
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: <CEST8> TYPE CEST8.
*Process all fields in table header/work area as string values
PERFORM process_as_string_field_values CHANGING wa_CEST8.
SELECT *
*restrict ABAP select to first 10 rows
UP TO 10 ROWS
FROM CEST8
INTO TABLE IT_CEST8.
*Select data and declare internal table using in-line method @DATA
*SELECT *
* FROM CEST8
* INTO TABLE @DATA(IT_CEST82).
*--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_CEST8 INDEX 1 INTO DATA(WA_CEST82).
*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_CEST8 ASSIGNING <CEST8>.
*To update a field value using a field symbol simply change the value via the field symbol pointer<CEST8>-MANDT = 1.
<CEST8>-PALEDGER = 1.
<CEST8>-VRGAR = 1.
<CEST8>-PLIKZ = 1.
<CEST8>-VERSI = 1.
ENDLOOP. LOOP AT IT_CEST8 INTO WA_CEST8. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_CEST8-PAOBJNR, sy-vline,
WA_CEST8-PASUBNR, sy-vline,
WA_CEST8-PAPAOBJNR, sy-vline,
WA_CEST8-PAPASUBNR, sy-vline,
WA_CEST8-HRKFT, sy-vline,
WA_CEST8-KNDNR, sy-vline.
ENDLOOP. *Add any further fields from structure WA_CEST8 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_CEST8 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_CEST8 INTO WA_CEST8. *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 LEDBO, internal->external for field PALEDGER CALL FUNCTION 'CONVERSION_EXIT_LEDBO_OUTPUT' EXPORTING input = WA_CEST8-PALEDGER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-PALEDGER.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field VERSI CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_CEST8-VERSI IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-VERSI.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field KNDNR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_CEST8-KNDNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-KNDNR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit MATN1, internal->external for field ARTNR CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT' EXPORTING input = WA_CEST8-ARTNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-ARTNR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field KAUFN CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_CEST8-KAUFN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-KAUFN.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field RKAUFNR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_CEST8-RKAUFNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-RKAUFNR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field SEGMENT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_CEST8-SEGMENT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-SEGMENT.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field PRCTR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_CEST8-PRCTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-PRCTR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field PPRCTR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_CEST8-PPRCTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-PPRCTR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit GJAHR, internal->external for field GJAHR CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_CEST8-GJAHR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-GJAHR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ABPSP, internal->external for field PSPNR CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT' EXPORTING input = WA_CEST8-PSPNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-PSPNR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ABPSN, internal->external for field COPA_POSID CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT' EXPORTING input = WA_CEST8-COPA_POSID IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-COPA_POSID.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ABPSN, internal->external for field COPA_CRMID CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT' EXPORTING input = WA_CEST8-COPA_CRMID IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-COPA_CRMID.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field SERVICE_DOC_ID CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_CEST8-SERVICE_DOC_ID IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-SERVICE_DOC_ID.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field KSTAR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_CEST8-KSTAR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-KSTAR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field KSTARS CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_CEST8-KSTARS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-KSTARS.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field WRTTP CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_CEST8-WRTTP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WRTTP.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG001 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WTG001 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WTG001.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG002 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WTG002 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WTG002.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG003 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WTG003 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WTG003.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG004 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WTG004 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WTG004.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG005 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WTG005 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WTG005.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG006 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WTG006 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WTG006.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG007 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WTG007 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WTG007.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG008 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WTG008 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WTG008.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG009 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WTG009 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WTG009.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG010 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WTG010 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WTG010.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG011 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WTG011 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WTG011.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG012 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WTG012 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WTG012.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG013 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WTG013 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WTG013.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG014 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WTG014 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WTG014.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG015 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WTG015 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WTG015.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG016 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WTG016 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WTG016.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG001 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WOG001 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WOG001.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG002 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WOG002 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WOG002.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG003 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WOG003 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WOG003.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG004 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WOG004 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WOG004.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG005 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WOG005 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WOG005.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG006 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WOG006 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WOG006.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG007 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WOG007 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WOG007.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG008 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WOG008 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WOG008.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG009 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WOG009 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WOG009.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG010 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WOG010 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WOG010.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG011 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WOG011 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WOG011.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG012 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WOG012 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WOG012.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG013 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WOG013 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WOG013.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG014 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WOG014 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WOG014.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG015 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WOG015 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WOG015.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG016 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WOG016 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WOG016.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG001 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKG001 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKG001.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG002 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKG002 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKG002.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG003 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKG003 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKG003.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG004 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKG004 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKG004.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG005 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKG005 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKG005.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG006 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKG006 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKG006.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG007 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKG007 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKG007.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG008 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKG008 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKG008.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG009 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKG009 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKG009.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG010 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKG010 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKG010.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG011 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKG011 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKG011.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG012 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKG012 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKG012.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG013 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKG013 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKG013.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG014 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKG014 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKG014.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG015 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKG015 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKG015.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG016 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKG016 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKG016.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKF001 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKF001 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKF001.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKF002 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKF002 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKF002.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKF003 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKF003 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKF003.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKF004 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKF004 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKF004.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKF005 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKF005 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKF005.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKF006 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKF006 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKF006.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKF007 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKF007 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKF007.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKF008 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKF008 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKF008.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKF009 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKF009 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKF009.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKF010 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKF010 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKF010.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKF011 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKF011 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKF011.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKF012 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKF012 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKF012.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKF013 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKF013 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKF013.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKF014 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKF014 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKF014.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKF015 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKF015 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKF015.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKF016 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CEST8-WKF016 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-WKF016.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field SOLUTION_ORDER_ID CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_CEST8-SOLUTION_ORDER_ID IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-SOLUTION_ORDER_ID.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field VTKEY CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_CEST8-VTKEY IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CEST8-VTKEY.
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_CEST8_STR,
MANDT TYPE STRING,
PALEDGER TYPE STRING,
VRGAR TYPE STRING,
PLIKZ TYPE STRING,
VERSI TYPE STRING,
PAOBJNR TYPE STRING,
PASUBNR TYPE STRING,
PAPAOBJNR TYPE STRING,
PAPASUBNR TYPE STRING,
HRKFT TYPE STRING,
KNDNR TYPE STRING,
ARTNR TYPE STRING,
FKART TYPE STRING,
KAUFN TYPE STRING,
KDPOS TYPE STRING,
RKAUFNR TYPE STRING,
BUKRS TYPE STRING,
WERKS TYPE STRING,
GSBER TYPE STRING,
FKBER TYPE STRING,
SEGMENT TYPE STRING,
VKORG TYPE STRING,
VTWEG TYPE STRING,
SPART TYPE STRING,
PRCTR TYPE STRING,
PPRCTR TYPE STRING,
PA_TYPE TYPE STRING,
INUMKR TYPE STRING,
GJAHR TYPE STRING,
FRWAE TYPE STRING,
KSTRG TYPE STRING,
PSPNR TYPE STRING,
COPA_POSID TYPE STRING,
COPA_CRMID TYPE STRING,
SERVICE_DOC_TYPE TYPE STRING,
SERVICE_DOC_ID TYPE STRING,
SERVICE_DOC_ITEM_ID TYPE STRING,
KSTAR TYPE STRING,
KSTARS TYPE STRING,
WRTTP TYPE STRING,
WTG001 TYPE STRING,
WTG002 TYPE STRING,
WTG003 TYPE STRING,
WTG004 TYPE STRING,
WTG005 TYPE STRING,
WTG006 TYPE STRING,
WTG007 TYPE STRING,
WTG008 TYPE STRING,
WTG009 TYPE STRING,
WTG010 TYPE STRING,
WTG011 TYPE STRING,
WTG012 TYPE STRING,
WTG013 TYPE STRING,
WTG014 TYPE STRING,
WTG015 TYPE STRING,
WTG016 TYPE STRING,
WOG001 TYPE STRING,
WOG002 TYPE STRING,
WOG003 TYPE STRING,
WOG004 TYPE STRING,
WOG005 TYPE STRING,
WOG006 TYPE STRING,
WOG007 TYPE STRING,
WOG008 TYPE STRING,
WOG009 TYPE STRING,
WOG010 TYPE STRING,
WOG011 TYPE STRING,
WOG012 TYPE STRING,
WOG013 TYPE STRING,
WOG014 TYPE STRING,
WOG015 TYPE STRING,
WOG016 TYPE STRING,
WKG001 TYPE STRING,
WKG002 TYPE STRING,
WKG003 TYPE STRING,
WKG004 TYPE STRING,
WKG005 TYPE STRING,
WKG006 TYPE STRING,
WKG007 TYPE STRING,
WKG008 TYPE STRING,
WKG009 TYPE STRING,
WKG010 TYPE STRING,
WKG011 TYPE STRING,
WKG012 TYPE STRING,
WKG013 TYPE STRING,
WKG014 TYPE STRING,
WKG015 TYPE STRING,
WKG016 TYPE STRING,
WKF001 TYPE STRING,
WKF002 TYPE STRING,
WKF003 TYPE STRING,
WKF004 TYPE STRING,
WKF005 TYPE STRING,
WKF006 TYPE STRING,
WKF007 TYPE STRING,
WKF008 TYPE STRING,
WKF009 TYPE STRING,
WKF010 TYPE STRING,
WKF011 TYPE STRING,
WKF012 TYPE STRING,
WKF013 TYPE STRING,
WKF014 TYPE STRING,
WKF015 TYPE STRING,
WKF016 TYPE STRING,
MEG001 TYPE STRING,
MEG002 TYPE STRING,
MEG003 TYPE STRING,
MEG004 TYPE STRING,
MEG005 TYPE STRING,
MEG006 TYPE STRING,
MEG007 TYPE STRING,
MEG008 TYPE STRING,
MEG009 TYPE STRING,
MEG010 TYPE STRING,
MEG011 TYPE STRING,
MEG012 TYPE STRING,
MEG013 TYPE STRING,
MEG014 TYPE STRING,
MEG015 TYPE STRING,
MEG016 TYPE STRING,
QT1001 TYPE STRING,
QT1002 TYPE STRING,
QT1003 TYPE STRING,
QT1004 TYPE STRING,
QT1005 TYPE STRING,
QT1006 TYPE STRING,
QT1007 TYPE STRING,
QT1008 TYPE STRING,
QT1009 TYPE STRING,
QT1010 TYPE STRING,
QT1011 TYPE STRING,
QT1012 TYPE STRING,
QT1013 TYPE STRING,
QT1014 TYPE STRING,
QT1015 TYPE STRING,
QT1016 TYPE STRING,
QT2001 TYPE STRING,
QT2002 TYPE STRING,
QT2003 TYPE STRING,
QT2004 TYPE STRING,
QT2005 TYPE STRING,
QT2006 TYPE STRING,
QT2007 TYPE STRING,
QT2008 TYPE STRING,
QT2009 TYPE STRING,
QT2010 TYPE STRING,
QT2011 TYPE STRING,
QT2012 TYPE STRING,
QT2013 TYPE STRING,
QT2014 TYPE STRING,
QT2015 TYPE STRING,
QT2016 TYPE STRING,
QT3001 TYPE STRING,
QT3002 TYPE STRING,
QT3003 TYPE STRING,
QT3004 TYPE STRING,
QT3005 TYPE STRING,
QT3006 TYPE STRING,
QT3007 TYPE STRING,
QT3008 TYPE STRING,
QT3009 TYPE STRING,
QT3010 TYPE STRING,
QT3011 TYPE STRING,
QT3012 TYPE STRING,
QT3013 TYPE STRING,
QT3014 TYPE STRING,
QT3015 TYPE STRING,
QT3016 TYPE STRING,
SOLUTION_ORDER_ID TYPE STRING,
SOLUTION_ORDER_ITEM_ID TYPE STRING,
VTKEY TYPE STRING,
VTPOS TYPE STRING,END OF T_EKKO_STR. DATA: WA_CEST8_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_CEST8_STR-MANDT sy-vline
WA_CEST8_STR-PALEDGER sy-vline
WA_CEST8_STR-VRGAR sy-vline
WA_CEST8_STR-PLIKZ sy-vline
WA_CEST8_STR-VERSI sy-vline
WA_CEST8_STR-PAOBJNR sy-vline
WA_CEST8_STR-PASUBNR sy-vline
WA_CEST8_STR-PAPAOBJNR sy-vline
WA_CEST8_STR-PAPASUBNR sy-vline
WA_CEST8_STR-HRKFT sy-vline
WA_CEST8_STR-KNDNR sy-vline
WA_CEST8_STR-ARTNR sy-vline
WA_CEST8_STR-FKART sy-vline
WA_CEST8_STR-KAUFN sy-vline
WA_CEST8_STR-KDPOS sy-vline
WA_CEST8_STR-RKAUFNR sy-vline
WA_CEST8_STR-BUKRS sy-vline
WA_CEST8_STR-WERKS sy-vline
WA_CEST8_STR-GSBER sy-vline
WA_CEST8_STR-FKBER sy-vline
WA_CEST8_STR-SEGMENT sy-vline
WA_CEST8_STR-VKORG sy-vline
WA_CEST8_STR-VTWEG sy-vline
WA_CEST8_STR-SPART sy-vline
WA_CEST8_STR-PRCTR sy-vline
WA_CEST8_STR-PPRCTR sy-vline
WA_CEST8_STR-PA_TYPE sy-vline
WA_CEST8_STR-INUMKR sy-vline
WA_CEST8_STR-GJAHR sy-vline
WA_CEST8_STR-FRWAE sy-vline
WA_CEST8_STR-KSTRG sy-vline
WA_CEST8_STR-PSPNR sy-vline
WA_CEST8_STR-COPA_POSID sy-vline
WA_CEST8_STR-COPA_CRMID sy-vline
WA_CEST8_STR-SERVICE_DOC_TYPE sy-vline
WA_CEST8_STR-SERVICE_DOC_ID sy-vline
WA_CEST8_STR-SERVICE_DOC_ITEM_ID sy-vline
WA_CEST8_STR-KSTAR sy-vline
WA_CEST8_STR-KSTARS sy-vline
WA_CEST8_STR-WRTTP sy-vline
WA_CEST8_STR-WTG001 sy-vline
WA_CEST8_STR-WTG002 sy-vline
WA_CEST8_STR-WTG003 sy-vline
WA_CEST8_STR-WTG004 sy-vline
WA_CEST8_STR-WTG005 sy-vline
WA_CEST8_STR-WTG006 sy-vline
WA_CEST8_STR-WTG007 sy-vline
WA_CEST8_STR-WTG008 sy-vline
WA_CEST8_STR-WTG009 sy-vline
WA_CEST8_STR-WTG010 sy-vline
WA_CEST8_STR-WTG011 sy-vline
WA_CEST8_STR-WTG012 sy-vline
WA_CEST8_STR-WTG013 sy-vline
WA_CEST8_STR-WTG014 sy-vline
WA_CEST8_STR-WTG015 sy-vline
WA_CEST8_STR-WTG016 sy-vline
WA_CEST8_STR-WOG001 sy-vline
WA_CEST8_STR-WOG002 sy-vline
WA_CEST8_STR-WOG003 sy-vline
WA_CEST8_STR-WOG004 sy-vline
WA_CEST8_STR-WOG005 sy-vline
WA_CEST8_STR-WOG006 sy-vline
WA_CEST8_STR-WOG007 sy-vline
WA_CEST8_STR-WOG008 sy-vline
WA_CEST8_STR-WOG009 sy-vline
WA_CEST8_STR-WOG010 sy-vline
WA_CEST8_STR-WOG011 sy-vline
WA_CEST8_STR-WOG012 sy-vline
WA_CEST8_STR-WOG013 sy-vline
WA_CEST8_STR-WOG014 sy-vline
WA_CEST8_STR-WOG015 sy-vline
WA_CEST8_STR-WOG016 sy-vline
WA_CEST8_STR-WKG001 sy-vline
WA_CEST8_STR-WKG002 sy-vline
WA_CEST8_STR-WKG003 sy-vline
WA_CEST8_STR-WKG004 sy-vline
WA_CEST8_STR-WKG005 sy-vline
WA_CEST8_STR-WKG006 sy-vline
WA_CEST8_STR-WKG007 sy-vline
WA_CEST8_STR-WKG008 sy-vline
WA_CEST8_STR-WKG009 sy-vline
WA_CEST8_STR-WKG010 sy-vline
WA_CEST8_STR-WKG011 sy-vline
WA_CEST8_STR-WKG012 sy-vline
WA_CEST8_STR-WKG013 sy-vline
WA_CEST8_STR-WKG014 sy-vline
WA_CEST8_STR-WKG015 sy-vline
WA_CEST8_STR-WKG016 sy-vline
WA_CEST8_STR-WKF001 sy-vline
WA_CEST8_STR-WKF002 sy-vline
WA_CEST8_STR-WKF003 sy-vline
WA_CEST8_STR-WKF004 sy-vline
WA_CEST8_STR-WKF005 sy-vline
WA_CEST8_STR-WKF006 sy-vline
WA_CEST8_STR-WKF007 sy-vline
WA_CEST8_STR-WKF008 sy-vline
WA_CEST8_STR-WKF009 sy-vline
WA_CEST8_STR-WKF010 sy-vline
WA_CEST8_STR-WKF011 sy-vline
WA_CEST8_STR-WKF012 sy-vline
WA_CEST8_STR-WKF013 sy-vline
WA_CEST8_STR-WKF014 sy-vline
WA_CEST8_STR-WKF015 sy-vline
WA_CEST8_STR-WKF016 sy-vline
WA_CEST8_STR-MEG001 sy-vline
WA_CEST8_STR-MEG002 sy-vline
WA_CEST8_STR-MEG003 sy-vline
WA_CEST8_STR-MEG004 sy-vline
WA_CEST8_STR-MEG005 sy-vline
WA_CEST8_STR-MEG006 sy-vline
WA_CEST8_STR-MEG007 sy-vline
WA_CEST8_STR-MEG008 sy-vline
WA_CEST8_STR-MEG009 sy-vline
WA_CEST8_STR-MEG010 sy-vline
WA_CEST8_STR-MEG011 sy-vline
WA_CEST8_STR-MEG012 sy-vline
WA_CEST8_STR-MEG013 sy-vline
WA_CEST8_STR-MEG014 sy-vline
WA_CEST8_STR-MEG015 sy-vline
WA_CEST8_STR-MEG016 sy-vline
WA_CEST8_STR-QT1001 sy-vline
WA_CEST8_STR-QT1002 sy-vline
WA_CEST8_STR-QT1003 sy-vline
WA_CEST8_STR-QT1004 sy-vline
WA_CEST8_STR-QT1005 sy-vline
WA_CEST8_STR-QT1006 sy-vline
WA_CEST8_STR-QT1007 sy-vline
WA_CEST8_STR-QT1008 sy-vline
WA_CEST8_STR-QT1009 sy-vline
WA_CEST8_STR-QT1010 sy-vline
WA_CEST8_STR-QT1011 sy-vline
WA_CEST8_STR-QT1012 sy-vline
WA_CEST8_STR-QT1013 sy-vline
WA_CEST8_STR-QT1014 sy-vline
WA_CEST8_STR-QT1015 sy-vline
WA_CEST8_STR-QT1016 sy-vline
WA_CEST8_STR-QT2001 sy-vline
WA_CEST8_STR-QT2002 sy-vline
WA_CEST8_STR-QT2003 sy-vline
WA_CEST8_STR-QT2004 sy-vline
WA_CEST8_STR-QT2005 sy-vline
WA_CEST8_STR-QT2006 sy-vline
WA_CEST8_STR-QT2007 sy-vline
WA_CEST8_STR-QT2008 sy-vline
WA_CEST8_STR-QT2009 sy-vline
WA_CEST8_STR-QT2010 sy-vline
WA_CEST8_STR-QT2011 sy-vline
WA_CEST8_STR-QT2012 sy-vline
WA_CEST8_STR-QT2013 sy-vline
WA_CEST8_STR-QT2014 sy-vline
WA_CEST8_STR-QT2015 sy-vline
WA_CEST8_STR-QT2016 sy-vline
WA_CEST8_STR-QT3001 sy-vline
WA_CEST8_STR-QT3002 sy-vline
WA_CEST8_STR-QT3003 sy-vline
WA_CEST8_STR-QT3004 sy-vline
WA_CEST8_STR-QT3005 sy-vline
WA_CEST8_STR-QT3006 sy-vline
WA_CEST8_STR-QT3007 sy-vline
WA_CEST8_STR-QT3008 sy-vline
WA_CEST8_STR-QT3009 sy-vline
WA_CEST8_STR-QT3010 sy-vline
WA_CEST8_STR-QT3011 sy-vline
WA_CEST8_STR-QT3012 sy-vline
WA_CEST8_STR-QT3013 sy-vline
WA_CEST8_STR-QT3014 sy-vline
WA_CEST8_STR-QT3015 sy-vline
WA_CEST8_STR-QT3016 sy-vline
WA_CEST8_STR-SOLUTION_ORDER_ID sy-vline
WA_CEST8_STR-SOLUTION_ORDER_ITEM_ID sy-vline
WA_CEST8_STR-VTKEY sy-vline
WA_CEST8_STR-VTPOS sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.
