ABAP Select data from SAP table RESBF 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 RESBF 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 RESBF. 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 RESBF 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_RESBF TYPE STANDARD TABLE OF RESBF,
      WA_RESBF TYPE RESBF,
      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: <RESBF> TYPE RESBF.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RESBF
*  INTO TABLE @DATA(IT_RESBF2).
*--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_RESBF INDEX 1 INTO DATA(WA_RESBF2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_RESBF ASSIGNING <RESBF>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<RESBF>-AUFNR = 1.
<RESBF>-DISPO = 1.
<RESBF>-FEVOR = 1.
<RESBF>-RSART = 1.
<RESBF>-BDART = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RESBF-RSSTA, sy-vline,
WA_RESBF-XWAOK, sy-vline,
WA_RESBF-SHKZG, sy-vline,
WA_RESBF-XFEHL, sy-vline,
WA_RESBF-MATNR, sy-vline,
WA_RESBF-MTEXT, sy-vline.
ENDLOOP. *Add any further fields from structure WA_RESBF 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_RESBF 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_RESBF INTO WA_RESBF. *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 AUFNR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_RESBF-AUFNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RESBF-AUFNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MATN1, internal->external for field MATNR CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT' EXPORTING input = WA_RESBF-MATNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RESBF-MATNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field MEINS CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_RESBF-MEINS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RESBF-MEINS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field ERFME CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_RESBF-ERFME IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RESBF-ERFME.
WRITE:/ 'New Value:', ld_input.

*Conversion exit NUMCV, internal->external for field VORNR CALL FUNCTION 'CONVERSION_EXIT_NUMCV_OUTPUT' EXPORTING input = WA_RESBF-VORNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RESBF-VORNR.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit MATN1, internal->external for field BAUGR CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT' EXPORTING input = WA_RESBF-BAUGR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RESBF-BAUGR.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit NUMCV, internal->external for field POSNR CALL FUNCTION 'CONVERSION_EXIT_NUMCV_OUTPUT' EXPORTING input = WA_RESBF-POSNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RESBF-POSNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit NUMCV, internal->external for field REVLV CALL FUNCTION 'CONVERSION_EXIT_NUMCV_OUTPUT' EXPORTING input = WA_RESBF-REVLV IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RESBF-REVLV.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field ROMEI CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_RESBF-ROMEI IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RESBF-ROMEI.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field ROKME CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_RESBF-ROKME IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RESBF-ROKME.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ABPSN, internal->external for field PSPID CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT' EXPORTING input = WA_RESBF-PSPID IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RESBF-PSPID.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ABPSN, internal->external for field POSID CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT' EXPORTING input = WA_RESBF-POSID IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RESBF-POSID.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ALPHA, internal->external for field KOSTL CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_RESBF-KOSTL IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RESBF-KOSTL.
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_RESBF_STR,
AUFNR TYPE STRING,
DISPO TYPE STRING,
FEVOR TYPE STRING,
RSART TYPE STRING,
BDART TYPE STRING,
RSSTA TYPE STRING,
XWAOK TYPE STRING,
SHKZG TYPE STRING,
XFEHL TYPE STRING,
MATNR TYPE STRING,
MTEXT TYPE STRING,
WERKS TYPE STRING,
LGORT TYPE STRING,
CHARG TYPE STRING,
SOBKZ TYPE STRING,
BDMNG TYPE STRING,
MEINS TYPE STRING,
VMENG TYPE STRING,
ENMNG TYPE STRING,
OBMNG TYPE STRING,
FEMNG TYPE STRING,
ERFMG TYPE STRING,
ERFME TYPE STRING,
UMREZ TYPE STRING,
UMREN TYPE STRING,
BDTER TYPE STRING,
SBTER TYPE STRING,
VERTI TYPE STRING,
VORNR TYPE STRING,
PLNFL TYPE STRING,
FLGAT TYPE STRING,
BAUGR TYPE STRING,
SERNR TYPE STRING,
KDAUF TYPE STRING,
KDPOS TYPE STRING,
BWART TYPE STRING,
SAKNR TYPE STRING,
POSTP TYPE STRING,
POSNR TYPE STRING,
REVLV TYPE STRING,
PRREG TYPE STRING,
ROMS1 TYPE STRING,
ROMS2 TYPE STRING,
ROMS3 TYPE STRING,
ROMEI TYPE STRING,
ROMEN TYPE STRING,
SGTXT TYPE STRING,
RFORM TYPE STRING,
ROANZ TYPE STRING,
POTX1 TYPE STRING,
SANKA TYPE STRING,
SCHGT TYPE STRING,
GPREIS TYPE STRING,
PEINH TYPE STRING,
WAERS TYPE STRING,
SORTF TYPE STRING,
RGEKZ TYPE STRING,
ROKME TYPE STRING,
LTEXT TYPE STRING,
WEBAZ TYPE STRING,
RSNUM TYPE STRING,
RSPOS TYPE STRING,
PLNUM TYPE STRING,
PSPID TYPE STRING,
POSID TYPE STRING,
NPLNR TYPE STRING,
KOKRS TYPE STRING,
KOSTL TYPE STRING,
USNAM TYPE STRING,
STATX TYPE STRING,
DBSKZ TYPE STRING,
NOMNG TYPE STRING,
ALPST TYPE STRING,
ALPRF TYPE STRING,
ALPGR TYPE STRING,
ALPOS TYPE STRING,
VORAB TYPE STRING,
OBJNR TYPE STRING,
SGT_RCAT TYPE STRING,
WRF_CHARSTC1 TYPE STRING,
WRF_CHARSTC1_TXT TYPE STRING,
WRF_CHARSTC2 TYPE STRING,
WRF_CHARSTC2_TXT TYPE STRING,
WRF_CHARSTC3 TYPE STRING,
WRF_CHARSTC3_TXT TYPE STRING,END OF T_EKKO_STR. DATA: WA_RESBF_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_RESBF_STR-AUFNR sy-vline
WA_RESBF_STR-DISPO sy-vline
WA_RESBF_STR-FEVOR sy-vline
WA_RESBF_STR-RSART sy-vline
WA_RESBF_STR-BDART sy-vline
WA_RESBF_STR-RSSTA sy-vline
WA_RESBF_STR-XWAOK sy-vline
WA_RESBF_STR-SHKZG sy-vline
WA_RESBF_STR-XFEHL sy-vline
WA_RESBF_STR-MATNR sy-vline
WA_RESBF_STR-MTEXT sy-vline
WA_RESBF_STR-WERKS sy-vline
WA_RESBF_STR-LGORT sy-vline
WA_RESBF_STR-CHARG sy-vline
WA_RESBF_STR-SOBKZ sy-vline
WA_RESBF_STR-BDMNG sy-vline
WA_RESBF_STR-MEINS sy-vline
WA_RESBF_STR-VMENG sy-vline
WA_RESBF_STR-ENMNG sy-vline
WA_RESBF_STR-OBMNG sy-vline
WA_RESBF_STR-FEMNG sy-vline
WA_RESBF_STR-ERFMG sy-vline
WA_RESBF_STR-ERFME sy-vline
WA_RESBF_STR-UMREZ sy-vline
WA_RESBF_STR-UMREN sy-vline
WA_RESBF_STR-BDTER sy-vline
WA_RESBF_STR-SBTER sy-vline
WA_RESBF_STR-VERTI sy-vline
WA_RESBF_STR-VORNR sy-vline
WA_RESBF_STR-PLNFL sy-vline
WA_RESBF_STR-FLGAT sy-vline
WA_RESBF_STR-BAUGR sy-vline
WA_RESBF_STR-SERNR sy-vline
WA_RESBF_STR-KDAUF sy-vline
WA_RESBF_STR-KDPOS sy-vline
WA_RESBF_STR-BWART sy-vline
WA_RESBF_STR-SAKNR sy-vline
WA_RESBF_STR-POSTP sy-vline
WA_RESBF_STR-POSNR sy-vline
WA_RESBF_STR-REVLV sy-vline
WA_RESBF_STR-PRREG sy-vline
WA_RESBF_STR-ROMS1 sy-vline
WA_RESBF_STR-ROMS2 sy-vline
WA_RESBF_STR-ROMS3 sy-vline
WA_RESBF_STR-ROMEI sy-vline
WA_RESBF_STR-ROMEN sy-vline
WA_RESBF_STR-SGTXT sy-vline
WA_RESBF_STR-RFORM sy-vline
WA_RESBF_STR-ROANZ sy-vline
WA_RESBF_STR-POTX1 sy-vline
WA_RESBF_STR-SANKA sy-vline
WA_RESBF_STR-SCHGT sy-vline
WA_RESBF_STR-GPREIS sy-vline
WA_RESBF_STR-PEINH sy-vline
WA_RESBF_STR-WAERS sy-vline
WA_RESBF_STR-SORTF sy-vline
WA_RESBF_STR-RGEKZ sy-vline
WA_RESBF_STR-ROKME sy-vline
WA_RESBF_STR-LTEXT sy-vline
WA_RESBF_STR-WEBAZ sy-vline
WA_RESBF_STR-RSNUM sy-vline
WA_RESBF_STR-RSPOS sy-vline
WA_RESBF_STR-PLNUM sy-vline
WA_RESBF_STR-PSPID sy-vline
WA_RESBF_STR-POSID sy-vline
WA_RESBF_STR-NPLNR sy-vline
WA_RESBF_STR-KOKRS sy-vline
WA_RESBF_STR-KOSTL sy-vline
WA_RESBF_STR-USNAM sy-vline
WA_RESBF_STR-STATX sy-vline
WA_RESBF_STR-DBSKZ sy-vline
WA_RESBF_STR-NOMNG sy-vline
WA_RESBF_STR-ALPST sy-vline
WA_RESBF_STR-ALPRF sy-vline
WA_RESBF_STR-ALPGR sy-vline
WA_RESBF_STR-ALPOS sy-vline
WA_RESBF_STR-VORAB sy-vline
WA_RESBF_STR-OBJNR sy-vline
WA_RESBF_STR-SGT_RCAT sy-vline
WA_RESBF_STR-WRF_CHARSTC1 sy-vline
WA_RESBF_STR-WRF_CHARSTC1_TXT sy-vline
WA_RESBF_STR-WRF_CHARSTC2 sy-vline
WA_RESBF_STR-WRF_CHARSTC2_TXT sy-vline
WA_RESBF_STR-WRF_CHARSTC3 sy-vline
WA_RESBF_STR-WRF_CHARSTC3_TXT sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.