ABAP Select data from SAP table BBP_TMP_VEN 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 BBP_TMP_VEN 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 BBP_TMP_VEN. 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 BBP_TMP_VEN 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_BBP_TMP_VEN TYPE STANDARD TABLE OF BBP_TMP_VEN, WA_BBP_TMP_VEN TYPE BBP_TMP_VEN, 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: <BBP_TMP_VEN> TYPE BBP_TMP_VEN. *Process all fields in table header/work area as string values PERFORM process_as_string_field_values CHANGING wa_BBP_TMP_VEN. SELECT * *restrict ABAP select to first 10 rows UP TO 10 ROWS FROM BBP_TMP_VEN INTO TABLE IT_BBP_TMP_VEN. *Select data and declare internal table using in-line method @DATA *SELECT * * FROM BBP_TMP_VEN * INTO TABLE @DATA(IT_BBP_TMP_VEN2). *--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_BBP_TMP_VEN INDEX 1 INTO DATA(WA_BBP_TMP_VEN2). *Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL LOOP AT IT_BBP_TMP_VEN ASSIGNING <BBP_TMP_VEN>.*To update a field value using a field symbol simply change the value via the field symbol pointer
<BBP_TMP_VEN>-CLIENT = 1.
<BBP_TMP_VEN>-GUID = 1.
<BBP_TMP_VEN>-PD_ORG = 1.
<BBP_TMP_VEN>-WAERS = 1.
<BBP_TMP_VEN>-MINBW = 1.
ENDLOOP. LOOP AT IT_BBP_TMP_VEN INTO WA_BBP_TMP_VEN. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_BBP_TMP_VEN-ZTERM, sy-vline,
WA_BBP_TMP_VEN-WEBRE, sy-vline,
WA_BBP_TMP_VEN-EXPVZ, sy-vline,
WA_BBP_TMP_VEN-ZOLLA, sy-vline,
WA_BBP_TMP_VEN-XERSY, sy-vline,
WA_BBP_TMP_VEN-PLIFZ, sy-vline.
ENDLOOP. *Add any further fields from structure WA_BBP_TMP_VEN 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_BBP_TMP_VEN 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_BBP_TMP_VEN INTO WA_BBP_TMP_VEN. *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 VENDOR_NO CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_BBP_TMP_VEN-VENDOR_NO IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_BBP_TMP_VEN-VENDOR_NO.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field LOG_SYS CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_BBP_TMP_VEN-LOG_SYS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_BBP_TMP_VEN-LOG_SYS.
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_BBP_TMP_VEN_STR,
CLIENT TYPE STRING,
GUID TYPE STRING,
PD_ORG TYPE STRING,
WAERS TYPE STRING,
MINBW TYPE STRING,
ZTERM TYPE STRING,
WEBRE TYPE STRING,
EXPVZ TYPE STRING,
ZOLLA TYPE STRING,
XERSY TYPE STRING,
PLIFZ TYPE STRING,
MEDIUM TYPE STRING,
MP_ACTIVE TYPE STRING,
SOURCE_PO TYPE STRING,
VENDOR_NO TYPE STRING,
SOURCE_SYSTEM TYPE STRING,
SOURCE_CLIENT TYPE STRING,
LOG_SYS TYPE STRING,
BBPPCINS TYPE STRING,END OF T_EKKO_STR. DATA: WA_BBP_TMP_VEN_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_BBP_TMP_VEN_STR-CLIENT sy-vline
WA_BBP_TMP_VEN_STR-GUID sy-vline
WA_BBP_TMP_VEN_STR-PD_ORG sy-vline
WA_BBP_TMP_VEN_STR-WAERS sy-vline
WA_BBP_TMP_VEN_STR-MINBW sy-vline
WA_BBP_TMP_VEN_STR-ZTERM sy-vline
WA_BBP_TMP_VEN_STR-WEBRE sy-vline
WA_BBP_TMP_VEN_STR-EXPVZ sy-vline
WA_BBP_TMP_VEN_STR-ZOLLA sy-vline
WA_BBP_TMP_VEN_STR-XERSY sy-vline
WA_BBP_TMP_VEN_STR-PLIFZ sy-vline
WA_BBP_TMP_VEN_STR-MEDIUM sy-vline
WA_BBP_TMP_VEN_STR-MP_ACTIVE sy-vline
WA_BBP_TMP_VEN_STR-SOURCE_PO sy-vline
WA_BBP_TMP_VEN_STR-VENDOR_NO sy-vline
WA_BBP_TMP_VEN_STR-SOURCE_SYSTEM sy-vline
WA_BBP_TMP_VEN_STR-SOURCE_CLIENT sy-vline
WA_BBP_TMP_VEN_STR-LOG_SYS sy-vline
WA_BBP_TMP_VEN_STR-BBPPCINS sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.