ABAP Select data from SAP table RCTMV 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 RCTMV 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 RCTMV. 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 RCTMV 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_RCTMV TYPE STANDARD TABLE OF RCTMV,
      WA_RCTMV TYPE RCTMV,
      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: <RCTMV> TYPE RCTMV.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RCTMV
*  INTO TABLE @DATA(IT_RCTMV2).
*--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_RCTMV INDEX 1 INTO DATA(WA_RCTMV2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_RCTMV ASSIGNING <RCTMV>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<RCTMV>-MANDT = 1.
<RCTMV>-ATNAM = 1.
<RCTMV>-ATIDN = 1.
<RCTMV>-BASIS = 1.
<RCTMV>-OBERF = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RCTMV-ZUSTZ, sy-vline,
WA_RCTMV-WERTE, sy-vline,
WA_RCTMV-SPRBE, sy-vline,
WA_RCTMV-ATVWE, sy-vline,
WA_RCTMV-SPRAS, sy-vline,
WA_RCTMV-HIERA, sy-vline.
ENDLOOP. *Add any further fields from structure WA_RCTMV 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_RCTMV 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_RCTMV INTO WA_RCTMV. *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 ISOLA, internal->external for field SPRAS CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT' EXPORTING input = WA_RCTMV-SPRAS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RCTMV-SPRAS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ISOLA, internal->external for field ATRE1 CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT' EXPORTING input = WA_RCTMV-ATRE1 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RCTMV-ATRE1.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field AENNR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_RCTMV-AENNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_RCTMV-AENNR.
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_RCTMV_STR,
MANDT TYPE STRING,
ATNAM TYPE STRING,
ATIDN TYPE STRING,
BASIS TYPE STRING,
OBERF TYPE STRING,
ZUSTZ TYPE STRING,
WERTE TYPE STRING,
SPRBE TYPE STRING,
ATVWE TYPE STRING,
SPRAS TYPE STRING,
HIERA TYPE STRING,
EINHE TYPE STRING,
ABEIN TYPE STRING,
TXDIM TYPE STRING,
BLUB1 TYPE STRING,
BLUB2 TYPE STRING,
BLUB3 TYPE STRING,
NEUTR TYPE STRING,
STATUS TYPE STRING,
MARK TYPE STRING,
ATCST TYPE STRING,
ATAST TYPE STRING,
ATADZ TYPE STRING,
ATDEX TYPE STRING,
ATDIM TYPE STRING,
EINH2 TYPE STRING,
ATSCH TYPE STRING,
ATVOR TYPE STRING,
ATKON TYPE STRING,
ATKLE TYPE STRING,
PAGSU TYPE STRING,
PAGAC TYPE STRING,
ATLTX TYPE STRING,
ATLIS TYPE STRING,
ATREW TYPE STRING,
ATREK TYPE STRING,
ATREA TYPE STRING,
ATRE1 TYPE STRING,
ATNNA TYPE STRING,
ATVWK TYPE STRING,
ATVWV TYPE STRING,
ATVWP TYPE STRING,
ATVVT TYPE STRING,
ATERF TYPE STRING,
ATFOD TYPE STRING,
ATVSC TYPE STRING,
ATWRD TYPE STRING,
ATINT TYPE STRING,
ATNEW TYPE STRING,
ATBZW TYPE STRING,
FORMAT TYPE STRING,
ATINP TYPE STRING,
DATUV TYPE STRING,
AENNR TYPE STRING,
ATRDA TYPE STRING,
ATVWB TYPE STRING,
ATEIN TYPE STRING,
ATDOC TYPE STRING,
ATTEX TYPE STRING,
ATKNL TYPE STRING,
WAERS TYPE STRING,
ICON TYPE STRING,
ATWZU TYPE STRING,
ATWTA TYPE STRING,
ATWFB TYPE STRING,
ATWCA TYPE STRING,
ATSUMM TYPE STRING,
ATBIL TYPE STRING,
ATERFK TYPE STRING,
ADTCLASS TYPE STRING,
ATNOR TYPE STRING,
KLART TYPE STRING,
ICON2 TYPE STRING,
ICON3 TYPE STRING,END OF T_EKKO_STR. DATA: WA_RCTMV_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_RCTMV_STR-MANDT sy-vline
WA_RCTMV_STR-ATNAM sy-vline
WA_RCTMV_STR-ATIDN sy-vline
WA_RCTMV_STR-BASIS sy-vline
WA_RCTMV_STR-OBERF sy-vline
WA_RCTMV_STR-ZUSTZ sy-vline
WA_RCTMV_STR-WERTE sy-vline
WA_RCTMV_STR-SPRBE sy-vline
WA_RCTMV_STR-ATVWE sy-vline
WA_RCTMV_STR-SPRAS sy-vline
WA_RCTMV_STR-HIERA sy-vline
WA_RCTMV_STR-EINHE sy-vline
WA_RCTMV_STR-ABEIN sy-vline
WA_RCTMV_STR-TXDIM sy-vline
WA_RCTMV_STR-BLUB1 sy-vline
WA_RCTMV_STR-BLUB2 sy-vline
WA_RCTMV_STR-BLUB3 sy-vline
WA_RCTMV_STR-NEUTR sy-vline
WA_RCTMV_STR-STATUS sy-vline
WA_RCTMV_STR-MARK sy-vline
WA_RCTMV_STR-ATCST sy-vline
WA_RCTMV_STR-ATAST sy-vline
WA_RCTMV_STR-ATADZ sy-vline
WA_RCTMV_STR-ATDEX sy-vline
WA_RCTMV_STR-ATDIM sy-vline
WA_RCTMV_STR-EINH2 sy-vline
WA_RCTMV_STR-ATSCH sy-vline
WA_RCTMV_STR-ATVOR sy-vline
WA_RCTMV_STR-ATKON sy-vline
WA_RCTMV_STR-ATKLE sy-vline
WA_RCTMV_STR-PAGSU sy-vline
WA_RCTMV_STR-PAGAC sy-vline
WA_RCTMV_STR-ATLTX sy-vline
WA_RCTMV_STR-ATLIS sy-vline
WA_RCTMV_STR-ATREW sy-vline
WA_RCTMV_STR-ATREK sy-vline
WA_RCTMV_STR-ATREA sy-vline
WA_RCTMV_STR-ATRE1 sy-vline
WA_RCTMV_STR-ATNNA sy-vline
WA_RCTMV_STR-ATVWK sy-vline
WA_RCTMV_STR-ATVWV sy-vline
WA_RCTMV_STR-ATVWP sy-vline
WA_RCTMV_STR-ATVVT sy-vline
WA_RCTMV_STR-ATERF sy-vline
WA_RCTMV_STR-ATFOD sy-vline
WA_RCTMV_STR-ATVSC sy-vline
WA_RCTMV_STR-ATWRD sy-vline
WA_RCTMV_STR-ATINT sy-vline
WA_RCTMV_STR-ATNEW sy-vline
WA_RCTMV_STR-ATBZW sy-vline
WA_RCTMV_STR-FORMAT sy-vline
WA_RCTMV_STR-ATINP sy-vline
WA_RCTMV_STR-DATUV sy-vline
WA_RCTMV_STR-AENNR sy-vline
WA_RCTMV_STR-ATRDA sy-vline
WA_RCTMV_STR-ATVWB sy-vline
WA_RCTMV_STR-ATEIN sy-vline
WA_RCTMV_STR-ATDOC sy-vline
WA_RCTMV_STR-ATTEX sy-vline
WA_RCTMV_STR-ATKNL sy-vline
WA_RCTMV_STR-WAERS sy-vline
WA_RCTMV_STR-ICON sy-vline
WA_RCTMV_STR-ATWZU sy-vline
WA_RCTMV_STR-ATWTA sy-vline
WA_RCTMV_STR-ATWFB sy-vline
WA_RCTMV_STR-ATWCA sy-vline
WA_RCTMV_STR-ATSUMM sy-vline
WA_RCTMV_STR-ATBIL sy-vline
WA_RCTMV_STR-ATERFK sy-vline
WA_RCTMV_STR-ADTCLASS sy-vline
WA_RCTMV_STR-ATNOR sy-vline
WA_RCTMV_STR-KLART sy-vline
WA_RCTMV_STR-ICON2 sy-vline
WA_RCTMV_STR-ICON3 sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.