ABAP Select data from SAP table MMPUR_SRCLIST_BQPIM 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 MMPUR_SRCLIST_BQPIM 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 MMPUR_SRCLIST_BQPIM. 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 MMPUR_SRCLIST_BQPIM 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_MMPUR_SRCLIST_BQPIM TYPE STANDARD TABLE OF MMPUR_SRCLIST_BQPIM,
      WA_MMPUR_SRCLIST_BQPIM TYPE MMPUR_SRCLIST_BQPIM,
      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: <MMPUR_SRCLIST_BQPIM> TYPE MMPUR_SRCLIST_BQPIM.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM MMPUR_SRCLIST_BQPIM
*  INTO TABLE @DATA(IT_MMPUR_SRCLIST_BQPIM2).
*--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_MMPUR_SRCLIST_BQPIM INDEX 1 INTO DATA(WA_MMPUR_SRCLIST_BQPIM2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<MMPUR_SRCLIST_BQPIM>-MATERIAL = 1.
<MMPUR_SRCLIST_BQPIM>-PLANT = 1.
<MMPUR_SRCLIST_BQPIM>-CUSTOMER = 1.
<MMPUR_SRCLIST_BQPIM>-PURGDOCOLDVERSIONQUANTITY = 1.
<MMPUR_SRCLIST_BQPIM>-PURGDOCNEWVERSIONQUANTITY = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_MMPUR_SRCLIST_BQPIM-PURGDOCOLDVERSREFERENCEQTY, sy-vline,
  WA_MMPUR_SRCLIST_BQPIM-PURGDOCNEWVERSREFERENCEQTY, sy-vline,
  WA_MMPUR_SRCLIST_BQPIM-PURGDOCOLDVERSIONDATE, sy-vline,
  WA_MMPUR_SRCLIST_BQPIM-PURGDOCNEWVERSIONDATE, sy-vline,
  WA_MMPUR_SRCLIST_BQPIM-PURCHASINGDOCUMENTSUBTYPE, sy-vline,
  WA_MMPUR_SRCLIST_BQPIM-MATERIALGROUP, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_MMPUR_SRCLIST_BQPIM 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_MMPUR_SRCLIST_BQPIM 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_MMPUR_SRCLIST_BQPIM INTO WA_MMPUR_SRCLIST_BQPIM.


*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 MATN1, internal->external for field MATERIAL
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_MMPUR_SRCLIST_BQPIM-MATERIAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMPUR_SRCLIST_BQPIM-MATERIAL.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit NUMCV, internal->external for field REVISIONLEVEL
CALL FUNCTION 'CONVERSION_EXIT_NUMCV_OUTPUT'
  EXPORTING
    input =                      WA_MMPUR_SRCLIST_BQPIM-REVISIONLEVEL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMPUR_SRCLIST_BQPIM-REVISIONLEVEL.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit PERKZ, internal->external for field SHELFLIFEEXPIRATIONDATEPERIOD
CALL FUNCTION 'CONVERSION_EXIT_PERKZ_OUTPUT'
  EXPORTING
    input =                      WA_MMPUR_SRCLIST_BQPIM-SHELFLIFEEXPIRATIONDATEPERIOD
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMPUR_SRCLIST_BQPIM-SHELFLIFEEXPIRATIONDATEPERIOD.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit ALPHA, internal->external for field PURCHASEOUTLINEAGRMTITMOLDVERS
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_MMPUR_SRCLIST_BQPIM-PURCHASEOUTLINEAGRMTITMOLDVERS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMPUR_SRCLIST_BQPIM-PURCHASEOUTLINEAGRMTITMOLDVERS.
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_MMPUR_SRCLIST_BQPIM_STR, 
MATERIAL TYPE STRING,
PLANT TYPE STRING,
CUSTOMER TYPE STRING,
PURGDOCOLDVERSIONQUANTITY TYPE STRING,
PURGDOCNEWVERSIONQUANTITY TYPE STRING,
PURGDOCOLDVERSREFERENCEQTY TYPE STRING,
PURGDOCNEWVERSREFERENCEQTY TYPE STRING,
PURGDOCOLDVERSIONDATE TYPE STRING,
PURGDOCNEWVERSIONDATE TYPE STRING,
PURCHASINGDOCUMENTSUBTYPE TYPE STRING,
MATERIALGROUP TYPE STRING,
PROCUREMENTTYPE TYPE STRING,
MATERIALPROCUREMENTTYPE TYPE STRING,
PURCHASINGORDERTYPE TYPE STRING,
PURCHASINGDOCUMENTCATEGORY TYPE STRING,
PURCHASINGDOCUMENTITEMCATEGORY TYPE STRING,
PROCMTHUBPURGOBJCTRLIND TYPE STRING,
PURGDOCORDERQUANTITYUNIT TYPE STRING,
PURCHASINGDOCUMENTPROCESS TYPE STRING,
CONSUMPTIONPOSTING TYPE STRING,
ACCOUNTASSIGNMENTCATEGORY TYPE STRING,
QUOTAARRANGEMENTUSAGE TYPE STRING,
QUOTAARRANGEMENT TYPE STRING,
QUOTAARRANGEMENTITEM TYPE STRING,
MATERIALQTYTOBASEQTYNMRTR TYPE STRING,
MATERIALQTYTOBASEQTYDNMNTR TYPE STRING,
PROCUREMENTSUPPLYINGPLANT TYPE STRING,
ORDERQUANTITYUNIT TYPE STRING,
PURREQNRECEIVINGSUPPLIER TYPE STRING,
SUPPLIER TYPE STRING,
FIXEDSUPPLIER TYPE STRING,
PURCHASINGINFORECORD TYPE STRING,
PURCHASINGORGANIZATION TYPE STRING,
PURCHASEOUTLINEAGREEMENT TYPE STRING,
PURCHASEOUTLINEAGREEMENTITEM TYPE STRING,
BASEUNIT TYPE STRING,
PURCHASEREQUISITIONRELEASEDATE TYPE STRING,
REGULARSUPPLIERISTKNINTOACCT TYPE STRING,
NONWORKINGDAYADJUSTMENT TYPE STRING,
SERVICEPACKAGE TYPE STRING,
PRODUCTIONVERSION TYPE STRING,
PURCHASINGDOCUMENTCURRENCY TYPE STRING,
MATERIALISCROSSPLANTCONFIGBL TYPE STRING,
MATERIALCATEGORY TYPE STRING,
MANUFACTURERPARTPROFILE TYPE STRING,
REVISIONLEVEL TYPE STRING,
MANUFACTURERNUMBER TYPE STRING,
MANUFACTURERPARTNMBR TYPE STRING,
MANUFACTUREREXTERNALID TYPE STRING,
PURCHASEORDERPRICETYPE TYPE STRING,
PRODUCTCONFIGURATION TYPE STRING,
PLANNEDDELIVERYDURATIONINDAYS TYPE STRING,
SUPPLIERISSUBCONTRACTOR TYPE STRING,
MANUALDELIVERYADDRESSID TYPE STRING,
REFERENCEDELIVERYADDRESSID TYPE STRING,
SOURCEOFCREATION TYPE STRING,
PROCURINGPLANT TYPE STRING,
ISSUINGORRECEIVINGSTORAGELOC TYPE STRING,
STORAGELOCATION TYPE STRING,
MINREMAININGSHELFLIFE TYPE STRING,
SHELFLIFEEXPIRATIONDATEPERIOD TYPE STRING,
PURCHASECONTRACT TYPE STRING,
PURCHASECONTRACTITEM TYPE STRING,
PRICEBASEDSOURCESOFSUPPLY TYPE STRING,
QUOTAARRANGEMENTISNOTEVALUATED TYPE STRING,
QUOTAARRANGEMENTISNOTUPDATED TYPE STRING,
SOURCELISTISNOTEVALUATED TYPE STRING,
OUTLINEAGREEMENTISNOTSEARCHED TYPE STRING,
MATRELTDOUTLINEAGRMTISNOTSRCHD TYPE STRING,
MATGRPRELTDOUTLINEAGRMTISSRCHD TYPE STRING,
UNITSOFMEASUREUSAGE TYPE STRING,
PURGDOCRECEIVINGSUPPLIER TYPE STRING,
PURGDOCSRCDETERMINATIONDELDTE TYPE STRING,
PURGDOCPRICEISDETERMINED TYPE STRING,
PURCHOUTLINEAGRMTISNOTSEARCHED TYPE STRING,
PURGDOCOLDVERSFXDSUPLRID TYPE STRING,
PURGDOCOLDVERSIONSUPPLYINGPLNT TYPE STRING,
PURGDOCOLDVERSIONPURCHASINGORG TYPE STRING,
PURCHASEOUTLINEAGRMTITMOLDVERS TYPE STRING,
DELIVDTEISCHKDINSRCEDETN TYPE STRING,
SPECIALPROCMTKEYITEMCATEGORY TYPE STRING,
PURGDOCMATERIALISNOTREAD TYPE STRING,
PURGDOCHASNOMSG TYPE STRING,
PURGDOCHASLISTSOS TYPE STRING,
PURGDOCSOSISCONTRACT TYPE STRING,
PURGSRCECONTRHASSAMEPRCDMATL TYPE STRING,
PURGSRCECONTRHASDIFFPRCDMATGRP TYPE STRING,
PURGDOCSOSISINFORECORD TYPE STRING,
PURGDOCSOSFORITEMSHASNOMATL TYPE STRING,
PURGINFORECDORDUNITISALWAYSUSD TYPE STRING,
QTAALLCDQTSARENOTUSDFORSRCG TYPE STRING,
LISTE TYPE STRING,
PRAKT TYPE STRING,
RESE1 TYPE STRING,
RESE2 TYPE STRING,
RESE3 TYPE STRING,
FCALL TYPE STRING,
BAPIC TYPE STRING,
RETPO_CHANGE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_MMPUR_SRCLIST_BQPIM_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_MMPUR_SRCLIST_BQPIM_STR-MATERIAL sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PLANT sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-CUSTOMER sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURGDOCOLDVERSIONQUANTITY sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURGDOCNEWVERSIONQUANTITY sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURGDOCOLDVERSREFERENCEQTY sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURGDOCNEWVERSREFERENCEQTY sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURGDOCOLDVERSIONDATE sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURGDOCNEWVERSIONDATE sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURCHASINGDOCUMENTSUBTYPE sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-MATERIALGROUP sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PROCUREMENTTYPE sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-MATERIALPROCUREMENTTYPE sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURCHASINGORDERTYPE sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURCHASINGDOCUMENTCATEGORY sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURCHASINGDOCUMENTITEMCATEGORY sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PROCMTHUBPURGOBJCTRLIND sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURGDOCORDERQUANTITYUNIT sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURCHASINGDOCUMENTPROCESS sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-CONSUMPTIONPOSTING sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-ACCOUNTASSIGNMENTCATEGORY sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-QUOTAARRANGEMENTUSAGE sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-QUOTAARRANGEMENT sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-QUOTAARRANGEMENTITEM sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-MATERIALQTYTOBASEQTYNMRTR sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-MATERIALQTYTOBASEQTYDNMNTR sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PROCUREMENTSUPPLYINGPLANT sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-ORDERQUANTITYUNIT sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURREQNRECEIVINGSUPPLIER sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-SUPPLIER sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-FIXEDSUPPLIER sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURCHASINGINFORECORD sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURCHASINGORGANIZATION sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURCHASEOUTLINEAGREEMENT sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURCHASEOUTLINEAGREEMENTITEM sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-BASEUNIT sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURCHASEREQUISITIONRELEASEDATE sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-REGULARSUPPLIERISTKNINTOACCT sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-NONWORKINGDAYADJUSTMENT sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-SERVICEPACKAGE sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PRODUCTIONVERSION sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURCHASINGDOCUMENTCURRENCY sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-MATERIALISCROSSPLANTCONFIGBL sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-MATERIALCATEGORY sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-MANUFACTURERPARTPROFILE sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-REVISIONLEVEL sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-MANUFACTURERNUMBER sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-MANUFACTURERPARTNMBR sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-MANUFACTUREREXTERNALID sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURCHASEORDERPRICETYPE sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PRODUCTCONFIGURATION sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PLANNEDDELIVERYDURATIONINDAYS sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-SUPPLIERISSUBCONTRACTOR sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-MANUALDELIVERYADDRESSID sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-REFERENCEDELIVERYADDRESSID sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-SOURCEOFCREATION sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PROCURINGPLANT sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-ISSUINGORRECEIVINGSTORAGELOC sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-STORAGELOCATION sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-MINREMAININGSHELFLIFE sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-SHELFLIFEEXPIRATIONDATEPERIOD sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURCHASECONTRACT sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURCHASECONTRACTITEM sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PRICEBASEDSOURCESOFSUPPLY sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-QUOTAARRANGEMENTISNOTEVALUATED sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-QUOTAARRANGEMENTISNOTUPDATED sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-SOURCELISTISNOTEVALUATED sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-OUTLINEAGREEMENTISNOTSEARCHED sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-MATRELTDOUTLINEAGRMTISNOTSRCHD sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-MATGRPRELTDOUTLINEAGRMTISSRCHD sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-UNITSOFMEASUREUSAGE sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURGDOCRECEIVINGSUPPLIER sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURGDOCSRCDETERMINATIONDELDTE sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURGDOCPRICEISDETERMINED sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURCHOUTLINEAGRMTISNOTSEARCHED sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURGDOCOLDVERSFXDSUPLRID sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURGDOCOLDVERSIONSUPPLYINGPLNT sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURGDOCOLDVERSIONPURCHASINGORG sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURCHASEOUTLINEAGRMTITMOLDVERS sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-DELIVDTEISCHKDINSRCEDETN sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-SPECIALPROCMTKEYITEMCATEGORY sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURGDOCMATERIALISNOTREAD sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURGDOCHASNOMSG sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURGDOCHASLISTSOS sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURGDOCSOSISCONTRACT sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURGSRCECONTRHASSAMEPRCDMATL sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURGSRCECONTRHASDIFFPRCDMATGRP sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURGDOCSOSISINFORECORD sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURGDOCSOSFORITEMSHASNOMATL sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PURGINFORECDORDUNITISALWAYSUSD sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-QTAALLCDQTSARENOTUSDFORSRCG sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-LISTE sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-PRAKT sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-RESE1 sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-RESE2 sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-RESE3 sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-FCALL sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-BAPIC sy-vline 
WA_MMPUR_SRCLIST_BQPIM_STR-RETPO_CHANGE sy-vline      INTO ld_text SEPARATED BY SPACE.

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