ABAP Select data from SAP table RMCP1 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 RMCP1 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 RMCP1. 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 RMCP1 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_RMCP1 TYPE STANDARD TABLE OF RMCP1,
      WA_RMCP1 TYPE RMCP1,
      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: <RMCP1> TYPE RMCP1.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RMCP1
*  INTO TABLE @DATA(IT_RMCP12).
*--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_RMCP1 INDEX 1 INTO DATA(WA_RMCP12).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RMCP1>-MANDT = 1.
<RMCP1>-SSOUR = 1.
<RMCP1>-MCINF = 1.
<RMCP1>-ISTXT = 1.
<RMCP1>-MCAPP = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RMCP1-UEB01, sy-vline,
  WA_RMCP1-UEB02, sy-vline,
  WA_RMCP1-MEINS, sy-vline,
  WA_RMCP1-KOMPF, sy-vline,
  WA_RMCP1-PER01, sy-vline,
  WA_RMCP1-PER02, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RMCP1 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_RMCP1 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_RMCP1 INTO WA_RMCP1.


*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 PERI, internal->external for field PERVX
CALL FUNCTION 'CONVERSION_EXIT_PERI_OUTPUT'
  EXPORTING
    input =                      WA_RMCP1-PERVX
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RMCP1-PERVX.
WRITE:/ 'New Value:', ld_input.

*Conversion exit PERI, internal->external for field PERVY
CALL FUNCTION 'CONVERSION_EXIT_PERI_OUTPUT'
  EXPORTING
    input =                      WA_RMCP1-PERVY
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RMCP1-PERVY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit PERI, internal->external for field PERVU
CALL FUNCTION 'CONVERSION_EXIT_PERI_OUTPUT'
  EXPORTING
    input =                      WA_RMCP1-PERVU
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RMCP1-PERVU.
WRITE:/ 'New Value:', ld_input.

*Conversion exit PERI, internal->external for field PERVV
CALL FUNCTION 'CONVERSION_EXIT_PERI_OUTPUT'
  EXPORTING
    input =                      WA_RMCP1-PERVV
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RMCP1-PERVV.
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_RMCP1_STR, 
MANDT TYPE STRING,
SSOUR TYPE STRING,
MCINF TYPE STRING,
ISTXT TYPE STRING,
MCAPP TYPE STRING,
UEB01 TYPE STRING,
UEB02 TYPE STRING,
MEINS TYPE STRING,
KOMPF TYPE STRING,
PER01 TYPE STRING,
PER02 TYPE STRING,
PER03 TYPE STRING,
PER04 TYPE STRING,
PER05 TYPE STRING,
KRIT1 TYPE STRING,
FLD01 TYPE STRING,
FLD02 TYPE STRING,
FLD03 TYPE STRING,
FLD04 TYPE STRING,
FLD05 TYPE STRING,
ZEILE TYPE STRING,
SPALT TYPE STRING,
ZLMAX TYPE STRING,
SPMAX TYPE STRING,
STR10 TYPE STRING,
STR11 TYPE STRING,
STR12 TYPE STRING,
STR13 TYPE STRING,
STR14 TYPE STRING,
STR20 TYPE STRING,
STR21 TYPE STRING,
STR22 TYPE STRING,
STR23 TYPE STRING,
STR24 TYPE STRING,
STR30 TYPE STRING,
STR31 TYPE STRING,
STR32 TYPE STRING,
STR33 TYPE STRING,
STR34 TYPE STRING,
FTEXT TYPE STRING,
AWAHL TYPE STRING,
KMEHR TYPE STRING,
SPPER TYPE STRING,
PERIV TYPE STRING,
BEGIN TYPE STRING,
PENDE TYPE STRING,
GRTY1 TYPE STRING,
GRTY2 TYPE STRING,
ANZNK TYPE STRING,
MEINH TYPE STRING,
EHUMR TYPE STRING,
FAKT1 TYPE STRING,
VRSIO TYPE STRING,
VETXT TYPE STRING,
PER00 TYPE STRING,
KRIT0 TYPE STRING,
PERVX TYPE STRING,
PERVY TYPE STRING,
PERVU TYPE STRING,
PERVV TYPE STRING,
PERVL TYPE STRING,
VEFLD TYPE STRING,
OPERA TYPE STRING,
PEDVX TYPE STRING,
PEDVY TYPE STRING,
CDAT TYPE STRING,
AUTOR TYPE STRING,
UDAT TYPE STRING,
UPNAM TYPE STRING,
AKTTYP TYPE STRING,
VBSCHR TYPE STRING,
ZLSP5 TYPE STRING,
ZLSP6 TYPE STRING,
GSTRU TYPE STRING,
PRMOD TYPE STRING,
MODAW TYPE STRING,
MODAV TYPE STRING,
KZPAR TYPE STRING,
OPGRA TYPE STRING,
KZINI TYPE STRING,
ALPHA TYPE STRING,
BETA1 TYPE STRING,
GAMMA TYPE STRING,
DELTA TYPE STRING,
EPSIL TYPE STRING,
SIGGR TYPE STRING,
PERAN TYPE STRING,
PERIN TYPE STRING,
PEREX TYPE STRING,
PERIO TYPE STRING,
ANZPR TYPE STRING,
FIMON TYPE STRING,
LGRAD TYPE STRING,
GWERT TYPE STRING,
VMGWE TYPE STRING,
GWER1 TYPE STRING,
VMGW1 TYPE STRING,
GWER2 TYPE STRING,
VMGW2 TYPE STRING,
TWERT TYPE STRING,
VMTWE TYPE STRING,
PRMAD TYPE STRING,
VMMAD TYPE STRING,
FSUMM TYPE STRING,
VMFSU TYPE STRING,
AUSNA TYPE STRING,
PROAB TYPE STRING,
KZOKO TYPE STRING,
GEWGR TYPE STRING,
THKOF TYPE STRING,
NULLV TYPE STRING,
PEDVU TYPE STRING,
PEDVV TYPE STRING,
VRSIA TYPE STRING,
GRUND TYPE STRING,
TREND TYPE STRING,
MAD TYPE STRING,
FSU TYPE STRING,
SAIIN TYPE STRING,
PROG1 TYPE STRING,
PROG11 TYPE STRING,
PROG12 TYPE STRING,
PROG13 TYPE STRING,
PROG14 TYPE STRING,
PROG2 TYPE STRING,
PROG21 TYPE STRING,
PROG22 TYPE STRING,
PROG23 TYPE STRING,
PROG3 TYPE STRING,
PROG31 TYPE STRING,
PROG4 TYPE STRING,
PROG41 TYPE STRING,
PROG5 TYPE STRING,
PROG51 TYPE STRING,
PROG52 TYPE STRING,
PROG53 TYPE STRING,
PROG54 TYPE STRING,
PROG55 TYPE STRING,
PROG6 TYPE STRING,
ALPH1 TYPE STRING,
NULLV1 TYPE STRING,
DELTA1 TYPE STRING,
OPGRA1 TYPE STRING,
ALPH2 TYPE STRING,
OPGRA2 TYPE STRING,
BETA2 TYPE STRING,
GAMM2 TYPE STRING,
PERIO2 TYPE STRING,
KOFLD TYPE STRING,
KRIT3 TYPE STRING,
MELD1 TYPE STRING,
FLG01 TYPE STRING,
FLG02 TYPE STRING,
FLG03 TYPE STRING,
FLG04 TYPE STRING,
FLG05 TYPE STRING,
FLG06 TYPE STRING,
FLG07 TYPE STRING,
FLG08 TYPE STRING,
FLG09 TYPE STRING,
FLG10 TYPE STRING,
FLGFX TYPE STRING,
MERKL TYPE STRING,
MERKM TYPE STRING,
KENNZ TYPE STRING,
OVWRT TYPE STRING,
KVWRT TYPE STRING,
EPWRT TYPE STRING,
OPWRT TYPE STRING,
KPWRT TYPE STRING,
NKFIX TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RMCP1_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_RMCP1_STR-MANDT sy-vline 
WA_RMCP1_STR-SSOUR sy-vline 
WA_RMCP1_STR-MCINF sy-vline 
WA_RMCP1_STR-ISTXT sy-vline 
WA_RMCP1_STR-MCAPP sy-vline 
WA_RMCP1_STR-UEB01 sy-vline 
WA_RMCP1_STR-UEB02 sy-vline 
WA_RMCP1_STR-MEINS sy-vline 
WA_RMCP1_STR-KOMPF sy-vline 
WA_RMCP1_STR-PER01 sy-vline 
WA_RMCP1_STR-PER02 sy-vline 
WA_RMCP1_STR-PER03 sy-vline 
WA_RMCP1_STR-PER04 sy-vline 
WA_RMCP1_STR-PER05 sy-vline 
WA_RMCP1_STR-KRIT1 sy-vline 
WA_RMCP1_STR-FLD01 sy-vline 
WA_RMCP1_STR-FLD02 sy-vline 
WA_RMCP1_STR-FLD03 sy-vline 
WA_RMCP1_STR-FLD04 sy-vline 
WA_RMCP1_STR-FLD05 sy-vline 
WA_RMCP1_STR-ZEILE sy-vline 
WA_RMCP1_STR-SPALT sy-vline 
WA_RMCP1_STR-ZLMAX sy-vline 
WA_RMCP1_STR-SPMAX sy-vline 
WA_RMCP1_STR-STR10 sy-vline 
WA_RMCP1_STR-STR11 sy-vline 
WA_RMCP1_STR-STR12 sy-vline 
WA_RMCP1_STR-STR13 sy-vline 
WA_RMCP1_STR-STR14 sy-vline 
WA_RMCP1_STR-STR20 sy-vline 
WA_RMCP1_STR-STR21 sy-vline 
WA_RMCP1_STR-STR22 sy-vline 
WA_RMCP1_STR-STR23 sy-vline 
WA_RMCP1_STR-STR24 sy-vline 
WA_RMCP1_STR-STR30 sy-vline 
WA_RMCP1_STR-STR31 sy-vline 
WA_RMCP1_STR-STR32 sy-vline 
WA_RMCP1_STR-STR33 sy-vline 
WA_RMCP1_STR-STR34 sy-vline 
WA_RMCP1_STR-FTEXT sy-vline 
WA_RMCP1_STR-AWAHL sy-vline 
WA_RMCP1_STR-KMEHR sy-vline 
WA_RMCP1_STR-SPPER sy-vline 
WA_RMCP1_STR-PERIV sy-vline 
WA_RMCP1_STR-BEGIN sy-vline 
WA_RMCP1_STR-PENDE sy-vline 
WA_RMCP1_STR-GRTY1 sy-vline 
WA_RMCP1_STR-GRTY2 sy-vline 
WA_RMCP1_STR-ANZNK sy-vline 
WA_RMCP1_STR-MEINH sy-vline 
WA_RMCP1_STR-EHUMR sy-vline 
WA_RMCP1_STR-FAKT1 sy-vline 
WA_RMCP1_STR-VRSIO sy-vline 
WA_RMCP1_STR-VETXT sy-vline 
WA_RMCP1_STR-PER00 sy-vline 
WA_RMCP1_STR-KRIT0 sy-vline 
WA_RMCP1_STR-PERVX sy-vline 
WA_RMCP1_STR-PERVY sy-vline 
WA_RMCP1_STR-PERVU sy-vline 
WA_RMCP1_STR-PERVV sy-vline 
WA_RMCP1_STR-PERVL sy-vline 
WA_RMCP1_STR-VEFLD sy-vline 
WA_RMCP1_STR-OPERA sy-vline 
WA_RMCP1_STR-PEDVX sy-vline 
WA_RMCP1_STR-PEDVY sy-vline 
WA_RMCP1_STR-CDAT sy-vline 
WA_RMCP1_STR-AUTOR sy-vline 
WA_RMCP1_STR-UDAT sy-vline 
WA_RMCP1_STR-UPNAM sy-vline 
WA_RMCP1_STR-AKTTYP sy-vline 
WA_RMCP1_STR-VBSCHR sy-vline 
WA_RMCP1_STR-ZLSP5 sy-vline 
WA_RMCP1_STR-ZLSP6 sy-vline 
WA_RMCP1_STR-GSTRU sy-vline 
WA_RMCP1_STR-PRMOD sy-vline 
WA_RMCP1_STR-MODAW sy-vline 
WA_RMCP1_STR-MODAV sy-vline 
WA_RMCP1_STR-KZPAR sy-vline 
WA_RMCP1_STR-OPGRA sy-vline 
WA_RMCP1_STR-KZINI sy-vline 
WA_RMCP1_STR-ALPHA sy-vline 
WA_RMCP1_STR-BETA1 sy-vline 
WA_RMCP1_STR-GAMMA sy-vline 
WA_RMCP1_STR-DELTA sy-vline 
WA_RMCP1_STR-EPSIL sy-vline 
WA_RMCP1_STR-SIGGR sy-vline 
WA_RMCP1_STR-PERAN sy-vline 
WA_RMCP1_STR-PERIN sy-vline 
WA_RMCP1_STR-PEREX sy-vline 
WA_RMCP1_STR-PERIO sy-vline 
WA_RMCP1_STR-ANZPR sy-vline 
WA_RMCP1_STR-FIMON sy-vline 
WA_RMCP1_STR-LGRAD sy-vline 
WA_RMCP1_STR-GWERT sy-vline 
WA_RMCP1_STR-VMGWE sy-vline 
WA_RMCP1_STR-GWER1 sy-vline 
WA_RMCP1_STR-VMGW1 sy-vline 
WA_RMCP1_STR-GWER2 sy-vline 
WA_RMCP1_STR-VMGW2 sy-vline 
WA_RMCP1_STR-TWERT sy-vline 
WA_RMCP1_STR-VMTWE sy-vline 
WA_RMCP1_STR-PRMAD sy-vline 
WA_RMCP1_STR-VMMAD sy-vline 
WA_RMCP1_STR-FSUMM sy-vline 
WA_RMCP1_STR-VMFSU sy-vline 
WA_RMCP1_STR-AUSNA sy-vline 
WA_RMCP1_STR-PROAB sy-vline 
WA_RMCP1_STR-KZOKO sy-vline 
WA_RMCP1_STR-GEWGR sy-vline 
WA_RMCP1_STR-THKOF sy-vline 
WA_RMCP1_STR-NULLV sy-vline 
WA_RMCP1_STR-PEDVU sy-vline 
WA_RMCP1_STR-PEDVV sy-vline 
WA_RMCP1_STR-VRSIA sy-vline 
WA_RMCP1_STR-GRUND sy-vline 
WA_RMCP1_STR-TREND sy-vline 
WA_RMCP1_STR-MAD sy-vline 
WA_RMCP1_STR-FSU sy-vline 
WA_RMCP1_STR-SAIIN sy-vline 
WA_RMCP1_STR-PROG1 sy-vline 
WA_RMCP1_STR-PROG11 sy-vline 
WA_RMCP1_STR-PROG12 sy-vline 
WA_RMCP1_STR-PROG13 sy-vline 
WA_RMCP1_STR-PROG14 sy-vline 
WA_RMCP1_STR-PROG2 sy-vline 
WA_RMCP1_STR-PROG21 sy-vline 
WA_RMCP1_STR-PROG22 sy-vline 
WA_RMCP1_STR-PROG23 sy-vline 
WA_RMCP1_STR-PROG3 sy-vline 
WA_RMCP1_STR-PROG31 sy-vline 
WA_RMCP1_STR-PROG4 sy-vline 
WA_RMCP1_STR-PROG41 sy-vline 
WA_RMCP1_STR-PROG5 sy-vline 
WA_RMCP1_STR-PROG51 sy-vline 
WA_RMCP1_STR-PROG52 sy-vline 
WA_RMCP1_STR-PROG53 sy-vline 
WA_RMCP1_STR-PROG54 sy-vline 
WA_RMCP1_STR-PROG55 sy-vline 
WA_RMCP1_STR-PROG6 sy-vline 
WA_RMCP1_STR-ALPH1 sy-vline 
WA_RMCP1_STR-NULLV1 sy-vline 
WA_RMCP1_STR-DELTA1 sy-vline 
WA_RMCP1_STR-OPGRA1 sy-vline 
WA_RMCP1_STR-ALPH2 sy-vline 
WA_RMCP1_STR-OPGRA2 sy-vline 
WA_RMCP1_STR-BETA2 sy-vline 
WA_RMCP1_STR-GAMM2 sy-vline 
WA_RMCP1_STR-PERIO2 sy-vline 
WA_RMCP1_STR-KOFLD sy-vline 
WA_RMCP1_STR-KRIT3 sy-vline 
WA_RMCP1_STR-MELD1 sy-vline 
WA_RMCP1_STR-FLG01 sy-vline 
WA_RMCP1_STR-FLG02 sy-vline 
WA_RMCP1_STR-FLG03 sy-vline 
WA_RMCP1_STR-FLG04 sy-vline 
WA_RMCP1_STR-FLG05 sy-vline 
WA_RMCP1_STR-FLG06 sy-vline 
WA_RMCP1_STR-FLG07 sy-vline 
WA_RMCP1_STR-FLG08 sy-vline 
WA_RMCP1_STR-FLG09 sy-vline 
WA_RMCP1_STR-FLG10 sy-vline 
WA_RMCP1_STR-FLGFX sy-vline 
WA_RMCP1_STR-MERKL sy-vline 
WA_RMCP1_STR-MERKM sy-vline 
WA_RMCP1_STR-KENNZ sy-vline 
WA_RMCP1_STR-OVWRT sy-vline 
WA_RMCP1_STR-KVWRT sy-vline 
WA_RMCP1_STR-EPWRT sy-vline 
WA_RMCP1_STR-OPWRT sy-vline 
WA_RMCP1_STR-KPWRT sy-vline 
WA_RMCP1_STR-NKFIX sy-vline      INTO ld_text SEPARATED BY SPACE.

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