ABAP Select data from SAP table /MRSS/T_RM_PARTNER_EMAIL 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 /MRSS/T_RM_PARTNER_EMAIL 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 /MRSS/T_RM_PARTNER_EMAIL. 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 /MRSS/T_RM_PARTNER_EMAIL 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_/MRSS/T_RM_PARTNER_EMAIL TYPE STANDARD TABLE OF /MRSS/T_RM_PARTNER_EMAIL,
      WA_/MRSS/T_RM_PARTNER_EMAIL TYPE /MRSS/T_RM_PARTNER_EMAIL,
      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: </MRSS/T_RM_PARTNER_EMAIL> TYPE /MRSS/T_RM_PARTNER_EMAIL.

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

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM /MRSS/T_RM_PARTNER_EMAIL
  INTO TABLE IT_/MRSS/T_RM_PARTNER_EMAIL.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM /MRSS/T_RM_PARTNER_EMAIL
*  INTO TABLE @DATA(IT_/MRSS/T_RM_PARTNER_EMAIL2).
*--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_/MRSS/T_RM_PARTNER_EMAIL INDEX 1 INTO DATA(WA_/MRSS/T_RM_PARTNER_EMAIL2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_/MRSS/T_RM_PARTNER_EMAIL ASSIGNING </MRSS/T_RM_PARTNER_EMAIL>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
</MRSS/T_RM_PARTNER_EMAIL>-GUID = 1.
</MRSS/T_RM_PARTNER_EMAIL>-REQUEST_NUMBER = 1.
</MRSS/T_RM_PARTNER_EMAIL>-ROLE_NUMBER = 1.
</MRSS/T_RM_PARTNER_EMAIL>-BCRID = 1.
</MRSS/T_RM_PARTNER_EMAIL>-BCRIDTY = 1.

ENDLOOP.

LOOP AT IT_/MRSS/T_RM_PARTNER_EMAIL INTO WA_/MRSS/T_RM_PARTNER_EMAIL.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_/MRSS/T_RM_PARTNER_EMAIL-BCDONE, sy-vline,
  WA_/MRSS/T_RM_PARTNER_EMAIL-TIMESTAMP, sy-vline,
  WA_/MRSS/T_RM_PARTNER_EMAIL-REBCF, sy-vline,
  WA_/MRSS/T_RM_PARTNER_EMAIL-CANCEL, sy-vline,
  WA_/MRSS/T_RM_PARTNER_EMAIL-DESCRIPTION, sy-vline,
  WA_/MRSS/T_RM_PARTNER_EMAIL-BCSTATUS, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_/MRSS/T_RM_PARTNER_EMAIL 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_/MRSS/T_RM_PARTNER_EMAIL 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_/MRSS/T_RM_PARTNER_EMAIL INTO WA_/MRSS/T_RM_PARTNER_EMAIL.


*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 ALPHA, internal->external for field REQUEST_NUMBER
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_/MRSS/T_RM_PARTNER_EMAIL-REQUEST_NUMBER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/MRSS/T_RM_PARTNER_EMAIL-REQUEST_NUMBER.
WRITE:/ 'New Value:', ld_input.

*Conversion exit NUMCV, internal->external for field ROLE_NUMBER
CALL FUNCTION 'CONVERSION_EXIT_NUMCV_OUTPUT'
  EXPORTING
    input =                      WA_/MRSS/T_RM_PARTNER_EMAIL-ROLE_NUMBER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/MRSS/T_RM_PARTNER_EMAIL-ROLE_NUMBER.
WRITE:/ 'New Value:', ld_input.

*Conversion exit PFKEY, internal->external for field BCRID
CALL FUNCTION 'CONVERSION_EXIT_PFKEY_OUTPUT'
  EXPORTING
    input =                      WA_/MRSS/T_RM_PARTNER_EMAIL-BCRID
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/MRSS/T_RM_PARTNER_EMAIL-BCRID.
WRITE:/ 'New Value:', ld_input.

*Conversion exit PFKEY, internal->external for field VGRPID
CALL FUNCTION 'CONVERSION_EXIT_PFKEY_OUTPUT'
  EXPORTING
    input =                      WA_/MRSS/T_RM_PARTNER_EMAIL-VGRPID
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/MRSS/T_RM_PARTNER_EMAIL-VGRPID.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit CUNIT, internal->external for field TOTAL_WORK_UNIT
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_/MRSS/T_RM_PARTNER_EMAIL-TOTAL_WORK_UNIT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/MRSS/T_RM_PARTNER_EMAIL-TOTAL_WORK_UNIT.
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_/MRSS/T_RM_PARTNER_EMAIL_STR, 
GUID TYPE STRING,
REQUEST_NUMBER TYPE STRING,
ROLE_NUMBER TYPE STRING,
BCRID TYPE STRING,
BCRIDTY TYPE STRING,
BCDONE TYPE STRING,
TIMESTAMP TYPE STRING,
REBCF TYPE STRING,
CANCEL TYPE STRING,
DESCRIPTION TYPE STRING,
BCSTATUS TYPE STRING,
BCDATE TYPE STRING,
VGRPID TYPE STRING,
VERSION_NO TYPE STRING,
STATUS TYPE STRING,
KEY_EXT TYPE STRING,
PLVAR TYPE STRING,
OTYPE TYPE STRING,
OBJID TYPE STRING,
SEARCH_GROUP_DESC TYPE STRING,
SEARCH_PARTY_ID TYPE STRING,
SEARCH_PARTY_NAME TYPE STRING,
VAL_FROM TYPE STRING,
VAL_TO TYPE STRING,
PLAN_FROM TYPE STRING,
PLAN_TO TYPE STRING,
EARL_START TYPE STRING,
LAT_START TYPE STRING,
EARL_END TYPE STRING,
LAT_END TYPE STRING,
SCHED_FROM TYPE STRING,
SCHED_TO TYPE STRING,
DURATION TYPE STRING,
DURATION_UNIT TYPE STRING,
TOTAL_WORK TYPE STRING,
TOTAL_WORK_UNIT TYPE STRING,
MULT_RES TYPE STRING,
VBKZ TYPE STRING,
DEMAND_GUID TYPE STRING,
SOURCE_ORG TYPE STRING,
SOURCE_ORG_DESC TYPE STRING,
VISIBLE TYPE STRING,
INC_BROADCAST TYPE STRING,
CREATED_BY_RQSTR TYPE STRING,
VGRP_DESCRIPTION TYPE STRING,
CREATED_BY TYPE STRING,
CREATED_ON TYPE STRING,
CHANGED_BY TYPE STRING,
CHANGED_ON TYPE STRING,
CREATEDUSER TYPE STRING,
CHANGEDUSER TYPE STRING,
CHANGED_AT TYPE STRING,
DURATION_UI TYPE STRING,
BC_BY_OTHER_SP TYPE STRING,
EDITABLE TYPE STRING,
MESSAGE_TAB TYPE STRING,
TIME_RULE_ID TYPE STRING,
TRIGGER_ACTION TYPE STRING,
CC_TO_SENDER TYPE STRING,
CHK_PDF_MSGBODY_ATTACH TYPE STRING,
FILENAME TYPE STRING,
MIMETYPE TYPE STRING,
FILEDATA TYPE STRING,
TO_EMAIL_IDS TYPE STRING,
FROM_EMAIL_IDS TYPE STRING,
CC_EMAIL_IDS TYPE STRING,
BCC_EMAIL_IDS TYPE STRING,
SUBJECT TYPE STRING,
MSG_BODY TYPE STRING,
MSG_BODY_OTF TYPE STRING,
ATTACHMENTS TYPE STRING,
BCAST_TARGETS TYPE STRING,END OF T_EKKO_STR.
DATA: WA_/MRSS/T_RM_PARTNER_EMAIL_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_/MRSS/T_RM_PARTNER_EMAIL_STR-GUID sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-REQUEST_NUMBER sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-ROLE_NUMBER sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-BCRID sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-BCRIDTY sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-BCDONE sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-TIMESTAMP sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-REBCF sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-CANCEL sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-DESCRIPTION sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-BCSTATUS sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-BCDATE sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-VGRPID sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-VERSION_NO sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-STATUS sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-KEY_EXT sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-PLVAR sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-OTYPE sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-OBJID sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-SEARCH_GROUP_DESC sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-SEARCH_PARTY_ID sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-SEARCH_PARTY_NAME sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-VAL_FROM sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-VAL_TO sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-PLAN_FROM sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-PLAN_TO sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-EARL_START sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-LAT_START sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-EARL_END sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-LAT_END sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-SCHED_FROM sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-SCHED_TO sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-DURATION sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-DURATION_UNIT sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-TOTAL_WORK sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-TOTAL_WORK_UNIT sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-MULT_RES sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-VBKZ sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-DEMAND_GUID sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-SOURCE_ORG sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-SOURCE_ORG_DESC sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-VISIBLE sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-INC_BROADCAST sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-CREATED_BY_RQSTR sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-VGRP_DESCRIPTION sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-CREATED_BY sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-CREATED_ON sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-CHANGED_BY sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-CHANGED_ON sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-CREATEDUSER sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-CHANGEDUSER sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-CHANGED_AT sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-DURATION_UI sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-BC_BY_OTHER_SP sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-EDITABLE sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-MESSAGE_TAB sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-TIME_RULE_ID sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-TRIGGER_ACTION sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-CC_TO_SENDER sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-CHK_PDF_MSGBODY_ATTACH sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-FILENAME sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-MIMETYPE sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-FILEDATA sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-TO_EMAIL_IDS sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-FROM_EMAIL_IDS sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-CC_EMAIL_IDS sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-BCC_EMAIL_IDS sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-SUBJECT sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-MSG_BODY sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-MSG_BODY_OTF sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-ATTACHMENTS sy-vline 
WA_/MRSS/T_RM_PARTNER_EMAIL_STR-BCAST_TARGETS sy-vline      INTO ld_text SEPARATED BY SPACE.

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