ABAP Select data from SAP table MMPUR_S_PR_EXTRACTION 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_S_PR_EXTRACTION 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_S_PR_EXTRACTION. 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_S_PR_EXTRACTION 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_S_PR_EXTRACTION TYPE STANDARD TABLE OF MMPUR_S_PR_EXTRACTION,
      WA_MMPUR_S_PR_EXTRACTION TYPE MMPUR_S_PR_EXTRACTION,
      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_S_PR_EXTRACTION> TYPE MMPUR_S_PR_EXTRACTION.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM MMPUR_S_PR_EXTRACTION
*  INTO TABLE @DATA(IT_MMPUR_S_PR_EXTRACTION2).
*--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_S_PR_EXTRACTION INDEX 1 INTO DATA(WA_MMPUR_S_PR_EXTRACTION2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<MMPUR_S_PR_EXTRACTION>-PR_DOCUMENTTYPE = 1.
<MMPUR_S_PR_EXTRACTION>-PROCMTHUBPURDOCUMENTTYPE = 1.
<MMPUR_S_PR_EXTRACTION>-LOGICALSYSTEM = 1.
<MMPUR_S_PR_EXTRACTION>-PR_DETAILS = 1.
<MMPUR_S_PR_EXTRACTION>-PROCMTHUBPURGOBJFROM = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_MMPUR_S_PR_EXTRACTION-PROCMTHUBPURGOBJTO, sy-vline,
  WA_MMPUR_S_PR_EXTRACTION-PROCUREMENTHUBSOURCESYSTEM, sy-vline,
  WA_MMPUR_S_PR_EXTRACTION-EXTSOURCESYSTEM, sy-vline,
  WA_MMPUR_S_PR_EXTRACTION-COMMUNICATIONSCENARIO, sy-vline,
  WA_MMPUR_S_PR_EXTRACTION-PROCMTHUBJOBIMPORTTYPE, sy-vline,
  WA_MMPUR_S_PR_EXTRACTION-ISDELETED, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_MMPUR_S_PR_EXTRACTION 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_S_PR_EXTRACTION 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_S_PR_EXTRACTION INTO WA_MMPUR_S_PR_EXTRACTION.


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

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

*Conversion exit TSTPS, internal->external for field PURREQNLASTEXTRACTEDDATETIME
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_MMPUR_S_PR_EXTRACTION-PURREQNLASTEXTRACTEDDATETIME
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMPUR_S_PR_EXTRACTION-PURREQNLASTEXTRACTEDDATETIME.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit ISOLA, internal->external for field CORRESPONDENCELANGUAGE
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_MMPUR_S_PR_EXTRACTION-CORRESPONDENCELANGUAGE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMPUR_S_PR_EXTRACTION-CORRESPONDENCELANGUAGE.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field SUPPLIER
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_MMPUR_S_PR_EXTRACTION-SUPPLIER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MMPUR_S_PR_EXTRACTION-SUPPLIER.
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_S_PR_EXTRACTION_STR, 
PR_DOCUMENTTYPE TYPE STRING,
PROCMTHUBPURDOCUMENTTYPE TYPE STRING,
LOGICALSYSTEM TYPE STRING,
PR_DETAILS TYPE STRING,
PROCMTHUBPURGOBJFROM TYPE STRING,
PROCMTHUBPURGOBJTO TYPE STRING,
PROCUREMENTHUBSOURCESYSTEM TYPE STRING,
EXTSOURCESYSTEM TYPE STRING,
COMMUNICATIONSCENARIO TYPE STRING,
PROCMTHUBJOBIMPORTTYPE TYPE STRING,
ISDELETED TYPE STRING,
PURCHASINGDOCUMENTITEMCATEGORY TYPE STRING,
PURREQNORIGIN TYPE STRING,
PROCMTHUBPURCHASINGGROUP TYPE STRING,
PROCMTHUBPURCHASINGORG TYPE STRING,
MATERIALGROUP TYPE STRING,
PURREQNRELEASESTATUS TYPE STRING,
PROCMTHUBPLANT TYPE STRING,
PROCMTHUBPURDOCUMENTTYPE TYPE STRING,
PROCMTHUBPURGOBJCRTNFROMDATE TYPE STRING,
PROCMTHUBPURGOBJCRTNTODATE TYPE STRING,
PURREQNPACKETSIZE TYPE STRING,
PROCMTHUBJOBPACKETIDXFROMVALUE TYPE STRING,
PROCMTHUBJOBPACKETIDXTOVALUE TYPE STRING,
PROCMTHUBLASTEXTRACTIONTIME TYPE STRING,
PROCMTHUBNUMBEROFPURGOBJECTS TYPE STRING,
PURREQNACCTASSGMTCOUNT TYPE STRING,
PROCMTHUBNROFREFPURGOBJECTS TYPE STRING,
PURCHASEREQUISITIONITEMCOUNT TYPE STRING,
PURREQNLASTEXTRACTEDDATETIME TYPE STRING,
HTTPRESPONSESTATUSCODE TYPE STRING,
PR_ADDRESS TYPE STRING,
LOGICALSYSTEM TYPE STRING,
PURCHASEREQUISITION TYPE STRING,
PURCHASEREQUISITIONITEM TYPE STRING,
PURCHASEREQUISITIONITEMADDRESS TYPE STRING,
PURCHASEREQUISITION TYPE STRING,
PURCHASEREQUISITIONITEM TYPE STRING,
ITEMDELIVERYADDRESSID TYPE STRING,
FORMOFADDRESS TYPE STRING,
BUSINESSPARTNERNAME1 TYPE STRING,
BUSINESSPARTNERNAME2 TYPE STRING,
STREETNAME TYPE STRING,
HOUSENUMBER TYPE STRING,
POSTALCODE TYPE STRING,
CITYNAME TYPE STRING,
PHONENUMBER TYPE STRING,
FAXNUMBER TYPE STRING,
REGION TYPE STRING,
COUNTRY TYPE STRING,
CORRESPONDENCELANGUAGE TYPE STRING,
PLANT TYPE STRING,
DELIVERYADDRESSID TYPE STRING,
MANUALDELIVERYADDRESSID TYPE STRING,
PR_PACKET TYPE STRING,
PROCMTHUBPURGOBJFROM TYPE STRING,
PROCMTHUBPURGOBJTO TYPE STRING,
PROCMTHUBJOBPACKETSIZEVALUE TYPE STRING,
LOGICALSYSTEM TYPE STRING,
PROCMTHUBPURGOBJCRTNFROMDATE TYPE STRING,
PROCMTHUBPURGOBJCRTNTODATE TYPE STRING,
PROCMTHUBJOBIMPORTTYPE TYPE STRING,
PURREQNLASTEXTRACTEDDATETIME TYPE STRING,
MATERIALGROUP TYPE STRING,
PROCMTHUBPLANT TYPE STRING,
PURCHASINGDOCUMENTITEMCATEGORY TYPE STRING,
PROCMTHUBPURCHASINGORG TYPE STRING,
PROCMTHUBPURCHASINGGROUP TYPE STRING,
PROCMTHUBPURDOCUMENTTYPE TYPE STRING,
PURREQNORIGIN TYPE STRING,
PROCESSINGSTATUS TYPE STRING,
PURREQNPACKETSIZE TYPE STRING,
FOLLOWONDOCUMENT TYPE STRING,
FOLLOWONDOCHDR TYPE STRING,
PURCHASINGDOCUMENT TYPE STRING,
SUPPLIER TYPE STRING,
PURCHASINGGROUP TYPE STRING,
PURCHASINGORGANISATION TYPE STRING,
COMPANYCODE TYPE STRING,
PURCHASEORDERTYPE TYPE STRING,
PURCHASINGCOMPLETENESSSTATUS TYPE STRING,
CREATEDBYUSER TYPE STRING,
PROCMTHUBPURDOCUMENTTYPE TYPE STRING,
PROCMTHUBDOCUMENTCURRENCY TYPE STRING,
PROCMTHUBPAYMENTTERMS TYPE STRING,
PROCMTHUBINCOTERMSCLASSFCTN TYPE STRING,
PROCMTHUBINCOTERMSLOCATION1 TYPE STRING,
ISSIMULATION TYPE STRING,
VERSION TYPE STRING,
SUPLRISDSBLDFORPURREQNGROUPING TYPE STRING,
PURGREQNAUTOMATIONISENABLED TYPE STRING,
NAVIGATIONTARGET TYPE STRING,
FOLLOWONDOCITMSET TYPE STRING,
FOLLOWONDOCACCSET TYPE STRING,
FOLLOWONDOCDELIVADDRSET TYPE STRING,
INCOTERMSVH TYPE STRING,
DOCUMENTTYPEVH TYPE STRING,
PAYMENTTERMSVH TYPE STRING,
TAXCODEVH TYPE STRING,
PURCHASINGORGANIZATIONVH TYPE STRING,
COMPANYCODEVH TYPE STRING,
SUPPLIERVH TYPE STRING,
FOLLOWONPOHDR TYPE STRING,
PURCHASINGDOCUMENT TYPE STRING,
SUPPLIER TYPE STRING,
PURCHASINGGROUP TYPE STRING,
PURCHASINGORGANISATION TYPE STRING,
COMPANYCODE TYPE STRING,
PURCHASEORDERTYPE TYPE STRING,
PURCHASINGCOMPLETENESSSTATUS TYPE STRING,
CREATEDBYUSER TYPE STRING,
PROCMTHUBPURDOCUMENTTYPE TYPE STRING,
PROCMTHUBDOCUMENTCURRENCY TYPE STRING,
PROCMTHUBPAYMENTTERMS TYPE STRING,
PROCMTHUBINCOTERMSCLASSFCTN TYPE STRING,
PROCMTHUBINCOTERMSLOCATION1 TYPE STRING,
ISSIMULATION TYPE STRING,
VERSION TYPE STRING,
PURGREQNAUTOMATIONISENABLED TYPE STRING,
FOLLOWONDOCITMSET TYPE STRING,END OF T_EKKO_STR.
DATA: WA_MMPUR_S_PR_EXTRACTION_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_S_PR_EXTRACTION_STR-PR_DOCUMENTTYPE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBPURDOCUMENTTYPE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-LOGICALSYSTEM sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PR_DETAILS sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBPURGOBJFROM sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBPURGOBJTO sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCUREMENTHUBSOURCESYSTEM sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-EXTSOURCESYSTEM sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-COMMUNICATIONSCENARIO sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBJOBIMPORTTYPE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-ISDELETED sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURCHASINGDOCUMENTITEMCATEGORY sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURREQNORIGIN sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBPURCHASINGGROUP sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBPURCHASINGORG sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-MATERIALGROUP sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURREQNRELEASESTATUS sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBPLANT sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBPURDOCUMENTTYPE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBPURGOBJCRTNFROMDATE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBPURGOBJCRTNTODATE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURREQNPACKETSIZE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBJOBPACKETIDXFROMVALUE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBJOBPACKETIDXTOVALUE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBLASTEXTRACTIONTIME sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBNUMBEROFPURGOBJECTS sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURREQNACCTASSGMTCOUNT sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBNROFREFPURGOBJECTS sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURCHASEREQUISITIONITEMCOUNT sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURREQNLASTEXTRACTEDDATETIME sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-HTTPRESPONSESTATUSCODE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PR_ADDRESS sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-LOGICALSYSTEM sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURCHASEREQUISITION sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURCHASEREQUISITIONITEM sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURCHASEREQUISITIONITEMADDRESS sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURCHASEREQUISITION sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURCHASEREQUISITIONITEM sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-ITEMDELIVERYADDRESSID sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-FORMOFADDRESS sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-BUSINESSPARTNERNAME1 sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-BUSINESSPARTNERNAME2 sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-STREETNAME sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-HOUSENUMBER sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-POSTALCODE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-CITYNAME sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PHONENUMBER sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-FAXNUMBER sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-REGION sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-COUNTRY sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-CORRESPONDENCELANGUAGE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PLANT sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-DELIVERYADDRESSID sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-MANUALDELIVERYADDRESSID sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PR_PACKET sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBPURGOBJFROM sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBPURGOBJTO sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBJOBPACKETSIZEVALUE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-LOGICALSYSTEM sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBPURGOBJCRTNFROMDATE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBPURGOBJCRTNTODATE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBJOBIMPORTTYPE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURREQNLASTEXTRACTEDDATETIME sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-MATERIALGROUP sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBPLANT sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURCHASINGDOCUMENTITEMCATEGORY sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBPURCHASINGORG sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBPURCHASINGGROUP sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBPURDOCUMENTTYPE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURREQNORIGIN sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCESSINGSTATUS sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURREQNPACKETSIZE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-FOLLOWONDOCUMENT sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-FOLLOWONDOCHDR sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURCHASINGDOCUMENT sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-SUPPLIER sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURCHASINGGROUP sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURCHASINGORGANISATION sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-COMPANYCODE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURCHASEORDERTYPE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURCHASINGCOMPLETENESSSTATUS sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-CREATEDBYUSER sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBPURDOCUMENTTYPE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBDOCUMENTCURRENCY sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBPAYMENTTERMS sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBINCOTERMSCLASSFCTN sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBINCOTERMSLOCATION1 sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-ISSIMULATION sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-VERSION sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-SUPLRISDSBLDFORPURREQNGROUPING sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURGREQNAUTOMATIONISENABLED sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-NAVIGATIONTARGET sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-FOLLOWONDOCITMSET sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-FOLLOWONDOCACCSET sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-FOLLOWONDOCDELIVADDRSET sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-INCOTERMSVH sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-DOCUMENTTYPEVH sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PAYMENTTERMSVH sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-TAXCODEVH sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURCHASINGORGANIZATIONVH sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-COMPANYCODEVH sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-SUPPLIERVH sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-FOLLOWONPOHDR sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURCHASINGDOCUMENT sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-SUPPLIER sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURCHASINGGROUP sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURCHASINGORGANISATION sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-COMPANYCODE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURCHASEORDERTYPE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURCHASINGCOMPLETENESSSTATUS sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-CREATEDBYUSER sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBPURDOCUMENTTYPE sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBDOCUMENTCURRENCY sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBPAYMENTTERMS sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBINCOTERMSCLASSFCTN sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PROCMTHUBINCOTERMSLOCATION1 sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-ISSIMULATION sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-VERSION sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-PURGREQNAUTOMATIONISENABLED sy-vline 
WA_MMPUR_S_PR_EXTRACTION_STR-FOLLOWONDOCITMSET sy-vline      INTO ld_text SEPARATED BY SPACE.

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