ABAP Select data from SAP table RM03M_DB 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 RM03M_DB 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 RM03M_DB. 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 RM03M_DB 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_RM03M_DB TYPE STANDARD TABLE OF RM03M_DB,
      WA_RM03M_DB TYPE RM03M_DB,
      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: <RM03M_DB> TYPE RM03M_DB.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RM03M_DB
*  INTO TABLE @DATA(IT_RM03M_DB2).
*--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_RM03M_DB INDEX 1 INTO DATA(WA_RM03M_DB2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RM03M_DB>-MATNR = 1.
<RM03M_DB>-BERID = 1.
<RM03M_DB>-BESKZ = 1.
<RM03M_DB>-DISPR = 1.
<RM03M_DB>-LVORM = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RM03M_DB-DYTX1, sy-vline,
  WA_RM03M_DB-DYTX2, sy-vline,
  WA_RM03M_DB-DYTX3, sy-vline,
  WA_RM03M_DB-VCTX1, sy-vline,
  WA_RM03M_DB-VCTX2, sy-vline,
  WA_RM03M_DB-VCTX3, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RM03M_DB 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_RM03M_DB 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_RM03M_DB INTO WA_RM03M_DB.


*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 MATN1, internal->external for field MATNR
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_RM03M_DB-MATNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RM03M_DB-MATNR.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit CUNIT, internal->external for field MEINS
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RM03M_DB-MEINS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RM03M_DB-MEINS.
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_RM03M_DB_STR, 
MATNR TYPE STRING,
BERID TYPE STRING,
BESKZ TYPE STRING,
DISPR TYPE STRING,
LVORM TYPE STRING,
DYTX1 TYPE STRING,
DYTX2 TYPE STRING,
DYTX3 TYPE STRING,
VCTX1 TYPE STRING,
VCTX2 TYPE STRING,
VCTX3 TYPE STRING,
KZAU1 TYPE STRING,
KZAU2 TYPE STRING,
KZSE1 TYPE STRING,
KZSE2 TYPE STRING,
KZSE3 TYPE STRING,
KORFA TYPE STRING,
PERKZ TYPE STRING,
MEINH TYPE STRING,
LMINB TYPE STRING,
LBSTF TYPE STRING,
TEXT1 TYPE STRING,
TEXT2 TYPE STRING,
SPRAS TYPE STRING,
LTEX1 TYPE STRING,
LTEX2 TYPE STRING,
LTEX3 TYPE STRING,
LTEX4 TYPE STRING,
LTEX5 TYPE STRING,
LTEX6 TYPE STRING,
LTEX7 TYPE STRING,
LTEX8 TYPE STRING,
LTEX9 TYPE STRING,
FORM1 TYPE STRING,
FORM2 TYPE STRING,
FORM3 TYPE STRING,
FORM4 TYPE STRING,
WRK_LFGJA TYPE STRING,
WRK_LFMON TYPE STRING,
TEXT3 TYPE STRING,
PROPR TYPE STRING,
PRIOD TYPE STRING,
PRWRT TYPE STRING,
KOPRW TYPE STRING,
ANTEI TYPE STRING,
SAIIN TYPE STRING,
FIXKZ TYPE STRING,
FAKTO TYPE STRING,
APERI TYPE STRING,
VBWRT TYPE STRING,
KOVBW TYPE STRING,
VBTX1 TYPE STRING,
VBTX2 TYPE STRING,
TAXKM TYPE STRING,
NAME1 TYPE STRING,
TEXPR TYPE STRING,
MEINS TYPE STRING,
XLIFO TYPE STRING,
MYPOL TYPE STRING,
BUKRS TYPE STRING,
REF_BUKRS TYPE STRING,
WERK280 TYPE STRING,
NAME280 TYPE STRING,
KZTLB TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RM03M_DB_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_RM03M_DB_STR-MATNR sy-vline 
WA_RM03M_DB_STR-BERID sy-vline 
WA_RM03M_DB_STR-BESKZ sy-vline 
WA_RM03M_DB_STR-DISPR sy-vline 
WA_RM03M_DB_STR-LVORM sy-vline 
WA_RM03M_DB_STR-DYTX1 sy-vline 
WA_RM03M_DB_STR-DYTX2 sy-vline 
WA_RM03M_DB_STR-DYTX3 sy-vline 
WA_RM03M_DB_STR-VCTX1 sy-vline 
WA_RM03M_DB_STR-VCTX2 sy-vline 
WA_RM03M_DB_STR-VCTX3 sy-vline 
WA_RM03M_DB_STR-KZAU1 sy-vline 
WA_RM03M_DB_STR-KZAU2 sy-vline 
WA_RM03M_DB_STR-KZSE1 sy-vline 
WA_RM03M_DB_STR-KZSE2 sy-vline 
WA_RM03M_DB_STR-KZSE3 sy-vline 
WA_RM03M_DB_STR-KORFA sy-vline 
WA_RM03M_DB_STR-PERKZ sy-vline 
WA_RM03M_DB_STR-MEINH sy-vline 
WA_RM03M_DB_STR-LMINB sy-vline 
WA_RM03M_DB_STR-LBSTF sy-vline 
WA_RM03M_DB_STR-TEXT1 sy-vline 
WA_RM03M_DB_STR-TEXT2 sy-vline 
WA_RM03M_DB_STR-SPRAS sy-vline 
WA_RM03M_DB_STR-LTEX1 sy-vline 
WA_RM03M_DB_STR-LTEX2 sy-vline 
WA_RM03M_DB_STR-LTEX3 sy-vline 
WA_RM03M_DB_STR-LTEX4 sy-vline 
WA_RM03M_DB_STR-LTEX5 sy-vline 
WA_RM03M_DB_STR-LTEX6 sy-vline 
WA_RM03M_DB_STR-LTEX7 sy-vline 
WA_RM03M_DB_STR-LTEX8 sy-vline 
WA_RM03M_DB_STR-LTEX9 sy-vline 
WA_RM03M_DB_STR-FORM1 sy-vline 
WA_RM03M_DB_STR-FORM2 sy-vline 
WA_RM03M_DB_STR-FORM3 sy-vline 
WA_RM03M_DB_STR-FORM4 sy-vline 
WA_RM03M_DB_STR-WRK_LFGJA sy-vline 
WA_RM03M_DB_STR-WRK_LFMON sy-vline 
WA_RM03M_DB_STR-TEXT3 sy-vline 
WA_RM03M_DB_STR-PROPR sy-vline 
WA_RM03M_DB_STR-PRIOD sy-vline 
WA_RM03M_DB_STR-PRWRT sy-vline 
WA_RM03M_DB_STR-KOPRW sy-vline 
WA_RM03M_DB_STR-ANTEI sy-vline 
WA_RM03M_DB_STR-SAIIN sy-vline 
WA_RM03M_DB_STR-FIXKZ sy-vline 
WA_RM03M_DB_STR-FAKTO sy-vline 
WA_RM03M_DB_STR-APERI sy-vline 
WA_RM03M_DB_STR-VBWRT sy-vline 
WA_RM03M_DB_STR-KOVBW sy-vline 
WA_RM03M_DB_STR-VBTX1 sy-vline 
WA_RM03M_DB_STR-VBTX2 sy-vline 
WA_RM03M_DB_STR-TAXKM sy-vline 
WA_RM03M_DB_STR-NAME1 sy-vline 
WA_RM03M_DB_STR-TEXPR sy-vline 
WA_RM03M_DB_STR-MEINS sy-vline 
WA_RM03M_DB_STR-XLIFO sy-vline 
WA_RM03M_DB_STR-MYPOL sy-vline 
WA_RM03M_DB_STR-BUKRS sy-vline 
WA_RM03M_DB_STR-REF_BUKRS sy-vline 
WA_RM03M_DB_STR-WERK280 sy-vline 
WA_RM03M_DB_STR-NAME280 sy-vline 
WA_RM03M_DB_STR-KZTLB sy-vline      INTO ld_text SEPARATED BY SPACE.

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