ABAP Select data from SAP table RJK0100 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 RJK0100 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 RJK0100. 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 RJK0100 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_RJK0100 TYPE STANDARD TABLE OF RJK0100,
      WA_RJK0100 TYPE RJK0100,
      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: <RJK0100> TYPE RJK0100.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RJK0100
*  INTO TABLE @DATA(IT_RJK01002).
*--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_RJK0100 INDEX 1 INTO DATA(WA_RJK01002).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RJK0100>-ANRED = 1.
<RJK0100>-NAME1 = 1.
<RJK0100>-NAME2 = 1.
<RJK0100>-NAME3 = 1.
<RJK0100>-NAME4 = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RJK0100-TITLE_LET, sy-vline,
  WA_RJK0100-PARTGRPTYP, sy-vline,
  WA_RJK0100-LAND1, sy-vline,
  WA_RJK0100-PSTLZ, sy-vline,
  WA_RJK0100-ORT01, sy-vline,
  WA_RJK0100-STRAS, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RJK0100 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_RJK0100 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_RJK0100 INTO WA_RJK0100.


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

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

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

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

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

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

*Conversion exit JKWBZ, internal->external for field WBZKUNNR
CALL FUNCTION 'CONVERSION_EXIT_JKWBZ_OUTPUT'
  EXPORTING
    input =                      WA_RJK0100-WBZKUNNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RJK0100-WBZKUNNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit JKWBZ, internal->external for field WBZABONR
CALL FUNCTION 'CONVERSION_EXIT_JKWBZ_OUTPUT'
  EXPORTING
    input =                      WA_RJK0100-WBZABONR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RJK0100-WBZABONR.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit ALPHA, internal->external for field FAKNR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RJK0100-FAKNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RJK0100-FAKNR.
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_RJK0100_STR, 
ANRED TYPE STRING,
NAME1 TYPE STRING,
NAME2 TYPE STRING,
NAME3 TYPE STRING,
NAME4 TYPE STRING,
TITLE_LET TYPE STRING,
PARTGRPTYP TYPE STRING,
LAND1 TYPE STRING,
PSTLZ TYPE STRING,
ORT01 TYPE STRING,
STRAS TYPE STRING,
HAUSN TYPE STRING,
GPNR TYPE STRING,
SEL_AG_BOX TYPE STRING,
SEL_WE_BOX TYPE STRING,
SEL_RE_BOX TYPE STRING,
SEL_RG_BOX TYPE STRING,
SEL_VM_BOX TYPE STRING,
SEL_VS_BOX TYPE STRING,
VBELN TYPE STRING,
AUART TYPE STRING,
VKORG TYPE STRING,
VTWEG TYPE STRING,
DRERZ TYPE STRING,
PVA TYPE STRING,
BEZUGSTYP TYPE STRING,
LIEFERART TYPE STRING,
POSEX TYPE STRING,
POART TYPE STRING,
VKBURZUS TYPE STRING,
SEL_VONDAT TYPE STRING,
SEL_BISDAT TYPE STRING,
SPART TYPE STRING,
SORTL TYPE STRING,
BANKN TYPE STRING,
BANKL TYPE STRING,
BANKS TYPE STRING,
IBAN TYPE STRING,
TELNR TYPE STRING,
TELVW TYPE STRING,
BEZIRK TYPE STRING,
BELNR_VSYS TYPE STRING,
WBZKUNNR TYPE STRING,
WBZABONR TYPE STRING,
REMSCHEIN TYPE STRING,
REGUL TYPE STRING,
XDIFFSEL TYPE STRING,
BEABLST TYPE STRING,
J_SOC_SECU TYPE STRING,
CCINS TYPE STRING,
CCNUM TYPE STRING,
HSNMR2 TYPE STRING,
XINTERNALORDER TYPE STRING,
KUNWEFREMD TYPE STRING,
FAKNR TYPE STRING,
KPL_SUCHE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RJK0100_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_RJK0100_STR-ANRED sy-vline 
WA_RJK0100_STR-NAME1 sy-vline 
WA_RJK0100_STR-NAME2 sy-vline 
WA_RJK0100_STR-NAME3 sy-vline 
WA_RJK0100_STR-NAME4 sy-vline 
WA_RJK0100_STR-TITLE_LET sy-vline 
WA_RJK0100_STR-PARTGRPTYP sy-vline 
WA_RJK0100_STR-LAND1 sy-vline 
WA_RJK0100_STR-PSTLZ sy-vline 
WA_RJK0100_STR-ORT01 sy-vline 
WA_RJK0100_STR-STRAS sy-vline 
WA_RJK0100_STR-HAUSN sy-vline 
WA_RJK0100_STR-GPNR sy-vline 
WA_RJK0100_STR-SEL_AG_BOX sy-vline 
WA_RJK0100_STR-SEL_WE_BOX sy-vline 
WA_RJK0100_STR-SEL_RE_BOX sy-vline 
WA_RJK0100_STR-SEL_RG_BOX sy-vline 
WA_RJK0100_STR-SEL_VM_BOX sy-vline 
WA_RJK0100_STR-SEL_VS_BOX sy-vline 
WA_RJK0100_STR-VBELN sy-vline 
WA_RJK0100_STR-AUART sy-vline 
WA_RJK0100_STR-VKORG sy-vline 
WA_RJK0100_STR-VTWEG sy-vline 
WA_RJK0100_STR-DRERZ sy-vline 
WA_RJK0100_STR-PVA sy-vline 
WA_RJK0100_STR-BEZUGSTYP sy-vline 
WA_RJK0100_STR-LIEFERART sy-vline 
WA_RJK0100_STR-POSEX sy-vline 
WA_RJK0100_STR-POART sy-vline 
WA_RJK0100_STR-VKBURZUS sy-vline 
WA_RJK0100_STR-SEL_VONDAT sy-vline 
WA_RJK0100_STR-SEL_BISDAT sy-vline 
WA_RJK0100_STR-SPART sy-vline 
WA_RJK0100_STR-SORTL sy-vline 
WA_RJK0100_STR-BANKN sy-vline 
WA_RJK0100_STR-BANKL sy-vline 
WA_RJK0100_STR-BANKS sy-vline 
WA_RJK0100_STR-IBAN sy-vline 
WA_RJK0100_STR-TELNR sy-vline 
WA_RJK0100_STR-TELVW sy-vline 
WA_RJK0100_STR-BEZIRK sy-vline 
WA_RJK0100_STR-BELNR_VSYS sy-vline 
WA_RJK0100_STR-WBZKUNNR sy-vline 
WA_RJK0100_STR-WBZABONR sy-vline 
WA_RJK0100_STR-REMSCHEIN sy-vline 
WA_RJK0100_STR-REGUL sy-vline 
WA_RJK0100_STR-XDIFFSEL sy-vline 
WA_RJK0100_STR-BEABLST sy-vline 
WA_RJK0100_STR-J_SOC_SECU sy-vline 
WA_RJK0100_STR-CCINS sy-vline 
WA_RJK0100_STR-CCNUM sy-vline 
WA_RJK0100_STR-HSNMR2 sy-vline 
WA_RJK0100_STR-XINTERNALORDER sy-vline 
WA_RJK0100_STR-KUNWEFREMD sy-vline 
WA_RJK0100_STR-FAKNR sy-vline 
WA_RJK0100_STR-KPL_SUCHE sy-vline      INTO ld_text SEPARATED BY SPACE.

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