ABAP Select data from SAP table FKBRD_200 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 FKBRD_200 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 FKBRD_200. 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 FKBRD_200 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_FKBRD_200 TYPE STANDARD TABLE OF FKBRD_200,
      WA_FKBRD_200 TYPE FKBRD_200,
      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: <FKBRD_200> TYPE FKBRD_200.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM FKBRD_200
*  INTO TABLE @DATA(IT_FKBRD_2002).
*--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_FKBRD_200 INDEX 1 INTO DATA(WA_FKBRD_2002).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<FKBRD_200>-GPART_LO = 1.
<FKBRD_200>-GPART_HI = 1.
<FKBRD_200>-VKONT_LO = 1.
<FKBRD_200>-VKONT_HI = 1.
<FKBRD_200>-VTREF_LO = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_FKBRD_200-VTREF_HI, sy-vline,
  WA_FKBRD_200-BUKRS_LO, sy-vline,
  WA_FKBRD_200-BUKRS_HI, sy-vline,
  WA_FKBRD_200-BLART_LO, sy-vline,
  WA_FKBRD_200-BLART_HI, sy-vline,
  WA_FKBRD_200-FAEDN_LO, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_FKBRD_200 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_FKBRD_200 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_FKBRD_200 INTO WA_FKBRD_200.


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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field XBLNR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_FKBRD_200-XBLNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FKBRD_200-XBLNR.
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_FKBRD_200_STR, 
GPART_LO TYPE STRING,
GPART_HI TYPE STRING,
VKONT_LO TYPE STRING,
VKONT_HI TYPE STRING,
VTREF_LO TYPE STRING,
VTREF_HI TYPE STRING,
BUKRS_LO TYPE STRING,
BUKRS_HI TYPE STRING,
BLART_LO TYPE STRING,
BLART_HI TYPE STRING,
FAEDN_LO TYPE STRING,
FAEDN_HI TYPE STRING,
BUDAT_LO TYPE STRING,
BUDAT_HI TYPE STRING,
HVORG_LO TYPE STRING,
HVORG_HI TYPE STRING,
TVORG_LO TYPE STRING,
TVORG_HI TYPE STRING,
GPART TYPE STRING,
VKONT TYPE STRING,
VTREF TYPE STRING,
BUDAT TYPE STRING,
BLART TYPE STRING,
HVORG TYPE STRING,
TVORG TYPE STRING,
FAEDN TYPE STRING,
XBLNR TYPE STRING,
BUKRS TYPE STRING,
CREDIT TYPE STRING,
DEBIT TYPE STRING,
OPEN TYPE STRING,
CLEARED TYPE STRING,
INCOM_PAYM TYPE STRING,
BLART_STORNO TYPE STRING,
BLART_AUGBL TYPE STRING,
FIKEY TYPE STRING,
APPLK TYPE STRING,
STODT TYPE STRING,
VOIDRS TYPE STRING,END OF T_EKKO_STR.
DATA: WA_FKBRD_200_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_FKBRD_200_STR-GPART_LO sy-vline 
WA_FKBRD_200_STR-GPART_HI sy-vline 
WA_FKBRD_200_STR-VKONT_LO sy-vline 
WA_FKBRD_200_STR-VKONT_HI sy-vline 
WA_FKBRD_200_STR-VTREF_LO sy-vline 
WA_FKBRD_200_STR-VTREF_HI sy-vline 
WA_FKBRD_200_STR-BUKRS_LO sy-vline 
WA_FKBRD_200_STR-BUKRS_HI sy-vline 
WA_FKBRD_200_STR-BLART_LO sy-vline 
WA_FKBRD_200_STR-BLART_HI sy-vline 
WA_FKBRD_200_STR-FAEDN_LO sy-vline 
WA_FKBRD_200_STR-FAEDN_HI sy-vline 
WA_FKBRD_200_STR-BUDAT_LO sy-vline 
WA_FKBRD_200_STR-BUDAT_HI sy-vline 
WA_FKBRD_200_STR-HVORG_LO sy-vline 
WA_FKBRD_200_STR-HVORG_HI sy-vline 
WA_FKBRD_200_STR-TVORG_LO sy-vline 
WA_FKBRD_200_STR-TVORG_HI sy-vline 
WA_FKBRD_200_STR-GPART sy-vline 
WA_FKBRD_200_STR-VKONT sy-vline 
WA_FKBRD_200_STR-VTREF sy-vline 
WA_FKBRD_200_STR-BUDAT sy-vline 
WA_FKBRD_200_STR-BLART sy-vline 
WA_FKBRD_200_STR-HVORG sy-vline 
WA_FKBRD_200_STR-TVORG sy-vline 
WA_FKBRD_200_STR-FAEDN sy-vline 
WA_FKBRD_200_STR-XBLNR sy-vline 
WA_FKBRD_200_STR-BUKRS sy-vline 
WA_FKBRD_200_STR-CREDIT sy-vline 
WA_FKBRD_200_STR-DEBIT sy-vline 
WA_FKBRD_200_STR-OPEN sy-vline 
WA_FKBRD_200_STR-CLEARED sy-vline 
WA_FKBRD_200_STR-INCOM_PAYM sy-vline 
WA_FKBRD_200_STR-BLART_STORNO sy-vline 
WA_FKBRD_200_STR-BLART_AUGBL sy-vline 
WA_FKBRD_200_STR-FIKEY sy-vline 
WA_FKBRD_200_STR-APPLK sy-vline 
WA_FKBRD_200_STR-STODT sy-vline 
WA_FKBRD_200_STR-VOIDRS sy-vline      INTO ld_text SEPARATED BY SPACE.

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