ABAP Select data from SAP table MMIM_GR4PO_DL_ITEM into internal table

Get Example source ABAP code based on a different SAP table
  Get ABAP code

Below is a number of ABAP code snippets to demonstrate how to select data from SAP MMIM_GR4PO_DL_ITEM 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 MMIM_GR4PO_DL_ITEM. 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 MMIM_GR4PO_DL_ITEM 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_MMIM_GR4PO_DL_ITEM TYPE STANDARD TABLE OF MMIM_GR4PO_DL_ITEM,
      WA_MMIM_GR4PO_DL_ITEM TYPE MMIM_GR4PO_DL_ITEM,
      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: <MMIM_GR4PO_DL_ITEM> TYPE MMIM_GR4PO_DL_ITEM.

*Process all fields in table header/work area as string values
  PERFORM process_as_string_field_values CHANGING wa_MMIM_GR4PO_DL_ITEM.

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM MMIM_GR4PO_DL_ITEM
  INTO TABLE IT_MMIM_GR4PO_DL_ITEM.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM MMIM_GR4PO_DL_ITEM
*  INTO TABLE @DATA(IT_MMIM_GR4PO_DL_ITEM2).
*--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_MMIM_GR4PO_DL_ITEM INDEX 1 INTO DATA(WA_MMIM_GR4PO_DL_ITEM2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_MMIM_GR4PO_DL_ITEM ASSIGNING <MMIM_GR4PO_DL_ITEM>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
<MMIM_GR4PO_DL_ITEM>-LE_VBELN = 1.
<MMIM_GR4PO_DL_ITEM>-POSNR = 1.
<MMIM_GR4PO_DL_ITEM>-SUBITEM = 1.
<MMIM_GR4PO_DL_ITEM>-SOURCE_OF_GR = 1.
<MMIM_GR4PO_DL_ITEM>-KNTTP = 1.

ENDLOOP.

LOOP AT IT_MMIM_GR4PO_DL_ITEM INTO WA_MMIM_GR4PO_DL_ITEM.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_MMIM_GR4PO_DL_ITEM-KNTTX, sy-vline,
  WA_MMIM_GR4PO_DL_ITEM-WERKS, sy-vline,
  WA_MMIM_GR4PO_DL_ITEM-WERKS_NAME, sy-vline,
  WA_MMIM_GR4PO_DL_ITEM-LGORT, sy-vline,
  WA_MMIM_GR4PO_DL_ITEM-LGOBE, sy-vline,
  WA_MMIM_GR4PO_DL_ITEM-LGPBE, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_MMIM_GR4PO_DL_ITEM 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_MMIM_GR4PO_DL_ITEM 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_MMIM_GR4PO_DL_ITEM INTO WA_MMIM_GR4PO_DL_ITEM.


*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 LE_VBELN
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_MMIM_GR4PO_DL_ITEM-LE_VBELN
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMIM_GR4PO_DL_ITEM-LE_VBELN.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MATN1, internal->external for field MATNR
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_MMIM_GR4PO_DL_ITEM-MATNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMIM_GR4PO_DL_ITEM-MATNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field ORDMGME
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_MMIM_GR4PO_DL_ITEM-ORDMGME
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMIM_GR4PO_DL_ITEM-ORDMGME.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field OFMNGME
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_MMIM_GR4PO_DL_ITEM-OFMNGME
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMIM_GR4PO_DL_ITEM-OFMNGME.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field MEINS
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_MMIM_GR4PO_DL_ITEM-MEINS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMIM_GR4PO_DL_ITEM-MEINS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field ERFME
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_MMIM_GR4PO_DL_ITEM-ERFME
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMIM_GR4PO_DL_ITEM-ERFME.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ABPSN, internal->external for field PSPID
CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT'
  EXPORTING
    input =                      WA_MMIM_GR4PO_DL_ITEM-PSPID
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMIM_GR4PO_DL_ITEM-PSPID.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ABPSN, internal->external for field POSID
CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT'
  EXPORTING
    input =                      WA_MMIM_GR4PO_DL_ITEM-POSID
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMIM_GR4PO_DL_ITEM-POSID.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field SAKTO
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_MMIM_GR4PO_DL_ITEM-SAKTO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMIM_GR4PO_DL_ITEM-SAKTO.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field PRCTR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_MMIM_GR4PO_DL_ITEM-PRCTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMIM_GR4PO_DL_ITEM-PRCTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field KOSTL
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_MMIM_GR4PO_DL_ITEM-KOSTL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMIM_GR4PO_DL_ITEM-KOSTL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field KDAUF
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_MMIM_GR4PO_DL_ITEM-KDAUF
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMIM_GR4PO_DL_ITEM-KDAUF.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field AUFNR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_MMIM_GR4PO_DL_ITEM-AUFNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMIM_GR4PO_DL_ITEM-AUFNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field ASSET_NO
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_MMIM_GR4PO_DL_ITEM-ASSET_NO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMIM_GR4PO_DL_ITEM-ASSET_NO.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field SUB_NUMBER
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_MMIM_GR4PO_DL_ITEM-SUB_NUMBER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMIM_GR4PO_DL_ITEM-SUB_NUMBER.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field LIFNR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_MMIM_GR4PO_DL_ITEM-LIFNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMIM_GR4PO_DL_ITEM-LIFNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field GRANT_NBR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_MMIM_GR4PO_DL_ITEM-GRANT_NBR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMIM_GR4PO_DL_ITEM-GRANT_NBR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit FMCIS, internal->external for field COMMITMENT_ITEM
CALL FUNCTION 'CONVERSION_EXIT_FMCIS_OUTPUT'
  EXPORTING
    input =                      WA_MMIM_GR4PO_DL_ITEM-COMMITMENT_ITEM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMIM_GR4PO_DL_ITEM-COMMITMENT_ITEM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field LFBNR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_MMIM_GR4PO_DL_ITEM-LFBNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMIM_GR4PO_DL_ITEM-LFBNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit GJAHR, internal->external for field LFBJA
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_MMIM_GR4PO_DL_ITEM-LFBJA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMIM_GR4PO_DL_ITEM-LFBJA.
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_MMIM_GR4PO_DL_ITEM_STR, 
LE_VBELN TYPE STRING,
POSNR TYPE STRING,
SUBITEM TYPE STRING,
SOURCE_OF_GR TYPE STRING,
KNTTP TYPE STRING,
KNTTX TYPE STRING,
WERKS TYPE STRING,
WERKS_NAME TYPE STRING,
LGORT TYPE STRING,
LGOBE TYPE STRING,
LGPBE TYPE STRING,
MATNR TYPE STRING,
MAKTX TYPE STRING,
TXZ01 TYPE STRING,
CHARG TYPE STRING,
ORDMG TYPE STRING,
ORDMGME TYPE STRING,
OFMNG TYPE STRING,
OFMNGME TYPE STRING,
MENGE TYPE STRING,
MEINS TYPE STRING,
WESBS TYPE STRING,
ERFMG TYPE STRING,
WEMNG TYPE STRING,
ERFME TYPE STRING,
INSMK TYPE STRING,
FTEXT TYPE STRING,
PSPID TYPE STRING,
PS_POST_PROJ TYPE STRING,
POSID TYPE STRING,
PS_POST_WBSE TYPE STRING,
SAKTO TYPE STRING,
SAKTO_TEXT TYPE STRING,
ABLAD TYPE STRING,
WEMPF TYPE STRING,
ELIKZ TYPE STRING,
RETPO TYPE STRING,
FUNC_AREA TYPE STRING,
FUNC_AREA_TEXT TYPE STRING,
PRCTR TYPE STRING,
KTEXT_PRCTR TYPE STRING,
KOSTL TYPE STRING,
KTEXT_KOSTL TYPE STRING,
KDAUF TYPE STRING,
KDPOS TYPE STRING,
SGTXT TYPE STRING,
GRUND TYPE STRING,
AUFNR TYPE STRING,
SOBKZ TYPE STRING,
SOTXT TYPE STRING,
IS_CONSUMPTION_MVT TYPE STRING,
WEUNB TYPE STRING,
ASSET_NO TYPE STRING,
SUB_NUMBER TYPE STRING,
ASSET_TEXT TYPE STRING,
VFDAT TYPE STRING,
HSDAT TYPE STRING,
XMACC TYPE STRING,
SEQ_NUMBER TYPE STRING,
VRTKZ TYPE STRING,
VRTKZ_TEXT TYPE STRING,
TWRKZ TYPE STRING,
TWRKZ_TEXT TYPE STRING,
VPROZ TYPE STRING,
ORDMG_MULTI TYPE STRING,
PROD_PLANT TYPE STRING,
PRODWERKNAME TYPE STRING,
PLANNED_PLANT TYPE STRING,
PLANNEDPLANTNAME TYPE STRING,
LIFNR TYPE STRING,
PSTYP TYPE STRING,
XSAUT TYPE STRING,
PSM_FIELDS_CONTROL TYPE STRING,
GEBER TYPE STRING,
GEBER_TXT TYPE STRING,
GRANT_NBR TYPE STRING,
GRANT_NBR_TXT TYPE STRING,
BUDGET_PERIOD TYPE STRING,
BUDGET_PERIOD_TXT TYPE STRING,
FUNDS_CENTER TYPE STRING,
FUNDS_CENTER_TXT TYPE STRING,
COMMITMENT_ITEM TYPE STRING,
COMMITMENT_ITEM_TXT TYPE STRING,
FUNDED_PROGRAM TYPE STRING,
FUNDED_PROGRAM_TXT TYPE STRING,
VALUATION_TYPE TYPE STRING,
VALUA_TYPE_FIELD_CONTROL TYPE STRING,
REF_LINE_ID TYPE STRING,
LFBNR TYPE STRING,
LFBJA TYPE STRING,
LFPOS TYPE STRING,
IS_COMPONENT_CHANGED TYPE STRING,
DUMMY_INCL_EEW_COBL TYPE STRING,
DUMMY_INCL_EEW_COBL_TR TYPE STRING,END OF T_EKKO_STR.
DATA: WA_MMIM_GR4PO_DL_ITEM_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_MMIM_GR4PO_DL_ITEM_STR-LE_VBELN sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-POSNR sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-SUBITEM sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-SOURCE_OF_GR sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-KNTTP sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-KNTTX sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-WERKS sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-WERKS_NAME sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-LGORT sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-LGOBE sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-LGPBE sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-MATNR sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-MAKTX sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-TXZ01 sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-CHARG sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-ORDMG sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-ORDMGME sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-OFMNG sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-OFMNGME sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-MENGE sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-MEINS sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-WESBS sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-ERFMG sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-WEMNG sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-ERFME sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-INSMK sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-FTEXT sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-PSPID sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-PS_POST_PROJ sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-POSID sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-PS_POST_WBSE sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-SAKTO sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-SAKTO_TEXT sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-ABLAD sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-WEMPF sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-ELIKZ sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-RETPO sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-FUNC_AREA sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-FUNC_AREA_TEXT sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-PRCTR sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-KTEXT_PRCTR sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-KOSTL sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-KTEXT_KOSTL sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-KDAUF sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-KDPOS sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-SGTXT sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-GRUND sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-AUFNR sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-SOBKZ sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-SOTXT sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-IS_CONSUMPTION_MVT sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-WEUNB sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-ASSET_NO sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-SUB_NUMBER sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-ASSET_TEXT sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-VFDAT sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-HSDAT sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-XMACC sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-SEQ_NUMBER sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-VRTKZ sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-VRTKZ_TEXT sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-TWRKZ sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-TWRKZ_TEXT sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-VPROZ sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-ORDMG_MULTI sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-PROD_PLANT sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-PRODWERKNAME sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-PLANNED_PLANT sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-PLANNEDPLANTNAME sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-LIFNR sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-PSTYP sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-XSAUT sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-PSM_FIELDS_CONTROL sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-GEBER sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-GEBER_TXT sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-GRANT_NBR sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-GRANT_NBR_TXT sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-BUDGET_PERIOD sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-BUDGET_PERIOD_TXT sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-FUNDS_CENTER sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-FUNDS_CENTER_TXT sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-COMMITMENT_ITEM sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-COMMITMENT_ITEM_TXT sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-FUNDED_PROGRAM sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-FUNDED_PROGRAM_TXT sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-VALUATION_TYPE sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-VALUA_TYPE_FIELD_CONTROL sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-REF_LINE_ID sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-LFBNR sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-LFBJA sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-LFPOS sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-IS_COMPONENT_CHANGED sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-DUMMY_INCL_EEW_COBL sy-vline 
WA_MMIM_GR4PO_DL_ITEM_STR-DUMMY_INCL_EEW_COBL_TR sy-vline      INTO ld_text SEPARATED BY SPACE.

*Add any further fields from structure WA_EKKO_STR you want to CONCATENATE...
ENDLOOP.
ENDFORM.