ABAP Select data from SAP table MMPUR_S_CCTR_DISTR_LINEX 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_CCTR_DISTR_LINEX 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_CCTR_DISTR_LINEX. 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_CCTR_DISTR_LINEX 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_CCTR_DISTR_LINEX TYPE STANDARD TABLE OF MMPUR_S_CCTR_DISTR_LINEX,
      WA_MMPUR_S_CCTR_DISTR_LINEX TYPE MMPUR_S_CCTR_DISTR_LINEX,
      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_CCTR_DISTR_LINEX> TYPE MMPUR_S_CCTR_DISTR_LINEX.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM MMPUR_S_CCTR_DISTR_LINEX
*  INTO TABLE @DATA(IT_MMPUR_S_CCTR_DISTR_LINEX2).
*--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_CCTR_DISTR_LINEX INDEX 1 INTO DATA(WA_MMPUR_S_CCTR_DISTR_LINEX2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<MMPUR_S_CCTR_DISTR_LINEX>-PURCHASINGDOCUMENT = 1.
<MMPUR_S_CCTR_DISTR_LINEX>-PURCHASINGDOCUMENTITEM = 1.
<MMPUR_S_CCTR_DISTR_LINEX>-DISTRIBUTIONNUMBER = 1.
<MMPUR_S_CCTR_DISTR_LINEX>-PURCHASINGORGANIZATION = 1.
<MMPUR_S_CCTR_DISTR_LINEX>-COMPANYCODE = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_MMPUR_S_CCTR_DISTR_LINEX-PLANT, sy-vline,
  WA_MMPUR_S_CCTR_DISTR_LINEX-LOGICALSYSTEM, sy-vline,
  WA_MMPUR_S_CCTR_DISTR_LINEX-DOCUMENTCURRENCY, sy-vline,
  WA_MMPUR_S_CCTR_DISTR_LINEX-PURCHASINGGROUP, sy-vline,
  WA_MMPUR_S_CCTR_DISTR_LINEX-STORAGELOCATION, sy-vline,
  WA_MMPUR_S_CCTR_DISTR_LINEX-EXTERNALREFERENCEDOCUMENT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_MMPUR_S_CCTR_DISTR_LINEX 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_CCTR_DISTR_LINEX 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_CCTR_DISTR_LINEX INTO WA_MMPUR_S_CCTR_DISTR_LINEX.


*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.
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_CCTR_DISTR_LINEX_STR, 
PURCHASINGDOCUMENT TYPE STRING,
PURCHASINGDOCUMENTITEM TYPE STRING,
DISTRIBUTIONNUMBER TYPE STRING,
PURCHASINGORGANIZATION TYPE STRING,
COMPANYCODE TYPE STRING,
PLANT TYPE STRING,
LOGICALSYSTEM TYPE STRING,
DOCUMENTCURRENCY TYPE STRING,
PURCHASINGGROUP TYPE STRING,
STORAGELOCATION TYPE STRING,
EXTERNALREFERENCEDOCUMENT TYPE STRING,
EXTERNALREFERENCEDOCUMENTITEM TYPE STRING,
EXTERNALREFDOCCATEGORY TYPE STRING,
PAYMENTTERMS TYPE STRING,
CASHDISCOUNT1DAYS TYPE STRING,
CASHDISCOUNT2DAYS TYPE STRING,
NETPAYMENTDAYS TYPE STRING,
CASHDISCOUNT1PERCENT TYPE STRING,
CASHDISCOUNT2PERCENT TYPE STRING,
MATERIAL TYPE STRING,
MATERIALGROUP TYPE STRING,
PURCHASINGDOCUMENTDISTRPCT TYPE STRING,
TARGETQUANTITY TYPE STRING,
TARGETVALUE TYPE STRING,
EXTCONTRACTFORPURG TYPE STRING,
EXTCONTRACTITEMFORPURG TYPE STRING,
EXTCONTRACTITEMDISTRFORPURG TYPE STRING,
EXTCONTRACTITEMDISTRSTATUS TYPE STRING,
ISDELETED TYPE STRING,
ORDERQUANTITYUNIT TYPE STRING,
DISTRIBUTIONTYPE TYPE STRING,
REFERENCEDHDRDISTRNUMBER TYPE STRING,
ITEMDISTRIBUTIONISRELEVANT TYPE STRING,
ISITEMDISTRIBUTIONBLOCKED TYPE STRING,
MANUALDELIVERYADDRESSID TYPE STRING,
DELIVERYADDRESSTYPE TYPE STRING,
DISTRIBUTIONLEVEL TYPE STRING,
PURCHASINGDOCUMENTCATEGORY TYPE STRING,
PURCHASINGDOCUMENTTYPE TYPE STRING,
PROCUREMENTHUBSOURCESYSTEM TYPE STRING,
DUMMY_EKPODISTR_INCL_EEW_PS TYPE STRING,
PURCHASINGINFORECORDUPDATECODE TYPE STRING,
PROCMTHUBPREDECESSORDOCUMENT TYPE STRING,
PROCMTHUBPREDECESSORDOCITEM TYPE STRING,
PROCMTHUBPREDECESSORDOCCAT TYPE STRING,
PROCMTHUBPURCHASEREQUISITION TYPE STRING,
PROCMTHUBPURREQUISITIONITEM TYPE STRING,
SOURCELISTISUPDATED TYPE STRING,
SOURCELISTRESTRICTION TYPE STRING,
PROCMTHUBCOMPANYCODEGROUPINGID TYPE STRING,
OUTLINEAGRMTITMISBLOCKED TYPE STRING,
PURGDOCITMBLKRSNCODE TYPE STRING,
INCOTERMSCLASSIFICATION TYPE STRING,
INCOTERMSLOCATION1 TYPE STRING,
SHIPPINGINSTRUCTION TYPE STRING,
SUBCONTRACTOR TYPE STRING,
IS_SUBCONTRACTING_SUPPLIER TYPE STRING,
REFERENCE_ADDRESS_ID TYPE STRING,
TITLE TYPE STRING,
TITLE_TEXT TYPE STRING,
NAME1 TYPE STRING,
NAME2 TYPE STRING,
NAME3 TYPE STRING,
NAME4 TYPE STRING,
STREET TYPE STRING,
HOUSE_NUMBER TYPE STRING,
POSTAL_CODE TYPE STRING,
CITY TYPE STRING,
COUNTRY TYPE STRING,
REGION TYPE STRING,
PROCMTHUBSUBCONTRACTOR TYPE STRING,
PROCMTHUBSUPLRISSUBCONTRACTOR TYPE STRING,
REFERENCEDELIVERYADDRESSID TYPE STRING,
FORMOFADDRESS TYPE STRING,
FORMOFADDRESSNAME TYPE STRING,
PROCMTHUBBUSINESSPARTNERNAME1 TYPE STRING,
PROCMTHUBBUSINESSPARTNERNAME2 TYPE STRING,
PROCMTHUBBUSINESSPARTNERNAME3 TYPE STRING,
PROCMTHUBBUSINESSPARTNERNAME4 TYPE STRING,
PROCMTHUBSTREETNAME TYPE STRING,
PROCMTHUBHOUSENUMBER TYPE STRING,
PROCMTHUBPOSTALCODE TYPE STRING,
PROCMTHUBCITYNAME TYPE STRING,
PROCMTHUBCOUNTRY TYPE STRING,
PROCMTHUBREGION TYPE STRING,END OF T_EKKO_STR.
DATA: WA_MMPUR_S_CCTR_DISTR_LINEX_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_CCTR_DISTR_LINEX_STR-PURCHASINGDOCUMENT sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PURCHASINGDOCUMENTITEM sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-DISTRIBUTIONNUMBER sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PURCHASINGORGANIZATION sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-COMPANYCODE sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PLANT sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-LOGICALSYSTEM sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-DOCUMENTCURRENCY sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PURCHASINGGROUP sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-STORAGELOCATION sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-EXTERNALREFERENCEDOCUMENT sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-EXTERNALREFERENCEDOCUMENTITEM sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-EXTERNALREFDOCCATEGORY sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PAYMENTTERMS sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-CASHDISCOUNT1DAYS sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-CASHDISCOUNT2DAYS sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-NETPAYMENTDAYS sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-CASHDISCOUNT1PERCENT sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-CASHDISCOUNT2PERCENT sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-MATERIAL sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-MATERIALGROUP sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PURCHASINGDOCUMENTDISTRPCT sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-TARGETQUANTITY sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-TARGETVALUE sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-EXTCONTRACTFORPURG sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-EXTCONTRACTITEMFORPURG sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-EXTCONTRACTITEMDISTRFORPURG sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-EXTCONTRACTITEMDISTRSTATUS sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-ISDELETED sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-ORDERQUANTITYUNIT sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-DISTRIBUTIONTYPE sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-REFERENCEDHDRDISTRNUMBER sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-ITEMDISTRIBUTIONISRELEVANT sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-ISITEMDISTRIBUTIONBLOCKED sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-MANUALDELIVERYADDRESSID sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-DELIVERYADDRESSTYPE sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-DISTRIBUTIONLEVEL sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PURCHASINGDOCUMENTCATEGORY sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PURCHASINGDOCUMENTTYPE sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PROCUREMENTHUBSOURCESYSTEM sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-DUMMY_EKPODISTR_INCL_EEW_PS sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PURCHASINGINFORECORDUPDATECODE sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PROCMTHUBPREDECESSORDOCUMENT sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PROCMTHUBPREDECESSORDOCITEM sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PROCMTHUBPREDECESSORDOCCAT sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PROCMTHUBPURCHASEREQUISITION sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PROCMTHUBPURREQUISITIONITEM sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-SOURCELISTISUPDATED sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-SOURCELISTRESTRICTION sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PROCMTHUBCOMPANYCODEGROUPINGID sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-OUTLINEAGRMTITMISBLOCKED sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PURGDOCITMBLKRSNCODE sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-INCOTERMSCLASSIFICATION sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-INCOTERMSLOCATION1 sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-SHIPPINGINSTRUCTION sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-SUBCONTRACTOR sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-IS_SUBCONTRACTING_SUPPLIER sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-REFERENCE_ADDRESS_ID sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-TITLE sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-TITLE_TEXT sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-NAME1 sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-NAME2 sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-NAME3 sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-NAME4 sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-STREET sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-HOUSE_NUMBER sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-POSTAL_CODE sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-CITY sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-COUNTRY sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-REGION sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PROCMTHUBSUBCONTRACTOR sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PROCMTHUBSUPLRISSUBCONTRACTOR sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-REFERENCEDELIVERYADDRESSID sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-FORMOFADDRESS sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-FORMOFADDRESSNAME sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PROCMTHUBBUSINESSPARTNERNAME1 sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PROCMTHUBBUSINESSPARTNERNAME2 sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PROCMTHUBBUSINESSPARTNERNAME3 sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PROCMTHUBBUSINESSPARTNERNAME4 sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PROCMTHUBSTREETNAME sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PROCMTHUBHOUSENUMBER sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PROCMTHUBPOSTALCODE sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PROCMTHUBCITYNAME sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PROCMTHUBCOUNTRY sy-vline 
WA_MMPUR_S_CCTR_DISTR_LINEX_STR-PROCMTHUBREGION sy-vline      INTO ld_text SEPARATED BY SPACE.

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