ABAP Select data from SAP table T000K 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 T000K 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 T000K. 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 T000K 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_T000K TYPE STANDARD TABLE OF T000K,
      WA_T000K TYPE T000K,
      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: <T000K> TYPE T000K.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM T000K
*  INTO TABLE @DATA(IT_T000K2).
*--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_T000K INDEX 1 INTO DATA(WA_T000K2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<T000K>-MANDT = 1.
<T000K>-GTEXT = 1.
<T000K>-GCURR = 1.
<T000K>-GSBK = 1.
<T000K>-GBSNO = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_T000K-GSNK, sy-vline,
  WA_T000K-PCK, sy-vline,
  WA_T000K-PERIV, sy-vline,
  WA_T000K-INDLC, sy-vline,
  WA_T000K-INDMC, sy-vline,
  WA_T000K-INDRFKONS, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_T000K 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_T000K 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_T000K INTO WA_T000K.


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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field RLDNR_RU_3
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_T000K-RLDNR_RU_3
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_T000K-RLDNR_RU_3.
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_T000K_STR, 
MANDT TYPE STRING,
GTEXT TYPE STRING,
GCURR TYPE STRING,
GSBK TYPE STRING,
GBSNO TYPE STRING,
GSNK TYPE STRING,
PCK TYPE STRING,
PERIV TYPE STRING,
INDLC TYPE STRING,
INDMC TYPE STRING,
INDRFKONS TYPE STRING,
INDAD TYPE STRING,
INDAR TYPE STRING,
INDAE TYPE STRING,
INDAS TYPE STRING,
INDPR TYPE STRING,
INDPE TYPE STRING,
RLDNR_RU TYPE STRING,
RLDNR_LC TYPE STRING,
RLDNR_GC TYPE STRING,
RLDNR_PC TYPE STRING,
IND_LD_ONE TYPE STRING,
MVCT_SFLD TYPE STRING,
MVCT_ACSET TYPE STRING,
ADD1_SFLD TYPE STRING,
ADD1_ACSET TYPE STRING,
ADD2_SFLD TYPE STRING,
ADD2_ACSET TYPE STRING,
ADD3_SFLD TYPE STRING,
ADD3_ACSET TYPE STRING,
GSB_COBLCK TYPE STRING,
ROLLUP_1 TYPE STRING,
ROLLUP_2 TYPE STRING,
ROLLUP_3 TYPE STRING,
DTF_RU TYPE STRING,
RLDNR_RU_1 TYPE STRING,
RLDNR_RU_2 TYPE STRING,
RLDNR_RU_3 TYPE STRING,
INDDP_1 TYPE STRING,
INDRU_1 TYPE STRING,
INDDP_2 TYPE STRING,
INDRU_2 TYPE STRING,
MAIL_DP TYPE STRING,
INDPE_1 TYPE STRING,
INDPE_2 TYPE STRING,
INDDPRU_1 TYPE STRING,
INDDPRU_2 TYPE STRING,
INDBA_CS TYPE STRING,
INDCO_CS TYPE STRING,
GSNK_RF TYPE STRING,
INDLS_1 TYPE STRING,
INDLS_2 TYPE STRING,
INDLS_11 TYPE STRING,
INDLS_22 TYPE STRING,
BLART_DP TYPE STRING,
RACCT_DP TYPE STRING,END OF T_EKKO_STR.
DATA: WA_T000K_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_T000K_STR-MANDT sy-vline 
WA_T000K_STR-GTEXT sy-vline 
WA_T000K_STR-GCURR sy-vline 
WA_T000K_STR-GSBK sy-vline 
WA_T000K_STR-GBSNO sy-vline 
WA_T000K_STR-GSNK sy-vline 
WA_T000K_STR-PCK sy-vline 
WA_T000K_STR-PERIV sy-vline 
WA_T000K_STR-INDLC sy-vline 
WA_T000K_STR-INDMC sy-vline 
WA_T000K_STR-INDRFKONS sy-vline 
WA_T000K_STR-INDAD sy-vline 
WA_T000K_STR-INDAR sy-vline 
WA_T000K_STR-INDAE sy-vline 
WA_T000K_STR-INDAS sy-vline 
WA_T000K_STR-INDPR sy-vline 
WA_T000K_STR-INDPE sy-vline 
WA_T000K_STR-RLDNR_RU sy-vline 
WA_T000K_STR-RLDNR_LC sy-vline 
WA_T000K_STR-RLDNR_GC sy-vline 
WA_T000K_STR-RLDNR_PC sy-vline 
WA_T000K_STR-IND_LD_ONE sy-vline 
WA_T000K_STR-MVCT_SFLD sy-vline 
WA_T000K_STR-MVCT_ACSET sy-vline 
WA_T000K_STR-ADD1_SFLD sy-vline 
WA_T000K_STR-ADD1_ACSET sy-vline 
WA_T000K_STR-ADD2_SFLD sy-vline 
WA_T000K_STR-ADD2_ACSET sy-vline 
WA_T000K_STR-ADD3_SFLD sy-vline 
WA_T000K_STR-ADD3_ACSET sy-vline 
WA_T000K_STR-GSB_COBLCK sy-vline 
WA_T000K_STR-ROLLUP_1 sy-vline 
WA_T000K_STR-ROLLUP_2 sy-vline 
WA_T000K_STR-ROLLUP_3 sy-vline 
WA_T000K_STR-DTF_RU sy-vline 
WA_T000K_STR-RLDNR_RU_1 sy-vline 
WA_T000K_STR-RLDNR_RU_2 sy-vline 
WA_T000K_STR-RLDNR_RU_3 sy-vline 
WA_T000K_STR-INDDP_1 sy-vline 
WA_T000K_STR-INDRU_1 sy-vline 
WA_T000K_STR-INDDP_2 sy-vline 
WA_T000K_STR-INDRU_2 sy-vline 
WA_T000K_STR-MAIL_DP sy-vline 
WA_T000K_STR-INDPE_1 sy-vline 
WA_T000K_STR-INDPE_2 sy-vline 
WA_T000K_STR-INDDPRU_1 sy-vline 
WA_T000K_STR-INDDPRU_2 sy-vline 
WA_T000K_STR-INDBA_CS sy-vline 
WA_T000K_STR-INDCO_CS sy-vline 
WA_T000K_STR-GSNK_RF sy-vline 
WA_T000K_STR-INDLS_1 sy-vline 
WA_T000K_STR-INDLS_2 sy-vline 
WA_T000K_STR-INDLS_11 sy-vline 
WA_T000K_STR-INDLS_22 sy-vline 
WA_T000K_STR-BLART_DP sy-vline 
WA_T000K_STR-RACCT_DP sy-vline      INTO ld_text SEPARATED BY SPACE.

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