ABAP Select data from SAP table E1BPTPSRC2 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 E1BPTPSRC2 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 E1BPTPSRC2. 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 E1BPTPSRC2 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_E1BPTPSRC2 TYPE STANDARD TABLE OF E1BPTPSRC2,
      WA_E1BPTPSRC2 TYPE E1BPTPSRC2,
      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: <E1BPTPSRC2> TYPE E1BPTPSRC2.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM E1BPTPSRC2
*  INTO TABLE @DATA(IT_E1BPTPSRC22).
*--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_E1BPTPSRC2 INDEX 1 INTO DATA(WA_E1BPTPSRC22).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<E1BPTPSRC2>-PROCRELATIONID = 1.
<E1BPTPSRC2>-COUNTER = 1.
<E1BPTPSRC2>-PROC_LOGSYSTEM = 1.
<E1BPTPSRC2>-PUR_DOC_CAT = 1.
<E1BPTPSRC2>-PUR_DOC_NO = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_E1BPTPSRC2-PUR_DOC_ITEM, sy-vline,
  WA_E1BPTPSRC2-PURCH_ORG, sy-vline,
  WA_E1BPTPSRC2-CONSIGNATION, sy-vline,
  WA_E1BPTPSRC2-SUBCONTRACTING, sy-vline,
  WA_E1BPTPSRC2-LOCATION_TO, sy-vline,
  WA_E1BPTPSRC2-LOCATION_TO_TYPE, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_E1BPTPSRC2 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_E1BPTPSRC2 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_E1BPTPSRC2 INTO WA_E1BPTPSRC2.


*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_E1BPTPSRC2_STR, 
PROCRELATIONID TYPE STRING,
COUNTER TYPE STRING,
PROC_LOGSYSTEM TYPE STRING,
PUR_DOC_CAT TYPE STRING,
PUR_DOC_NO TYPE STRING,
PUR_DOC_ITEM TYPE STRING,
PURCH_ORG TYPE STRING,
CONSIGNATION TYPE STRING,
SUBCONTRACTING TYPE STRING,
LOCATION_TO TYPE STRING,
LOCATION_TO_TYPE TYPE STRING,
PRODUCT_NUMBER TYPE STRING,
VENDOR TYPE STRING,
PLANT_FROM TYPE STRING,
PURCH_GROUP TYPE STRING,
VAL_FROM TYPE STRING,
VAL_TO TYPE STRING,
ACCOUNTING_LOGSYSTEM TYPE STRING,
ACCOUNTING_INDICATOR TYPE STRING,
ACCOUNTING_KEY TYPE STRING,
PROC_REL_ACTIVE TYPE STRING,
PLAN_DEL TYPE STRING,
USE_PLAN_DEL TYPE STRING,
PO_UNIT TYPE STRING,
PO_UNIT_ISO TYPE STRING,
BASE_UNIT TYPE STRING,
BASE_UNIT_ISO TYPE STRING,
NUMERATOR TYPE STRING,
DENOMINATOR TYPE STRING,
APO_COM TYPE STRING,
CREATION_PROF TYPE STRING,
LCREL TYPE STRING,
FORECAST TYPE STRING,
WEBRL TYPE STRING,
VENDOR_MATERIAL TYPE STRING,
UNLOADING_POINT TYPE STRING,
CONF_PROF TYPE STRING,
PROCESS_SCHED_AGR TYPE STRING,
RECONCILIATION_DATE TYPE STRING,
AGREED_CUMULATIVE_QUAN TYPE STRING,
FIRM_ZONE TYPE STRING,
TRADE_OFF_ZONE TYPE STRING,
DELIVERY_LOCATION_TO TYPE STRING,
PROC_PRIORITY TYPE STRING,
GOODS_RECEIPT_TIME TYPE STRING,
USE_GRPRT TYPE STRING,
STORAGELOC_TO TYPE STRING,
STORAGELOC_FROM TYPE STRING,
MEASGRSUP TYPE STRING,
UEBTO TYPE STRING,
UNTTO TYPE STRING,
SETUP_COST TYPE STRING,
NO_SCALE_CHANGE TYPE STRING,
PROCESSING_METHOD TYPE STRING,
MIN_LOT_SIZE TYPE STRING,
MAX_LOT_SIZE TYPE STRING,
ZBD1T TYPE STRING,
ZBD2T TYPE STRING,
ZBD3T TYPE STRING,
ZBD1P TYPE STRING,
ZBD2P TYPE STRING,
INCO1 TYPE STRING,
INCO2 TYPE STRING,
WAERS TYPE STRING,
WEBRE TYPE STRING,
XERSY TYPE STRING,
SKTOF TYPE STRING,
REPOS TYPE STRING,
NETPR TYPE STRING,
PEINH TYPE STRING,
BPRME TYPE STRING,
BPUMZ TYPE STRING,
BPUMN TYPE STRING,
LIFRE TYPE STRING,
TXJCD TYPE STRING,
EREKZ TYPE STRING,
MWSKZ TYPE STRING,
ZTERM TYPE STRING,END OF T_EKKO_STR.
DATA: WA_E1BPTPSRC2_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_E1BPTPSRC2_STR-PROCRELATIONID sy-vline 
WA_E1BPTPSRC2_STR-COUNTER sy-vline 
WA_E1BPTPSRC2_STR-PROC_LOGSYSTEM sy-vline 
WA_E1BPTPSRC2_STR-PUR_DOC_CAT sy-vline 
WA_E1BPTPSRC2_STR-PUR_DOC_NO sy-vline 
WA_E1BPTPSRC2_STR-PUR_DOC_ITEM sy-vline 
WA_E1BPTPSRC2_STR-PURCH_ORG sy-vline 
WA_E1BPTPSRC2_STR-CONSIGNATION sy-vline 
WA_E1BPTPSRC2_STR-SUBCONTRACTING sy-vline 
WA_E1BPTPSRC2_STR-LOCATION_TO sy-vline 
WA_E1BPTPSRC2_STR-LOCATION_TO_TYPE sy-vline 
WA_E1BPTPSRC2_STR-PRODUCT_NUMBER sy-vline 
WA_E1BPTPSRC2_STR-VENDOR sy-vline 
WA_E1BPTPSRC2_STR-PLANT_FROM sy-vline 
WA_E1BPTPSRC2_STR-PURCH_GROUP sy-vline 
WA_E1BPTPSRC2_STR-VAL_FROM sy-vline 
WA_E1BPTPSRC2_STR-VAL_TO sy-vline 
WA_E1BPTPSRC2_STR-ACCOUNTING_LOGSYSTEM sy-vline 
WA_E1BPTPSRC2_STR-ACCOUNTING_INDICATOR sy-vline 
WA_E1BPTPSRC2_STR-ACCOUNTING_KEY sy-vline 
WA_E1BPTPSRC2_STR-PROC_REL_ACTIVE sy-vline 
WA_E1BPTPSRC2_STR-PLAN_DEL sy-vline 
WA_E1BPTPSRC2_STR-USE_PLAN_DEL sy-vline 
WA_E1BPTPSRC2_STR-PO_UNIT sy-vline 
WA_E1BPTPSRC2_STR-PO_UNIT_ISO sy-vline 
WA_E1BPTPSRC2_STR-BASE_UNIT sy-vline 
WA_E1BPTPSRC2_STR-BASE_UNIT_ISO sy-vline 
WA_E1BPTPSRC2_STR-NUMERATOR sy-vline 
WA_E1BPTPSRC2_STR-DENOMINATOR sy-vline 
WA_E1BPTPSRC2_STR-APO_COM sy-vline 
WA_E1BPTPSRC2_STR-CREATION_PROF sy-vline 
WA_E1BPTPSRC2_STR-LCREL sy-vline 
WA_E1BPTPSRC2_STR-FORECAST sy-vline 
WA_E1BPTPSRC2_STR-WEBRL sy-vline 
WA_E1BPTPSRC2_STR-VENDOR_MATERIAL sy-vline 
WA_E1BPTPSRC2_STR-UNLOADING_POINT sy-vline 
WA_E1BPTPSRC2_STR-CONF_PROF sy-vline 
WA_E1BPTPSRC2_STR-PROCESS_SCHED_AGR sy-vline 
WA_E1BPTPSRC2_STR-RECONCILIATION_DATE sy-vline 
WA_E1BPTPSRC2_STR-AGREED_CUMULATIVE_QUAN sy-vline 
WA_E1BPTPSRC2_STR-FIRM_ZONE sy-vline 
WA_E1BPTPSRC2_STR-TRADE_OFF_ZONE sy-vline 
WA_E1BPTPSRC2_STR-DELIVERY_LOCATION_TO sy-vline 
WA_E1BPTPSRC2_STR-PROC_PRIORITY sy-vline 
WA_E1BPTPSRC2_STR-GOODS_RECEIPT_TIME sy-vline 
WA_E1BPTPSRC2_STR-USE_GRPRT sy-vline 
WA_E1BPTPSRC2_STR-STORAGELOC_TO sy-vline 
WA_E1BPTPSRC2_STR-STORAGELOC_FROM sy-vline 
WA_E1BPTPSRC2_STR-MEASGRSUP sy-vline 
WA_E1BPTPSRC2_STR-UEBTO sy-vline 
WA_E1BPTPSRC2_STR-UNTTO sy-vline 
WA_E1BPTPSRC2_STR-SETUP_COST sy-vline 
WA_E1BPTPSRC2_STR-NO_SCALE_CHANGE sy-vline 
WA_E1BPTPSRC2_STR-PROCESSING_METHOD sy-vline 
WA_E1BPTPSRC2_STR-MIN_LOT_SIZE sy-vline 
WA_E1BPTPSRC2_STR-MAX_LOT_SIZE sy-vline 
WA_E1BPTPSRC2_STR-ZBD1T sy-vline 
WA_E1BPTPSRC2_STR-ZBD2T sy-vline 
WA_E1BPTPSRC2_STR-ZBD3T sy-vline 
WA_E1BPTPSRC2_STR-ZBD1P sy-vline 
WA_E1BPTPSRC2_STR-ZBD2P sy-vline 
WA_E1BPTPSRC2_STR-INCO1 sy-vline 
WA_E1BPTPSRC2_STR-INCO2 sy-vline 
WA_E1BPTPSRC2_STR-WAERS sy-vline 
WA_E1BPTPSRC2_STR-WEBRE sy-vline 
WA_E1BPTPSRC2_STR-XERSY sy-vline 
WA_E1BPTPSRC2_STR-SKTOF sy-vline 
WA_E1BPTPSRC2_STR-REPOS sy-vline 
WA_E1BPTPSRC2_STR-NETPR sy-vline 
WA_E1BPTPSRC2_STR-PEINH sy-vline 
WA_E1BPTPSRC2_STR-BPRME sy-vline 
WA_E1BPTPSRC2_STR-BPUMZ sy-vline 
WA_E1BPTPSRC2_STR-BPUMN sy-vline 
WA_E1BPTPSRC2_STR-LIFRE sy-vline 
WA_E1BPTPSRC2_STR-TXJCD sy-vline 
WA_E1BPTPSRC2_STR-EREKZ sy-vline 
WA_E1BPTPSRC2_STR-MWSKZ sy-vline 
WA_E1BPTPSRC2_STR-ZTERM sy-vline      INTO ld_text SEPARATED BY SPACE.

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