ABAP Select data from SAP table CKML1 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 CKML1 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 CKML1. 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 CKML1 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_CKML1 TYPE STANDARD TABLE OF CKML1,
      WA_CKML1 TYPE CKML1,
      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: <CKML1> TYPE CKML1.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM CKML1
*  INTO TABLE @DATA(IT_CKML12).
*--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_CKML1 INDEX 1 INTO DATA(WA_CKML12).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<CKML1>-MANDT = 1.
<CKML1>-KALNR = 1.
<CKML1>-MATLED = 1.
<CKML1>-BDATJ = 1.
<CKML1>-POPER = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_CKML1-UNTPER, sy-vline,
  WA_CKML1-STPRS_1, sy-vline,
  WA_CKML1-STPRS_2, sy-vline,
  WA_CKML1-STPRS_3, sy-vline,
  WA_CKML1-PVPRS_1, sy-vline,
  WA_CKML1-PVPRS_2, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_CKML1 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_CKML1 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_CKML1 INTO WA_CKML1.


*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 GJAHR, internal->external for field BDATJ
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_CKML1-BDATJ
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CKML1-BDATJ.
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_CKML1_STR, 
MANDT TYPE STRING,
KALNR TYPE STRING,
MATLED TYPE STRING,
BDATJ TYPE STRING,
POPER TYPE STRING,
UNTPER TYPE STRING,
STPRS_1 TYPE STRING,
STPRS_2 TYPE STRING,
STPRS_3 TYPE STRING,
PVPRS_1 TYPE STRING,
PVPRS_2 TYPE STRING,
PVPRS_3 TYPE STRING,
LBKUM TYPE STRING,
SALK3_1 TYPE STRING,
SALK3_2 TYPE STRING,
SALK3_3 TYPE STRING,
SALKV_1 TYPE STRING,
SALKV_2 TYPE STRING,
SALKV_3 TYPE STRING,
KZ_ABGER TYPE STRING,
WEKUMO TYPE STRING,
WEWRT_1O TYPE STRING,
WEWRT_2O TYPE STRING,
WEWRT_3O TYPE STRING,
REKUMO TYPE STRING,
REWRT_1O TYPE STRING,
REWRT_2O TYPE STRING,
REWRT_3O TYPE STRING,
LVREKUMO TYPE STRING,
LVREW_1O TYPE STRING,
LVREW_2O TYPE STRING,
LVREW_3O TYPE STRING,
ZUKUMO TYPE STRING,
ZUABW_1O TYPE STRING,
ZUABW_2O TYPE STRING,
ZUABW_3O TYPE STRING,
LVABW_1O TYPE STRING,
LVABW_2O TYPE STRING,
LVABW_3O TYPE STRING,
LVWEKUMO TYPE STRING,
LVWEW_1O TYPE STRING,
LVWEW_2O TYPE STRING,
LVWEW_3O TYPE STRING,
ZUOME_1O TYPE STRING,
ZUOME_2O TYPE STRING,
ZUOME_3O TYPE STRING,
ZUUMB_1O TYPE STRING,
ZUUMB_2O TYPE STRING,
ZUUMB_3O TYPE STRING,
LVPVP_1 TYPE STRING,
LVPVP_2 TYPE STRING,
LVPVP_3 TYPE STRING,
WEKUMA TYPE STRING,
WEWRT_1A TYPE STRING,
WEWRT_2A TYPE STRING,
WEWRT_3A TYPE STRING,
REKUMA TYPE STRING,
REWRT_1A TYPE STRING,
REWRT_2A TYPE STRING,
REWRT_3A TYPE STRING,
LVREKUMA TYPE STRING,
LVREW_1A TYPE STRING,
LVREW_2A TYPE STRING,
LVREW_3A TYPE STRING,
ZUKUMA TYPE STRING,
ZUABW_1A TYPE STRING,
ZUABW_2A TYPE STRING,
ZUABW_3A TYPE STRING,
LVABW_1A TYPE STRING,
LVABW_2A TYPE STRING,
LVABW_3A TYPE STRING,
LVWEKUMA TYPE STRING,
LVWEW_1A TYPE STRING,
LVWEW_2A TYPE STRING,
LVWEW_3A TYPE STRING,
ZUOME_1A TYPE STRING,
ZUOME_2A TYPE STRING,
ZUOME_3A TYPE STRING,
ZUUMB_1A TYPE STRING,
ZUUMB_2A TYPE STRING,
ZUUMB_3A TYPE STRING,
ZUOMP_1O TYPE STRING,
ZUOMP_2O TYPE STRING,
ZUOMP_3O TYPE STRING,
ZUOMP_1A TYPE STRING,
ZUOMP_2A TYPE STRING,
ZUOMP_3A TYPE STRING,
ZUOMMO TYPE STRING,
ZUOMMA TYPE STRING,
PEINH_1 TYPE STRING,
PEINH_2 TYPE STRING,
PEINH_3 TYPE STRING,
UMKUMO TYPE STRING,
UMKUMA TYPE STRING,
WEKUMVA TYPE STRING,
WEWRT_1VA TYPE STRING,
WEWRT_2VA TYPE STRING,
WEWRT_3VA TYPE STRING,
REKUMVA TYPE STRING,
REWRT_1VA TYPE STRING,
REWRT_2VA TYPE STRING,
REWRT_3VA TYPE STRING,
LVWEKUMVA TYPE STRING,
LVWEW_1VA TYPE STRING,
LVWEW_2VA TYPE STRING,
LVWEW_3VA TYPE STRING,
LVREKUMVA TYPE STRING,
LVREW_1VA TYPE STRING,
LVREW_2VA TYPE STRING,
LVREW_3VA TYPE STRING,
ZPLPR_1 TYPE STRING,
ZPLPR_2 TYPE STRING,
ZPLPR_3 TYPE STRING,
ZKPRS_1 TYPE STRING,
ZKPRS_2 TYPE STRING,
ZKPRS_3 TYPE STRING,
XKONCHK TYPE STRING,
XINIT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_CKML1_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_CKML1_STR-MANDT sy-vline 
WA_CKML1_STR-KALNR sy-vline 
WA_CKML1_STR-MATLED sy-vline 
WA_CKML1_STR-BDATJ sy-vline 
WA_CKML1_STR-POPER sy-vline 
WA_CKML1_STR-UNTPER sy-vline 
WA_CKML1_STR-STPRS_1 sy-vline 
WA_CKML1_STR-STPRS_2 sy-vline 
WA_CKML1_STR-STPRS_3 sy-vline 
WA_CKML1_STR-PVPRS_1 sy-vline 
WA_CKML1_STR-PVPRS_2 sy-vline 
WA_CKML1_STR-PVPRS_3 sy-vline 
WA_CKML1_STR-LBKUM sy-vline 
WA_CKML1_STR-SALK3_1 sy-vline 
WA_CKML1_STR-SALK3_2 sy-vline 
WA_CKML1_STR-SALK3_3 sy-vline 
WA_CKML1_STR-SALKV_1 sy-vline 
WA_CKML1_STR-SALKV_2 sy-vline 
WA_CKML1_STR-SALKV_3 sy-vline 
WA_CKML1_STR-KZ_ABGER sy-vline 
WA_CKML1_STR-WEKUMO sy-vline 
WA_CKML1_STR-WEWRT_1O sy-vline 
WA_CKML1_STR-WEWRT_2O sy-vline 
WA_CKML1_STR-WEWRT_3O sy-vline 
WA_CKML1_STR-REKUMO sy-vline 
WA_CKML1_STR-REWRT_1O sy-vline 
WA_CKML1_STR-REWRT_2O sy-vline 
WA_CKML1_STR-REWRT_3O sy-vline 
WA_CKML1_STR-LVREKUMO sy-vline 
WA_CKML1_STR-LVREW_1O sy-vline 
WA_CKML1_STR-LVREW_2O sy-vline 
WA_CKML1_STR-LVREW_3O sy-vline 
WA_CKML1_STR-ZUKUMO sy-vline 
WA_CKML1_STR-ZUABW_1O sy-vline 
WA_CKML1_STR-ZUABW_2O sy-vline 
WA_CKML1_STR-ZUABW_3O sy-vline 
WA_CKML1_STR-LVABW_1O sy-vline 
WA_CKML1_STR-LVABW_2O sy-vline 
WA_CKML1_STR-LVABW_3O sy-vline 
WA_CKML1_STR-LVWEKUMO sy-vline 
WA_CKML1_STR-LVWEW_1O sy-vline 
WA_CKML1_STR-LVWEW_2O sy-vline 
WA_CKML1_STR-LVWEW_3O sy-vline 
WA_CKML1_STR-ZUOME_1O sy-vline 
WA_CKML1_STR-ZUOME_2O sy-vline 
WA_CKML1_STR-ZUOME_3O sy-vline 
WA_CKML1_STR-ZUUMB_1O sy-vline 
WA_CKML1_STR-ZUUMB_2O sy-vline 
WA_CKML1_STR-ZUUMB_3O sy-vline 
WA_CKML1_STR-LVPVP_1 sy-vline 
WA_CKML1_STR-LVPVP_2 sy-vline 
WA_CKML1_STR-LVPVP_3 sy-vline 
WA_CKML1_STR-WEKUMA sy-vline 
WA_CKML1_STR-WEWRT_1A sy-vline 
WA_CKML1_STR-WEWRT_2A sy-vline 
WA_CKML1_STR-WEWRT_3A sy-vline 
WA_CKML1_STR-REKUMA sy-vline 
WA_CKML1_STR-REWRT_1A sy-vline 
WA_CKML1_STR-REWRT_2A sy-vline 
WA_CKML1_STR-REWRT_3A sy-vline 
WA_CKML1_STR-LVREKUMA sy-vline 
WA_CKML1_STR-LVREW_1A sy-vline 
WA_CKML1_STR-LVREW_2A sy-vline 
WA_CKML1_STR-LVREW_3A sy-vline 
WA_CKML1_STR-ZUKUMA sy-vline 
WA_CKML1_STR-ZUABW_1A sy-vline 
WA_CKML1_STR-ZUABW_2A sy-vline 
WA_CKML1_STR-ZUABW_3A sy-vline 
WA_CKML1_STR-LVABW_1A sy-vline 
WA_CKML1_STR-LVABW_2A sy-vline 
WA_CKML1_STR-LVABW_3A sy-vline 
WA_CKML1_STR-LVWEKUMA sy-vline 
WA_CKML1_STR-LVWEW_1A sy-vline 
WA_CKML1_STR-LVWEW_2A sy-vline 
WA_CKML1_STR-LVWEW_3A sy-vline 
WA_CKML1_STR-ZUOME_1A sy-vline 
WA_CKML1_STR-ZUOME_2A sy-vline 
WA_CKML1_STR-ZUOME_3A sy-vline 
WA_CKML1_STR-ZUUMB_1A sy-vline 
WA_CKML1_STR-ZUUMB_2A sy-vline 
WA_CKML1_STR-ZUUMB_3A sy-vline 
WA_CKML1_STR-ZUOMP_1O sy-vline 
WA_CKML1_STR-ZUOMP_2O sy-vline 
WA_CKML1_STR-ZUOMP_3O sy-vline 
WA_CKML1_STR-ZUOMP_1A sy-vline 
WA_CKML1_STR-ZUOMP_2A sy-vline 
WA_CKML1_STR-ZUOMP_3A sy-vline 
WA_CKML1_STR-ZUOMMO sy-vline 
WA_CKML1_STR-ZUOMMA sy-vline 
WA_CKML1_STR-PEINH_1 sy-vline 
WA_CKML1_STR-PEINH_2 sy-vline 
WA_CKML1_STR-PEINH_3 sy-vline 
WA_CKML1_STR-UMKUMO sy-vline 
WA_CKML1_STR-UMKUMA sy-vline 
WA_CKML1_STR-WEKUMVA sy-vline 
WA_CKML1_STR-WEWRT_1VA sy-vline 
WA_CKML1_STR-WEWRT_2VA sy-vline 
WA_CKML1_STR-WEWRT_3VA sy-vline 
WA_CKML1_STR-REKUMVA sy-vline 
WA_CKML1_STR-REWRT_1VA sy-vline 
WA_CKML1_STR-REWRT_2VA sy-vline 
WA_CKML1_STR-REWRT_3VA sy-vline 
WA_CKML1_STR-LVWEKUMVA sy-vline 
WA_CKML1_STR-LVWEW_1VA sy-vline 
WA_CKML1_STR-LVWEW_2VA sy-vline 
WA_CKML1_STR-LVWEW_3VA sy-vline 
WA_CKML1_STR-LVREKUMVA sy-vline 
WA_CKML1_STR-LVREW_1VA sy-vline 
WA_CKML1_STR-LVREW_2VA sy-vline 
WA_CKML1_STR-LVREW_3VA sy-vline 
WA_CKML1_STR-ZPLPR_1 sy-vline 
WA_CKML1_STR-ZPLPR_2 sy-vline 
WA_CKML1_STR-ZPLPR_3 sy-vline 
WA_CKML1_STR-ZKPRS_1 sy-vline 
WA_CKML1_STR-ZKPRS_2 sy-vline 
WA_CKML1_STR-ZKPRS_3 sy-vline 
WA_CKML1_STR-XKONCHK sy-vline 
WA_CKML1_STR-XINIT sy-vline      INTO ld_text SEPARATED BY SPACE.

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