ABAP Select data from SAP table RF05L 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 RF05L 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 RF05L. 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 RF05L 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_RF05L TYPE STANDARD TABLE OF RF05L,
      WA_RF05L TYPE RF05L,
      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: <RF05L> TYPE RF05L.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RF05L
*  INTO TABLE @DATA(IT_RF05L2).
*--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_RF05L INDEX 1 INTO DATA(WA_RF05L2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RF05L>-BUKRS = 1.
<RF05L>-BELNR = 1.
<RF05L>-GJAHR = 1.
<RF05L>-RLDNR = 1.
<RF05L>-BUZEI = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RF05L-BVORG, sy-vline,
  WA_RF05L-BSTAT, sy-vline,
  WA_RF05L-BUMAX, sy-vline,
  WA_RF05L-ANZH1, sy-vline,
  WA_RF05L-ANZDT, sy-vline,
  WA_RF05L-ANZWA, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RF05L 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_RF05L 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_RF05L INTO WA_RF05L.


*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 BELNR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RF05L-BELNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF05L-BELNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit GJAHR, internal->external for field GJAHR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_RF05L-GJAHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF05L-GJAHR.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit AC132, internal->external for field ANZBT
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RF05L-ANZBT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF05L-ANZBT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field ANZMW
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RF05L-ANZMW
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF05L-ANZMW.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field FWSTE
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RF05L-FWSTE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF05L-FWSTE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field FWBAS
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_RF05L-FWBAS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF05L-FWBAS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field FWNAF
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RF05L-FWNAF
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF05L-FWNAF.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field FWZUZ
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RF05L-FWZUZ
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF05L-FWZUZ.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field ANZSO
CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT'
  EXPORTING
    input =                      WA_RF05L-ANZSO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF05L-ANZSO.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

*Conversion exit AC132, internal->external for field SUSTE
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_RF05L-SUSTE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF05L-SUSTE.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit GJAHR, internal->external for field RYEAR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_RF05L-RYEAR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF05L-RYEAR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit NUMCV, internal->external for field VORNR_AUF
CALL FUNCTION 'CONVERSION_EXIT_NUMCV_OUTPUT'
  EXPORTING
    input =                      WA_RF05L-VORNR_AUF
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF05L-VORNR_AUF.
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_RF05L_STR, 
BUKRS TYPE STRING,
BELNR TYPE STRING,
GJAHR TYPE STRING,
RLDNR TYPE STRING,
BUZEI TYPE STRING,
BVORG TYPE STRING,
BSTAT TYPE STRING,
BUMAX TYPE STRING,
ANZH1 TYPE STRING,
ANZDT TYPE STRING,
ANZWA TYPE STRING,
ANZW1 TYPE STRING,
ANZW2 TYPE STRING,
ANZW3 TYPE STRING,
ANZW4 TYPE STRING,
ANZBT TYPE STRING,
ANZMW TYPE STRING,
FWSTE TYPE STRING,
FWBAS TYPE STRING,
FWNAF TYPE STRING,
FWZUZ TYPE STRING,
ANZSO TYPE STRING,
MSATZ TYPE STRING,
ANZST TYPE STRING,
SKREL TYPE STRING,
VARNR TYPE STRING,
VTEXT TYPE STRING,
XKANL TYPE STRING,
XKDEB TYPE STRING,
XKKRE TYPE STRING,
XKSAK TYPE STRING,
KTNRA TYPE STRING,
NAME1 TYPE STRING,
STRAS TYPE STRING,
ORT01 TYPE STRING,
KONTO TYPE STRING,
KOBEZ TYPE STRING,
KOBEL TYPE STRING,
ACTXT TYPE STRING,
KOATX TYPE STRING,
DBATR TYPE STRING,
DBTAG TYPE STRING,
DBEDT TYPE STRING,
BSTXT TYPE STRING,
REBZTT TYPE STRING,
EGMLD TYPE STRING,
ZENDE TYPE STRING,
TAXCODE_TXT TYPE STRING,
VORNR TYPE STRING,
BELNR_F05L TYPE STRING,
AZEI1 TYPE STRING,
XPOS1 TYPE STRING,
WAEB2 TYPE STRING,
WAEB3 TYPE STRING,
AZEI2 TYPE STRING,
XTEXT TYPE STRING,
XIMKO TYPE STRING,
AWTYP TYPE STRING,
AWKEY TYPE STRING,
AWSYS TYPE STRING,
AWSYS2 TYPE STRING,
STOTX TYPE STRING,
REVERSAL_MODE_TXT TYPE STRING,
SUSTE TYPE STRING,
TXTZE TYPE STRING,
XBLNR TYPE STRING,
BRCDE TYPE STRING,
BNKRF TYPE STRING,
HKBEZ TYPE STRING,
TXTZA TYPE STRING,
ARKEY TYPE STRING,
OFFST TYPE STRING,
DOCNR TYPE STRING,
RYEAR TYPE STRING,
RBUKRS TYPE STRING,
LONGNUM TYPE STRING,
VORNR_AUF TYPE STRING,
ACC_PRINCIPLE TYPE STRING,
ACC_PRINCTXT TYPE STRING,
CURT2 TYPE STRING,
CURT3 TYPE STRING,
CURT4 TYPE STRING,
CURT5 TYPE STRING,
CURT6 TYPE STRING,
CURT7 TYPE STRING,
CURT8 TYPE STRING,
CURT9 TYPE STRING,
CURT10 TYPE STRING,
CURR2 TYPE STRING,
CURR3 TYPE STRING,
CURR4 TYPE STRING,
CURR5 TYPE STRING,
CURR6 TYPE STRING,
CURR7 TYPE STRING,
CURR8 TYPE STRING,
CURR9 TYPE STRING,
CURR10 TYPE STRING,
WAEB2_K TYPE STRING,
WAEB3_O TYPE STRING,
WAEB4 TYPE STRING,
WAEB5 TYPE STRING,
WAEB6 TYPE STRING,
WAEB7 TYPE STRING,
WAEB8 TYPE STRING,
WAEB9 TYPE STRING,
WAEB10 TYPE STRING,
USKEYICON TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RF05L_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_RF05L_STR-BUKRS sy-vline 
WA_RF05L_STR-BELNR sy-vline 
WA_RF05L_STR-GJAHR sy-vline 
WA_RF05L_STR-RLDNR sy-vline 
WA_RF05L_STR-BUZEI sy-vline 
WA_RF05L_STR-BVORG sy-vline 
WA_RF05L_STR-BSTAT sy-vline 
WA_RF05L_STR-BUMAX sy-vline 
WA_RF05L_STR-ANZH1 sy-vline 
WA_RF05L_STR-ANZDT sy-vline 
WA_RF05L_STR-ANZWA sy-vline 
WA_RF05L_STR-ANZW1 sy-vline 
WA_RF05L_STR-ANZW2 sy-vline 
WA_RF05L_STR-ANZW3 sy-vline 
WA_RF05L_STR-ANZW4 sy-vline 
WA_RF05L_STR-ANZBT sy-vline 
WA_RF05L_STR-ANZMW sy-vline 
WA_RF05L_STR-FWSTE sy-vline 
WA_RF05L_STR-FWBAS sy-vline 
WA_RF05L_STR-FWNAF sy-vline 
WA_RF05L_STR-FWZUZ sy-vline 
WA_RF05L_STR-ANZSO sy-vline 
WA_RF05L_STR-MSATZ sy-vline 
WA_RF05L_STR-ANZST sy-vline 
WA_RF05L_STR-SKREL sy-vline 
WA_RF05L_STR-VARNR sy-vline 
WA_RF05L_STR-VTEXT sy-vline 
WA_RF05L_STR-XKANL sy-vline 
WA_RF05L_STR-XKDEB sy-vline 
WA_RF05L_STR-XKKRE sy-vline 
WA_RF05L_STR-XKSAK sy-vline 
WA_RF05L_STR-KTNRA sy-vline 
WA_RF05L_STR-NAME1 sy-vline 
WA_RF05L_STR-STRAS sy-vline 
WA_RF05L_STR-ORT01 sy-vline 
WA_RF05L_STR-KONTO sy-vline 
WA_RF05L_STR-KOBEZ sy-vline 
WA_RF05L_STR-KOBEL sy-vline 
WA_RF05L_STR-ACTXT sy-vline 
WA_RF05L_STR-KOATX sy-vline 
WA_RF05L_STR-DBATR sy-vline 
WA_RF05L_STR-DBTAG sy-vline 
WA_RF05L_STR-DBEDT sy-vline 
WA_RF05L_STR-BSTXT sy-vline 
WA_RF05L_STR-REBZTT sy-vline 
WA_RF05L_STR-EGMLD sy-vline 
WA_RF05L_STR-ZENDE sy-vline 
WA_RF05L_STR-TAXCODE_TXT sy-vline 
WA_RF05L_STR-VORNR sy-vline 
WA_RF05L_STR-BELNR_F05L sy-vline 
WA_RF05L_STR-AZEI1 sy-vline 
WA_RF05L_STR-XPOS1 sy-vline 
WA_RF05L_STR-WAEB2 sy-vline 
WA_RF05L_STR-WAEB3 sy-vline 
WA_RF05L_STR-AZEI2 sy-vline 
WA_RF05L_STR-XTEXT sy-vline 
WA_RF05L_STR-XIMKO sy-vline 
WA_RF05L_STR-AWTYP sy-vline 
WA_RF05L_STR-AWKEY sy-vline 
WA_RF05L_STR-AWSYS sy-vline 
WA_RF05L_STR-AWSYS2 sy-vline 
WA_RF05L_STR-STOTX sy-vline 
WA_RF05L_STR-REVERSAL_MODE_TXT sy-vline 
WA_RF05L_STR-SUSTE sy-vline 
WA_RF05L_STR-TXTZE sy-vline 
WA_RF05L_STR-XBLNR sy-vline 
WA_RF05L_STR-BRCDE sy-vline 
WA_RF05L_STR-BNKRF sy-vline 
WA_RF05L_STR-HKBEZ sy-vline 
WA_RF05L_STR-TXTZA sy-vline 
WA_RF05L_STR-ARKEY sy-vline 
WA_RF05L_STR-OFFST sy-vline 
WA_RF05L_STR-DOCNR sy-vline 
WA_RF05L_STR-RYEAR sy-vline 
WA_RF05L_STR-RBUKRS sy-vline 
WA_RF05L_STR-LONGNUM sy-vline 
WA_RF05L_STR-VORNR_AUF sy-vline 
WA_RF05L_STR-ACC_PRINCIPLE sy-vline 
WA_RF05L_STR-ACC_PRINCTXT sy-vline 
WA_RF05L_STR-CURT2 sy-vline 
WA_RF05L_STR-CURT3 sy-vline 
WA_RF05L_STR-CURT4 sy-vline 
WA_RF05L_STR-CURT5 sy-vline 
WA_RF05L_STR-CURT6 sy-vline 
WA_RF05L_STR-CURT7 sy-vline 
WA_RF05L_STR-CURT8 sy-vline 
WA_RF05L_STR-CURT9 sy-vline 
WA_RF05L_STR-CURT10 sy-vline 
WA_RF05L_STR-CURR2 sy-vline 
WA_RF05L_STR-CURR3 sy-vline 
WA_RF05L_STR-CURR4 sy-vline 
WA_RF05L_STR-CURR5 sy-vline 
WA_RF05L_STR-CURR6 sy-vline 
WA_RF05L_STR-CURR7 sy-vline 
WA_RF05L_STR-CURR8 sy-vline 
WA_RF05L_STR-CURR9 sy-vline 
WA_RF05L_STR-CURR10 sy-vline 
WA_RF05L_STR-WAEB2_K sy-vline 
WA_RF05L_STR-WAEB3_O sy-vline 
WA_RF05L_STR-WAEB4 sy-vline 
WA_RF05L_STR-WAEB5 sy-vline 
WA_RF05L_STR-WAEB6 sy-vline 
WA_RF05L_STR-WAEB7 sy-vline 
WA_RF05L_STR-WAEB8 sy-vline 
WA_RF05L_STR-WAEB9 sy-vline 
WA_RF05L_STR-WAEB10 sy-vline 
WA_RF05L_STR-USKEYICON sy-vline      INTO ld_text SEPARATED BY SPACE.

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