ABAP Select data from SAP table /KYK/ISS_COS3 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 /KYK/ISS_COS3 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 /KYK/ISS_COS3. 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 /KYK/ISS_COS3 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_/KYK/ISS_COS3 TYPE STANDARD TABLE OF /KYK/ISS_COS3,
      WA_/KYK/ISS_COS3 TYPE /KYK/ISS_COS3,
      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: </KYK/ISS_COS3> TYPE /KYK/ISS_COS3.

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

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM /KYK/ISS_COS3
  INTO TABLE IT_/KYK/ISS_COS3.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM /KYK/ISS_COS3
*  INTO TABLE @DATA(IT_/KYK/ISS_COS32).
*--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_/KYK/ISS_COS3 INDEX 1 INTO DATA(WA_/KYK/ISS_COS32).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_/KYK/ISS_COS3 ASSIGNING </KYK/ISS_COS3>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
</KYK/ISS_COS3>-HKTYP = 1.
</KYK/ISS_COS3>-KSTAR = 1.
</KYK/ISS_COS3>-PRZNR = 1.
</KYK/ISS_COS3>-KSTAR_TEXT = 1.
</KYK/ISS_COS3>-AUFNR = 1.

ENDLOOP.

LOOP AT IT_/KYK/ISS_COS3 INTO WA_/KYK/ISS_COS3.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_/KYK/ISS_COS3-HERKU, sy-vline,
  WA_/KYK/ISS_COS3-KOSTL, sy-vline,
  WA_/KYK/ISS_COS3-PLANKOST_G, sy-vline,
  WA_/KYK/ISS_COS3-LSTAR, sy-vline,
  WA_/KYK/ISS_COS3-ISTKOST_G, sy-vline,
  WA_/KYK/ISS_COS3-PKSLA, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_/KYK/ISS_COS3 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_/KYK/ISS_COS3 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_/KYK/ISS_COS3 INTO WA_/KYK/ISS_COS3.


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

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

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

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

*Conversion exit MATN1, internal->external for field MATNR
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_/KYK/ISS_COS3-MATNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/KYK/ISS_COS3-MATNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BELAR, internal->external for field BELAR
CALL FUNCTION 'CONVERSION_EXIT_BELAR_OUTPUT'
  EXPORTING
    input =                      WA_/KYK/ISS_COS3-BELAR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/KYK/ISS_COS3-BELAR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BEWEG, internal->external for field BEWEG
CALL FUNCTION 'CONVERSION_EXIT_BEWEG_OUTPUT'
  EXPORTING
    input =                      WA_/KYK/ISS_COS3-BEWEG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/KYK/ISS_COS3-BEWEG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field MEINH
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_/KYK/ISS_COS3-MEINH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/KYK/ISS_COS3-MEINH.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ALPHA, internal->external for field AVERS
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_/KYK/ISS_COS3-AVERS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/KYK/ISS_COS3-AVERS.
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_/KYK/ISS_COS3_STR, 
HKTYP TYPE STRING,
KSTAR TYPE STRING,
PRZNR TYPE STRING,
KSTAR_TEXT TYPE STRING,
AUFNR TYPE STRING,
HERKU TYPE STRING,
KOSTL TYPE STRING,
PLANKOST_G TYPE STRING,
LSTAR TYPE STRING,
ISTKOST_G TYPE STRING,
PKSLA TYPE STRING,
PLIS_KOST_A TYPE STRING,
MATNR TYPE STRING,
PLIS_KOST_P TYPE STRING,
WERKS TYPE STRING,
WAERS TYPE STRING,
PMAWR TYPE STRING,
HKGRP TYPE STRING,
BEMOT TYPE STRING,
BELAR TYPE STRING,
ELEMT TYPE STRING,
EGRUP TYPE STRING,
HERKZ TYPE STRING,
BEWEG TYPE STRING,
MEINH TYPE STRING,
PLANKOST_F TYPE STRING,
PLANKOST_V TYPE STRING,
PLANBEL_G TYPE STRING,
PLANBEL_F TYPE STRING,
PLANBEL_V TYPE STRING,
PLANENTL_G TYPE STRING,
PLANENTL_F TYPE STRING,
PLANENTL_V TYPE STRING,
PLANMENG_G TYPE STRING,
PLANMENG_F TYPE STRING,
PLANMENG_V TYPE STRING,
ISTKOST_F TYPE STRING,
ISTKOST_V TYPE STRING,
ISTBEL_G TYPE STRING,
ISTBEL_F TYPE STRING,
ISTBEL_V TYPE STRING,
ISTENTL_G TYPE STRING,
ISTENTL_F TYPE STRING,
ISTENTL_V TYPE STRING,
ISTMENG_G TYPE STRING,
ISTMENG_F TYPE STRING,
ISTMENG_V TYPE STRING,
SVERS TYPE STRING,
SOLLKOST_G TYPE STRING,
SOLLBEL_G TYPE STRING,
SOLLENTL_G TYPE STRING,
KONTKOST_G TYPE STRING,
KONTBEL_G TYPE STRING,
KONTENTL_G TYPE STRING,
ABWGES TYPE STRING,
ABWPREIS TYPE STRING,
ABWSTRUKT TYPE STRING,
ABWMENG TYPE STRING,
ABWEINS TYPE STRING,
AUSSCH TYPE STRING,
ABWMISCHP TYPE STRING,
ABWVERRP TYPE STRING,
ABWVERM TYPE STRING,
ABWFIXKO TYPE STRING,
ABWREST TYPE STRING,
SOLLMENG_G TYPE STRING,
SOLLMENG_F TYPE STRING,
SOLLMENG_V TYPE STRING,
KONTMENG_G TYPE STRING,
KONTMENG_F TYPE STRING,
KONTMENG_V TYPE STRING,
AVERS TYPE STRING,
ABGRWIP TYPE STRING,
ABGRUEKFK TYPE STRING,
ABGRUEKDV TYPE STRING,
ABGERGERL TYPE STRING,
ABGERLBES TYPE STRING,
ABGERLUEB TYPE STRING,
ABGKOUMS TYPE STRING,
ABGBESGES TYPE STRING,
ABGRUKGES TYPE STRING,
ABGERGEB TYPE STRING,
OBLIGO TYPE STRING,
BANF TYPE STRING,
BEST TYPE STRING,
VERFUEGT TYPE STRING,
VERFUEGBAR TYPE STRING,
MITTELBINDUNG TYPE STRING,
RESER TYPE STRING,
SOIS_KOST_P TYPE STRING,
SOKO_KOST_P TYPE STRING,
SOIS_KOST_A TYPE STRING,
SOKO_KOST_A TYPE STRING,
PLIS_MENG_P TYPE STRING,
SOIS_MENG_P TYPE STRING,
SOKO_MENG_P TYPE STRING,
PLIS_MENG_A TYPE STRING,
SOIS_MENG_A TYPE STRING,
SOKO_MENG_A TYPE STRING,
HKTYP_TEXT TYPE STRING,
PRZNR_TEXT TYPE STRING,
AUFNR_TEXT TYPE STRING,
HERKU_TEXT TYPE STRING,
KOSTL_TEXT TYPE STRING,
LSTAR_TEXT TYPE STRING,
ABGRWIPM TYPE STRING,
MATNR_TEXT TYPE STRING,
WERKS_TEXT TYPE STRING,
PMAWR_TEXT TYPE STRING,
HKGRP_TEXT TYPE STRING,
BEMOT_TEXT TYPE STRING,
BELAR_TEXT TYPE STRING,
ELEMT_TEXT TYPE STRING,
EGRUP_TEXT TYPE STRING,
HERKZ_TEXT TYPE STRING,
BEWEG_TEXT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_/KYK/ISS_COS3_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_/KYK/ISS_COS3_STR-HKTYP sy-vline 
WA_/KYK/ISS_COS3_STR-KSTAR sy-vline 
WA_/KYK/ISS_COS3_STR-PRZNR sy-vline 
WA_/KYK/ISS_COS3_STR-KSTAR_TEXT sy-vline 
WA_/KYK/ISS_COS3_STR-AUFNR sy-vline 
WA_/KYK/ISS_COS3_STR-HERKU sy-vline 
WA_/KYK/ISS_COS3_STR-KOSTL sy-vline 
WA_/KYK/ISS_COS3_STR-PLANKOST_G sy-vline 
WA_/KYK/ISS_COS3_STR-LSTAR sy-vline 
WA_/KYK/ISS_COS3_STR-ISTKOST_G sy-vline 
WA_/KYK/ISS_COS3_STR-PKSLA sy-vline 
WA_/KYK/ISS_COS3_STR-PLIS_KOST_A sy-vline 
WA_/KYK/ISS_COS3_STR-MATNR sy-vline 
WA_/KYK/ISS_COS3_STR-PLIS_KOST_P sy-vline 
WA_/KYK/ISS_COS3_STR-WERKS sy-vline 
WA_/KYK/ISS_COS3_STR-WAERS sy-vline 
WA_/KYK/ISS_COS3_STR-PMAWR sy-vline 
WA_/KYK/ISS_COS3_STR-HKGRP sy-vline 
WA_/KYK/ISS_COS3_STR-BEMOT sy-vline 
WA_/KYK/ISS_COS3_STR-BELAR sy-vline 
WA_/KYK/ISS_COS3_STR-ELEMT sy-vline 
WA_/KYK/ISS_COS3_STR-EGRUP sy-vline 
WA_/KYK/ISS_COS3_STR-HERKZ sy-vline 
WA_/KYK/ISS_COS3_STR-BEWEG sy-vline 
WA_/KYK/ISS_COS3_STR-MEINH sy-vline 
WA_/KYK/ISS_COS3_STR-PLANKOST_F sy-vline 
WA_/KYK/ISS_COS3_STR-PLANKOST_V sy-vline 
WA_/KYK/ISS_COS3_STR-PLANBEL_G sy-vline 
WA_/KYK/ISS_COS3_STR-PLANBEL_F sy-vline 
WA_/KYK/ISS_COS3_STR-PLANBEL_V sy-vline 
WA_/KYK/ISS_COS3_STR-PLANENTL_G sy-vline 
WA_/KYK/ISS_COS3_STR-PLANENTL_F sy-vline 
WA_/KYK/ISS_COS3_STR-PLANENTL_V sy-vline 
WA_/KYK/ISS_COS3_STR-PLANMENG_G sy-vline 
WA_/KYK/ISS_COS3_STR-PLANMENG_F sy-vline 
WA_/KYK/ISS_COS3_STR-PLANMENG_V sy-vline 
WA_/KYK/ISS_COS3_STR-ISTKOST_F sy-vline 
WA_/KYK/ISS_COS3_STR-ISTKOST_V sy-vline 
WA_/KYK/ISS_COS3_STR-ISTBEL_G sy-vline 
WA_/KYK/ISS_COS3_STR-ISTBEL_F sy-vline 
WA_/KYK/ISS_COS3_STR-ISTBEL_V sy-vline 
WA_/KYK/ISS_COS3_STR-ISTENTL_G sy-vline 
WA_/KYK/ISS_COS3_STR-ISTENTL_F sy-vline 
WA_/KYK/ISS_COS3_STR-ISTENTL_V sy-vline 
WA_/KYK/ISS_COS3_STR-ISTMENG_G sy-vline 
WA_/KYK/ISS_COS3_STR-ISTMENG_F sy-vline 
WA_/KYK/ISS_COS3_STR-ISTMENG_V sy-vline 
WA_/KYK/ISS_COS3_STR-SVERS sy-vline 
WA_/KYK/ISS_COS3_STR-SOLLKOST_G sy-vline 
WA_/KYK/ISS_COS3_STR-SOLLBEL_G sy-vline 
WA_/KYK/ISS_COS3_STR-SOLLENTL_G sy-vline 
WA_/KYK/ISS_COS3_STR-KONTKOST_G sy-vline 
WA_/KYK/ISS_COS3_STR-KONTBEL_G sy-vline 
WA_/KYK/ISS_COS3_STR-KONTENTL_G sy-vline 
WA_/KYK/ISS_COS3_STR-ABWGES sy-vline 
WA_/KYK/ISS_COS3_STR-ABWPREIS sy-vline 
WA_/KYK/ISS_COS3_STR-ABWSTRUKT sy-vline 
WA_/KYK/ISS_COS3_STR-ABWMENG sy-vline 
WA_/KYK/ISS_COS3_STR-ABWEINS sy-vline 
WA_/KYK/ISS_COS3_STR-AUSSCH sy-vline 
WA_/KYK/ISS_COS3_STR-ABWMISCHP sy-vline 
WA_/KYK/ISS_COS3_STR-ABWVERRP sy-vline 
WA_/KYK/ISS_COS3_STR-ABWVERM sy-vline 
WA_/KYK/ISS_COS3_STR-ABWFIXKO sy-vline 
WA_/KYK/ISS_COS3_STR-ABWREST sy-vline 
WA_/KYK/ISS_COS3_STR-SOLLMENG_G sy-vline 
WA_/KYK/ISS_COS3_STR-SOLLMENG_F sy-vline 
WA_/KYK/ISS_COS3_STR-SOLLMENG_V sy-vline 
WA_/KYK/ISS_COS3_STR-KONTMENG_G sy-vline 
WA_/KYK/ISS_COS3_STR-KONTMENG_F sy-vline 
WA_/KYK/ISS_COS3_STR-KONTMENG_V sy-vline 
WA_/KYK/ISS_COS3_STR-AVERS sy-vline 
WA_/KYK/ISS_COS3_STR-ABGRWIP sy-vline 
WA_/KYK/ISS_COS3_STR-ABGRUEKFK sy-vline 
WA_/KYK/ISS_COS3_STR-ABGRUEKDV sy-vline 
WA_/KYK/ISS_COS3_STR-ABGERGERL sy-vline 
WA_/KYK/ISS_COS3_STR-ABGERLBES sy-vline 
WA_/KYK/ISS_COS3_STR-ABGERLUEB sy-vline 
WA_/KYK/ISS_COS3_STR-ABGKOUMS sy-vline 
WA_/KYK/ISS_COS3_STR-ABGBESGES sy-vline 
WA_/KYK/ISS_COS3_STR-ABGRUKGES sy-vline 
WA_/KYK/ISS_COS3_STR-ABGERGEB sy-vline 
WA_/KYK/ISS_COS3_STR-OBLIGO sy-vline 
WA_/KYK/ISS_COS3_STR-BANF sy-vline 
WA_/KYK/ISS_COS3_STR-BEST sy-vline 
WA_/KYK/ISS_COS3_STR-VERFUEGT sy-vline 
WA_/KYK/ISS_COS3_STR-VERFUEGBAR sy-vline 
WA_/KYK/ISS_COS3_STR-MITTELBINDUNG sy-vline 
WA_/KYK/ISS_COS3_STR-RESER sy-vline 
WA_/KYK/ISS_COS3_STR-SOIS_KOST_P sy-vline 
WA_/KYK/ISS_COS3_STR-SOKO_KOST_P sy-vline 
WA_/KYK/ISS_COS3_STR-SOIS_KOST_A sy-vline 
WA_/KYK/ISS_COS3_STR-SOKO_KOST_A sy-vline 
WA_/KYK/ISS_COS3_STR-PLIS_MENG_P sy-vline 
WA_/KYK/ISS_COS3_STR-SOIS_MENG_P sy-vline 
WA_/KYK/ISS_COS3_STR-SOKO_MENG_P sy-vline 
WA_/KYK/ISS_COS3_STR-PLIS_MENG_A sy-vline 
WA_/KYK/ISS_COS3_STR-SOIS_MENG_A sy-vline 
WA_/KYK/ISS_COS3_STR-SOKO_MENG_A sy-vline 
WA_/KYK/ISS_COS3_STR-HKTYP_TEXT sy-vline 
WA_/KYK/ISS_COS3_STR-PRZNR_TEXT sy-vline 
WA_/KYK/ISS_COS3_STR-AUFNR_TEXT sy-vline 
WA_/KYK/ISS_COS3_STR-HERKU_TEXT sy-vline 
WA_/KYK/ISS_COS3_STR-KOSTL_TEXT sy-vline 
WA_/KYK/ISS_COS3_STR-LSTAR_TEXT sy-vline 
WA_/KYK/ISS_COS3_STR-ABGRWIPM sy-vline 
WA_/KYK/ISS_COS3_STR-MATNR_TEXT sy-vline 
WA_/KYK/ISS_COS3_STR-WERKS_TEXT sy-vline 
WA_/KYK/ISS_COS3_STR-PMAWR_TEXT sy-vline 
WA_/KYK/ISS_COS3_STR-HKGRP_TEXT sy-vline 
WA_/KYK/ISS_COS3_STR-BEMOT_TEXT sy-vline 
WA_/KYK/ISS_COS3_STR-BELAR_TEXT sy-vline 
WA_/KYK/ISS_COS3_STR-ELEMT_TEXT sy-vline 
WA_/KYK/ISS_COS3_STR-EGRUP_TEXT sy-vline 
WA_/KYK/ISS_COS3_STR-HERKZ_TEXT sy-vline 
WA_/KYK/ISS_COS3_STR-BEWEG_TEXT sy-vline      INTO ld_text SEPARATED BY SPACE.

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