ABAP Select data from SAP table RKU02G 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 RKU02G 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 RKU02G. 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 RKU02G 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_RKU02G TYPE STANDARD TABLE OF RKU02G,
      WA_RKU02G TYPE RKU02G,
      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: <RKU02G> TYPE RKU02G.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RKU02G
*  INTO TABLE @DATA(IT_RKU02G2).
*--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_RKU02G INDEX 1 INTO DATA(WA_RKU02G2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RKU02G>-VRGNG = 1.
<RKU02G>-LEDNR = 1.
<RKU02G>-KOKRS = 1.
<RKU02G>-KOSTL = 1.
<RKU02G>-LSTAR = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RKU02G-PRZNR, sy-vline,
  WA_RKU02G-KSTRG, sy-vline,
  WA_RKU02G-AUFNR, sy-vline,
  WA_RKU02G-POSID, sy-vline,
  WA_RKU02G-GJAHR, sy-vline,
  WA_RKU02G-PERAB, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RKU02G 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_RKU02G 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_RKU02G INTO WA_RKU02G.


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

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

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

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

*Conversion exit ABPSN, internal->external for field POSID
CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT'
  EXPORTING
    input =                      WA_RKU02G-POSID
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RKU02G-POSID.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit CUNIT, internal->external for field MEINH
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RKU02G-MEINH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RKU02G-MEINH.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field MEINB
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RKU02G-MEINB
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RKU02G-MEINB.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field AUSEH
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RKU02G-AUSEH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RKU02G-AUSEH.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field AUBEH
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RKU02G-AUBEH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RKU02G-AUBEH.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKGBTR
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_RKU02G-TKGBTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RKU02G-TKGBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TKFBTR
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_RKU02G-TKFBTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RKU02G-TKFBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TOGBTR
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_RKU02G-TOGBTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RKU02G-TOGBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field TOFBTR
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_RKU02G-TOFBTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RKU02G-TOFBTR.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

*Conversion exit NUMCV, internal->external for field VORNR
CALL FUNCTION 'CONVERSION_EXIT_NUMCV_OUTPUT'
  EXPORTING
    input =                      WA_RKU02G-VORNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RKU02G-VORNR.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit SGENR, internal->external for field SGENR
CALL FUNCTION 'CONVERSION_EXIT_SGENR_OUTPUT'
  EXPORTING
    input =                      WA_RKU02G-SGENR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RKU02G-SGENR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SGRNR, internal->external for field SGRNR
CALL FUNCTION 'CONVERSION_EXIT_SGRNR_OUTPUT'
  EXPORTING
    input =                      WA_RKU02G-SGRNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RKU02G-SGRNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SMENR, internal->external for field SMENR
CALL FUNCTION 'CONVERSION_EXIT_SMENR_OUTPUT'
  EXPORTING
    input =                      WA_RKU02G-SMENR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RKU02G-SMENR.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit SWENR, internal->external for field SWENR
CALL FUNCTION 'CONVERSION_EXIT_SWENR_OUTPUT'
  EXPORTING
    input =                      WA_RKU02G-SWENR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RKU02G-SWENR.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit ALPHA, internal->external for field GRANT_NBR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RKU02G-GRANT_NBR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RKU02G-GRANT_NBR.
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_RKU02G_STR, 
VRGNG TYPE STRING,
LEDNR TYPE STRING,
KOKRS TYPE STRING,
KOSTL TYPE STRING,
LSTAR TYPE STRING,
PRZNR TYPE STRING,
KSTRG TYPE STRING,
AUFNR TYPE STRING,
POSID TYPE STRING,
GJAHR TYPE STRING,
PERAB TYPE STRING,
PERBI TYPE STRING,
VERSN TYPE STRING,
LATYP TYPE STRING,
LATYPI TYPE STRING,
VKSTA TYPE STRING,
STAGR TYPE STRING,
MEINH TYPE STRING,
LSTBTR TYPE STRING,
MEINB TYPE STRING,
LSBBTR TYPE STRING,
KAPBTR TYPE STRING,
AUSFK TYPE STRING,
AUSEH TYPE STRING,
AUSBTR TYPE STRING,
AUBEH TYPE STRING,
AUBBTR TYPE STRING,
DISBTR TYPE STRING,
TKGBTR TYPE STRING,
TKFBTR TYPE STRING,
TKEBTR TYPE STRING,
TOGBTR TYPE STRING,
TOFBTR TYPE STRING,
TOEBTR TYPE STRING,
TARKZ TYPE STRING,
GRTYP TYPE STRING,
REFBZ TYPE STRING,
KALNR TYPE STRING,
TXFLG TYPE STRING,
YRATE TYPE STRING,
TARKZ_I TYPE STRING,
SWSMH TYPE STRING,
FCLST TYPE STRING,
FCKAP TYPE STRING,
FCAUS TYPE STRING,
FCTKG TYPE STRING,
FCTKF TYPE STRING,
AEQBTR TYPE STRING,
SMEBTR TYPE STRING,
SMABTR TYPE STRING,
FCSME TYPE STRING,
FCSMA TYPE STRING,
VARIANTE TYPE STRING,
M_PLAN TYPE STRING,
M_IST TYPE STRING,
NPLNR TYPE STRING,
VORNR TYPE STRING,
MANIST TYPE STRING,
MANPLAN TYPE STRING,
FIXVO TYPE STRING,
FCTOG TYPE STRING,
FCTOF TYPE STRING,
FCTOV TYPE STRING,
FCTKV TYPE STRING,
BUKRS_RE TYPE STRING,
RECNNR TYPE STRING,
SGENR TYPE STRING,
SGRNR TYPE STRING,
SMENR TYPE STRING,
SMIVE TYPE STRING,
SVWNR TYPE STRING,
SWENR TYPE STRING,
SNKSL TYPE STRING,
SEMPSL TYPE STRING,
DABRBZ TYPE STRING,
FKBER TYPE STRING,
GEBER TYPE STRING,
GRANT_NBR TYPE STRING,
BUDGET_PD TYPE STRING,
ROW_ID TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RKU02G_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_RKU02G_STR-VRGNG sy-vline 
WA_RKU02G_STR-LEDNR sy-vline 
WA_RKU02G_STR-KOKRS sy-vline 
WA_RKU02G_STR-KOSTL sy-vline 
WA_RKU02G_STR-LSTAR sy-vline 
WA_RKU02G_STR-PRZNR sy-vline 
WA_RKU02G_STR-KSTRG sy-vline 
WA_RKU02G_STR-AUFNR sy-vline 
WA_RKU02G_STR-POSID sy-vline 
WA_RKU02G_STR-GJAHR sy-vline 
WA_RKU02G_STR-PERAB sy-vline 
WA_RKU02G_STR-PERBI sy-vline 
WA_RKU02G_STR-VERSN sy-vline 
WA_RKU02G_STR-LATYP sy-vline 
WA_RKU02G_STR-LATYPI sy-vline 
WA_RKU02G_STR-VKSTA sy-vline 
WA_RKU02G_STR-STAGR sy-vline 
WA_RKU02G_STR-MEINH sy-vline 
WA_RKU02G_STR-LSTBTR sy-vline 
WA_RKU02G_STR-MEINB sy-vline 
WA_RKU02G_STR-LSBBTR sy-vline 
WA_RKU02G_STR-KAPBTR sy-vline 
WA_RKU02G_STR-AUSFK sy-vline 
WA_RKU02G_STR-AUSEH sy-vline 
WA_RKU02G_STR-AUSBTR sy-vline 
WA_RKU02G_STR-AUBEH sy-vline 
WA_RKU02G_STR-AUBBTR sy-vline 
WA_RKU02G_STR-DISBTR sy-vline 
WA_RKU02G_STR-TKGBTR sy-vline 
WA_RKU02G_STR-TKFBTR sy-vline 
WA_RKU02G_STR-TKEBTR sy-vline 
WA_RKU02G_STR-TOGBTR sy-vline 
WA_RKU02G_STR-TOFBTR sy-vline 
WA_RKU02G_STR-TOEBTR sy-vline 
WA_RKU02G_STR-TARKZ sy-vline 
WA_RKU02G_STR-GRTYP sy-vline 
WA_RKU02G_STR-REFBZ sy-vline 
WA_RKU02G_STR-KALNR sy-vline 
WA_RKU02G_STR-TXFLG sy-vline 
WA_RKU02G_STR-YRATE sy-vline 
WA_RKU02G_STR-TARKZ_I sy-vline 
WA_RKU02G_STR-SWSMH sy-vline 
WA_RKU02G_STR-FCLST sy-vline 
WA_RKU02G_STR-FCKAP sy-vline 
WA_RKU02G_STR-FCAUS sy-vline 
WA_RKU02G_STR-FCTKG sy-vline 
WA_RKU02G_STR-FCTKF sy-vline 
WA_RKU02G_STR-AEQBTR sy-vline 
WA_RKU02G_STR-SMEBTR sy-vline 
WA_RKU02G_STR-SMABTR sy-vline 
WA_RKU02G_STR-FCSME sy-vline 
WA_RKU02G_STR-FCSMA sy-vline 
WA_RKU02G_STR-VARIANTE sy-vline 
WA_RKU02G_STR-M_PLAN sy-vline 
WA_RKU02G_STR-M_IST sy-vline 
WA_RKU02G_STR-NPLNR sy-vline 
WA_RKU02G_STR-VORNR sy-vline 
WA_RKU02G_STR-MANIST sy-vline 
WA_RKU02G_STR-MANPLAN sy-vline 
WA_RKU02G_STR-FIXVO sy-vline 
WA_RKU02G_STR-FCTOG sy-vline 
WA_RKU02G_STR-FCTOF sy-vline 
WA_RKU02G_STR-FCTOV sy-vline 
WA_RKU02G_STR-FCTKV sy-vline 
WA_RKU02G_STR-BUKRS_RE sy-vline 
WA_RKU02G_STR-RECNNR sy-vline 
WA_RKU02G_STR-SGENR sy-vline 
WA_RKU02G_STR-SGRNR sy-vline 
WA_RKU02G_STR-SMENR sy-vline 
WA_RKU02G_STR-SMIVE sy-vline 
WA_RKU02G_STR-SVWNR sy-vline 
WA_RKU02G_STR-SWENR sy-vline 
WA_RKU02G_STR-SNKSL sy-vline 
WA_RKU02G_STR-SEMPSL sy-vline 
WA_RKU02G_STR-DABRBZ sy-vline 
WA_RKU02G_STR-FKBER sy-vline 
WA_RKU02G_STR-GEBER sy-vline 
WA_RKU02G_STR-GRANT_NBR sy-vline 
WA_RKU02G_STR-BUDGET_PD sy-vline 
WA_RKU02G_STR-ROW_ID sy-vline      INTO ld_text SEPARATED BY SPACE.

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