ABAP Select data from SAP table KKADATEN 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 KKADATEN 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 KKADATEN. 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 KKADATEN 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_KKADATEN TYPE STANDARD TABLE OF KKADATEN,
      WA_KKADATEN TYPE KKADATEN,
      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: <KKADATEN> TYPE KKADATEN.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM KKADATEN
*  INTO TABLE @DATA(IT_KKADATEN2).
*--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_KKADATEN INDEX 1 INTO DATA(WA_KKADATEN2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<KKADATEN>-OBJNR = 1.
<KKADATEN>-KKABG = 1.
<KKADATEN>-REFBN = 1.
<KKADATEN>-RFPOS = 1.
<KKADATEN>-KABGS = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_KKADATEN-RUEKZ, sy-vline,
  WA_KKADATEN-BSTKZ, sy-vline,
  WA_KKADATEN-VORP_AK, sy-vline,
  WA_KKADATEN-LFDP_AK, sy-vline,
  WA_KKADATEN-FLGP_AK, sy-vline,
  WA_KKADATEN-VORP_BB, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_KKADATEN 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_KKADATEN 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_KKADATEN INTO WA_KKADATEN.


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit AC152, internal->external for field GES_PP
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_KKADATEN-GES_PP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_KKADATEN-GES_PP.
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_KKADATEN_STR, 
OBJNR TYPE STRING,
KKABG TYPE STRING,
REFBN TYPE STRING,
RFPOS TYPE STRING,
KABGS TYPE STRING,
RUEKZ TYPE STRING,
BSTKZ TYPE STRING,
VORP_AK TYPE STRING,
LFDP_AK TYPE STRING,
FLGP_AK TYPE STRING,
VORP_BB TYPE STRING,
LFDP_BB TYPE STRING,
FLGP_BB TYPE STRING,
VORP_BV TYPE STRING,
LFDP_BV TYPE STRING,
FLGP_BV TYPE STRING,
VORP_RB TYPE STRING,
LFDP_RB TYPE STRING,
FLGP_RB TYPE STRING,
VORP_RV TYPE STRING,
LFDP_RV TYPE STRING,
FLGP_RV TYPE STRING,
VORP_I TYPE STRING,
LFDP_I TYPE STRING,
FLGP_I TYPE STRING,
VORP_N TYPE STRING,
LFDP_N TYPE STRING,
FLGP_N TYPE STRING,
VORP_A TYPE STRING,
LFDP_A TYPE STRING,
FLGP_A TYPE STRING,
VORP_B TYPE STRING,
LFDP_B TYPE STRING,
FLGP_B TYPE STRING,
GES_PG TYPE STRING,
GES_PP TYPE STRING,END OF T_EKKO_STR.
DATA: WA_KKADATEN_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_KKADATEN_STR-OBJNR sy-vline 
WA_KKADATEN_STR-KKABG sy-vline 
WA_KKADATEN_STR-REFBN sy-vline 
WA_KKADATEN_STR-RFPOS sy-vline 
WA_KKADATEN_STR-KABGS sy-vline 
WA_KKADATEN_STR-RUEKZ sy-vline 
WA_KKADATEN_STR-BSTKZ sy-vline 
WA_KKADATEN_STR-VORP_AK sy-vline 
WA_KKADATEN_STR-LFDP_AK sy-vline 
WA_KKADATEN_STR-FLGP_AK sy-vline 
WA_KKADATEN_STR-VORP_BB sy-vline 
WA_KKADATEN_STR-LFDP_BB sy-vline 
WA_KKADATEN_STR-FLGP_BB sy-vline 
WA_KKADATEN_STR-VORP_BV sy-vline 
WA_KKADATEN_STR-LFDP_BV sy-vline 
WA_KKADATEN_STR-FLGP_BV sy-vline 
WA_KKADATEN_STR-VORP_RB sy-vline 
WA_KKADATEN_STR-LFDP_RB sy-vline 
WA_KKADATEN_STR-FLGP_RB sy-vline 
WA_KKADATEN_STR-VORP_RV sy-vline 
WA_KKADATEN_STR-LFDP_RV sy-vline 
WA_KKADATEN_STR-FLGP_RV sy-vline 
WA_KKADATEN_STR-VORP_I sy-vline 
WA_KKADATEN_STR-LFDP_I sy-vline 
WA_KKADATEN_STR-FLGP_I sy-vline 
WA_KKADATEN_STR-VORP_N sy-vline 
WA_KKADATEN_STR-LFDP_N sy-vline 
WA_KKADATEN_STR-FLGP_N sy-vline 
WA_KKADATEN_STR-VORP_A sy-vline 
WA_KKADATEN_STR-LFDP_A sy-vline 
WA_KKADATEN_STR-FLGP_A sy-vline 
WA_KKADATEN_STR-VORP_B sy-vline 
WA_KKADATEN_STR-LFDP_B sy-vline 
WA_KKADATEN_STR-FLGP_B sy-vline 
WA_KKADATEN_STR-GES_PG sy-vline 
WA_KKADATEN_STR-GES_PP sy-vline      INTO ld_text SEPARATED BY SPACE.

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