ABAP Select data from SAP table RFCU1 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 RFCU1 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 RFCU1. 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 RFCU1 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_RFCU1 TYPE STANDARD TABLE OF RFCU1,
      WA_RFCU1 TYPE RFCU1,
      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: <RFCU1> TYPE RFCU1.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RFCU1
*  INTO TABLE @DATA(IT_RFCU12).
*--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_RFCU1 INDEX 1 INTO DATA(WA_RFCU12).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RFCU1>-VBUKR = 1.
<RFCU1>-NBUKR = 1.
<RFCU1>-LBUKR = 1.
<RFCU1>-NWAER = 1.
<RFCU1>-BUTXT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RFCU1-ORT01, sy-vline,
  WA_RFCU1-XFIMI, sy-vline,
  WA_RFCU1-XSKB1, sy-vline,
  WA_RFCU1-XT004F, sy-vline,
  WA_RFCU1-XT012, sy-vline,
  WA_RFCU1-XT079D, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RFCU1 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_RFCU1 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_RFCU1 INTO WA_RFCU1.


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

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

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

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

*Conversion exit INVDT, internal->external for field DATAB
CALL FUNCTION 'CONVERSION_EXIT_INVDT_OUTPUT'
  EXPORTING
    input =                      WA_RFCU1-DATAB
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RFCU1-DATAB.
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_RFCU1_STR, 
VBUKR TYPE STRING,
NBUKR TYPE STRING,
LBUKR TYPE STRING,
NWAER TYPE STRING,
BUTXT TYPE STRING,
ORT01 TYPE STRING,
XFIMI TYPE STRING,
XSKB1 TYPE STRING,
XT004F TYPE STRING,
XT012 TYPE STRING,
XT079D TYPE STRING,
XT001S TYPE STRING,
XT079K TYPE STRING,
XT001T TYPE STRING,
XT042 TYPE STRING,
XT047 TYPE STRING,
XNRIV TYPE STRING,
XT031 TYPE STRING,
XT001B TYPE STRING,
XT043T TYPE STRING,
XT043G TYPE STRING,
XT048I TYPE STRING,
VKTOPL TYPE STRING,
NKTOPL TYPE STRING,
LKTOPL TYPE STRING,
VKTPLT TYPE STRING,
NKTPLT TYPE STRING,
LKTPLT TYPE STRING,
VVERSN TYPE STRING,
NVERSN TYPE STRING,
VVSTXT TYPE STRING,
NVSTXT TYPE STRING,
VBUKRS TYPE STRING,
NBUKRS TYPE STRING,
VBUTXT TYPE STRING,
NBUTXT TYPE STRING,
NORT01 TYPE STRING,
NWAERS TYPE STRING,
XKONT TYPE STRING,
XSPRA TYPE STRING,
XKFFI TYPE STRING,
XKFAM TYPE STRING,
XKFCO TYPE STRING,
XKFMM TYPE STRING,
XKFHR TYPE STRING,
XKFSD TYPE STRING,
XBILA TYPE STRING,
XBKON TYPE STRING,
XT001R TYPE STRING,
XTBAER TYPE STRING,
XT035 TYPE STRING,
CHTXT TYPE STRING,
CPTXT TYPE STRING,
CRDAT TYPE STRING,
CRTIM TYPE STRING,
DATUM TYPE STRING,
ZBETR TYPE STRING,
WAERS TYPE STRING,
VTEXT TYPE STRING,
FTEXT TYPE STRING,
RTEXT TYPE STRING,
XT001N TYPE STRING,
AMOUF TYPE STRING,
FELDT TYPE STRING,
AMFRO TYPE STRING,
BBASB TYPE STRING,
AVFTX TYPE STRING,
NEWBL TYPE STRING,
KRTXT TYPE STRING,
FNAME TYPE STRING,
FTXT2 TYPE STRING,
FTXT3 TYPE STRING,
WETXT TYPE STRING,
PO_SEL1 TYPE STRING,
PO_SEL2 TYPE STRING,
PO_SEL3 TYPE STRING,
PO_SEL4 TYPE STRING,
FLAG6_BA TYPE STRING,
DATAB TYPE STRING,
FDALL TYPE STRING,
FDBUK TYPE STRING,
FDVER TYPE STRING,
FKALL TYPE STRING,
FKBUK TYPE STRING,
FKEIN TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RFCU1_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_RFCU1_STR-VBUKR sy-vline 
WA_RFCU1_STR-NBUKR sy-vline 
WA_RFCU1_STR-LBUKR sy-vline 
WA_RFCU1_STR-NWAER sy-vline 
WA_RFCU1_STR-BUTXT sy-vline 
WA_RFCU1_STR-ORT01 sy-vline 
WA_RFCU1_STR-XFIMI sy-vline 
WA_RFCU1_STR-XSKB1 sy-vline 
WA_RFCU1_STR-XT004F sy-vline 
WA_RFCU1_STR-XT012 sy-vline 
WA_RFCU1_STR-XT079D sy-vline 
WA_RFCU1_STR-XT001S sy-vline 
WA_RFCU1_STR-XT079K sy-vline 
WA_RFCU1_STR-XT001T sy-vline 
WA_RFCU1_STR-XT042 sy-vline 
WA_RFCU1_STR-XT047 sy-vline 
WA_RFCU1_STR-XNRIV sy-vline 
WA_RFCU1_STR-XT031 sy-vline 
WA_RFCU1_STR-XT001B sy-vline 
WA_RFCU1_STR-XT043T sy-vline 
WA_RFCU1_STR-XT043G sy-vline 
WA_RFCU1_STR-XT048I sy-vline 
WA_RFCU1_STR-VKTOPL sy-vline 
WA_RFCU1_STR-NKTOPL sy-vline 
WA_RFCU1_STR-LKTOPL sy-vline 
WA_RFCU1_STR-VKTPLT sy-vline 
WA_RFCU1_STR-NKTPLT sy-vline 
WA_RFCU1_STR-LKTPLT sy-vline 
WA_RFCU1_STR-VVERSN sy-vline 
WA_RFCU1_STR-NVERSN sy-vline 
WA_RFCU1_STR-VVSTXT sy-vline 
WA_RFCU1_STR-NVSTXT sy-vline 
WA_RFCU1_STR-VBUKRS sy-vline 
WA_RFCU1_STR-NBUKRS sy-vline 
WA_RFCU1_STR-VBUTXT sy-vline 
WA_RFCU1_STR-NBUTXT sy-vline 
WA_RFCU1_STR-NORT01 sy-vline 
WA_RFCU1_STR-NWAERS sy-vline 
WA_RFCU1_STR-XKONT sy-vline 
WA_RFCU1_STR-XSPRA sy-vline 
WA_RFCU1_STR-XKFFI sy-vline 
WA_RFCU1_STR-XKFAM sy-vline 
WA_RFCU1_STR-XKFCO sy-vline 
WA_RFCU1_STR-XKFMM sy-vline 
WA_RFCU1_STR-XKFHR sy-vline 
WA_RFCU1_STR-XKFSD sy-vline 
WA_RFCU1_STR-XBILA sy-vline 
WA_RFCU1_STR-XBKON sy-vline 
WA_RFCU1_STR-XT001R sy-vline 
WA_RFCU1_STR-XTBAER sy-vline 
WA_RFCU1_STR-XT035 sy-vline 
WA_RFCU1_STR-CHTXT sy-vline 
WA_RFCU1_STR-CPTXT sy-vline 
WA_RFCU1_STR-CRDAT sy-vline 
WA_RFCU1_STR-CRTIM sy-vline 
WA_RFCU1_STR-DATUM sy-vline 
WA_RFCU1_STR-ZBETR sy-vline 
WA_RFCU1_STR-WAERS sy-vline 
WA_RFCU1_STR-VTEXT sy-vline 
WA_RFCU1_STR-FTEXT sy-vline 
WA_RFCU1_STR-RTEXT sy-vline 
WA_RFCU1_STR-XT001N sy-vline 
WA_RFCU1_STR-AMOUF sy-vline 
WA_RFCU1_STR-FELDT sy-vline 
WA_RFCU1_STR-AMFRO sy-vline 
WA_RFCU1_STR-BBASB sy-vline 
WA_RFCU1_STR-AVFTX sy-vline 
WA_RFCU1_STR-NEWBL sy-vline 
WA_RFCU1_STR-KRTXT sy-vline 
WA_RFCU1_STR-FNAME sy-vline 
WA_RFCU1_STR-FTXT2 sy-vline 
WA_RFCU1_STR-FTXT3 sy-vline 
WA_RFCU1_STR-WETXT sy-vline 
WA_RFCU1_STR-PO_SEL1 sy-vline 
WA_RFCU1_STR-PO_SEL2 sy-vline 
WA_RFCU1_STR-PO_SEL3 sy-vline 
WA_RFCU1_STR-PO_SEL4 sy-vline 
WA_RFCU1_STR-FLAG6_BA sy-vline 
WA_RFCU1_STR-DATAB sy-vline 
WA_RFCU1_STR-FDALL sy-vline 
WA_RFCU1_STR-FDBUK sy-vline 
WA_RFCU1_STR-FDVER sy-vline 
WA_RFCU1_STR-FKALL sy-vline 
WA_RFCU1_STR-FKBUK sy-vline 
WA_RFCU1_STR-FKEIN sy-vline      INTO ld_text SEPARATED BY SPACE.

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