ABAP Select data from SAP table RFKN1 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 RFKN1 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 RFKN1. 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 RFKN1 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_RFKN1 TYPE STANDARD TABLE OF RFKN1,
      WA_RFKN1 TYPE RFKN1,
      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: <RFKN1> TYPE RFKN1.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RFKN1
*  INTO TABLE @DATA(IT_RFKN12).
*--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_RFKN1 INDEX 1 INTO DATA(WA_RFKN12).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RFKN1>-AMPRP = 1.
<RFKN1>-AMPEL = 1.
<RFKN1>-WAERS2 = 1.
<RFKN1>-WAERS1 = 1.
<RFKN1>-WAERS = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RFKN1-FIKEY, sy-vline,
  WA_RFKN1-APPLK, sy-vline,
  WA_RFKN1-BUDAT, sy-vline,
  WA_RFKN1-BLDAT, sy-vline,
  WA_RFKN1-GPART, sy-vline,
  WA_RFKN1-VTREF, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RFKN1 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_RFKN1 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_RFKN1 INTO WA_RFKN1.


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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field ORIG_RPNUM
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RFKN1-ORIG_RPNUM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RFKN1-ORIG_RPNUM.
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_RFKN1_STR, 
AMPRP TYPE STRING,
AMPEL TYPE STRING,
WAERS2 TYPE STRING,
WAERS1 TYPE STRING,
WAERS TYPE STRING,
FIKEY TYPE STRING,
APPLK TYPE STRING,
BUDAT TYPE STRING,
BLDAT TYPE STRING,
GPART TYPE STRING,
VTREF TYPE STRING,
VKONT TYPE STRING,
BUKRS TYPE STRING,
OPBEL TYPE STRING,
IDNUM TYPE STRING,
RPNUM TYPE STRING,
GBBLART TYPE STRING,
CABLART TYPE STRING,
BLART TYPE STRING,
ALLPO TYPE STRING,
ENDDT TYPE STRING,
STTIN TYPE STRING,
IBLAR TYPE STRING,
INKEY TYPE STRING,
STTDT TYPE STRING,
ABSRT TYPE STRING,
ANZRT TYPE STRING,
RBETR TYPE STRING,
DIVAM TYPE STRING,
KENNZ TYPE STRING,
PLANA TYPE STRING,
COMPA TYPE STRING,
COMPB TYPE STRING,
GESOF TYPE STRING,
FAEBETR TYPE STRING,
DIFFA TYPE STRING,
FAEDN TYPE STRING,
BETRW TYPE STRING,
INTBETR TYPE STRING,
INTBETN TYPE STRING,
INTBETG TYPE STRING,
BETRGES TYPE STRING,
OPTXT TYPE STRING,
NO_UPDATE TYPE STRING,
NO_DIALOG TYPE STRING,
BETRZ TYPE STRING,
BETRT TYPE STRING,
DEAKT TYPE STRING,
AUSGL TYPE STRING,
OFFEN TYPE STRING,
NACHV TYPE STRING,
GEBUEHR TYPE STRING,
FOPBEL TYPE STRING,
NOMIRATE TYPE STRING,
CANCCHRG TYPE STRING,
CANCINTR TYPE STRING,
REMAINAMNT TYPE STRING,
DYNP_TEXT1 TYPE STRING,
DYNP_TEXT2 TYPE STRING,
ACCUMULATE TYPE STRING,
RPTYP TYPE STRING,
PAYM_LOCK TYPE STRING,
DUNN_LOCK TYPE STRING,
INTR_LOCK TYPE STRING,
XCLR_LOCK TYPE STRING,
DEOFF TYPE STRING,
DEAGD TYPE STRING,
RPCAT TYPE STRING,
RPRCK TYPE STRING,
NO_MESSGE TYPE STRING,
DEADT TYPE STRING,
CPUDT TYPE STRING,
CPUTM TYPE STRING,
ERNAM TYPE STRING,
DEMAN TYPE STRING,
DRCDT TYPE STRING,
RPRCI TYPE STRING,
RPRDA TYPE STRING,
RPRDV TYPE STRING,
RPRDA0 TYPE STRING,
RPRDA1 TYPE STRING,
RPRDA2 TYPE STRING,
RPRDA3 TYPE STRING,
RPRDA4 TYPE STRING,
HISTO TYPE STRING,
RLOCK TYPE STRING,
OSELC TYPE STRING,
FAEIN TYPE STRING,
XODUEIP TYPE STRING,
DPUDT TYPE STRING,
DPUTM TYPE STRING,
INDIF TYPE STRING,
TVORG TYPE STRING,
HVORG TYPE STRING,
XBLNR TYPE STRING,
OPORD TYPE STRING,
NHISU TYPE STRING,
GZVER TYPE STRING,
PSCHM TYPE STRING,
EABPX TYPE STRING,
XDZINS TYPE STRING,
C4EYE TYPE STRING,
XSHAD TYPE STRING,
XAWOR TYPE STRING,
IVBLA TYPE STRING,
GVBLA TYPE STRING,
NINST TYPE STRING,
SUBAP TYPE STRING,
XFAEDIP TYPE STRING,
INTPART TYPE STRING,
INTALL TYPE STRING,
ADDRTINT TYPE STRING,
ANZINTRT TYPE STRING,
BTRINTRT TYPE STRING,
XARCH TYPE STRING,
DEAFAEDN TYPE STRING,
COMPC TYPE STRING,
COMPD TYPE STRING,
DZINSO TYPE STRING,
STTOR TYPE STRING,
FINE TYPE STRING,
CURRVAL TYPE STRING,
RPENH TYPE STRING,
INVIP TYPE STRING,
RPENH2 TYPE STRING,
ORIG_RPNUM TYPE STRING,
GWVAL TYPE STRING,
RPENH3 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RFKN1_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_RFKN1_STR-AMPRP sy-vline 
WA_RFKN1_STR-AMPEL sy-vline 
WA_RFKN1_STR-WAERS2 sy-vline 
WA_RFKN1_STR-WAERS1 sy-vline 
WA_RFKN1_STR-WAERS sy-vline 
WA_RFKN1_STR-FIKEY sy-vline 
WA_RFKN1_STR-APPLK sy-vline 
WA_RFKN1_STR-BUDAT sy-vline 
WA_RFKN1_STR-BLDAT sy-vline 
WA_RFKN1_STR-GPART sy-vline 
WA_RFKN1_STR-VTREF sy-vline 
WA_RFKN1_STR-VKONT sy-vline 
WA_RFKN1_STR-BUKRS sy-vline 
WA_RFKN1_STR-OPBEL sy-vline 
WA_RFKN1_STR-IDNUM sy-vline 
WA_RFKN1_STR-RPNUM sy-vline 
WA_RFKN1_STR-GBBLART sy-vline 
WA_RFKN1_STR-CABLART sy-vline 
WA_RFKN1_STR-BLART sy-vline 
WA_RFKN1_STR-ALLPO sy-vline 
WA_RFKN1_STR-ENDDT sy-vline 
WA_RFKN1_STR-STTIN sy-vline 
WA_RFKN1_STR-IBLAR sy-vline 
WA_RFKN1_STR-INKEY sy-vline 
WA_RFKN1_STR-STTDT sy-vline 
WA_RFKN1_STR-ABSRT sy-vline 
WA_RFKN1_STR-ANZRT sy-vline 
WA_RFKN1_STR-RBETR sy-vline 
WA_RFKN1_STR-DIVAM sy-vline 
WA_RFKN1_STR-KENNZ sy-vline 
WA_RFKN1_STR-PLANA sy-vline 
WA_RFKN1_STR-COMPA sy-vline 
WA_RFKN1_STR-COMPB sy-vline 
WA_RFKN1_STR-GESOF sy-vline 
WA_RFKN1_STR-FAEBETR sy-vline 
WA_RFKN1_STR-DIFFA sy-vline 
WA_RFKN1_STR-FAEDN sy-vline 
WA_RFKN1_STR-BETRW sy-vline 
WA_RFKN1_STR-INTBETR sy-vline 
WA_RFKN1_STR-INTBETN sy-vline 
WA_RFKN1_STR-INTBETG sy-vline 
WA_RFKN1_STR-BETRGES sy-vline 
WA_RFKN1_STR-OPTXT sy-vline 
WA_RFKN1_STR-NO_UPDATE sy-vline 
WA_RFKN1_STR-NO_DIALOG sy-vline 
WA_RFKN1_STR-BETRZ sy-vline 
WA_RFKN1_STR-BETRT sy-vline 
WA_RFKN1_STR-DEAKT sy-vline 
WA_RFKN1_STR-AUSGL sy-vline 
WA_RFKN1_STR-OFFEN sy-vline 
WA_RFKN1_STR-NACHV sy-vline 
WA_RFKN1_STR-GEBUEHR sy-vline 
WA_RFKN1_STR-FOPBEL sy-vline 
WA_RFKN1_STR-NOMIRATE sy-vline 
WA_RFKN1_STR-CANCCHRG sy-vline 
WA_RFKN1_STR-CANCINTR sy-vline 
WA_RFKN1_STR-REMAINAMNT sy-vline 
WA_RFKN1_STR-DYNP_TEXT1 sy-vline 
WA_RFKN1_STR-DYNP_TEXT2 sy-vline 
WA_RFKN1_STR-ACCUMULATE sy-vline 
WA_RFKN1_STR-RPTYP sy-vline 
WA_RFKN1_STR-PAYM_LOCK sy-vline 
WA_RFKN1_STR-DUNN_LOCK sy-vline 
WA_RFKN1_STR-INTR_LOCK sy-vline 
WA_RFKN1_STR-XCLR_LOCK sy-vline 
WA_RFKN1_STR-DEOFF sy-vline 
WA_RFKN1_STR-DEAGD sy-vline 
WA_RFKN1_STR-RPCAT sy-vline 
WA_RFKN1_STR-RPRCK sy-vline 
WA_RFKN1_STR-NO_MESSGE sy-vline 
WA_RFKN1_STR-DEADT sy-vline 
WA_RFKN1_STR-CPUDT sy-vline 
WA_RFKN1_STR-CPUTM sy-vline 
WA_RFKN1_STR-ERNAM sy-vline 
WA_RFKN1_STR-DEMAN sy-vline 
WA_RFKN1_STR-DRCDT sy-vline 
WA_RFKN1_STR-RPRCI sy-vline 
WA_RFKN1_STR-RPRDA sy-vline 
WA_RFKN1_STR-RPRDV sy-vline 
WA_RFKN1_STR-RPRDA0 sy-vline 
WA_RFKN1_STR-RPRDA1 sy-vline 
WA_RFKN1_STR-RPRDA2 sy-vline 
WA_RFKN1_STR-RPRDA3 sy-vline 
WA_RFKN1_STR-RPRDA4 sy-vline 
WA_RFKN1_STR-HISTO sy-vline 
WA_RFKN1_STR-RLOCK sy-vline 
WA_RFKN1_STR-OSELC sy-vline 
WA_RFKN1_STR-FAEIN sy-vline 
WA_RFKN1_STR-XODUEIP sy-vline 
WA_RFKN1_STR-DPUDT sy-vline 
WA_RFKN1_STR-DPUTM sy-vline 
WA_RFKN1_STR-INDIF sy-vline 
WA_RFKN1_STR-TVORG sy-vline 
WA_RFKN1_STR-HVORG sy-vline 
WA_RFKN1_STR-XBLNR sy-vline 
WA_RFKN1_STR-OPORD sy-vline 
WA_RFKN1_STR-NHISU sy-vline 
WA_RFKN1_STR-GZVER sy-vline 
WA_RFKN1_STR-PSCHM sy-vline 
WA_RFKN1_STR-EABPX sy-vline 
WA_RFKN1_STR-XDZINS sy-vline 
WA_RFKN1_STR-C4EYE sy-vline 
WA_RFKN1_STR-XSHAD sy-vline 
WA_RFKN1_STR-XAWOR sy-vline 
WA_RFKN1_STR-IVBLA sy-vline 
WA_RFKN1_STR-GVBLA sy-vline 
WA_RFKN1_STR-NINST sy-vline 
WA_RFKN1_STR-SUBAP sy-vline 
WA_RFKN1_STR-XFAEDIP sy-vline 
WA_RFKN1_STR-INTPART sy-vline 
WA_RFKN1_STR-INTALL sy-vline 
WA_RFKN1_STR-ADDRTINT sy-vline 
WA_RFKN1_STR-ANZINTRT sy-vline 
WA_RFKN1_STR-BTRINTRT sy-vline 
WA_RFKN1_STR-XARCH sy-vline 
WA_RFKN1_STR-DEAFAEDN sy-vline 
WA_RFKN1_STR-COMPC sy-vline 
WA_RFKN1_STR-COMPD sy-vline 
WA_RFKN1_STR-DZINSO sy-vline 
WA_RFKN1_STR-STTOR sy-vline 
WA_RFKN1_STR-FINE sy-vline 
WA_RFKN1_STR-CURRVAL sy-vline 
WA_RFKN1_STR-RPENH sy-vline 
WA_RFKN1_STR-INVIP sy-vline 
WA_RFKN1_STR-RPENH2 sy-vline 
WA_RFKN1_STR-ORIG_RPNUM sy-vline 
WA_RFKN1_STR-GWVAL sy-vline 
WA_RFKN1_STR-RPENH3 sy-vline      INTO ld_text SEPARATED BY SPACE.

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