ABAP Select data from SAP table RE20CL 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 RE20CL 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 RE20CL. 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 RE20CL 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_RE20CL TYPE STANDARD TABLE OF RE20CL,
      WA_RE20CL TYPE RE20CL,
      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: <RE20CL> TYPE RE20CL.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RE20CL
*  INTO TABLE @DATA(IT_RE20CL2).
*--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_RE20CL INDEX 1 INTO DATA(WA_RE20CL2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RE20CL>-MANDT = 1.
<RE20CL>-AB = 1.
<RE20CL>-ABLFDNR = 1.
<RE20CL>-BIS = 1.
<RE20CL>-BELNR = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RE20CL-MBELNR, sy-vline,
  WA_RE20CL-ALTBIS, sy-vline,
  WA_RE20CL-INAKTIV, sy-vline,
  WA_RE20CL-MANAEND, sy-vline,
  WA_RE20CL-MAUSZUG, sy-vline,
  WA_RE20CL-MENGE, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RE20CL 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_RE20CL 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_RE20CL INTO WA_RE20CL.


*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_RE20CL-BELNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RE20CL-BELNR.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit ALPHA, internal->external for field RABZUS
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RE20CL-RABZUS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RE20CL-RABZUS.
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_RE20CL_STR, 
MANDT TYPE STRING,
AB TYPE STRING,
ABLFDNR TYPE STRING,
BIS TYPE STRING,
BELNR TYPE STRING,
MBELNR TYPE STRING,
ALTBIS TYPE STRING,
INAKTIV TYPE STRING,
MANAEND TYPE STRING,
MAUSZUG TYPE STRING,
MENGE TYPE STRING,
MENGE2 TYPE STRING,
LMENGE TYPE STRING,
LMENGE2 TYPE STRING,
PREIS TYPE STRING,
PRSBTR TYPE STRING,
BETRAG TYPE STRING,
WAERS TYPE STRING,
MULTIWAER TYPE STRING,
BOOLKZ TYPE STRING,
INTEGER4 TYPE STRING,
RABZUS TYPE STRING,
TIMBASIS TYPE STRING,
TIMTYP TYPE STRING,
TEXT30 TYPE STRING,
RABMENGE TYPE STRING,
RABPREIS TYPE STRING,
RABBETRAG TYPE STRING,
RABPROZ TYPE STRING,
RABART TYPE STRING,
PREISTYP TYPE STRING,
PREISTUF TYPE STRING,
PREISART TYPE STRING,
TARIFART TYPE STRING,
KONDIGR TYPE STRING,
MARK TYPE STRING,
RABLEISTUNG TYPE STRING,
STARTVALUECHNGED TYPE STRING,
FACTOR TYPE STRING,
UDEFVAL1 TYPE STRING,
UDEFVAL2 TYPE STRING,
UDEFVAL3 TYPE STRING,
UDEFVAL4 TYPE STRING,
ACTFACT TYPE STRING,
RESULTNO TYPE STRING,
RTPIFACERESTEXT TYPE STRING,
RTPINTERFACE TYPE STRING,
OPTYP TYPE STRING,
ARCHIVED TYPE STRING,
AUTO_MERGE TYPE STRING,
AUTO_DELETE TYPE STRING,
RESPAR TYPE STRING,
RESPARTEXT TYPE STRING,
INTERFACE TYPE STRING,
RTPCATEGORY TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RE20CL_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_RE20CL_STR-MANDT sy-vline 
WA_RE20CL_STR-AB sy-vline 
WA_RE20CL_STR-ABLFDNR sy-vline 
WA_RE20CL_STR-BIS sy-vline 
WA_RE20CL_STR-BELNR sy-vline 
WA_RE20CL_STR-MBELNR sy-vline 
WA_RE20CL_STR-ALTBIS sy-vline 
WA_RE20CL_STR-INAKTIV sy-vline 
WA_RE20CL_STR-MANAEND sy-vline 
WA_RE20CL_STR-MAUSZUG sy-vline 
WA_RE20CL_STR-MENGE sy-vline 
WA_RE20CL_STR-MENGE2 sy-vline 
WA_RE20CL_STR-LMENGE sy-vline 
WA_RE20CL_STR-LMENGE2 sy-vline 
WA_RE20CL_STR-PREIS sy-vline 
WA_RE20CL_STR-PRSBTR sy-vline 
WA_RE20CL_STR-BETRAG sy-vline 
WA_RE20CL_STR-WAERS sy-vline 
WA_RE20CL_STR-MULTIWAER sy-vline 
WA_RE20CL_STR-BOOLKZ sy-vline 
WA_RE20CL_STR-INTEGER4 sy-vline 
WA_RE20CL_STR-RABZUS sy-vline 
WA_RE20CL_STR-TIMBASIS sy-vline 
WA_RE20CL_STR-TIMTYP sy-vline 
WA_RE20CL_STR-TEXT30 sy-vline 
WA_RE20CL_STR-RABMENGE sy-vline 
WA_RE20CL_STR-RABPREIS sy-vline 
WA_RE20CL_STR-RABBETRAG sy-vline 
WA_RE20CL_STR-RABPROZ sy-vline 
WA_RE20CL_STR-RABART sy-vline 
WA_RE20CL_STR-PREISTYP sy-vline 
WA_RE20CL_STR-PREISTUF sy-vline 
WA_RE20CL_STR-PREISART sy-vline 
WA_RE20CL_STR-TARIFART sy-vline 
WA_RE20CL_STR-KONDIGR sy-vline 
WA_RE20CL_STR-MARK sy-vline 
WA_RE20CL_STR-RABLEISTUNG sy-vline 
WA_RE20CL_STR-STARTVALUECHNGED sy-vline 
WA_RE20CL_STR-FACTOR sy-vline 
WA_RE20CL_STR-UDEFVAL1 sy-vline 
WA_RE20CL_STR-UDEFVAL2 sy-vline 
WA_RE20CL_STR-UDEFVAL3 sy-vline 
WA_RE20CL_STR-UDEFVAL4 sy-vline 
WA_RE20CL_STR-ACTFACT sy-vline 
WA_RE20CL_STR-RESULTNO sy-vline 
WA_RE20CL_STR-RTPIFACERESTEXT sy-vline 
WA_RE20CL_STR-RTPINTERFACE sy-vline 
WA_RE20CL_STR-OPTYP sy-vline 
WA_RE20CL_STR-ARCHIVED sy-vline 
WA_RE20CL_STR-AUTO_MERGE sy-vline 
WA_RE20CL_STR-AUTO_DELETE sy-vline 
WA_RE20CL_STR-RESPAR sy-vline 
WA_RE20CL_STR-RESPARTEXT sy-vline 
WA_RE20CL_STR-INTERFACE sy-vline 
WA_RE20CL_STR-RTPCATEGORY sy-vline      INTO ld_text SEPARATED BY SPACE.

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