ABAP Select data from SAP table RNMPICK 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 RNMPICK 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 RNMPICK. 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 RNMPICK 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_RNMPICK TYPE STANDARD TABLE OF RNMPICK,
      WA_RNMPICK TYPE RNMPICK,
      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: <RNMPICK> TYPE RNMPICK.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RNMPICK
*  INTO TABLE @DATA(IT_RNMPICK2).
*--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_RNMPICK INDEX 1 INTO DATA(WA_RNMPICK2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RNMPICK>-WERKS = 1.
<RNMPICK>-LGORT = 1.
<RNMPICK>-RSNUM = 1.
<RNMPICK>-RSPOS = 1.
<RNMPICK>-USNAM = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RNMPICK-MATNR, sy-vline,
  WA_RNMPICK-MTEXT, sy-vline,
  WA_RNMPICK-KOSTL, sy-vline,
  WA_RNMPICK-BDTER, sy-vline,
  WA_RNMPICK-BDMNG, sy-vline,
  WA_RNMPICK-ENMNG, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RNMPICK 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_RNMPICK 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_RNMPICK INTO WA_RNMPICK.


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

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

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

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

*Conversion exit CUNIT, internal->external for field KOMEI
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RNMPICK-KOMEI
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNMPICK-KOMEI.
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_RNMPICK_STR, 
WERKS TYPE STRING,
LGORT TYPE STRING,
RSNUM TYPE STRING,
RSPOS TYPE STRING,
USNAM TYPE STRING,
MATNR TYPE STRING,
MTEXT TYPE STRING,
KOSTL TYPE STRING,
BDTER TYPE STRING,
BDMNG TYPE STRING,
ENMNG TYPE STRING,
DIMNG TYPE STRING,
MEINS TYPE STRING,
VMENG TYPE STRING,
VMEIN TYPE STRING,
KOMNG TYPE STRING,
KOMEI TYPE STRING,
WAUSG TYPE STRING,
ENTKO TYPE STRING,
EXPRE TYPE STRING,
DVARIANT TYPE STRING,
VERFU TYPE STRING,
VERFU_TXT TYPE STRING,
CS_ABTEI TYPE STRING,
CS_KOSAR TYPE STRING,
CS_VERAK TYPE STRING,
CS_ANRED TYPE STRING,
CS_NAME1 TYPE STRING,
CS_NAME2 TYPE STRING,
CS_NAME3 TYPE STRING,
CS_NAME4 TYPE STRING,
CS_STRAS TYPE STRING,
CS_ORT01 TYPE STRING,
CS_ORT02 TYPE STRING,
CS_PFACH TYPE STRING,
CS_PSTLZ TYPE STRING,
CS_PSTL2 TYPE STRING,
CS_REGIO TYPE STRING,
CS_TELF1 TYPE STRING,
CS_TELF2 TYPE STRING,
CS_TELFX TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RNMPICK_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_RNMPICK_STR-WERKS sy-vline 
WA_RNMPICK_STR-LGORT sy-vline 
WA_RNMPICK_STR-RSNUM sy-vline 
WA_RNMPICK_STR-RSPOS sy-vline 
WA_RNMPICK_STR-USNAM sy-vline 
WA_RNMPICK_STR-MATNR sy-vline 
WA_RNMPICK_STR-MTEXT sy-vline 
WA_RNMPICK_STR-KOSTL sy-vline 
WA_RNMPICK_STR-BDTER sy-vline 
WA_RNMPICK_STR-BDMNG sy-vline 
WA_RNMPICK_STR-ENMNG sy-vline 
WA_RNMPICK_STR-DIMNG sy-vline 
WA_RNMPICK_STR-MEINS sy-vline 
WA_RNMPICK_STR-VMENG sy-vline 
WA_RNMPICK_STR-VMEIN sy-vline 
WA_RNMPICK_STR-KOMNG sy-vline 
WA_RNMPICK_STR-KOMEI sy-vline 
WA_RNMPICK_STR-WAUSG sy-vline 
WA_RNMPICK_STR-ENTKO sy-vline 
WA_RNMPICK_STR-EXPRE sy-vline 
WA_RNMPICK_STR-DVARIANT sy-vline 
WA_RNMPICK_STR-VERFU sy-vline 
WA_RNMPICK_STR-VERFU_TXT sy-vline 
WA_RNMPICK_STR-CS_ABTEI sy-vline 
WA_RNMPICK_STR-CS_KOSAR sy-vline 
WA_RNMPICK_STR-CS_VERAK sy-vline 
WA_RNMPICK_STR-CS_ANRED sy-vline 
WA_RNMPICK_STR-CS_NAME1 sy-vline 
WA_RNMPICK_STR-CS_NAME2 sy-vline 
WA_RNMPICK_STR-CS_NAME3 sy-vline 
WA_RNMPICK_STR-CS_NAME4 sy-vline 
WA_RNMPICK_STR-CS_STRAS sy-vline 
WA_RNMPICK_STR-CS_ORT01 sy-vline 
WA_RNMPICK_STR-CS_ORT02 sy-vline 
WA_RNMPICK_STR-CS_PFACH sy-vline 
WA_RNMPICK_STR-CS_PSTLZ sy-vline 
WA_RNMPICK_STR-CS_PSTL2 sy-vline 
WA_RNMPICK_STR-CS_REGIO sy-vline 
WA_RNMPICK_STR-CS_TELF1 sy-vline 
WA_RNMPICK_STR-CS_TELF2 sy-vline 
WA_RNMPICK_STR-CS_TELFX sy-vline      INTO ld_text SEPARATED BY SPACE.

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