ABAP Select data from SAP table COSPRA 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 COSPRA 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 COSPRA. 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 COSPRA 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_COSPRA TYPE STANDARD TABLE OF COSPRA,
WA_COSPRA TYPE COSPRA,
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: <COSPRA> TYPE COSPRA.
*Process all fields in table header/work area as string values
PERFORM process_as_string_field_values CHANGING wa_COSPRA.
SELECT *
*restrict ABAP select to first 10 rows
UP TO 10 ROWS
FROM COSPRA
INTO TABLE IT_COSPRA.
*Select data and declare internal table using in-line method @DATA
*SELECT *
* FROM COSPRA
* INTO TABLE @DATA(IT_COSPRA2).
*--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_COSPRA INDEX 1 INTO DATA(WA_COSPRA2).
*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_COSPRA ASSIGNING <COSPRA>.
*To update a field value using a field symbol simply change the value via the field symbol pointer<COSPRA>-LEDNR = 1.
<COSPRA>-OBJNR = 1.
<COSPRA>-GJAHR = 1.
<COSPRA>-WRTTP = 1.
<COSPRA>-VERSN = 1.
ENDLOOP. LOOP AT IT_COSPRA INTO WA_COSPRA. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_COSPRA-KSTAR, sy-vline,
WA_COSPRA-HRKFT, sy-vline,
WA_COSPRA-VRGNG, sy-vline,
WA_COSPRA-VBUND, sy-vline,
WA_COSPRA-PARGB, sy-vline,
WA_COSPRA-BEKNZ, sy-vline.
ENDLOOP. *Add any further fields from structure WA_COSPRA 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_COSPRA 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_COSPRA INTO WA_COSPRA. *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 LEDNR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_COSPRA-LEDNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-LEDNR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit GJAHR, internal->external for field GJAHR CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_COSPRA-GJAHR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-GJAHR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field WRTTP CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_COSPRA-WRTTP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-WRTTP.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field VERSN CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_COSPRA-VERSN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-VERSN.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field KSTAR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_COSPRA-KSTAR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-KSTAR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field VBUND CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_COSPRA-VBUND IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-VBUND.
WRITE:/ 'New Value:', ld_input.
*Conversion exit BEKNZ, internal->external for field BEKNZ CALL FUNCTION 'CONVERSION_EXIT_BEKNZ_OUTPUT' EXPORTING input = WA_COSPRA-BEKNZ IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-BEKNZ.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKG001 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKG001 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKG001.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKG002 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKG002 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKG002.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKG003 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKG003 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKG003.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKG004 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKG004 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKG004.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKG005 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKG005 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKG005.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKG006 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKG006 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKG006.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKG007 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKG007 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKG007.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKG008 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKG008 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKG008.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKG009 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKG009 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKG009.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKG010 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKG010 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKG010.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKG011 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKG011 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKG011.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKG012 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKG012 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKG012.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKG013 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKG013 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKG013.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKG014 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKG014 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKG014.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKG015 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKG015 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKG015.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKG016 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKG016 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKG016.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKF001 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKF001 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKF001.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKF002 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKF002 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKF002.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKF003 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKF003 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKF003.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKF004 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKF004 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKF004.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKF005 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKF005 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKF005.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKF006 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKF006 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKF006.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKF007 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKF007 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKF007.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKF008 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKF008 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKF008.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKF009 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKF009 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKF009.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKF010 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKF010 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKF010.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKF011 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKF011 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKF011.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKF012 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKF012 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKF012.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKF013 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKF013 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKF013.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKF014 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKF014 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKF014.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKF015 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKF015 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKF015.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field RKF016 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-RKF016 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RKF016.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROG001 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROG001 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROG001.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROG002 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROG002 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROG002.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROG003 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROG003 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROG003.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROG004 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROG004 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROG004.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROG005 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROG005 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROG005.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROG006 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROG006 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROG006.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROG007 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROG007 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROG007.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROG008 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROG008 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROG008.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROG009 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROG009 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROG009.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROG010 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROG010 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROG010.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROG011 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROG011 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROG011.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROG012 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROG012 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROG012.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROG013 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROG013 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROG013.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROG014 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROG014 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROG014.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROG015 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROG015 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROG015.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROG016 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROG016 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROG016.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROF001 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROF001 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROF001.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROF002 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROF002 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROF002.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROF003 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROF003 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROF003.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROF004 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROF004 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROF004.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROF005 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROF005 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROF005.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROF006 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROF006 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROF006.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROF007 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROF007 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROF007.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROF008 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROF008 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROF008.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROF009 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROF009 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROF009.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROF010 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROF010 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROF010.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROF011 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROF011 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROF011.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROF012 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROF012 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROF012.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROF013 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROF013 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROF013.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROF014 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROF014 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROF014.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROF015 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROF015 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROF015.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field ROF016 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_COSPRA-ROF016 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-ROF016.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field MEINH CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_COSPRA-MEINH IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-MEINH.
WRITE:/ 'New Value:', ld_input.
*Conversion exit MATN1, internal->external for field MATNR CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT' EXPORTING input = WA_COSPRA-MATNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-MATNR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field DRVTP CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_COSPRA-DRVTP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-DRVTP.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field CBAT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_COSPRA-CBAT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-CBAT.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field RECIND CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_COSPRA-RECIND IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RECIND.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field RSRCE CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_COSPRA-RSRCE IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-RSRCE.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field GRANT_NBR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_COSPRA-GRANT_NBR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-GRANT_NBR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field PGRANT_NBR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_COSPRA-PGRANT_NBR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-PGRANT_NBR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field SEGMENT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_COSPRA-SEGMENT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-SEGMENT.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field PSEGMENT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_COSPRA-PSEGMENT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_COSPRA-PSEGMENT.
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_COSPRA_STR,
LEDNR TYPE STRING,
OBJNR TYPE STRING,
GJAHR TYPE STRING,
WRTTP TYPE STRING,
VERSN TYPE STRING,
KSTAR TYPE STRING,
HRKFT TYPE STRING,
VRGNG TYPE STRING,
VBUND TYPE STRING,
PARGB TYPE STRING,
BEKNZ TYPE STRING,
TWAER TYPE STRING,
RKG001 TYPE STRING,
RKG002 TYPE STRING,
RKG003 TYPE STRING,
RKG004 TYPE STRING,
RKG005 TYPE STRING,
RKG006 TYPE STRING,
RKG007 TYPE STRING,
RKG008 TYPE STRING,
RKG009 TYPE STRING,
RKG010 TYPE STRING,
RKG011 TYPE STRING,
RKG012 TYPE STRING,
RKG013 TYPE STRING,
RKG014 TYPE STRING,
RKG015 TYPE STRING,
RKG016 TYPE STRING,
RKF001 TYPE STRING,
RKF002 TYPE STRING,
RKF003 TYPE STRING,
RKF004 TYPE STRING,
RKF005 TYPE STRING,
RKF006 TYPE STRING,
RKF007 TYPE STRING,
RKF008 TYPE STRING,
RKF009 TYPE STRING,
RKF010 TYPE STRING,
RKF011 TYPE STRING,
RKF012 TYPE STRING,
RKF013 TYPE STRING,
RKF014 TYPE STRING,
RKF015 TYPE STRING,
RKF016 TYPE STRING,
RKE001 TYPE STRING,
RKE002 TYPE STRING,
RKE003 TYPE STRING,
RKE004 TYPE STRING,
RKE005 TYPE STRING,
RKE006 TYPE STRING,
RKE007 TYPE STRING,
RKE008 TYPE STRING,
RKE009 TYPE STRING,
RKE010 TYPE STRING,
RKE011 TYPE STRING,
RKE012 TYPE STRING,
RKE013 TYPE STRING,
RKE014 TYPE STRING,
RKE015 TYPE STRING,
RKE016 TYPE STRING,
ROG001 TYPE STRING,
ROG002 TYPE STRING,
ROG003 TYPE STRING,
ROG004 TYPE STRING,
ROG005 TYPE STRING,
ROG006 TYPE STRING,
ROG007 TYPE STRING,
ROG008 TYPE STRING,
ROG009 TYPE STRING,
ROG010 TYPE STRING,
ROG011 TYPE STRING,
ROG012 TYPE STRING,
ROG013 TYPE STRING,
ROG014 TYPE STRING,
ROG015 TYPE STRING,
ROG016 TYPE STRING,
ROF001 TYPE STRING,
ROF002 TYPE STRING,
ROF003 TYPE STRING,
ROF004 TYPE STRING,
ROF005 TYPE STRING,
ROF006 TYPE STRING,
ROF007 TYPE STRING,
ROF008 TYPE STRING,
ROF009 TYPE STRING,
ROF010 TYPE STRING,
ROF011 TYPE STRING,
ROF012 TYPE STRING,
ROF013 TYPE STRING,
ROF014 TYPE STRING,
ROF015 TYPE STRING,
ROF016 TYPE STRING,
ROE001 TYPE STRING,
ROE002 TYPE STRING,
ROE003 TYPE STRING,
ROE004 TYPE STRING,
ROE005 TYPE STRING,
ROE006 TYPE STRING,
ROE007 TYPE STRING,
ROE008 TYPE STRING,
ROE009 TYPE STRING,
ROE010 TYPE STRING,
ROE011 TYPE STRING,
ROE012 TYPE STRING,
ROE013 TYPE STRING,
ROE014 TYPE STRING,
ROE015 TYPE STRING,
ROE016 TYPE STRING,
MEINH TYPE STRING,
REG001 TYPE STRING,
REG002 TYPE STRING,
REG003 TYPE STRING,
REG004 TYPE STRING,
REG005 TYPE STRING,
REG006 TYPE STRING,
REG007 TYPE STRING,
REG008 TYPE STRING,
REG009 TYPE STRING,
REG010 TYPE STRING,
REG011 TYPE STRING,
REG012 TYPE STRING,
REG013 TYPE STRING,
REG014 TYPE STRING,
REG015 TYPE STRING,
REG016 TYPE STRING,
REF001 TYPE STRING,
REF002 TYPE STRING,
REF003 TYPE STRING,
REF004 TYPE STRING,
REF005 TYPE STRING,
REF006 TYPE STRING,
REF007 TYPE STRING,
REF008 TYPE STRING,
REF009 TYPE STRING,
REF010 TYPE STRING,
REF011 TYPE STRING,
REF012 TYPE STRING,
REF013 TYPE STRING,
REF014 TYPE STRING,
REF015 TYPE STRING,
REF016 TYPE STRING,
REE001 TYPE STRING,
REE002 TYPE STRING,
REE003 TYPE STRING,
REE004 TYPE STRING,
REE005 TYPE STRING,
REE006 TYPE STRING,
REE007 TYPE STRING,
REE008 TYPE STRING,
REE009 TYPE STRING,
REE010 TYPE STRING,
REE011 TYPE STRING,
REE012 TYPE STRING,
REE013 TYPE STRING,
REE014 TYPE STRING,
REE015 TYPE STRING,
REE016 TYPE STRING,
WERKS TYPE STRING,
MATNR TYPE STRING,
HKGRP TYPE STRING,
PCVER TYPE STRING,
CBRKE TYPE STRING,
CBRKI TYPE STRING,
CBART TYPE STRING,
DRVTP TYPE STRING,
CBAT TYPE STRING,
RECIND TYPE STRING,
BEMOT TYPE STRING,
PERNR TYPE STRING,
RSRCE TYPE STRING,
FKBER TYPE STRING,
PFKBER TYPE STRING,
GEBER TYPE STRING,
PGEBER TYPE STRING,
GRANT_NBR TYPE STRING,
PGRANT_NBR TYPE STRING,
SEGMENT TYPE STRING,
PSEGMENT TYPE STRING,
BUDGET_PD TYPE STRING,
PBUDGET_PD TYPE STRING,
PRODPER TYPE STRING,
AD04ADJIND TYPE STRING,END OF T_EKKO_STR. DATA: WA_COSPRA_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_COSPRA_STR-LEDNR sy-vline
WA_COSPRA_STR-OBJNR sy-vline
WA_COSPRA_STR-GJAHR sy-vline
WA_COSPRA_STR-WRTTP sy-vline
WA_COSPRA_STR-VERSN sy-vline
WA_COSPRA_STR-KSTAR sy-vline
WA_COSPRA_STR-HRKFT sy-vline
WA_COSPRA_STR-VRGNG sy-vline
WA_COSPRA_STR-VBUND sy-vline
WA_COSPRA_STR-PARGB sy-vline
WA_COSPRA_STR-BEKNZ sy-vline
WA_COSPRA_STR-TWAER sy-vline
WA_COSPRA_STR-RKG001 sy-vline
WA_COSPRA_STR-RKG002 sy-vline
WA_COSPRA_STR-RKG003 sy-vline
WA_COSPRA_STR-RKG004 sy-vline
WA_COSPRA_STR-RKG005 sy-vline
WA_COSPRA_STR-RKG006 sy-vline
WA_COSPRA_STR-RKG007 sy-vline
WA_COSPRA_STR-RKG008 sy-vline
WA_COSPRA_STR-RKG009 sy-vline
WA_COSPRA_STR-RKG010 sy-vline
WA_COSPRA_STR-RKG011 sy-vline
WA_COSPRA_STR-RKG012 sy-vline
WA_COSPRA_STR-RKG013 sy-vline
WA_COSPRA_STR-RKG014 sy-vline
WA_COSPRA_STR-RKG015 sy-vline
WA_COSPRA_STR-RKG016 sy-vline
WA_COSPRA_STR-RKF001 sy-vline
WA_COSPRA_STR-RKF002 sy-vline
WA_COSPRA_STR-RKF003 sy-vline
WA_COSPRA_STR-RKF004 sy-vline
WA_COSPRA_STR-RKF005 sy-vline
WA_COSPRA_STR-RKF006 sy-vline
WA_COSPRA_STR-RKF007 sy-vline
WA_COSPRA_STR-RKF008 sy-vline
WA_COSPRA_STR-RKF009 sy-vline
WA_COSPRA_STR-RKF010 sy-vline
WA_COSPRA_STR-RKF011 sy-vline
WA_COSPRA_STR-RKF012 sy-vline
WA_COSPRA_STR-RKF013 sy-vline
WA_COSPRA_STR-RKF014 sy-vline
WA_COSPRA_STR-RKF015 sy-vline
WA_COSPRA_STR-RKF016 sy-vline
WA_COSPRA_STR-RKE001 sy-vline
WA_COSPRA_STR-RKE002 sy-vline
WA_COSPRA_STR-RKE003 sy-vline
WA_COSPRA_STR-RKE004 sy-vline
WA_COSPRA_STR-RKE005 sy-vline
WA_COSPRA_STR-RKE006 sy-vline
WA_COSPRA_STR-RKE007 sy-vline
WA_COSPRA_STR-RKE008 sy-vline
WA_COSPRA_STR-RKE009 sy-vline
WA_COSPRA_STR-RKE010 sy-vline
WA_COSPRA_STR-RKE011 sy-vline
WA_COSPRA_STR-RKE012 sy-vline
WA_COSPRA_STR-RKE013 sy-vline
WA_COSPRA_STR-RKE014 sy-vline
WA_COSPRA_STR-RKE015 sy-vline
WA_COSPRA_STR-RKE016 sy-vline
WA_COSPRA_STR-ROG001 sy-vline
WA_COSPRA_STR-ROG002 sy-vline
WA_COSPRA_STR-ROG003 sy-vline
WA_COSPRA_STR-ROG004 sy-vline
WA_COSPRA_STR-ROG005 sy-vline
WA_COSPRA_STR-ROG006 sy-vline
WA_COSPRA_STR-ROG007 sy-vline
WA_COSPRA_STR-ROG008 sy-vline
WA_COSPRA_STR-ROG009 sy-vline
WA_COSPRA_STR-ROG010 sy-vline
WA_COSPRA_STR-ROG011 sy-vline
WA_COSPRA_STR-ROG012 sy-vline
WA_COSPRA_STR-ROG013 sy-vline
WA_COSPRA_STR-ROG014 sy-vline
WA_COSPRA_STR-ROG015 sy-vline
WA_COSPRA_STR-ROG016 sy-vline
WA_COSPRA_STR-ROF001 sy-vline
WA_COSPRA_STR-ROF002 sy-vline
WA_COSPRA_STR-ROF003 sy-vline
WA_COSPRA_STR-ROF004 sy-vline
WA_COSPRA_STR-ROF005 sy-vline
WA_COSPRA_STR-ROF006 sy-vline
WA_COSPRA_STR-ROF007 sy-vline
WA_COSPRA_STR-ROF008 sy-vline
WA_COSPRA_STR-ROF009 sy-vline
WA_COSPRA_STR-ROF010 sy-vline
WA_COSPRA_STR-ROF011 sy-vline
WA_COSPRA_STR-ROF012 sy-vline
WA_COSPRA_STR-ROF013 sy-vline
WA_COSPRA_STR-ROF014 sy-vline
WA_COSPRA_STR-ROF015 sy-vline
WA_COSPRA_STR-ROF016 sy-vline
WA_COSPRA_STR-ROE001 sy-vline
WA_COSPRA_STR-ROE002 sy-vline
WA_COSPRA_STR-ROE003 sy-vline
WA_COSPRA_STR-ROE004 sy-vline
WA_COSPRA_STR-ROE005 sy-vline
WA_COSPRA_STR-ROE006 sy-vline
WA_COSPRA_STR-ROE007 sy-vline
WA_COSPRA_STR-ROE008 sy-vline
WA_COSPRA_STR-ROE009 sy-vline
WA_COSPRA_STR-ROE010 sy-vline
WA_COSPRA_STR-ROE011 sy-vline
WA_COSPRA_STR-ROE012 sy-vline
WA_COSPRA_STR-ROE013 sy-vline
WA_COSPRA_STR-ROE014 sy-vline
WA_COSPRA_STR-ROE015 sy-vline
WA_COSPRA_STR-ROE016 sy-vline
WA_COSPRA_STR-MEINH sy-vline
WA_COSPRA_STR-REG001 sy-vline
WA_COSPRA_STR-REG002 sy-vline
WA_COSPRA_STR-REG003 sy-vline
WA_COSPRA_STR-REG004 sy-vline
WA_COSPRA_STR-REG005 sy-vline
WA_COSPRA_STR-REG006 sy-vline
WA_COSPRA_STR-REG007 sy-vline
WA_COSPRA_STR-REG008 sy-vline
WA_COSPRA_STR-REG009 sy-vline
WA_COSPRA_STR-REG010 sy-vline
WA_COSPRA_STR-REG011 sy-vline
WA_COSPRA_STR-REG012 sy-vline
WA_COSPRA_STR-REG013 sy-vline
WA_COSPRA_STR-REG014 sy-vline
WA_COSPRA_STR-REG015 sy-vline
WA_COSPRA_STR-REG016 sy-vline
WA_COSPRA_STR-REF001 sy-vline
WA_COSPRA_STR-REF002 sy-vline
WA_COSPRA_STR-REF003 sy-vline
WA_COSPRA_STR-REF004 sy-vline
WA_COSPRA_STR-REF005 sy-vline
WA_COSPRA_STR-REF006 sy-vline
WA_COSPRA_STR-REF007 sy-vline
WA_COSPRA_STR-REF008 sy-vline
WA_COSPRA_STR-REF009 sy-vline
WA_COSPRA_STR-REF010 sy-vline
WA_COSPRA_STR-REF011 sy-vline
WA_COSPRA_STR-REF012 sy-vline
WA_COSPRA_STR-REF013 sy-vline
WA_COSPRA_STR-REF014 sy-vline
WA_COSPRA_STR-REF015 sy-vline
WA_COSPRA_STR-REF016 sy-vline
WA_COSPRA_STR-REE001 sy-vline
WA_COSPRA_STR-REE002 sy-vline
WA_COSPRA_STR-REE003 sy-vline
WA_COSPRA_STR-REE004 sy-vline
WA_COSPRA_STR-REE005 sy-vline
WA_COSPRA_STR-REE006 sy-vline
WA_COSPRA_STR-REE007 sy-vline
WA_COSPRA_STR-REE008 sy-vline
WA_COSPRA_STR-REE009 sy-vline
WA_COSPRA_STR-REE010 sy-vline
WA_COSPRA_STR-REE011 sy-vline
WA_COSPRA_STR-REE012 sy-vline
WA_COSPRA_STR-REE013 sy-vline
WA_COSPRA_STR-REE014 sy-vline
WA_COSPRA_STR-REE015 sy-vline
WA_COSPRA_STR-REE016 sy-vline
WA_COSPRA_STR-WERKS sy-vline
WA_COSPRA_STR-MATNR sy-vline
WA_COSPRA_STR-HKGRP sy-vline
WA_COSPRA_STR-PCVER sy-vline
WA_COSPRA_STR-CBRKE sy-vline
WA_COSPRA_STR-CBRKI sy-vline
WA_COSPRA_STR-CBART sy-vline
WA_COSPRA_STR-DRVTP sy-vline
WA_COSPRA_STR-CBAT sy-vline
WA_COSPRA_STR-RECIND sy-vline
WA_COSPRA_STR-BEMOT sy-vline
WA_COSPRA_STR-PERNR sy-vline
WA_COSPRA_STR-RSRCE sy-vline
WA_COSPRA_STR-FKBER sy-vline
WA_COSPRA_STR-PFKBER sy-vline
WA_COSPRA_STR-GEBER sy-vline
WA_COSPRA_STR-PGEBER sy-vline
WA_COSPRA_STR-GRANT_NBR sy-vline
WA_COSPRA_STR-PGRANT_NBR sy-vline
WA_COSPRA_STR-SEGMENT sy-vline
WA_COSPRA_STR-PSEGMENT sy-vline
WA_COSPRA_STR-BUDGET_PD sy-vline
WA_COSPRA_STR-PBUDGET_PD sy-vline
WA_COSPRA_STR-PRODPER sy-vline
WA_COSPRA_STR-AD04ADJIND sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.
