ABAP Select data from SAP table RFCU4 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 RFCU4 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 RFCU4. 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 RFCU4 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_RFCU4 TYPE STANDARD TABLE OF RFCU4,
      WA_RFCU4 TYPE RFCU4,
      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: <RFCU4> TYPE RFCU4.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RFCU4
*  INTO TABLE @DATA(IT_RFCU42).
*--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_RFCU4 INDEX 1 INTO DATA(WA_RFCU42).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RFCU4>-XDEBI = 1.
<RFCU4>-XKRED = 1.
<RFCU4>-XSACH = 1.
<RFCU4>-XUEBS = 1.
<RFCU4>-XEINP = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RFCU4-TEXT1, sy-vline,
  WA_RFCU4-VAUSD, sy-vline,
  WA_RFCU4-VAUSK, sy-vline,
  WA_RFCU4-VAUSS, sy-vline,
  WA_RFCU4-VBLAN, sy-vline,
  WA_RFCU4-VEPAD, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RFCU4 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_RFCU4 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_RFCU4 INTO WA_RFCU4.


*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.
ENDFORM. 

*&---------------------------------------------------------------------*
*& Form process_as_string_field_values
*&---------------------------------------------------------------------*
FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO.

TYPES: BEGIN OF T_RFCU4_STR, 
XDEBI TYPE STRING,
XKRED TYPE STRING,
XSACH TYPE STRING,
XUEBS TYPE STRING,
XEINP TYPE STRING,
TEXT1 TYPE STRING,
VAUSD TYPE STRING,
VAUSK TYPE STRING,
VAUSS TYPE STRING,
VBLAN TYPE STRING,
VEPAD TYPE STRING,
VEPAK TYPE STRING,
VEPAS TYPE STRING,
VZAVZ TYPE STRING,
VZAVE TYPE STRING,
TAUSD TYPE STRING,
TAUSK TYPE STRING,
TAUSS TYPE STRING,
TBLAN TYPE STRING,
TEPAD TYPE STRING,
TEPAK TYPE STRING,
TEPAS TYPE STRING,
TZAVZ TYPE STRING,
TZAVE TYPE STRING,
TITEL TYPE STRING,
CURTP TYPE STRING,
KURST TYPE STRING,
CURSR TYPE STRING,
CURDT TYPE STRING,
CUTPB TYPE STRING,
CTPB2 TYPE STRING,
CTPB3 TYPE STRING,
CURVW TYPE STRING,
CURV2 TYPE STRING,
CURV3 TYPE STRING,
CUSRB TYPE STRING,
CSRB2 TYPE STRING,
CSRB3 TYPE STRING,
CURDB TYPE STRING,
CUDB2 TYPE STRING,
CUDB3 TYPE STRING,
HWAE2 TYPE STRING,
HWAE3 TYPE STRING,
VTEXT TYPE STRING,
MSGTY TYPE STRING,
MTBED TYPE STRING,
TEXT2 TYPE STRING,
VBLEX TYPE STRING,
TBLEX TYPE STRING,
VKRED TYPE STRING,
TKRED TYPE STRING,
VBLUE TYPE STRING,
TBLUE TYPE STRING,
FLAGX TYPE STRING,
VAVIS TYPE STRING,
TAVIS TYPE STRING,
INTTP TYPE STRING,
CHAR1 TYPE STRING,
XSE01 TYPE STRING,
BWER1 TYPE STRING,
BWER2 TYPE STRING,
BWER3 TYPE STRING,
BWRT1 TYPE STRING,
BWRT2 TYPE STRING,
BWRT3 TYPE STRING,
CURTP2 TYPE STRING,
CURTP3 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RFCU4_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_RFCU4_STR-XDEBI sy-vline 
WA_RFCU4_STR-XKRED sy-vline 
WA_RFCU4_STR-XSACH sy-vline 
WA_RFCU4_STR-XUEBS sy-vline 
WA_RFCU4_STR-XEINP sy-vline 
WA_RFCU4_STR-TEXT1 sy-vline 
WA_RFCU4_STR-VAUSD sy-vline 
WA_RFCU4_STR-VAUSK sy-vline 
WA_RFCU4_STR-VAUSS sy-vline 
WA_RFCU4_STR-VBLAN sy-vline 
WA_RFCU4_STR-VEPAD sy-vline 
WA_RFCU4_STR-VEPAK sy-vline 
WA_RFCU4_STR-VEPAS sy-vline 
WA_RFCU4_STR-VZAVZ sy-vline 
WA_RFCU4_STR-VZAVE sy-vline 
WA_RFCU4_STR-TAUSD sy-vline 
WA_RFCU4_STR-TAUSK sy-vline 
WA_RFCU4_STR-TAUSS sy-vline 
WA_RFCU4_STR-TBLAN sy-vline 
WA_RFCU4_STR-TEPAD sy-vline 
WA_RFCU4_STR-TEPAK sy-vline 
WA_RFCU4_STR-TEPAS sy-vline 
WA_RFCU4_STR-TZAVZ sy-vline 
WA_RFCU4_STR-TZAVE sy-vline 
WA_RFCU4_STR-TITEL sy-vline 
WA_RFCU4_STR-CURTP sy-vline 
WA_RFCU4_STR-KURST sy-vline 
WA_RFCU4_STR-CURSR sy-vline 
WA_RFCU4_STR-CURDT sy-vline 
WA_RFCU4_STR-CUTPB sy-vline 
WA_RFCU4_STR-CTPB2 sy-vline 
WA_RFCU4_STR-CTPB3 sy-vline 
WA_RFCU4_STR-CURVW sy-vline 
WA_RFCU4_STR-CURV2 sy-vline 
WA_RFCU4_STR-CURV3 sy-vline 
WA_RFCU4_STR-CUSRB sy-vline 
WA_RFCU4_STR-CSRB2 sy-vline 
WA_RFCU4_STR-CSRB3 sy-vline 
WA_RFCU4_STR-CURDB sy-vline 
WA_RFCU4_STR-CUDB2 sy-vline 
WA_RFCU4_STR-CUDB3 sy-vline 
WA_RFCU4_STR-HWAE2 sy-vline 
WA_RFCU4_STR-HWAE3 sy-vline 
WA_RFCU4_STR-VTEXT sy-vline 
WA_RFCU4_STR-MSGTY sy-vline 
WA_RFCU4_STR-MTBED sy-vline 
WA_RFCU4_STR-TEXT2 sy-vline 
WA_RFCU4_STR-VBLEX sy-vline 
WA_RFCU4_STR-TBLEX sy-vline 
WA_RFCU4_STR-VKRED sy-vline 
WA_RFCU4_STR-TKRED sy-vline 
WA_RFCU4_STR-VBLUE sy-vline 
WA_RFCU4_STR-TBLUE sy-vline 
WA_RFCU4_STR-FLAGX sy-vline 
WA_RFCU4_STR-VAVIS sy-vline 
WA_RFCU4_STR-TAVIS sy-vline 
WA_RFCU4_STR-INTTP sy-vline 
WA_RFCU4_STR-CHAR1 sy-vline 
WA_RFCU4_STR-XSE01 sy-vline 
WA_RFCU4_STR-BWER1 sy-vline 
WA_RFCU4_STR-BWER2 sy-vline 
WA_RFCU4_STR-BWER3 sy-vline 
WA_RFCU4_STR-BWRT1 sy-vline 
WA_RFCU4_STR-BWRT2 sy-vline 
WA_RFCU4_STR-BWRT3 sy-vline 
WA_RFCU4_STR-CURTP2 sy-vline 
WA_RFCU4_STR-CURTP3 sy-vline      INTO ld_text SEPARATED BY SPACE.

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