ABAP Select data from SAP table CSTKKPITSCOMPRNQ 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 CSTKKPITSCOMPRNQ 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 CSTKKPITSCOMPRNQ. 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 CSTKKPITSCOMPRNQ 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_CSTKKPITSCOMPRNQ TYPE STANDARD TABLE OF CSTKKPITSCOMPRNQ,
      WA_CSTKKPITSCOMPRNQ TYPE CSTKKPITSCOMPRNQ,
      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: <CSTKKPITSCOMPRNQ> TYPE CSTKKPITSCOMPRNQ.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM CSTKKPITSCOMPRNQ
*  INTO TABLE @DATA(IT_CSTKKPITSCOMPRNQ2).
*--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_CSTKKPITSCOMPRNQ INDEX 1 INTO DATA(WA_CSTKKPITSCOMPRNQ2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<CSTKKPITSCOMPRNQ>-MANDT = 1.
<CSTKKPITSCOMPRNQ>-COMPRNPERIODSEQUENCENUMBER = 1.
<CSTKKPITSCOMPRNQ>-MATERIAL = 1.
<CSTKKPITSCOMPRNQ>-PLANT = 1.
<CSTKKPITSCOMPRNQ>-STORAGELOCATION = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_CSTKKPITSCOMPRNQ-STOCKIDENTIFYINGBATCH, sy-vline,
  WA_CSTKKPITSCOMPRNQ-SPECIALSTOCKIDFGSUPPLIER, sy-vline,
  WA_CSTKKPITSCOMPRNQ-SPECIALSTOCKIDFGSALESORDER, sy-vline,
  WA_CSTKKPITSCOMPRNQ-SPECIALSTOCKIDFGSALESORDERITEM, sy-vline,
  WA_CSTKKPITSCOMPRNQ-SPECIALSTOCKIDFGWBSELEMENT, sy-vline,
  WA_CSTKKPITSCOMPRNQ-SPECIALSTOCKIDFGCUSTOMER, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_CSTKKPITSCOMPRNQ 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_CSTKKPITSCOMPRNQ 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_CSTKKPITSCOMPRNQ INTO WA_CSTKKPITSCOMPRNQ.


*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 MATN1, internal->external for field MATERIAL
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_CSTKKPITSCOMPRNQ-MATERIAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CSTKKPITSCOMPRNQ-MATERIAL.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit ABPSP, internal->external for field SPECIALSTOCKIDFGWBSELEMENT
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
  EXPORTING
    input =                      WA_CSTKKPITSCOMPRNQ-SPECIALSTOCKIDFGWBSELEMENT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CSTKKPITSCOMPRNQ-SPECIALSTOCKIDFGWBSELEMENT.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit CUNIT, internal->external for field MATERIALBASEUNIT
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_CSTKKPITSCOMPRNQ-MATERIALBASEUNIT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CSTKKPITSCOMPRNQ-MATERIALBASEUNIT.
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_CSTKKPITSCOMPRNQ_STR, 
MANDT TYPE STRING,
COMPRNPERIODSEQUENCENUMBER TYPE STRING,
MATERIAL TYPE STRING,
PLANT TYPE STRING,
STORAGELOCATION TYPE STRING,
STOCKIDENTIFYINGBATCH TYPE STRING,
SPECIALSTOCKIDFGSUPPLIER TYPE STRING,
SPECIALSTOCKIDFGSALESORDER TYPE STRING,
SPECIALSTOCKIDFGSALESORDERITEM TYPE STRING,
SPECIALSTOCKIDFGWBSELEMENT TYPE STRING,
SPECIALSTOCKIDFGCUSTOMER TYPE STRING,
INVENTORYSPECIALSTOCKTYPE TYPE STRING,
INVENTORYSTOCKTYPE TYPE STRING,
MATERIALBASEUNIT TYPE STRING,
CURRENCY TYPE STRING,
VALUATIONAREATYPE TYPE STRING,
STKQTYDELTAINPERCENT TYPE STRING,
CNSMPNQTYDELTAINPERCENT TYPE STRING,
INVTRYTURNOVERDELTAINPERCENT TYPE STRING,
INVTRYAGINGDELTAINPERCENT TYPE STRING,
RANGEOFCVRGDELTAINPERCENT TYPE STRING,
WBSELEMENTEXTERNALID TYPE STRING,
WBSDESCRIPTION TYPE STRING,
DISPLAYCURRENCY TYPE STRING,
COMPANYCODE TYPE STRING,
YEARQUARTEROFPREVIOUSPERIOD TYPE STRING,
YEARMONTHOFPREVIOUSPERIOD TYPE STRING,
YEARQUARTEROFREFERENCEPERIOD TYPE STRING,
YEARMONTHOFREFERENCEPERIOD TYPE STRING,
DAYOFREFERENCEMONTH TYPE STRING,
DAYOFPREVIOUSMONTH TYPE STRING,
MATLWRHSSTKQTYONPREVDATE TYPE STRING,
MATLWRHSSTKQTYONREFDATE TYPE STRING,
STKVALUEINCCCRCYONPREVDATE TYPE STRING,
STKVALUEINCCCRCYONREFDATE TYPE STRING,
STKVALUEINDSPCRCYONPREVDATE TYPE STRING,
STKVALUEINDSPCRCYONREFDATE TYPE STRING,
CNSMPNVALUEINCCCRCYONPREVDATE TYPE STRING,
CNSMPNVALUEINCCCRCYONREFDATE TYPE STRING,
CNSMPNVALUEINDSPCRCYONPREVDATE TYPE STRING,
CNSMPNVALUEINDSPCRCYONREFDATE TYPE STRING,
CNSMPNQTYINBASEUNITONPREVDATE TYPE STRING,
CNSMPNQTYINBASEUNITONREFDATE TYPE STRING,
INVTRYTURNOVERONPREVDATE TYPE STRING,
INVTRYTURNOVERONREFDATE TYPE STRING,
INVTRYAGINGONPREVDATE TYPE STRING,
INVTRYAGINGONREFDATE TYPE STRING,
RANGEOFCVRGINDAYSONPREVDATE TYPE STRING,
RANGEOFCVRGINDAYSONREFDATE TYPE STRING,
MATERIALNAME TYPE STRING,
MATERIALGROUP TYPE STRING,
MATERIALGROUPNAME TYPE STRING,
MATERIALTYPE TYPE STRING,
MATERIALTYPENAME TYPE STRING,
PLANTNAME TYPE STRING,END OF T_EKKO_STR.
DATA: WA_CSTKKPITSCOMPRNQ_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_CSTKKPITSCOMPRNQ_STR-MANDT sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-COMPRNPERIODSEQUENCENUMBER sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-MATERIAL sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-PLANT sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-STORAGELOCATION sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-STOCKIDENTIFYINGBATCH sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-SPECIALSTOCKIDFGSUPPLIER sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-SPECIALSTOCKIDFGSALESORDER sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-SPECIALSTOCKIDFGSALESORDERITEM sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-SPECIALSTOCKIDFGWBSELEMENT sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-SPECIALSTOCKIDFGCUSTOMER sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-INVENTORYSPECIALSTOCKTYPE sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-INVENTORYSTOCKTYPE sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-MATERIALBASEUNIT sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-CURRENCY sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-VALUATIONAREATYPE sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-STKQTYDELTAINPERCENT sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-CNSMPNQTYDELTAINPERCENT sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-INVTRYTURNOVERDELTAINPERCENT sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-INVTRYAGINGDELTAINPERCENT sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-RANGEOFCVRGDELTAINPERCENT sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-WBSELEMENTEXTERNALID sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-WBSDESCRIPTION sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-DISPLAYCURRENCY sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-COMPANYCODE sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-YEARQUARTEROFPREVIOUSPERIOD sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-YEARMONTHOFPREVIOUSPERIOD sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-YEARQUARTEROFREFERENCEPERIOD sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-YEARMONTHOFREFERENCEPERIOD sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-DAYOFREFERENCEMONTH sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-DAYOFPREVIOUSMONTH sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-MATLWRHSSTKQTYONPREVDATE sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-MATLWRHSSTKQTYONREFDATE sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-STKVALUEINCCCRCYONPREVDATE sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-STKVALUEINCCCRCYONREFDATE sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-STKVALUEINDSPCRCYONPREVDATE sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-STKVALUEINDSPCRCYONREFDATE sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-CNSMPNVALUEINCCCRCYONPREVDATE sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-CNSMPNVALUEINCCCRCYONREFDATE sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-CNSMPNVALUEINDSPCRCYONPREVDATE sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-CNSMPNVALUEINDSPCRCYONREFDATE sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-CNSMPNQTYINBASEUNITONPREVDATE sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-CNSMPNQTYINBASEUNITONREFDATE sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-INVTRYTURNOVERONPREVDATE sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-INVTRYTURNOVERONREFDATE sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-INVTRYAGINGONPREVDATE sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-INVTRYAGINGONREFDATE sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-RANGEOFCVRGINDAYSONPREVDATE sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-RANGEOFCVRGINDAYSONREFDATE sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-MATERIALNAME sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-MATERIALGROUP sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-MATERIALGROUPNAME sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-MATERIALTYPE sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-MATERIALTYPENAME sy-vline 
WA_CSTKKPITSCOMPRNQ_STR-PLANTNAME sy-vline      INTO ld_text SEPARATED BY SPACE.

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