ABAP Select data from SAP table RM61X 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 RM61X 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 RM61X. 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 RM61X 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_RM61X TYPE STANDARD TABLE OF RM61X,
      WA_RM61X TYPE RM61X,
      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: <RM61X> TYPE RM61X.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RM61X
*  INTO TABLE @DATA(IT_RM61X2).
*--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_RM61X INDEX 1 INTO DATA(WA_RM61X2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RM61X>-PANE2 = 1.
<RM61X>-PASU2 = 1.
<RM61X>-MAFID = 1.
<RM61X>-MATNR = 1.
<RM61X>-WERKS = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RM61X-PUWNR, sy-vline,
  WA_RM61X-PRGKZ, sy-vline,
  WA_RM61X-VERSL, sy-vline,
  WA_RM61X-ICMRP, sy-vline,
  WA_RM61X-BANER, sy-vline,
  WA_RM61X-DISER, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RM61X 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_RM61X 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_RM61X INTO WA_RM61X.


*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_RM61X-MATNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RM61X-MATNR.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit KONPD, internal->external for field PSPID
CALL FUNCTION 'CONVERSION_EXIT_KONPD_OUTPUT'
  EXPORTING
    input =                      WA_RM61X-PSPID
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RM61X-PSPID.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ABPSP, internal->external for field PSPEL
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
  EXPORTING
    input =                      WA_RM61X-PSPEL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RM61X-PSPEL.
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_RM61X_STR, 
PANE2 TYPE STRING,
PASU2 TYPE STRING,
MAFID TYPE STRING,
MATNR TYPE STRING,
WERKS TYPE STRING,
PUWNR TYPE STRING,
PRGKZ TYPE STRING,
VERSL TYPE STRING,
ICMRP TYPE STRING,
BANER TYPE STRING,
DISER TYPE STRING,
LIFKZ TYPE STRING,
PLMOD TYPE STRING,
TRMPL TYPE STRING,
VERTX TYPE STRING,
MRPTX TYPE STRING,
BANTX TYPE STRING,
DISTX TYPE STRING,
LIFTX TYPE STRING,
PLMTX TYPE STRING,
TRMTX TYPE STRING,
ANZDL TYPE STRING,
ANZLS TYPE STRING,
PLALL TYPE STRING,
ANZMT TYPE STRING,
ANZAM TYPE STRING,
ANZEX TYPE STRING,
ANZDP TYPE STRING,
RTIME TYPE STRING,
SDATE TYPE STRING,
SZEIT TYPE STRING,
EZEIT TYPE STRING,
AZEIT TYPE STRING,
OPT01 TYPE STRING,
OPT02 TYPE STRING,
OPT03 TYPE STRING,
PAERF TYPE STRING,
BAERF TYPE STRING,
LPERF TYPE STRING,
PASCH TYPE STRING,
BASCH TYPE STRING,
SASCH TYPE STRING,
FASCH TYPE STRING,
DISST TYPE STRING,
DISPO TYPE STRING,
KNTTP TYPE STRING,
SOBKZ TYPE STRING,
KZVBR TYPE STRING,
KZBWS TYPE STRING,
KDAUF TYPE STRING,
KDPOS TYPE STRING,
PSPID TYPE STRING,
PSPEL TYPE STRING,
PSHIR TYPE STRING,
CUOBJ TYPE STRING,
UMDAT TYPE STRING,
PANEW TYPE STRING,
PASUM TYPE STRING,
FCODE TYPE STRING,
MSGNR TYPE STRING,
MSGXX TYPE STRING,
MNGC1 TYPE STRING,
MNGC2 TYPE STRING,
MNGC3 TYPE STRING,
MNGC4 TYPE STRING,
MNGC5 TYPE STRING,
WRT05 TYPE STRING,
UEB05 TYPE STRING,
SPA05 TYPE STRING,
OPT00 TYPE STRING,
ESOBS TYPE STRING,
DISPD TYPE STRING,
PLSCN TYPE STRING,
PARAL TYPE STRING,
MANOT TYPE STRING,
KZPROMO TYPE STRING,
UXKEY TYPE STRING,
UXPAR TYPE STRING,
UXTXT TYPE STRING,
FPAKZ TYPE STRING,
FPATX TYPE STRING,
INMEM TYPE STRING,
MSGLI TYPE STRING,
TECHS TYPE STRING,
BERID TYPE STRING,
BERTX TYPE STRING,
TXMAT TYPE STRING,
MNTXT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RM61X_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_RM61X_STR-PANE2 sy-vline 
WA_RM61X_STR-PASU2 sy-vline 
WA_RM61X_STR-MAFID sy-vline 
WA_RM61X_STR-MATNR sy-vline 
WA_RM61X_STR-WERKS sy-vline 
WA_RM61X_STR-PUWNR sy-vline 
WA_RM61X_STR-PRGKZ sy-vline 
WA_RM61X_STR-VERSL sy-vline 
WA_RM61X_STR-ICMRP sy-vline 
WA_RM61X_STR-BANER sy-vline 
WA_RM61X_STR-DISER sy-vline 
WA_RM61X_STR-LIFKZ sy-vline 
WA_RM61X_STR-PLMOD sy-vline 
WA_RM61X_STR-TRMPL sy-vline 
WA_RM61X_STR-VERTX sy-vline 
WA_RM61X_STR-MRPTX sy-vline 
WA_RM61X_STR-BANTX sy-vline 
WA_RM61X_STR-DISTX sy-vline 
WA_RM61X_STR-LIFTX sy-vline 
WA_RM61X_STR-PLMTX sy-vline 
WA_RM61X_STR-TRMTX sy-vline 
WA_RM61X_STR-ANZDL sy-vline 
WA_RM61X_STR-ANZLS sy-vline 
WA_RM61X_STR-PLALL sy-vline 
WA_RM61X_STR-ANZMT sy-vline 
WA_RM61X_STR-ANZAM sy-vline 
WA_RM61X_STR-ANZEX sy-vline 
WA_RM61X_STR-ANZDP sy-vline 
WA_RM61X_STR-RTIME sy-vline 
WA_RM61X_STR-SDATE sy-vline 
WA_RM61X_STR-SZEIT sy-vline 
WA_RM61X_STR-EZEIT sy-vline 
WA_RM61X_STR-AZEIT sy-vline 
WA_RM61X_STR-OPT01 sy-vline 
WA_RM61X_STR-OPT02 sy-vline 
WA_RM61X_STR-OPT03 sy-vline 
WA_RM61X_STR-PAERF sy-vline 
WA_RM61X_STR-BAERF sy-vline 
WA_RM61X_STR-LPERF sy-vline 
WA_RM61X_STR-PASCH sy-vline 
WA_RM61X_STR-BASCH sy-vline 
WA_RM61X_STR-SASCH sy-vline 
WA_RM61X_STR-FASCH sy-vline 
WA_RM61X_STR-DISST sy-vline 
WA_RM61X_STR-DISPO sy-vline 
WA_RM61X_STR-KNTTP sy-vline 
WA_RM61X_STR-SOBKZ sy-vline 
WA_RM61X_STR-KZVBR sy-vline 
WA_RM61X_STR-KZBWS sy-vline 
WA_RM61X_STR-KDAUF sy-vline 
WA_RM61X_STR-KDPOS sy-vline 
WA_RM61X_STR-PSPID sy-vline 
WA_RM61X_STR-PSPEL sy-vline 
WA_RM61X_STR-PSHIR sy-vline 
WA_RM61X_STR-CUOBJ sy-vline 
WA_RM61X_STR-UMDAT sy-vline 
WA_RM61X_STR-PANEW sy-vline 
WA_RM61X_STR-PASUM sy-vline 
WA_RM61X_STR-FCODE sy-vline 
WA_RM61X_STR-MSGNR sy-vline 
WA_RM61X_STR-MSGXX sy-vline 
WA_RM61X_STR-MNGC1 sy-vline 
WA_RM61X_STR-MNGC2 sy-vline 
WA_RM61X_STR-MNGC3 sy-vline 
WA_RM61X_STR-MNGC4 sy-vline 
WA_RM61X_STR-MNGC5 sy-vline 
WA_RM61X_STR-WRT05 sy-vline 
WA_RM61X_STR-UEB05 sy-vline 
WA_RM61X_STR-SPA05 sy-vline 
WA_RM61X_STR-OPT00 sy-vline 
WA_RM61X_STR-ESOBS sy-vline 
WA_RM61X_STR-DISPD sy-vline 
WA_RM61X_STR-PLSCN sy-vline 
WA_RM61X_STR-PARAL sy-vline 
WA_RM61X_STR-MANOT sy-vline 
WA_RM61X_STR-KZPROMO sy-vline 
WA_RM61X_STR-UXKEY sy-vline 
WA_RM61X_STR-UXPAR sy-vline 
WA_RM61X_STR-UXTXT sy-vline 
WA_RM61X_STR-FPAKZ sy-vline 
WA_RM61X_STR-FPATX sy-vline 
WA_RM61X_STR-INMEM sy-vline 
WA_RM61X_STR-MSGLI sy-vline 
WA_RM61X_STR-TECHS sy-vline 
WA_RM61X_STR-BERID sy-vline 
WA_RM61X_STR-BERTX sy-vline 
WA_RM61X_STR-TXMAT sy-vline 
WA_RM61X_STR-MNTXT sy-vline      INTO ld_text SEPARATED BY SPACE.

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