ABAP Select data from SAP table RM03C 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 RM03C 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 RM03C. 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 RM03C 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_RM03C TYPE STANDARD TABLE OF RM03C,
      WA_RM03C TYPE RM03C,
      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: <RM03C> TYPE RM03C.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RM03C
*  INTO TABLE @DATA(IT_RM03C2).
*--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_RM03C INDEX 1 INTO DATA(WA_RM03C2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RM03C>-EMART = 1.
<RM03C>-NMART = 1.
<RM03C>-AMART = 1.
<RM03C>-BEZUG = 1.
<RM03C>-BEZUG1 = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RM03C-BEZUG2, sy-vline,
  WA_RM03C-DIEN, sy-vline,
  WA_RM03C-ERSA, sy-vline,
  WA_RM03C-FERT, sy-vline,
  WA_RM03C-FHMI, sy-vline,
  WA_RM03C-HALB, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RM03C 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_RM03C 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_RM03C INTO WA_RM03C.


*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.
ENDFORM. 

*&---------------------------------------------------------------------*
*& Form process_as_string_field_values
*&---------------------------------------------------------------------*
FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO.

TYPES: BEGIN OF T_RM03C_STR, 
EMART TYPE STRING,
NMART TYPE STRING,
AMART TYPE STRING,
BEZUG TYPE STRING,
BEZUG1 TYPE STRING,
BEZUG2 TYPE STRING,
DIEN TYPE STRING,
ERSA TYPE STRING,
FERT TYPE STRING,
FHMI TYPE STRING,
HALB TYPE STRING,
HAWA TYPE STRING,
HIBE TYPE STRING,
IBAU TYPE STRING,
INTR TYPE STRING,
KMAT TYPE STRING,
LEER TYPE STRING,
NLAG TYPE STRING,
PIPE TYPE STRING,
PROC TYPE STRING,
ROH TYPE STRING,
UNBW TYPE STRING,
VERP TYPE STRING,
WETT TYPE STRING,
KBAU TYPE STRING,
UNTL TYPE STRING,
SETRV TYPE STRING,
BAUT TYPE STRING,
PROD TYPE STRING,
PSTAT TYPE STRING,
KZSEL1 TYPE STRING,
KZSEL2 TYPE STRING,
STEXT1 TYPE STRING,
STEXT2 TYPE STRING,
ENVOP TYPE STRING,
MENGU TYPE STRING,
AMENGU TYPE STRING,
AMENGUN TYPE STRING,
AMENGUD TYPE STRING,
WERTU TYPE STRING,
AWERTU TYPE STRING,
AWERTUN TYPE STRING,
AWERTUD TYPE STRING,
VORL TYPE STRING,
ZEILETXT TYPE STRING,
VSEITE TYPE STRING,
MAXSEITE TYPE STRING,
SVPRSV TYPE STRING,
VVPRSV TYPE STRING,
SKZVPR TYPE STRING,
VKZVPR TYPE STRING,
FORTS TYPE STRING,
INTNE TYPE STRING,
INTWA TYPE STRING,
INTEL TYPE STRING,
EXTNE TYPE STRING,
EXTWA TYPE STRING,
EXTEL TYPE STRING,
BWEBENE TYPE STRING,
KZPIP TYPE STRING,
XPIZU TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RM03C_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_RM03C_STR-EMART sy-vline 
WA_RM03C_STR-NMART sy-vline 
WA_RM03C_STR-AMART sy-vline 
WA_RM03C_STR-BEZUG sy-vline 
WA_RM03C_STR-BEZUG1 sy-vline 
WA_RM03C_STR-BEZUG2 sy-vline 
WA_RM03C_STR-DIEN sy-vline 
WA_RM03C_STR-ERSA sy-vline 
WA_RM03C_STR-FERT sy-vline 
WA_RM03C_STR-FHMI sy-vline 
WA_RM03C_STR-HALB sy-vline 
WA_RM03C_STR-HAWA sy-vline 
WA_RM03C_STR-HIBE sy-vline 
WA_RM03C_STR-IBAU sy-vline 
WA_RM03C_STR-INTR sy-vline 
WA_RM03C_STR-KMAT sy-vline 
WA_RM03C_STR-LEER sy-vline 
WA_RM03C_STR-NLAG sy-vline 
WA_RM03C_STR-PIPE sy-vline 
WA_RM03C_STR-PROC sy-vline 
WA_RM03C_STR-ROH sy-vline 
WA_RM03C_STR-UNBW sy-vline 
WA_RM03C_STR-VERP sy-vline 
WA_RM03C_STR-WETT sy-vline 
WA_RM03C_STR-KBAU sy-vline 
WA_RM03C_STR-UNTL sy-vline 
WA_RM03C_STR-SETRV sy-vline 
WA_RM03C_STR-BAUT sy-vline 
WA_RM03C_STR-PROD sy-vline 
WA_RM03C_STR-PSTAT sy-vline 
WA_RM03C_STR-KZSEL1 sy-vline 
WA_RM03C_STR-KZSEL2 sy-vline 
WA_RM03C_STR-STEXT1 sy-vline 
WA_RM03C_STR-STEXT2 sy-vline 
WA_RM03C_STR-ENVOP sy-vline 
WA_RM03C_STR-MENGU sy-vline 
WA_RM03C_STR-AMENGU sy-vline 
WA_RM03C_STR-AMENGUN sy-vline 
WA_RM03C_STR-AMENGUD sy-vline 
WA_RM03C_STR-WERTU sy-vline 
WA_RM03C_STR-AWERTU sy-vline 
WA_RM03C_STR-AWERTUN sy-vline 
WA_RM03C_STR-AWERTUD sy-vline 
WA_RM03C_STR-VORL sy-vline 
WA_RM03C_STR-ZEILETXT sy-vline 
WA_RM03C_STR-VSEITE sy-vline 
WA_RM03C_STR-MAXSEITE sy-vline 
WA_RM03C_STR-SVPRSV sy-vline 
WA_RM03C_STR-VVPRSV sy-vline 
WA_RM03C_STR-SKZVPR sy-vline 
WA_RM03C_STR-VKZVPR sy-vline 
WA_RM03C_STR-FORTS sy-vline 
WA_RM03C_STR-INTNE sy-vline 
WA_RM03C_STR-INTWA sy-vline 
WA_RM03C_STR-INTEL sy-vline 
WA_RM03C_STR-EXTNE sy-vline 
WA_RM03C_STR-EXTWA sy-vline 
WA_RM03C_STR-EXTEL sy-vline 
WA_RM03C_STR-BWEBENE sy-vline 
WA_RM03C_STR-KZPIP sy-vline 
WA_RM03C_STR-XPIZU sy-vline      INTO ld_text SEPARATED BY SPACE.

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