ABAP Select data from SAP table RKB1F 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 RKB1F 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 RKB1F. 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 RKB1F 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_RKB1F TYPE STANDARD TABLE OF RKB1F,
      WA_RKB1F TYPE RKB1F,
      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: <RKB1F> TYPE RKB1F.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RKB1F
*  INTO TABLE @DATA(IT_RKB1F2).
*--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_RKB1F INDEX 1 INTO DATA(WA_RKB1F2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RKB1F>-FMODCN = 1.
<RKB1F>-FART = 1.
<RKB1F>-FTYP = 1.
<RKB1F>-EDIM = 1.
<RKB1F>-FANZPA = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RKB1F-GDATUM, sy-vline,
  WA_RKB1F-GUZEIT, sy-vline,
  WA_RKB1F-NEWGEN, sy-vline,
  WA_RKB1F-EVKZ, sy-vline,
  WA_RKB1F-LANGU, sy-vline,
  WA_RKB1F-LTEXT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RKB1F 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_RKB1F 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_RKB1F INTO WA_RKB1F.


*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 ISOLA, internal->external for field LANGU
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_RKB1F-LANGU
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RKB1F-LANGU.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field EFORM
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RKB1F-EFORM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RKB1F-EFORM.
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_RKB1F_STR, 
FMODCN TYPE STRING,
FART TYPE STRING,
FTYP TYPE STRING,
EDIM TYPE STRING,
FANZPA TYPE STRING,
GDATUM TYPE STRING,
GUZEIT TYPE STRING,
NEWGEN TYPE STRING,
EVKZ TYPE STRING,
LANGU TYPE STRING,
LTEXT TYPE STRING,
NOZERO TYPE STRING,
PROZ TYPE STRING,
SUMME TYPE STRING,
SORT_B TYPE STRING,
SORT_SP TYPE STRING,
ANZ_SPFS TYPE STRING,
ANZ_SPWEP TYPE STRING,
ANZ_BFS TYPE STRING,
ANZ_BWEP TYPE STRING,
HIE_LENG TYPE STRING,
RECHKZ TYPE STRING,
AGGDIKZ TYPE STRING,
AGGTMKZ TYPE STRING,
AGGFI TYPE STRING,
DIMPR TYPE STRING,
EFORM TYPE STRING,
SBGRP TYPE STRING,
ALIST TYPE STRING,
EINHG TYPE STRING,
EINHGP TYPE STRING,
TEXTA TYPE STRING,
TXASPA TYPE STRING,
VARKO TYPE STRING,
VARFO TYPE STRING,
FIXTO TYPE STRING,
FIXKO TYPE STRING,
DRUHV TYPE STRING,
DRUAK TYPE STRING,
SORTU TYPE STRING,
SORTUP TYPE STRING,
EXCEP TYPE STRING,
DSAVE TYPE STRING,
LFMAR TYPE STRING,
RGMAR TYPE STRING,
PART1 TYPE STRING,
PART2 TYPE STRING,
DOPTHRY TYPE STRING,
DVORZE TYPE STRING,
BUKZ TYPE STRING,
FDLEN TYPE STRING,
WAERS1 TYPE STRING,
WAERS2 TYPE STRING,
WAERS3 TYPE STRING,
WAERS4 TYPE STRING,
WAERS5 TYPE STRING,
RESW TYPE STRING,
ZWAERS1 TYPE STRING,
ZWAERS2 TYPE STRING,
ZWAERS3 TYPE STRING,
ZWAERS4 TYPE STRING,
ZWAERS5 TYPE STRING,
RES5 TYPE STRING,
NUMBR1 TYPE STRING,
NUMBR2 TYPE STRING,
NUMBR3 TYPE STRING,
NUMBR4 TYPE STRING,
NUMBR5 TYPE STRING,
DRUOPTIONS TYPE STRING,
NH1FIE TYPE STRING,
NH2FIE TYPE STRING,
MAX_VID TYPE STRING,
MAX_ID TYPE STRING,
PARTIALSUM TYPE STRING,
UNDEFINED_VALUE TYPE STRING,
SMODUS_SCREEN TYPE STRING,
RES3 TYPE STRING,
CONTROL_FLAG TYPE STRING,
DOC_ID TYPE STRING,
STYLE TYPE STRING,
INTRES1 TYPE STRING,
INTRES2 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RKB1F_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_RKB1F_STR-FMODCN sy-vline 
WA_RKB1F_STR-FART sy-vline 
WA_RKB1F_STR-FTYP sy-vline 
WA_RKB1F_STR-EDIM sy-vline 
WA_RKB1F_STR-FANZPA sy-vline 
WA_RKB1F_STR-GDATUM sy-vline 
WA_RKB1F_STR-GUZEIT sy-vline 
WA_RKB1F_STR-NEWGEN sy-vline 
WA_RKB1F_STR-EVKZ sy-vline 
WA_RKB1F_STR-LANGU sy-vline 
WA_RKB1F_STR-LTEXT sy-vline 
WA_RKB1F_STR-NOZERO sy-vline 
WA_RKB1F_STR-PROZ sy-vline 
WA_RKB1F_STR-SUMME sy-vline 
WA_RKB1F_STR-SORT_B sy-vline 
WA_RKB1F_STR-SORT_SP sy-vline 
WA_RKB1F_STR-ANZ_SPFS sy-vline 
WA_RKB1F_STR-ANZ_SPWEP sy-vline 
WA_RKB1F_STR-ANZ_BFS sy-vline 
WA_RKB1F_STR-ANZ_BWEP sy-vline 
WA_RKB1F_STR-HIE_LENG sy-vline 
WA_RKB1F_STR-RECHKZ sy-vline 
WA_RKB1F_STR-AGGDIKZ sy-vline 
WA_RKB1F_STR-AGGTMKZ sy-vline 
WA_RKB1F_STR-AGGFI sy-vline 
WA_RKB1F_STR-DIMPR sy-vline 
WA_RKB1F_STR-EFORM sy-vline 
WA_RKB1F_STR-SBGRP sy-vline 
WA_RKB1F_STR-ALIST sy-vline 
WA_RKB1F_STR-EINHG sy-vline 
WA_RKB1F_STR-EINHGP sy-vline 
WA_RKB1F_STR-TEXTA sy-vline 
WA_RKB1F_STR-TXASPA sy-vline 
WA_RKB1F_STR-VARKO sy-vline 
WA_RKB1F_STR-VARFO sy-vline 
WA_RKB1F_STR-FIXTO sy-vline 
WA_RKB1F_STR-FIXKO sy-vline 
WA_RKB1F_STR-DRUHV sy-vline 
WA_RKB1F_STR-DRUAK sy-vline 
WA_RKB1F_STR-SORTU sy-vline 
WA_RKB1F_STR-SORTUP sy-vline 
WA_RKB1F_STR-EXCEP sy-vline 
WA_RKB1F_STR-DSAVE sy-vline 
WA_RKB1F_STR-LFMAR sy-vline 
WA_RKB1F_STR-RGMAR sy-vline 
WA_RKB1F_STR-PART1 sy-vline 
WA_RKB1F_STR-PART2 sy-vline 
WA_RKB1F_STR-DOPTHRY sy-vline 
WA_RKB1F_STR-DVORZE sy-vline 
WA_RKB1F_STR-BUKZ sy-vline 
WA_RKB1F_STR-FDLEN sy-vline 
WA_RKB1F_STR-WAERS1 sy-vline 
WA_RKB1F_STR-WAERS2 sy-vline 
WA_RKB1F_STR-WAERS3 sy-vline 
WA_RKB1F_STR-WAERS4 sy-vline 
WA_RKB1F_STR-WAERS5 sy-vline 
WA_RKB1F_STR-RESW sy-vline 
WA_RKB1F_STR-ZWAERS1 sy-vline 
WA_RKB1F_STR-ZWAERS2 sy-vline 
WA_RKB1F_STR-ZWAERS3 sy-vline 
WA_RKB1F_STR-ZWAERS4 sy-vline 
WA_RKB1F_STR-ZWAERS5 sy-vline 
WA_RKB1F_STR-RES5 sy-vline 
WA_RKB1F_STR-NUMBR1 sy-vline 
WA_RKB1F_STR-NUMBR2 sy-vline 
WA_RKB1F_STR-NUMBR3 sy-vline 
WA_RKB1F_STR-NUMBR4 sy-vline 
WA_RKB1F_STR-NUMBR5 sy-vline 
WA_RKB1F_STR-DRUOPTIONS sy-vline 
WA_RKB1F_STR-NH1FIE sy-vline 
WA_RKB1F_STR-NH2FIE sy-vline 
WA_RKB1F_STR-MAX_VID sy-vline 
WA_RKB1F_STR-MAX_ID sy-vline 
WA_RKB1F_STR-PARTIALSUM sy-vline 
WA_RKB1F_STR-UNDEFINED_VALUE sy-vline 
WA_RKB1F_STR-SMODUS_SCREEN sy-vline 
WA_RKB1F_STR-RES3 sy-vline 
WA_RKB1F_STR-CONTROL_FLAG sy-vline 
WA_RKB1F_STR-DOC_ID sy-vline 
WA_RKB1F_STR-STYLE sy-vline 
WA_RKB1F_STR-INTRES1 sy-vline 
WA_RKB1F_STR-INTRES2 sy-vline      INTO ld_text SEPARATED BY SPACE.

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