ABAP Select data from SAP table RF07 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 RF07 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 RF07. 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 RF07 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_RF07 TYPE STANDARD TABLE OF RF07,
      WA_RF07 TYPE RF07,
      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: <RF07> TYPE RF07.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RF07
*  INTO TABLE @DATA(IT_RF072).
*--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_RF07 INDEX 1 INTO DATA(WA_RF072).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RF07>-MANDT = 1.
<RF07>-BUKRS = 1.
<RF07>-GJAHR = 1.
<RF07>-LIFNR = 1.
<RF07>-CAUS = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RF07-NASSC, sy-vline,
  WA_RF07-CDINAIL, sy-vline,
  WA_RF07-DTINIZ, sy-vline,
  WA_RF07-DTFINE, sy-vline,
  WA_RF07-CDCOMU, sy-vline,
  WA_RF07-REP_LIFNR, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RF07 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_RF07 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_RF07 INTO WA_RF07.


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

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

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

*Conversion exit AU132, internal->external for field P_COST
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_RF07-P_COST
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-P_COST.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field P_TAX
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_RF07-P_TAX
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-P_TAX.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field P_DUBANK
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_RF07-P_DUBANK
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-P_DUBANK.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field P_PABANK
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_RF07-P_PABANK
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-P_PABANK.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field INCOME_REC
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-INCOME_REC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-INCOME_REC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field TAXBASE
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-TAXBASE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-TAXBASE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field WTAX
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-WTAX
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-WTAX.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field TAXDEDU
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-TAXDEDU
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-TAXDEDU.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field SUTAX
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-SUTAX
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-SUTAX.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field REGWTAX
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-REGWTAX
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-REGWTAX.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field REGTAX
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-REGTAX
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-REGTAX.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field SUREGTAX
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-SUREGTAX
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-SUREGTAX.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field IT_BYTAX
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-IT_BYTAX
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-IT_BYTAX.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field IT_DEEMED
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-IT_DEEMED
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-IT_DEEMED.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field IT_RETURNEDAMT
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-IT_RETURNEDAMT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-IT_RETURNEDAMT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field IT_ADDWHTAMT
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-IT_ADDWHTAMT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-IT_ADDWHTAMT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field IT_ADDTAXAMT
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-IT_ADDTAXAMT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-IT_ADDTAXAMT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field IT_ADDSUSAMT
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-IT_ADDSUSAMT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-IT_ADDSUSAMT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit GJAHR, internal->external for field IT_PREVYEAR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_RF07-IT_PREVYEAR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-IT_PREVYEAR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field IT_PREVBASEAMT
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-IT_PREVBASEAMT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-IT_PREVBASEAMT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field IT_PREVTAXAMT
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-IT_PREVTAXAMT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-IT_PREVTAXAMT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field ADDMULTITLE
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-ADDMULTITLE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-ADDMULTITLE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field ADDMULTAX
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-ADDMULTAX
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-ADDMULTAX.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field ADDMULSUSP
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-ADDMULSUSP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-ADDMULSUSP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field MULTITLE
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-MULTITLE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-MULTITLE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field MULTAX
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-MULTAX
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-MULTAX.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field MULSUSP
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-MULSUSP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-MULSUSP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field OTHCAMT
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-OTHCAMT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-OTHCAMT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field OTHCDUE
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-OTHCDUE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-OTHCDUE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field OTHCPAID
CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT'
  EXPORTING
    input =                      WA_RF07-OTHCPAID
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RF07-OTHCPAID.
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_RF07_STR, 
MANDT TYPE STRING,
BUKRS TYPE STRING,
GJAHR TYPE STRING,
LIFNR TYPE STRING,
CAUS TYPE STRING,
NASSC TYPE STRING,
CDINAIL TYPE STRING,
DTINIZ TYPE STRING,
DTFINE TYPE STRING,
CDCOMU TYPE STRING,
REP_LIFNR TYPE STRING,
REGIO_SF TYPE STRING,
SCEXEMP_FL TYPE STRING,
P_HEIR TYPE STRING,
EX_EVENTS TYPE STRING,
P_COST TYPE STRING,
P_TAX TYPE STRING,
P_DUBANK TYPE STRING,
P_PABANK TYPE STRING,
INCOME_REC TYPE STRING,
TAXCODE TYPE STRING,
TAXBASE TYPE STRING,
WTAX TYPE STRING,
TAXDEDU TYPE STRING,
SUTAX TYPE STRING,
REGWTAX TYPE STRING,
REGTAX TYPE STRING,
SUREGTAX TYPE STRING,
IT_CODE TYPE STRING,
IT_FOREIGN_COUNTRY TYPE STRING,
IT_BYTAX TYPE STRING,
IT_DEEMED TYPE STRING,
IT_RETURNEDAMT TYPE STRING,
IT_ADDWHTAMT TYPE STRING,
IT_ADDTAXAMT TYPE STRING,
IT_ADDSUSAMT TYPE STRING,
IT_PREVYEAR TYPE STRING,
IT_PREVBASEAMT TYPE STRING,
IT_PREVTAXAMT TYPE STRING,
ADDMULTITLE TYPE STRING,
ADDMULTAX TYPE STRING,
ADDMULSUSP TYPE STRING,
MULTITLE TYPE STRING,
MULTAX TYPE STRING,
MULSUSP TYPE STRING,
BPCATGRY TYPE STRING,
DELIDNUM TYPE STRING,
CUNUMBER TYPE STRING,
ADVANCE TYPE STRING,
OTHCAMT TYPE STRING,
OTHCDUE TYPE STRING,
OTHCPAID TYPE STRING,
SSIVCATG TYPE STRING,
VENDREPR TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RF07_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_RF07_STR-MANDT sy-vline 
WA_RF07_STR-BUKRS sy-vline 
WA_RF07_STR-GJAHR sy-vline 
WA_RF07_STR-LIFNR sy-vline 
WA_RF07_STR-CAUS sy-vline 
WA_RF07_STR-NASSC sy-vline 
WA_RF07_STR-CDINAIL sy-vline 
WA_RF07_STR-DTINIZ sy-vline 
WA_RF07_STR-DTFINE sy-vline 
WA_RF07_STR-CDCOMU sy-vline 
WA_RF07_STR-REP_LIFNR sy-vline 
WA_RF07_STR-REGIO_SF sy-vline 
WA_RF07_STR-SCEXEMP_FL sy-vline 
WA_RF07_STR-P_HEIR sy-vline 
WA_RF07_STR-EX_EVENTS sy-vline 
WA_RF07_STR-P_COST sy-vline 
WA_RF07_STR-P_TAX sy-vline 
WA_RF07_STR-P_DUBANK sy-vline 
WA_RF07_STR-P_PABANK sy-vline 
WA_RF07_STR-INCOME_REC sy-vline 
WA_RF07_STR-TAXCODE sy-vline 
WA_RF07_STR-TAXBASE sy-vline 
WA_RF07_STR-WTAX sy-vline 
WA_RF07_STR-TAXDEDU sy-vline 
WA_RF07_STR-SUTAX sy-vline 
WA_RF07_STR-REGWTAX sy-vline 
WA_RF07_STR-REGTAX sy-vline 
WA_RF07_STR-SUREGTAX sy-vline 
WA_RF07_STR-IT_CODE sy-vline 
WA_RF07_STR-IT_FOREIGN_COUNTRY sy-vline 
WA_RF07_STR-IT_BYTAX sy-vline 
WA_RF07_STR-IT_DEEMED sy-vline 
WA_RF07_STR-IT_RETURNEDAMT sy-vline 
WA_RF07_STR-IT_ADDWHTAMT sy-vline 
WA_RF07_STR-IT_ADDTAXAMT sy-vline 
WA_RF07_STR-IT_ADDSUSAMT sy-vline 
WA_RF07_STR-IT_PREVYEAR sy-vline 
WA_RF07_STR-IT_PREVBASEAMT sy-vline 
WA_RF07_STR-IT_PREVTAXAMT sy-vline 
WA_RF07_STR-ADDMULTITLE sy-vline 
WA_RF07_STR-ADDMULTAX sy-vline 
WA_RF07_STR-ADDMULSUSP sy-vline 
WA_RF07_STR-MULTITLE sy-vline 
WA_RF07_STR-MULTAX sy-vline 
WA_RF07_STR-MULSUSP sy-vline 
WA_RF07_STR-BPCATGRY sy-vline 
WA_RF07_STR-DELIDNUM sy-vline 
WA_RF07_STR-CUNUMBER sy-vline 
WA_RF07_STR-ADVANCE sy-vline 
WA_RF07_STR-OTHCAMT sy-vline 
WA_RF07_STR-OTHCDUE sy-vline 
WA_RF07_STR-OTHCPAID sy-vline 
WA_RF07_STR-SSIVCATG sy-vline 
WA_RF07_STR-VENDREPR sy-vline      INTO ld_text SEPARATED BY SPACE.

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