ABAP Select data from SAP table PPLANCOSTM 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 PPLANCOSTM 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 PPLANCOSTM. 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 PPLANCOSTM 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_PPLANCOSTM TYPE STANDARD TABLE OF PPLANCOSTM, WA_PPLANCOSTM TYPE PPLANCOSTM, 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: <PPLANCOSTM> TYPE PPLANCOSTM. *Process all fields in table header/work area as string values PERFORM process_as_string_field_values CHANGING wa_PPLANCOSTM. SELECT * *restrict ABAP select to first 10 rows UP TO 10 ROWS FROM PPLANCOSTM INTO TABLE IT_PPLANCOSTM. *Select data and declare internal table using in-line method @DATA *SELECT * * FROM PPLANCOSTM * INTO TABLE @DATA(IT_PPLANCOSTM2). *--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_PPLANCOSTM INDEX 1 INTO DATA(WA_PPLANCOSTM2). *Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL LOOP AT IT_PPLANCOSTM ASSIGNING <PPLANCOSTM>.*To update a field value using a field symbol simply change the value via the field symbol pointer
<PPLANCOSTM>-MANDT = 1.
<PPLANCOSTM>-LEDNR = 1.
<PPLANCOSTM>-OBJNR = 1.
<PPLANCOSTM>-GJAHR = 1.
<PPLANCOSTM>-WRTTP = 1.
ENDLOOP. LOOP AT IT_PPLANCOSTM INTO WA_PPLANCOSTM. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_PPLANCOSTM-VERSN, sy-vline,
WA_PPLANCOSTM-KSTAR, sy-vline,
WA_PPLANCOSTM-HRKFT, sy-vline,
WA_PPLANCOSTM-VRGNG, sy-vline,
WA_PPLANCOSTM-CURMONTH, sy-vline,
WA_PPLANCOSTM-CURYEAR, sy-vline.
ENDLOOP. *Add any further fields from structure WA_PPLANCOSTM 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_PPLANCOSTM 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_PPLANCOSTM INTO WA_PPLANCOSTM. *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_PPLANCOSTM-LEDNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-LEDNR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit GJAHR, internal->external for field GJAHR CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_PPLANCOSTM-GJAHR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-GJAHR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field WRTTP CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WRTTP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WRTTP.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field VERSN CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_PPLANCOSTM-VERSN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-VERSN.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field KSTAR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_PPLANCOSTM-KSTAR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-KSTAR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit CUNIT, internal->external for field MEINH CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_PPLANCOSTM-MEINH IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-MEINH.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG001 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WKG001 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WKG001.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG002 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WKG002 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WKG002.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG003 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WKG003 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WKG003.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG004 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WKG004 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WKG004.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG005 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WKG005 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WKG005.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG006 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WKG006 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WKG006.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG007 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WKG007 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WKG007.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG008 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WKG008 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WKG008.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG009 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WKG009 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WKG009.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG010 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WKG010 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WKG010.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG011 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WKG011 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WKG011.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG012 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WKG012 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WKG012.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG013 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WKG013 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WKG013.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG014 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WKG014 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WKG014.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG015 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WKG015 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WKG015.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WKG016 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WKG016 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WKG016.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG001 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WTG001 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WTG001.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG002 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WTG002 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WTG002.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG003 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WTG003 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WTG003.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG004 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WTG004 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WTG004.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG005 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WTG005 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WTG005.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG006 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WTG006 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WTG006.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG007 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WTG007 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WTG007.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG008 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WTG008 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WTG008.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG009 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WTG009 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WTG009.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG010 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WTG010 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WTG010.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG011 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WTG011 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WTG011.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG012 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WTG012 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WTG012.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG013 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WTG013 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WTG013.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG014 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WTG014 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WTG014.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG015 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WTG015 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WTG015.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WTG016 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WTG016 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WTG016.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG001 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WOG001 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WOG001.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG002 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WOG002 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WOG002.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG003 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WOG003 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WOG003.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG004 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WOG004 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WOG004.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG005 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WOG005 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WOG005.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG006 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WOG006 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WOG006.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG007 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WOG007 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WOG007.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG008 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WOG008 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WOG008.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG009 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WOG009 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WOG009.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG010 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WOG010 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WOG010.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG011 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WOG011 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WOG011.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG012 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WOG012 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WOG012.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG013 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WOG013 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WOG013.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG014 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WOG014 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WOG014.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG015 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WOG015 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WOG015.
WRITE:/ 'New Value:', ld_input.
*Conversion exit AC152, internal->external for field WOG016 CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_PPLANCOSTM-WOG016 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PPLANCOSTM-WOG016.
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_PPLANCOSTM_STR,
MANDT TYPE STRING,
LEDNR TYPE STRING,
OBJNR TYPE STRING,
GJAHR TYPE STRING,
WRTTP TYPE STRING,
VERSN TYPE STRING,
KSTAR TYPE STRING,
HRKFT TYPE STRING,
VRGNG TYPE STRING,
CURMONTH TYPE STRING,
CURYEAR TYPE STRING,
TWAER TYPE STRING,
PERBL TYPE STRING,
MEINH 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,
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,
BELTP TYPE STRING,END OF T_EKKO_STR. DATA: WA_PPLANCOSTM_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_PPLANCOSTM_STR-MANDT sy-vline
WA_PPLANCOSTM_STR-LEDNR sy-vline
WA_PPLANCOSTM_STR-OBJNR sy-vline
WA_PPLANCOSTM_STR-GJAHR sy-vline
WA_PPLANCOSTM_STR-WRTTP sy-vline
WA_PPLANCOSTM_STR-VERSN sy-vline
WA_PPLANCOSTM_STR-KSTAR sy-vline
WA_PPLANCOSTM_STR-HRKFT sy-vline
WA_PPLANCOSTM_STR-VRGNG sy-vline
WA_PPLANCOSTM_STR-CURMONTH sy-vline
WA_PPLANCOSTM_STR-CURYEAR sy-vline
WA_PPLANCOSTM_STR-TWAER sy-vline
WA_PPLANCOSTM_STR-PERBL sy-vline
WA_PPLANCOSTM_STR-MEINH sy-vline
WA_PPLANCOSTM_STR-WKG001 sy-vline
WA_PPLANCOSTM_STR-WKG002 sy-vline
WA_PPLANCOSTM_STR-WKG003 sy-vline
WA_PPLANCOSTM_STR-WKG004 sy-vline
WA_PPLANCOSTM_STR-WKG005 sy-vline
WA_PPLANCOSTM_STR-WKG006 sy-vline
WA_PPLANCOSTM_STR-WKG007 sy-vline
WA_PPLANCOSTM_STR-WKG008 sy-vline
WA_PPLANCOSTM_STR-WKG009 sy-vline
WA_PPLANCOSTM_STR-WKG010 sy-vline
WA_PPLANCOSTM_STR-WKG011 sy-vline
WA_PPLANCOSTM_STR-WKG012 sy-vline
WA_PPLANCOSTM_STR-WKG013 sy-vline
WA_PPLANCOSTM_STR-WKG014 sy-vline
WA_PPLANCOSTM_STR-WKG015 sy-vline
WA_PPLANCOSTM_STR-WKG016 sy-vline
WA_PPLANCOSTM_STR-WTG001 sy-vline
WA_PPLANCOSTM_STR-WTG002 sy-vline
WA_PPLANCOSTM_STR-WTG003 sy-vline
WA_PPLANCOSTM_STR-WTG004 sy-vline
WA_PPLANCOSTM_STR-WTG005 sy-vline
WA_PPLANCOSTM_STR-WTG006 sy-vline
WA_PPLANCOSTM_STR-WTG007 sy-vline
WA_PPLANCOSTM_STR-WTG008 sy-vline
WA_PPLANCOSTM_STR-WTG009 sy-vline
WA_PPLANCOSTM_STR-WTG010 sy-vline
WA_PPLANCOSTM_STR-WTG011 sy-vline
WA_PPLANCOSTM_STR-WTG012 sy-vline
WA_PPLANCOSTM_STR-WTG013 sy-vline
WA_PPLANCOSTM_STR-WTG014 sy-vline
WA_PPLANCOSTM_STR-WTG015 sy-vline
WA_PPLANCOSTM_STR-WTG016 sy-vline
WA_PPLANCOSTM_STR-WOG001 sy-vline
WA_PPLANCOSTM_STR-WOG002 sy-vline
WA_PPLANCOSTM_STR-WOG003 sy-vline
WA_PPLANCOSTM_STR-WOG004 sy-vline
WA_PPLANCOSTM_STR-WOG005 sy-vline
WA_PPLANCOSTM_STR-WOG006 sy-vline
WA_PPLANCOSTM_STR-WOG007 sy-vline
WA_PPLANCOSTM_STR-WOG008 sy-vline
WA_PPLANCOSTM_STR-WOG009 sy-vline
WA_PPLANCOSTM_STR-WOG010 sy-vline
WA_PPLANCOSTM_STR-WOG011 sy-vline
WA_PPLANCOSTM_STR-WOG012 sy-vline
WA_PPLANCOSTM_STR-WOG013 sy-vline
WA_PPLANCOSTM_STR-WOG014 sy-vline
WA_PPLANCOSTM_STR-WOG015 sy-vline
WA_PPLANCOSTM_STR-WOG016 sy-vline
WA_PPLANCOSTM_STR-BELTP sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.