ABAP Select data from SAP table EXBESTAND 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 EXBESTAND 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 EXBESTAND. 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 EXBESTAND 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_EXBESTAND TYPE STANDARD TABLE OF EXBESTAND,
      WA_EXBESTAND TYPE EXBESTAND,
      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: <EXBESTAND> TYPE EXBESTAND.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM EXBESTAND
*  INTO TABLE @DATA(IT_EXBESTAND2).
*--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_EXBESTAND INDEX 1 INTO DATA(WA_EXBESTAND2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_EXBESTAND ASSIGNING <EXBESTAND>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<EXBESTAND>-MANDT = 1.
<EXBESTAND>-RANTYP = 1.
<EXBESTAND>-BUKRS = 1.
<EXBESTAND>-RANL = 1.
<EXBESTAND>-VVRANLWX = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_EXBESTAND-RLDEPO, sy-vline,
WA_EXBESTAND-NORDER, sy-vline,
WA_EXBESTAND-STICHTAG, sy-vline,
WA_EXBESTAND-RSTICH, sy-vline,
WA_EXBESTAND-BUCHST_BSE, sy-vline,
WA_EXBESTAND-RPORTB, sy-vline.
ENDLOOP. *Add any further fields from structure WA_EXBESTAND 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_EXBESTAND 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_EXBESTAND INTO WA_EXBESTAND. *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 RANL CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_EXBESTAND-RANL IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_EXBESTAND-RANL.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit EXCRT, internal->external for field DEVKURTAG CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT' EXPORTING input = WA_EXBESTAND-DEVKURTAG IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_EXBESTAND-DEVKURTAG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit EXCRT, internal->external for field DEVKURKAUF CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT' EXPORTING input = WA_EXBESTAND-DEVKURKAUF IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_EXBESTAND-DEVKURKAUF.
WRITE:/ 'New Value:', ld_input.

*Conversion exit EXCRT, internal->external for field DEVKURBUCH CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT' EXPORTING input = WA_EXBESTAND-DEVKURBUCH IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_EXBESTAND-DEVKURBUCH.
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_EXBESTAND_STR,
MANDT TYPE STRING,
RANTYP TYPE STRING,
BUKRS TYPE STRING,
RANL TYPE STRING,
VVRANLWX TYPE STRING,
RLDEPO TYPE STRING,
NORDER TYPE STRING,
STICHTAG TYPE STRING,
RSTICH TYPE STRING,
BUCHST_BSE TYPE STRING,
RPORTB TYPE STRING,
SANLF TYPE STRING,
GSART TYPE STRING,
INSTITUTE_CL TYPE STRING,
RATING_CL TYPE STRING,
RDPBANK TYPE STRING,
RREFKONT TYPE STRING,
HKONT TYPE STRING,
GSBER TYPE STRING,
REPKE TYPE STRING,
SNOTTYPE TYPE STRING,
SNOTI TYPE STRING,
AAAAKTIE TYPE STRING,
SBILK TYPE STRING,
SGLZB TYPE STRING,
SWPKLASS TYPE STRING,
SROLEXT TYPE STRING,
SWERTTYP TYPE STRING,
SFOTY TYPE STRING,
SARTBET TYPE STRING,
DBLFZ TYPE STRING,
DELFZ TYPE STRING,
SWHRKOND TYPE STRING,
KBNEWE TYPE STRING,
KZAHLAKT TYPE STRING,
PKOND TYPE STRING,
BKOND TYPE STRING,
PEFFZINS TYPE STRING,
SEFFMETH TYPE STRING,
REWHR TYPE STRING,
SBWHR TYPE STRING,
SHWHR TYPE STRING,
SNWHR TYPE STRING,
ASTUECK TYPE STRING,
ASTUECK_SP TYPE STRING,
BNOMINAL TYPE STRING,
BNOMINA_SP TYPE STRING,
BKAUFWR TYPE STRING,
BKAUFHW TYPE STRING,
BBUCHWR TYPE STRING,
BBUCHHW TYPE STRING,
BKOSTWR TYPE STRING,
BKOSTHW TYPE STRING,
BKSTBWR TYPE STRING,
BKSTBHW TYPE STRING,
BAMORTWR TYPE STRING,
BAMORTHW TYPE STRING,
BAGIOWR TYPE STRING,
BAGIOHW TYPE STRING,
BNOMS TYPE STRING,
KURSABSPRZ TYPE STRING,
KURSPROZ TYPE STRING,
KURSABS TYPE STRING,
KURSSTNW TYPE STRING,
KURSSTFW TYPE STRING,
BKURSWEFW TYPE STRING,
BKURSWEHW TYPE STRING,
FLG_SIMBEW TYPE STRING,
BWPBWWR TYPE STRING,
BWPBWHW TYPE STRING,
BFWBWHW TYPE STRING,
BKOBWWR TYPE STRING,
BKOBWHW TYPE STRING,
BKOFBHW TYPE STRING,
DEVKURTAG TYPE STRING,
DEVKURKAUF TYPE STRING,
DEVKURBUCH TYPE STRING,
STUECKZINS TYPE STRING,
WERTAUFKUM TYPE STRING,
WERTAUFDEL TYPE STRING,
VAL_TI_PC TYPE STRING,
VAL_TI_LC TYPE STRING,
VAL_FX_LC TYPE STRING,
VAL_CH_TI_PC TYPE STRING,
VAL_CH_TI_LC TYPE STRING,
VAL_CH_FX_LC TYPE STRING,
LOT_ID TYPE STRING,
DLOTGENERATION TYPE STRING,
TLOTGENERATION TYPE STRING,
LOTGENERATION_USER TYPE STRING,
LOTGENERATION_BUSTRANSCAT TYPE STRING,END OF T_EKKO_STR. DATA: WA_EXBESTAND_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_EXBESTAND_STR-MANDT sy-vline
WA_EXBESTAND_STR-RANTYP sy-vline
WA_EXBESTAND_STR-BUKRS sy-vline
WA_EXBESTAND_STR-RANL sy-vline
WA_EXBESTAND_STR-VVRANLWX sy-vline
WA_EXBESTAND_STR-RLDEPO sy-vline
WA_EXBESTAND_STR-NORDER sy-vline
WA_EXBESTAND_STR-STICHTAG sy-vline
WA_EXBESTAND_STR-RSTICH sy-vline
WA_EXBESTAND_STR-BUCHST_BSE sy-vline
WA_EXBESTAND_STR-RPORTB sy-vline
WA_EXBESTAND_STR-SANLF sy-vline
WA_EXBESTAND_STR-GSART sy-vline
WA_EXBESTAND_STR-INSTITUTE_CL sy-vline
WA_EXBESTAND_STR-RATING_CL sy-vline
WA_EXBESTAND_STR-RDPBANK sy-vline
WA_EXBESTAND_STR-RREFKONT sy-vline
WA_EXBESTAND_STR-HKONT sy-vline
WA_EXBESTAND_STR-GSBER sy-vline
WA_EXBESTAND_STR-REPKE sy-vline
WA_EXBESTAND_STR-SNOTTYPE sy-vline
WA_EXBESTAND_STR-SNOTI sy-vline
WA_EXBESTAND_STR-AAAAKTIE sy-vline
WA_EXBESTAND_STR-SBILK sy-vline
WA_EXBESTAND_STR-SGLZB sy-vline
WA_EXBESTAND_STR-SWPKLASS sy-vline
WA_EXBESTAND_STR-SROLEXT sy-vline
WA_EXBESTAND_STR-SWERTTYP sy-vline
WA_EXBESTAND_STR-SFOTY sy-vline
WA_EXBESTAND_STR-SARTBET sy-vline
WA_EXBESTAND_STR-DBLFZ sy-vline
WA_EXBESTAND_STR-DELFZ sy-vline
WA_EXBESTAND_STR-SWHRKOND sy-vline
WA_EXBESTAND_STR-KBNEWE sy-vline
WA_EXBESTAND_STR-KZAHLAKT sy-vline
WA_EXBESTAND_STR-PKOND sy-vline
WA_EXBESTAND_STR-BKOND sy-vline
WA_EXBESTAND_STR-PEFFZINS sy-vline
WA_EXBESTAND_STR-SEFFMETH sy-vline
WA_EXBESTAND_STR-REWHR sy-vline
WA_EXBESTAND_STR-SBWHR sy-vline
WA_EXBESTAND_STR-SHWHR sy-vline
WA_EXBESTAND_STR-SNWHR sy-vline
WA_EXBESTAND_STR-ASTUECK sy-vline
WA_EXBESTAND_STR-ASTUECK_SP sy-vline
WA_EXBESTAND_STR-BNOMINAL sy-vline
WA_EXBESTAND_STR-BNOMINA_SP sy-vline
WA_EXBESTAND_STR-BKAUFWR sy-vline
WA_EXBESTAND_STR-BKAUFHW sy-vline
WA_EXBESTAND_STR-BBUCHWR sy-vline
WA_EXBESTAND_STR-BBUCHHW sy-vline
WA_EXBESTAND_STR-BKOSTWR sy-vline
WA_EXBESTAND_STR-BKOSTHW sy-vline
WA_EXBESTAND_STR-BKSTBWR sy-vline
WA_EXBESTAND_STR-BKSTBHW sy-vline
WA_EXBESTAND_STR-BAMORTWR sy-vline
WA_EXBESTAND_STR-BAMORTHW sy-vline
WA_EXBESTAND_STR-BAGIOWR sy-vline
WA_EXBESTAND_STR-BAGIOHW sy-vline
WA_EXBESTAND_STR-BNOMS sy-vline
WA_EXBESTAND_STR-KURSABSPRZ sy-vline
WA_EXBESTAND_STR-KURSPROZ sy-vline
WA_EXBESTAND_STR-KURSABS sy-vline
WA_EXBESTAND_STR-KURSSTNW sy-vline
WA_EXBESTAND_STR-KURSSTFW sy-vline
WA_EXBESTAND_STR-BKURSWEFW sy-vline
WA_EXBESTAND_STR-BKURSWEHW sy-vline
WA_EXBESTAND_STR-FLG_SIMBEW sy-vline
WA_EXBESTAND_STR-BWPBWWR sy-vline
WA_EXBESTAND_STR-BWPBWHW sy-vline
WA_EXBESTAND_STR-BFWBWHW sy-vline
WA_EXBESTAND_STR-BKOBWWR sy-vline
WA_EXBESTAND_STR-BKOBWHW sy-vline
WA_EXBESTAND_STR-BKOFBHW sy-vline
WA_EXBESTAND_STR-DEVKURTAG sy-vline
WA_EXBESTAND_STR-DEVKURKAUF sy-vline
WA_EXBESTAND_STR-DEVKURBUCH sy-vline
WA_EXBESTAND_STR-STUECKZINS sy-vline
WA_EXBESTAND_STR-WERTAUFKUM sy-vline
WA_EXBESTAND_STR-WERTAUFDEL sy-vline
WA_EXBESTAND_STR-VAL_TI_PC sy-vline
WA_EXBESTAND_STR-VAL_TI_LC sy-vline
WA_EXBESTAND_STR-VAL_FX_LC sy-vline
WA_EXBESTAND_STR-VAL_CH_TI_PC sy-vline
WA_EXBESTAND_STR-VAL_CH_TI_LC sy-vline
WA_EXBESTAND_STR-VAL_CH_FX_LC sy-vline
WA_EXBESTAND_STR-LOT_ID sy-vline
WA_EXBESTAND_STR-DLOTGENERATION sy-vline
WA_EXBESTAND_STR-TLOTGENERATION sy-vline
WA_EXBESTAND_STR-LOTGENERATION_USER sy-vline
WA_EXBESTAND_STR-LOTGENERATION_BUSTRANSCAT sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.