ABAP Select data from SAP table KFPR 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 KFPR 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 KFPR. 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 KFPR 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_KFPR TYPE STANDARD TABLE OF KFPR,
      WA_KFPR TYPE KFPR,
      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: <KFPR> TYPE KFPR.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM KFPR
*  INTO TABLE @DATA(IT_KFPR2).
*--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_KFPR INDEX 1 INTO DATA(WA_KFPR2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<KFPR>-MANDT = 1.
<KFPR>-KOKRS = 1.
<KFPR>-BELNR = 1.
<KFPR>-BLTYP = 1.
<KFPR>-BLART = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_KFPR-VRGNG, sy-vline,
  WA_KFPR-KERFAS, sy-vline,
  WA_KFPR-KERDAT, sy-vline,
  WA_KFPR-KAENDE, sy-vline,
  WA_KFPR-KAEDAT, sy-vline,
  WA_KFPR-BLDAT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_KFPR 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_KFPR 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_KFPR INTO WA_KFPR.


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

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

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

*Conversion exit ABPSP, internal->external for field RPSPNR
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
  EXPORTING
    input =                      WA_KFPR-RPSPNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_KFPR-RPSPNR.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

*Conversion exit ABPSP, internal->external for field SPSPNR
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
  EXPORTING
    input =                      WA_KFPR-SPSPNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_KFPR-SPSPNR.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

*Conversion exit OBJNR, internal->external for field SOBJNR
CALL FUNCTION 'CONVERSION_EXIT_OBJNR_OUTPUT'
  EXPORTING
    input =                      WA_KFPR-SOBJNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_KFPR-SOBJNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit OBJNR, internal->external for field ROBJNR
CALL FUNCTION 'CONVERSION_EXIT_OBJNR_OUTPUT'
  EXPORTING
    input =                      WA_KFPR-ROBJNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_KFPR-ROBJNR.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit ALPHA, internal->external for field RPRCTR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_KFPR-RPRCTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_KFPR-RPRCTR.
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_KFPR_STR, 
MANDT TYPE STRING,
KOKRS TYPE STRING,
BELNR TYPE STRING,
BLTYP TYPE STRING,
BLART TYPE STRING,
VRGNG TYPE STRING,
KERFAS TYPE STRING,
KERDAT TYPE STRING,
KAENDE TYPE STRING,
KAEDAT TYPE STRING,
BLDAT TYPE STRING,
BUDAT TYPE STRING,
KTEXT TYPE STRING,
XBLNR TYPE STRING,
KLOEKZ TYPE STRING,
LTEXT TYPE STRING,
REFBNR TYPE STRING,
RAUFNR TYPE STRING,
RPSPNR TYPE STRING,
RNPLNR TYPE STRING,
RAUFPL TYPE STRING,
RAPLZL TYPE STRING,
RKOSTL TYPE STRING,
RKDAUF TYPE STRING,
RKDPOS TYPE STRING,
SAUFNR TYPE STRING,
SPSPNR TYPE STRING,
SNPLNR TYPE STRING,
SAUFPL TYPE STRING,
SAPLZL TYPE STRING,
SURSCH TYPE STRING,
FRGKZ TYPE STRING,
STFLG TYPE STRING,
STOKZ TYPE STRING,
STOBNR TYPE STRING,
LOGSYS TYPE STRING,
BLPOS TYPE STRING,
ERFAS TYPE STRING,
ERDAT TYPE STRING,
AENDE TYPE STRING,
AEDAT TYPE STRING,
PTEXT TYPE STRING,
ERLKZ TYPE STRING,
WAERS TYPE STRING,
LOEKZ TYPE STRING,
WTGES TYPE STRING,
PRICE TYPE STRING,
MGGES TYPE STRING,
MEINH TYPE STRING,
KSTAR TYPE STRING,
ERLAR TYPE STRING,
FDATK TYPE STRING,
URZUO TYPE STRING,
BPENT TYPE STRING,
RBLPOS TYPE STRING,
CURTP TYPE STRING,
SVORNR TYPE STRING,
RVORNR TYPE STRING,
SOBJNR TYPE STRING,
ROBJNR TYPE STRING,
MARK TYPE STRING,
NRRNG TYPE STRING,
RESZ TYPE STRING,
RKFPBNR TYPE STRING,
RKTEXT TYPE STRING,
FBLART TYPE STRING,
FRDIR TYPE STRING,
POSCNT TYPE STRING,
LINCNT TYPE STRING,
ORG_WTGES TYPE STRING,
ORG_PTEXT TYPE STRING,
ORG_FDATK TYPE STRING,
ORG_MGGES TYPE STRING,
ORG_MEINH TYPE STRING,
ORG_PRICE TYPE STRING,
WTVER TYPE STRING,
MGVER TYPE STRING,
KEY_DATE TYPE STRING,
POSTEXT TYPE STRING,
TYPE TYPE STRING,
WTSUM TYPE STRING,
SSTEXT TYPE STRING,
SPRCTR TYPE STRING,
RSTEXT TYPE STRING,
RPRCTR TYPE STRING,END OF T_EKKO_STR.
DATA: WA_KFPR_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_KFPR_STR-MANDT sy-vline 
WA_KFPR_STR-KOKRS sy-vline 
WA_KFPR_STR-BELNR sy-vline 
WA_KFPR_STR-BLTYP sy-vline 
WA_KFPR_STR-BLART sy-vline 
WA_KFPR_STR-VRGNG sy-vline 
WA_KFPR_STR-KERFAS sy-vline 
WA_KFPR_STR-KERDAT sy-vline 
WA_KFPR_STR-KAENDE sy-vline 
WA_KFPR_STR-KAEDAT sy-vline 
WA_KFPR_STR-BLDAT sy-vline 
WA_KFPR_STR-BUDAT sy-vline 
WA_KFPR_STR-KTEXT sy-vline 
WA_KFPR_STR-XBLNR sy-vline 
WA_KFPR_STR-KLOEKZ sy-vline 
WA_KFPR_STR-LTEXT sy-vline 
WA_KFPR_STR-REFBNR sy-vline 
WA_KFPR_STR-RAUFNR sy-vline 
WA_KFPR_STR-RPSPNR sy-vline 
WA_KFPR_STR-RNPLNR sy-vline 
WA_KFPR_STR-RAUFPL sy-vline 
WA_KFPR_STR-RAPLZL sy-vline 
WA_KFPR_STR-RKOSTL sy-vline 
WA_KFPR_STR-RKDAUF sy-vline 
WA_KFPR_STR-RKDPOS sy-vline 
WA_KFPR_STR-SAUFNR sy-vline 
WA_KFPR_STR-SPSPNR sy-vline 
WA_KFPR_STR-SNPLNR sy-vline 
WA_KFPR_STR-SAUFPL sy-vline 
WA_KFPR_STR-SAPLZL sy-vline 
WA_KFPR_STR-SURSCH sy-vline 
WA_KFPR_STR-FRGKZ sy-vline 
WA_KFPR_STR-STFLG sy-vline 
WA_KFPR_STR-STOKZ sy-vline 
WA_KFPR_STR-STOBNR sy-vline 
WA_KFPR_STR-LOGSYS sy-vline 
WA_KFPR_STR-BLPOS sy-vline 
WA_KFPR_STR-ERFAS sy-vline 
WA_KFPR_STR-ERDAT sy-vline 
WA_KFPR_STR-AENDE sy-vline 
WA_KFPR_STR-AEDAT sy-vline 
WA_KFPR_STR-PTEXT sy-vline 
WA_KFPR_STR-ERLKZ sy-vline 
WA_KFPR_STR-WAERS sy-vline 
WA_KFPR_STR-LOEKZ sy-vline 
WA_KFPR_STR-WTGES sy-vline 
WA_KFPR_STR-PRICE sy-vline 
WA_KFPR_STR-MGGES sy-vline 
WA_KFPR_STR-MEINH sy-vline 
WA_KFPR_STR-KSTAR sy-vline 
WA_KFPR_STR-ERLAR sy-vline 
WA_KFPR_STR-FDATK sy-vline 
WA_KFPR_STR-URZUO sy-vline 
WA_KFPR_STR-BPENT sy-vline 
WA_KFPR_STR-RBLPOS sy-vline 
WA_KFPR_STR-CURTP sy-vline 
WA_KFPR_STR-SVORNR sy-vline 
WA_KFPR_STR-RVORNR sy-vline 
WA_KFPR_STR-SOBJNR sy-vline 
WA_KFPR_STR-ROBJNR sy-vline 
WA_KFPR_STR-MARK sy-vline 
WA_KFPR_STR-NRRNG sy-vline 
WA_KFPR_STR-RESZ sy-vline 
WA_KFPR_STR-RKFPBNR sy-vline 
WA_KFPR_STR-RKTEXT sy-vline 
WA_KFPR_STR-FBLART sy-vline 
WA_KFPR_STR-FRDIR sy-vline 
WA_KFPR_STR-POSCNT sy-vline 
WA_KFPR_STR-LINCNT sy-vline 
WA_KFPR_STR-ORG_WTGES sy-vline 
WA_KFPR_STR-ORG_PTEXT sy-vline 
WA_KFPR_STR-ORG_FDATK sy-vline 
WA_KFPR_STR-ORG_MGGES sy-vline 
WA_KFPR_STR-ORG_MEINH sy-vline 
WA_KFPR_STR-ORG_PRICE sy-vline 
WA_KFPR_STR-WTVER sy-vline 
WA_KFPR_STR-MGVER sy-vline 
WA_KFPR_STR-KEY_DATE sy-vline 
WA_KFPR_STR-POSTEXT sy-vline 
WA_KFPR_STR-TYPE sy-vline 
WA_KFPR_STR-WTSUM sy-vline 
WA_KFPR_STR-SSTEXT sy-vline 
WA_KFPR_STR-SPRCTR sy-vline 
WA_KFPR_STR-RSTEXT sy-vline 
WA_KFPR_STR-RPRCTR sy-vline      INTO ld_text SEPARATED BY SPACE.

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