ABAP Select data from SAP table FKKL1 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 FKKL1 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 FKKL1. 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 FKKL1 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_FKKL1 TYPE STANDARD TABLE OF FKKL1,
      WA_FKKL1 TYPE FKKL1,
      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: <FKKL1> TYPE FKKL1.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM FKKL1
*  INTO TABLE @DATA(IT_FKKL12).
*--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_FKKL1 INDEX 1 INTO DATA(WA_FKKL12).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<FKKL1>-ABWTP = 1.
<FKKL1>-ACOD1 = 1.
<FKKL1>-ANDPA = 1.
<FKKL1>-ANWND = 1.
<FKKL1>-LNUMM = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_FKKL1-APPLK, sy-vline,
  WA_FKKL1-AWAER, sy-vline,
  WA_FKKL1-BALA_ROLE, sy-vline,
  WA_FKKL1-BROKR, sy-vline,
  WA_FKKL1-BUDAT, sy-vline,
  WA_FKKL1-BUKRS, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_FKKL1 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_FKKL1 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_FKKL1 INTO WA_FKKL1.


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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field PNNUM
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_FKKL1-PNNUM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FKKL1-PNNUM.
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_FKKL1_STR, 
ABWTP TYPE STRING,
ACOD1 TYPE STRING,
ANDPA TYPE STRING,
ANWND TYPE STRING,
LNUMM TYPE STRING,
APPLK TYPE STRING,
AWAER TYPE STRING,
BALA_ROLE TYPE STRING,
BROKR TYPE STRING,
BUDAT TYPE STRING,
BUKRS TYPE STRING,
CCABW TYPE STRING,
CCCUR TYPE STRING,
CCSTD TYPE STRING,
FITAB TYPE STRING,
GPART TYPE STRING,
LSTYP TYPE STRING,
NDTXT TYPE STRING,
OPORD TYPE STRING,
PNORM TYPE STRING,
PRATP TYPE STRING,
PSAMM TYPE STRING,
RATPL TYPE STRING,
SAMMR TYPE STRING,
SANLI TYPE STRING,
SNDSP TYPE STRING,
SNOLI TYPE STRING,
SRVAR TYPE STRING,
STAK TYPE STRING,
STAKNO TYPE STRING,
STAKA TYPE STRING,
STAKB TYPE STRING,
STAKG TYPE STRING,
STAKH TYPE STRING,
STAKI TYPE STRING,
STAKJ TYPE STRING,
STAKP TYPE STRING,
STAKR TYPE STRING,
STAKS TYPE STRING,
STAKZ TYPE STRING,
SUBAP TYPE STRING,
SZAHL TYPE STRING,
SZALI TYPE STRING,
SZCLR TYPE STRING,
SUMME TYPE STRING,
TXT20 TYPE STRING,
USSEL TYPE STRING,
VKONT TYPE STRING,
VTREF TYPE STRING,
VAROP TYPE STRING,
SVVAR TYPE STRING,
SGVAR TYPE STRING,
XSPBU TYPE STRING,
XSPCA TYPE STRING,
XSPCO TYPE STRING,
XAWOP TYPE STRING,
XAWAP TYPE STRING,
XBLNR TYPE STRING,
XRECH TYPE STRING,
XSTAT TYPE STRING,
XZAHL TYPE STRING,
XSUMM TYPE STRING,
XARCH TYPE STRING,
ARCDT TYPE STRING,
XDBBQ TYPE STRING,
XGRID TYPE STRING,
XFAKT TYPE STRING,
PPKEY TYPE STRING,
PP2PS TYPE STRING,
CMGRP TYPE STRING,
XBPCL TYPE STRING,
XPPDI TYPE STRING,
PPSEL TYPE STRING,
XSPRO TYPE STRING,
LSCAT TYPE STRING,
LSLAB TYPE STRING,
XALTBROK TYPE STRING,
PNNUM TYPE STRING,
PNHKF TYPE STRING,
OPALL TYPE STRING,
OPALLN TYPE STRING,
OPTOL TYPE STRING,
RPALL TYPE STRING,
RPALLN TYPE STRING,
RPTOL TYPE STRING,
APALL TYPE STRING,
APALLN TYPE STRING,
APTOL TYPE STRING,
CLALL TYPE STRING,
CLALLN TYPE STRING,
CLTOL TYPE STRING,
XALLF TYPE STRING,
XSADV TYPE STRING,
XSDIS TYPE STRING,
XSHDR TYPE STRING,
XSDUN TYPE STRING,
XSORL TYPE STRING,
XSREF TYPE STRING,
XSAGR TYPE STRING,
XSTAP TYPE STRING,
XSIND TYPE STRING,
EXCUR TYPE STRING,
EXREL TYPE STRING,
EXVIS TYPE STRING,
EXCUR_PRESET TYPE STRING,
OPTOL_LONG TYPE STRING,
RPTOL_LONG TYPE STRING,
APTOL_LONG TYPE STRING,
CLTOL_LONG TYPE STRING,
SEVLI TYPE STRING,END OF T_EKKO_STR.
DATA: WA_FKKL1_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_FKKL1_STR-ABWTP sy-vline 
WA_FKKL1_STR-ACOD1 sy-vline 
WA_FKKL1_STR-ANDPA sy-vline 
WA_FKKL1_STR-ANWND sy-vline 
WA_FKKL1_STR-LNUMM sy-vline 
WA_FKKL1_STR-APPLK sy-vline 
WA_FKKL1_STR-AWAER sy-vline 
WA_FKKL1_STR-BALA_ROLE sy-vline 
WA_FKKL1_STR-BROKR sy-vline 
WA_FKKL1_STR-BUDAT sy-vline 
WA_FKKL1_STR-BUKRS sy-vline 
WA_FKKL1_STR-CCABW sy-vline 
WA_FKKL1_STR-CCCUR sy-vline 
WA_FKKL1_STR-CCSTD sy-vline 
WA_FKKL1_STR-FITAB sy-vline 
WA_FKKL1_STR-GPART sy-vline 
WA_FKKL1_STR-LSTYP sy-vline 
WA_FKKL1_STR-NDTXT sy-vline 
WA_FKKL1_STR-OPORD sy-vline 
WA_FKKL1_STR-PNORM sy-vline 
WA_FKKL1_STR-PRATP sy-vline 
WA_FKKL1_STR-PSAMM sy-vline 
WA_FKKL1_STR-RATPL sy-vline 
WA_FKKL1_STR-SAMMR sy-vline 
WA_FKKL1_STR-SANLI sy-vline 
WA_FKKL1_STR-SNDSP sy-vline 
WA_FKKL1_STR-SNOLI sy-vline 
WA_FKKL1_STR-SRVAR sy-vline 
WA_FKKL1_STR-STAK sy-vline 
WA_FKKL1_STR-STAKNO sy-vline 
WA_FKKL1_STR-STAKA sy-vline 
WA_FKKL1_STR-STAKB sy-vline 
WA_FKKL1_STR-STAKG sy-vline 
WA_FKKL1_STR-STAKH sy-vline 
WA_FKKL1_STR-STAKI sy-vline 
WA_FKKL1_STR-STAKJ sy-vline 
WA_FKKL1_STR-STAKP sy-vline 
WA_FKKL1_STR-STAKR sy-vline 
WA_FKKL1_STR-STAKS sy-vline 
WA_FKKL1_STR-STAKZ sy-vline 
WA_FKKL1_STR-SUBAP sy-vline 
WA_FKKL1_STR-SZAHL sy-vline 
WA_FKKL1_STR-SZALI sy-vline 
WA_FKKL1_STR-SZCLR sy-vline 
WA_FKKL1_STR-SUMME sy-vline 
WA_FKKL1_STR-TXT20 sy-vline 
WA_FKKL1_STR-USSEL sy-vline 
WA_FKKL1_STR-VKONT sy-vline 
WA_FKKL1_STR-VTREF sy-vline 
WA_FKKL1_STR-VAROP sy-vline 
WA_FKKL1_STR-SVVAR sy-vline 
WA_FKKL1_STR-SGVAR sy-vline 
WA_FKKL1_STR-XSPBU sy-vline 
WA_FKKL1_STR-XSPCA sy-vline 
WA_FKKL1_STR-XSPCO sy-vline 
WA_FKKL1_STR-XAWOP sy-vline 
WA_FKKL1_STR-XAWAP sy-vline 
WA_FKKL1_STR-XBLNR sy-vline 
WA_FKKL1_STR-XRECH sy-vline 
WA_FKKL1_STR-XSTAT sy-vline 
WA_FKKL1_STR-XZAHL sy-vline 
WA_FKKL1_STR-XSUMM sy-vline 
WA_FKKL1_STR-XARCH sy-vline 
WA_FKKL1_STR-ARCDT sy-vline 
WA_FKKL1_STR-XDBBQ sy-vline 
WA_FKKL1_STR-XGRID sy-vline 
WA_FKKL1_STR-XFAKT sy-vline 
WA_FKKL1_STR-PPKEY sy-vline 
WA_FKKL1_STR-PP2PS sy-vline 
WA_FKKL1_STR-CMGRP sy-vline 
WA_FKKL1_STR-XBPCL sy-vline 
WA_FKKL1_STR-XPPDI sy-vline 
WA_FKKL1_STR-PPSEL sy-vline 
WA_FKKL1_STR-XSPRO sy-vline 
WA_FKKL1_STR-LSCAT sy-vline 
WA_FKKL1_STR-LSLAB sy-vline 
WA_FKKL1_STR-XALTBROK sy-vline 
WA_FKKL1_STR-PNNUM sy-vline 
WA_FKKL1_STR-PNHKF sy-vline 
WA_FKKL1_STR-OPALL sy-vline 
WA_FKKL1_STR-OPALLN sy-vline 
WA_FKKL1_STR-OPTOL sy-vline 
WA_FKKL1_STR-RPALL sy-vline 
WA_FKKL1_STR-RPALLN sy-vline 
WA_FKKL1_STR-RPTOL sy-vline 
WA_FKKL1_STR-APALL sy-vline 
WA_FKKL1_STR-APALLN sy-vline 
WA_FKKL1_STR-APTOL sy-vline 
WA_FKKL1_STR-CLALL sy-vline 
WA_FKKL1_STR-CLALLN sy-vline 
WA_FKKL1_STR-CLTOL sy-vline 
WA_FKKL1_STR-XALLF sy-vline 
WA_FKKL1_STR-XSADV sy-vline 
WA_FKKL1_STR-XSDIS sy-vline 
WA_FKKL1_STR-XSHDR sy-vline 
WA_FKKL1_STR-XSDUN sy-vline 
WA_FKKL1_STR-XSORL sy-vline 
WA_FKKL1_STR-XSREF sy-vline 
WA_FKKL1_STR-XSAGR sy-vline 
WA_FKKL1_STR-XSTAP sy-vline 
WA_FKKL1_STR-XSIND sy-vline 
WA_FKKL1_STR-EXCUR sy-vline 
WA_FKKL1_STR-EXREL sy-vline 
WA_FKKL1_STR-EXVIS sy-vline 
WA_FKKL1_STR-EXCUR_PRESET sy-vline 
WA_FKKL1_STR-OPTOL_LONG sy-vline 
WA_FKKL1_STR-RPTOL_LONG sy-vline 
WA_FKKL1_STR-APTOL_LONG sy-vline 
WA_FKKL1_STR-CLTOL_LONG sy-vline 
WA_FKKL1_STR-SEVLI sy-vline      INTO ld_text SEPARATED BY SPACE.

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