ABAP Select data from SAP table RM07SCR 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 RM07SCR 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 RM07SCR. 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 RM07SCR 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_RM07SCR TYPE STANDARD TABLE OF RM07SCR,
      WA_RM07SCR TYPE RM07SCR,
      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: <RM07SCR> TYPE RM07SCR.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RM07SCR
*  INTO TABLE @DATA(IT_RM07SCR2).
*--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_RM07SCR INDEX 1 INTO DATA(WA_RM07SCR2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RM07SCR>-D1001_01 = 1.
<RM07SCR>-D1001_02 = 1.
<RM07SCR>-D1002_01 = 1.
<RM07SCR>-D1002_02 = 1.
<RM07SCR>-D1002_MOD = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RM07SCR-D1002_KEY, sy-vline,
  WA_RM07SCR-D1002_KTXT, sy-vline,
  WA_RM07SCR-D1002_TXT, sy-vline,
  WA_RM07SCR-D1024_01, sy-vline,
  WA_RM07SCR-D1003_TXT, sy-vline,
  WA_RM07SCR-D1003_01, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RM07SCR 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_RM07SCR 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_RM07SCR INTO WA_RM07SCR.


*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 D1013_DEB
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RM07SCR-D1013_DEB
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RM07SCR-D1013_DEB.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field D1071_CRE
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RM07SCR-D1071_CRE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RM07SCR-D1071_CRE.
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_RM07SCR_STR, 
D1001_01 TYPE STRING,
D1001_02 TYPE STRING,
D1002_01 TYPE STRING,
D1002_02 TYPE STRING,
D1002_MOD TYPE STRING,
D1002_KEY TYPE STRING,
D1002_KTXT TYPE STRING,
D1002_TXT TYPE STRING,
D1024_01 TYPE STRING,
D1003_TXT TYPE STRING,
D1003_01 TYPE STRING,
D1003_02 TYPE STRING,
D1005_MTA TYPE STRING,
D1005_MTT TYPE STRING,
D1005_NUM TYPE STRING,
D1005_CLA TYPE STRING,
D1007_GROU TYPE STRING,
D1009_BSV TYPE STRING,
D1009_BSX TYPE STRING,
D1009_GBB TYPE STRING,
D1010_VAL TYPE STRING,
D1010_PKEY TYPE STRING,
D1010_MOD TYPE STRING,
D1010_PKDS TYPE STRING,
D1011_YES TYPE STRING,
D1011_NO TYPE STRING,
D1012_FLAG TYPE STRING,
D1012_TEXT TYPE STRING,
D1013_COA TYPE STRING,
D1013_COAT TYPE STRING,
D1013_BUT TYPE STRING,
D1013_BUTA TYPE STRING,
D1013_TEXT TYPE STRING,
D1013_GROU TYPE STRING,
D1013_GSW TYPE STRING,
D1013_GSWT TYPE STRING,
D1013_ACC TYPE STRING,
D1013_ACCT TYPE STRING,
D1013_C_D TYPE STRING,
D1013_DEB TYPE STRING,
D1013_CRED TYPE STRING,
D1013_GRO TYPE STRING,
D1041_ACC TYPE STRING,
D1041_ACCT TYPE STRING,
D1041_MAT TYPE STRING,
D1041_VCLA TYPE STRING,
D1041_VCLT TYPE STRING,
D1041_MTA TYPE STRING,
D1041_GRO TYPE STRING,
D1041_DESC TYPE STRING,
D1014_DESC TYPE STRING,
D1014_GRO TYPE STRING,
D1014_MTA TYPE STRING,
D1014_MAT TYPE STRING,
D1014_VCLA TYPE STRING,
D1014_VCLT TYPE STRING,
D1014_ACC TYPE STRING,
D1014_ACCT TYPE STRING,
D1015_ACC TYPE STRING,
D1015_TEXT TYPE STRING,
D1017_R1 TYPE STRING,
D1017_R2 TYPE STRING,
D1017_R3 TYPE STRING,
D1017_R4 TYPE STRING,
D1017_R5 TYPE STRING,
D1017_R6 TYPE STRING,
D1017_R7 TYPE STRING,
D1017_R8 TYPE STRING,
D1017_R9 TYPE STRING,
D1017_R10 TYPE STRING,
D1017_R11 TYPE STRING,
D1017_R12 TYPE STRING,
D1017_R13 TYPE STRING,
D1017_R14 TYPE STRING,
D1017_R15 TYPE STRING,
D1017_R16 TYPE STRING,
D1017_R17 TYPE STRING,
D1012_IROW TYPE STRING,
D1018_VCL TYPE STRING,
D1018_TXT TYPE STRING,
D1018_MTA TYPE STRING,
D1018_MTT TYPE STRING,
D1019_GRO TYPE STRING,
D1019_TXT TYPE STRING,
D1019_ACC TYPE STRING,
D1019_ACCT TYPE STRING,
D1012_LNO TYPE STRING,
D1012_MNO TYPE STRING,
D1046_TXT1 TYPE STRING,
D1046_TXT2 TYPE STRING,
D1049_ACC TYPE STRING,
D1049_ACCT TYPE STRING,
D1052_MAT TYPE STRING,
D1052_MTDS TYPE STRING,
D1055_VCL TYPE STRING,
D1055_VCLT TYPE STRING,
D1058_VGR TYPE STRING,
D1067_DC1 TYPE STRING,
D1067_DC2 TYPE STRING,
D1067_DC3 TYPE STRING,
D1067_DC4 TYPE STRING,
D1067_DC5 TYPE STRING,
D1067_DC6 TYPE STRING,
D1071_GRP TYPE STRING,
D1071_MAT TYPE STRING,
D1071_MTDS TYPE STRING,
D1071_VCL TYPE STRING,
D1071_VCLT TYPE STRING,
D1071_DEB TYPE STRING,
D1071_DEBT TYPE STRING,
D1071_CRE TYPE STRING,
D1071_CRET TYPE STRING,
D1075_Y1 TYPE STRING,
D1075_N1 TYPE STRING,
D1075_Y2 TYPE STRING,
D1075_N2 TYPE STRING,
D1075_TXT TYPE STRING,
D1076_YES TYPE STRING,
D1076_NO TYPE STRING,
D1076_NOPO TYPE STRING,
D1077_YES TYPE STRING,
D1077_NO TYPE STRING,
D1078_MAT TYPE STRING,
D1078_MTDS TYPE STRING,
D1078_MSEL TYPE STRING,
D1081_YES TYPE STRING,
D1081_NO TYPE STRING,
D1081_TXT TYPE STRING,
D1084_CC TYPE STRING,
D1084_CCT TYPE STRING,
D1084_CCC TYPE STRING,
D1084_PAM TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RM07SCR_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_RM07SCR_STR-D1001_01 sy-vline 
WA_RM07SCR_STR-D1001_02 sy-vline 
WA_RM07SCR_STR-D1002_01 sy-vline 
WA_RM07SCR_STR-D1002_02 sy-vline 
WA_RM07SCR_STR-D1002_MOD sy-vline 
WA_RM07SCR_STR-D1002_KEY sy-vline 
WA_RM07SCR_STR-D1002_KTXT sy-vline 
WA_RM07SCR_STR-D1002_TXT sy-vline 
WA_RM07SCR_STR-D1024_01 sy-vline 
WA_RM07SCR_STR-D1003_TXT sy-vline 
WA_RM07SCR_STR-D1003_01 sy-vline 
WA_RM07SCR_STR-D1003_02 sy-vline 
WA_RM07SCR_STR-D1005_MTA sy-vline 
WA_RM07SCR_STR-D1005_MTT sy-vline 
WA_RM07SCR_STR-D1005_NUM sy-vline 
WA_RM07SCR_STR-D1005_CLA sy-vline 
WA_RM07SCR_STR-D1007_GROU sy-vline 
WA_RM07SCR_STR-D1009_BSV sy-vline 
WA_RM07SCR_STR-D1009_BSX sy-vline 
WA_RM07SCR_STR-D1009_GBB sy-vline 
WA_RM07SCR_STR-D1010_VAL sy-vline 
WA_RM07SCR_STR-D1010_PKEY sy-vline 
WA_RM07SCR_STR-D1010_MOD sy-vline 
WA_RM07SCR_STR-D1010_PKDS sy-vline 
WA_RM07SCR_STR-D1011_YES sy-vline 
WA_RM07SCR_STR-D1011_NO sy-vline 
WA_RM07SCR_STR-D1012_FLAG sy-vline 
WA_RM07SCR_STR-D1012_TEXT sy-vline 
WA_RM07SCR_STR-D1013_COA sy-vline 
WA_RM07SCR_STR-D1013_COAT sy-vline 
WA_RM07SCR_STR-D1013_BUT sy-vline 
WA_RM07SCR_STR-D1013_BUTA sy-vline 
WA_RM07SCR_STR-D1013_TEXT sy-vline 
WA_RM07SCR_STR-D1013_GROU sy-vline 
WA_RM07SCR_STR-D1013_GSW sy-vline 
WA_RM07SCR_STR-D1013_GSWT sy-vline 
WA_RM07SCR_STR-D1013_ACC sy-vline 
WA_RM07SCR_STR-D1013_ACCT sy-vline 
WA_RM07SCR_STR-D1013_C_D sy-vline 
WA_RM07SCR_STR-D1013_DEB sy-vline 
WA_RM07SCR_STR-D1013_CRED sy-vline 
WA_RM07SCR_STR-D1013_GRO sy-vline 
WA_RM07SCR_STR-D1041_ACC sy-vline 
WA_RM07SCR_STR-D1041_ACCT sy-vline 
WA_RM07SCR_STR-D1041_MAT sy-vline 
WA_RM07SCR_STR-D1041_VCLA sy-vline 
WA_RM07SCR_STR-D1041_VCLT sy-vline 
WA_RM07SCR_STR-D1041_MTA sy-vline 
WA_RM07SCR_STR-D1041_GRO sy-vline 
WA_RM07SCR_STR-D1041_DESC sy-vline 
WA_RM07SCR_STR-D1014_DESC sy-vline 
WA_RM07SCR_STR-D1014_GRO sy-vline 
WA_RM07SCR_STR-D1014_MTA sy-vline 
WA_RM07SCR_STR-D1014_MAT sy-vline 
WA_RM07SCR_STR-D1014_VCLA sy-vline 
WA_RM07SCR_STR-D1014_VCLT sy-vline 
WA_RM07SCR_STR-D1014_ACC sy-vline 
WA_RM07SCR_STR-D1014_ACCT sy-vline 
WA_RM07SCR_STR-D1015_ACC sy-vline 
WA_RM07SCR_STR-D1015_TEXT sy-vline 
WA_RM07SCR_STR-D1017_R1 sy-vline 
WA_RM07SCR_STR-D1017_R2 sy-vline 
WA_RM07SCR_STR-D1017_R3 sy-vline 
WA_RM07SCR_STR-D1017_R4 sy-vline 
WA_RM07SCR_STR-D1017_R5 sy-vline 
WA_RM07SCR_STR-D1017_R6 sy-vline 
WA_RM07SCR_STR-D1017_R7 sy-vline 
WA_RM07SCR_STR-D1017_R8 sy-vline 
WA_RM07SCR_STR-D1017_R9 sy-vline 
WA_RM07SCR_STR-D1017_R10 sy-vline 
WA_RM07SCR_STR-D1017_R11 sy-vline 
WA_RM07SCR_STR-D1017_R12 sy-vline 
WA_RM07SCR_STR-D1017_R13 sy-vline 
WA_RM07SCR_STR-D1017_R14 sy-vline 
WA_RM07SCR_STR-D1017_R15 sy-vline 
WA_RM07SCR_STR-D1017_R16 sy-vline 
WA_RM07SCR_STR-D1017_R17 sy-vline 
WA_RM07SCR_STR-D1012_IROW sy-vline 
WA_RM07SCR_STR-D1018_VCL sy-vline 
WA_RM07SCR_STR-D1018_TXT sy-vline 
WA_RM07SCR_STR-D1018_MTA sy-vline 
WA_RM07SCR_STR-D1018_MTT sy-vline 
WA_RM07SCR_STR-D1019_GRO sy-vline 
WA_RM07SCR_STR-D1019_TXT sy-vline 
WA_RM07SCR_STR-D1019_ACC sy-vline 
WA_RM07SCR_STR-D1019_ACCT sy-vline 
WA_RM07SCR_STR-D1012_LNO sy-vline 
WA_RM07SCR_STR-D1012_MNO sy-vline 
WA_RM07SCR_STR-D1046_TXT1 sy-vline 
WA_RM07SCR_STR-D1046_TXT2 sy-vline 
WA_RM07SCR_STR-D1049_ACC sy-vline 
WA_RM07SCR_STR-D1049_ACCT sy-vline 
WA_RM07SCR_STR-D1052_MAT sy-vline 
WA_RM07SCR_STR-D1052_MTDS sy-vline 
WA_RM07SCR_STR-D1055_VCL sy-vline 
WA_RM07SCR_STR-D1055_VCLT sy-vline 
WA_RM07SCR_STR-D1058_VGR sy-vline 
WA_RM07SCR_STR-D1067_DC1 sy-vline 
WA_RM07SCR_STR-D1067_DC2 sy-vline 
WA_RM07SCR_STR-D1067_DC3 sy-vline 
WA_RM07SCR_STR-D1067_DC4 sy-vline 
WA_RM07SCR_STR-D1067_DC5 sy-vline 
WA_RM07SCR_STR-D1067_DC6 sy-vline 
WA_RM07SCR_STR-D1071_GRP sy-vline 
WA_RM07SCR_STR-D1071_MAT sy-vline 
WA_RM07SCR_STR-D1071_MTDS sy-vline 
WA_RM07SCR_STR-D1071_VCL sy-vline 
WA_RM07SCR_STR-D1071_VCLT sy-vline 
WA_RM07SCR_STR-D1071_DEB sy-vline 
WA_RM07SCR_STR-D1071_DEBT sy-vline 
WA_RM07SCR_STR-D1071_CRE sy-vline 
WA_RM07SCR_STR-D1071_CRET sy-vline 
WA_RM07SCR_STR-D1075_Y1 sy-vline 
WA_RM07SCR_STR-D1075_N1 sy-vline 
WA_RM07SCR_STR-D1075_Y2 sy-vline 
WA_RM07SCR_STR-D1075_N2 sy-vline 
WA_RM07SCR_STR-D1075_TXT sy-vline 
WA_RM07SCR_STR-D1076_YES sy-vline 
WA_RM07SCR_STR-D1076_NO sy-vline 
WA_RM07SCR_STR-D1076_NOPO sy-vline 
WA_RM07SCR_STR-D1077_YES sy-vline 
WA_RM07SCR_STR-D1077_NO sy-vline 
WA_RM07SCR_STR-D1078_MAT sy-vline 
WA_RM07SCR_STR-D1078_MTDS sy-vline 
WA_RM07SCR_STR-D1078_MSEL sy-vline 
WA_RM07SCR_STR-D1081_YES sy-vline 
WA_RM07SCR_STR-D1081_NO sy-vline 
WA_RM07SCR_STR-D1081_TXT sy-vline 
WA_RM07SCR_STR-D1084_CC sy-vline 
WA_RM07SCR_STR-D1084_CCT sy-vline 
WA_RM07SCR_STR-D1084_CCC sy-vline 
WA_RM07SCR_STR-D1084_PAM sy-vline      INTO ld_text SEPARATED BY SPACE.

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