ABAP Select data from SAP table BPPEA into internal table
Get Example source ABAP code based on a different SAP table
Below is a number of ABAP code snippets to demonstrate how to select data from SAP BPPEA 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 BPPEA. 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 BPPEA 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_BPPEA TYPE STANDARD TABLE OF BPPEA, WA_BPPEA TYPE BPPEA, 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: <BPPEA> TYPE BPPEA. *Process all fields in table header/work area as string values PERFORM process_as_string_field_values CHANGING wa_BPPEA. SELECT * *restrict ABAP select to first 10 rows UP TO 10 ROWS FROM BPPEA INTO TABLE IT_BPPEA. *Select data and declare internal table using in-line method @DATA *SELECT * * FROM BPPEA * INTO TABLE @DATA(IT_BPPEA2). *--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_BPPEA INDEX 1 INTO DATA(WA_BPPEA2). *Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL LOOP AT IT_BPPEA ASSIGNING <BPPEA>.*To update a field value using a field symbol simply change the value via the field symbol pointer
<BPPEA>-MANDT = 1.
<BPPEA>-LEDNR = 1.
<BPPEA>-OBJNR = 1.
<BPPEA>-POSIT = 1.
<BPPEA>-TRGKZ = 1.
ENDLOOP. LOOP AT IT_BPPEA INTO WA_BPPEA. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_BPPEA-WRTTP, sy-vline,
WA_BPPEA-GJAHR, sy-vline,
WA_BPPEA-GEBER, sy-vline,
WA_BPPEA-VERSN, sy-vline,
WA_BPPEA-VORGA, sy-vline,
WA_BPPEA-TWAER, sy-vline.
ENDLOOP. *Add any further fields from structure WA_BPPEA 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_BPPEA 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_BPPEA INTO WA_BPPEA. *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 NUMCV, internal->external for field LEDNR CALL FUNCTION 'CONVERSION_EXIT_NUMCV_OUTPUT' EXPORTING input = WA_BPPEA-LEDNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_BPPEA-LEDNR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field WRTTP CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_BPPEA-WRTTP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_BPPEA-WRTTP.
WRITE:/ 'New Value:', ld_input.
*Conversion exit GJAHR, internal->external for field GJAHR CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_BPPEA-GJAHR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_BPPEA-GJAHR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field VERSN CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_BPPEA-VERSN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_BPPEA-VERSN.
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_BPPEA_STR,
MANDT TYPE STRING,
LEDNR TYPE STRING,
OBJNR TYPE STRING,
POSIT TYPE STRING,
TRGKZ TYPE STRING,
WRTTP TYPE STRING,
GJAHR TYPE STRING,
GEBER TYPE STRING,
VERSN TYPE STRING,
VORGA TYPE STRING,
TWAER TYPE STRING,
WTP001 TYPE STRING,
WTP002 TYPE STRING,
WTP003 TYPE STRING,
WTP004 TYPE STRING,
WTP005 TYPE STRING,
WTP006 TYPE STRING,
WTP007 TYPE STRING,
WTP008 TYPE STRING,
WTP009 TYPE STRING,
WTP010 TYPE STRING,
WTP011 TYPE STRING,
WTP012 TYPE STRING,
WTP013 TYPE STRING,
WTP014 TYPE STRING,
WTP015 TYPE STRING,
WTP016 TYPE STRING,
WLP001 TYPE STRING,
WLP002 TYPE STRING,
WLP003 TYPE STRING,
WLP004 TYPE STRING,
WLP005 TYPE STRING,
WLP006 TYPE STRING,
WLP007 TYPE STRING,
WLP008 TYPE STRING,
WLP009 TYPE STRING,
WLP010 TYPE STRING,
WLP011 TYPE STRING,
WLP012 TYPE STRING,
WLP013 TYPE STRING,
WLP014 TYPE STRING,
WLP015 TYPE STRING,
WLP016 TYPE STRING,
WTV001 TYPE STRING,
WTV002 TYPE STRING,
WTV003 TYPE STRING,
WTV004 TYPE STRING,
WTV005 TYPE STRING,
WTV006 TYPE STRING,
WTV007 TYPE STRING,
WTV008 TYPE STRING,
WTV009 TYPE STRING,
WTV010 TYPE STRING,
WTV011 TYPE STRING,
WTV012 TYPE STRING,
WTV013 TYPE STRING,
WTV014 TYPE STRING,
WTV015 TYPE STRING,
WTV016 TYPE STRING,
WLV001 TYPE STRING,
WLV002 TYPE STRING,
WLV003 TYPE STRING,
WLV004 TYPE STRING,
WLV005 TYPE STRING,
WLV006 TYPE STRING,
WLV007 TYPE STRING,
WLV008 TYPE STRING,
WLV009 TYPE STRING,
WLV010 TYPE STRING,
WLV011 TYPE STRING,
WLV012 TYPE STRING,
WLV013 TYPE STRING,
WLV014 TYPE STRING,
WLV015 TYPE STRING,
WLV016 TYPE STRING,
BELTP TYPE STRING,END OF T_EKKO_STR. DATA: WA_BPPEA_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_BPPEA_STR-MANDT sy-vline
WA_BPPEA_STR-LEDNR sy-vline
WA_BPPEA_STR-OBJNR sy-vline
WA_BPPEA_STR-POSIT sy-vline
WA_BPPEA_STR-TRGKZ sy-vline
WA_BPPEA_STR-WRTTP sy-vline
WA_BPPEA_STR-GJAHR sy-vline
WA_BPPEA_STR-GEBER sy-vline
WA_BPPEA_STR-VERSN sy-vline
WA_BPPEA_STR-VORGA sy-vline
WA_BPPEA_STR-TWAER sy-vline
WA_BPPEA_STR-WTP001 sy-vline
WA_BPPEA_STR-WTP002 sy-vline
WA_BPPEA_STR-WTP003 sy-vline
WA_BPPEA_STR-WTP004 sy-vline
WA_BPPEA_STR-WTP005 sy-vline
WA_BPPEA_STR-WTP006 sy-vline
WA_BPPEA_STR-WTP007 sy-vline
WA_BPPEA_STR-WTP008 sy-vline
WA_BPPEA_STR-WTP009 sy-vline
WA_BPPEA_STR-WTP010 sy-vline
WA_BPPEA_STR-WTP011 sy-vline
WA_BPPEA_STR-WTP012 sy-vline
WA_BPPEA_STR-WTP013 sy-vline
WA_BPPEA_STR-WTP014 sy-vline
WA_BPPEA_STR-WTP015 sy-vline
WA_BPPEA_STR-WTP016 sy-vline
WA_BPPEA_STR-WLP001 sy-vline
WA_BPPEA_STR-WLP002 sy-vline
WA_BPPEA_STR-WLP003 sy-vline
WA_BPPEA_STR-WLP004 sy-vline
WA_BPPEA_STR-WLP005 sy-vline
WA_BPPEA_STR-WLP006 sy-vline
WA_BPPEA_STR-WLP007 sy-vline
WA_BPPEA_STR-WLP008 sy-vline
WA_BPPEA_STR-WLP009 sy-vline
WA_BPPEA_STR-WLP010 sy-vline
WA_BPPEA_STR-WLP011 sy-vline
WA_BPPEA_STR-WLP012 sy-vline
WA_BPPEA_STR-WLP013 sy-vline
WA_BPPEA_STR-WLP014 sy-vline
WA_BPPEA_STR-WLP015 sy-vline
WA_BPPEA_STR-WLP016 sy-vline
WA_BPPEA_STR-WTV001 sy-vline
WA_BPPEA_STR-WTV002 sy-vline
WA_BPPEA_STR-WTV003 sy-vline
WA_BPPEA_STR-WTV004 sy-vline
WA_BPPEA_STR-WTV005 sy-vline
WA_BPPEA_STR-WTV006 sy-vline
WA_BPPEA_STR-WTV007 sy-vline
WA_BPPEA_STR-WTV008 sy-vline
WA_BPPEA_STR-WTV009 sy-vline
WA_BPPEA_STR-WTV010 sy-vline
WA_BPPEA_STR-WTV011 sy-vline
WA_BPPEA_STR-WTV012 sy-vline
WA_BPPEA_STR-WTV013 sy-vline
WA_BPPEA_STR-WTV014 sy-vline
WA_BPPEA_STR-WTV015 sy-vline
WA_BPPEA_STR-WTV016 sy-vline
WA_BPPEA_STR-WLV001 sy-vline
WA_BPPEA_STR-WLV002 sy-vline
WA_BPPEA_STR-WLV003 sy-vline
WA_BPPEA_STR-WLV004 sy-vline
WA_BPPEA_STR-WLV005 sy-vline
WA_BPPEA_STR-WLV006 sy-vline
WA_BPPEA_STR-WLV007 sy-vline
WA_BPPEA_STR-WLV008 sy-vline
WA_BPPEA_STR-WLV009 sy-vline
WA_BPPEA_STR-WLV010 sy-vline
WA_BPPEA_STR-WLV011 sy-vline
WA_BPPEA_STR-WLV012 sy-vline
WA_BPPEA_STR-WLV013 sy-vline
WA_BPPEA_STR-WLV014 sy-vline
WA_BPPEA_STR-WLV015 sy-vline
WA_BPPEA_STR-WLV016 sy-vline
WA_BPPEA_STR-BELTP sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.