ABAP Select data from SAP table CDCCALCTERM 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 CDCCALCTERM 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 CDCCALCTERM. 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 CDCCALCTERM 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_CDCCALCTERM TYPE STANDARD TABLE OF CDCCALCTERM,
      WA_CDCCALCTERM TYPE CDCCALCTERM,
      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: <CDCCALCTERM> TYPE CDCCALCTERM.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM CDCCALCTERM
*  INTO TABLE @DATA(IT_CDCCALCTERM2).
*--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_CDCCALCTERM INDEX 1 INTO DATA(WA_CDCCALCTERM2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<CDCCALCTERM>-MANDT = 1.
<CDCCALCTERM>-COMPANYCODE = 1.
<CDCCALCTERM>-MASTERFIXEDASSET = 1.
<CDCCALCTERM>-FIXEDASSET = 1.
<CDCCALCTERM>-ASSETDEPRECIATIONAREA = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_CDCCALCTERM-FISCALYEAR, sy-vline,
  WA_CDCCALCTERM-DEPRECIATIONCALCVALUETYPE, sy-vline,
  WA_CDCCALCTERM-CURRENCYROLE, sy-vline,
  WA_CDCCALCTERM-TOFISCALPERIOD, sy-vline,
  WA_CDCCALCTERM-FROMFISCALPERIOD, sy-vline,
  WA_CDCCALCTERM-NUMBEROFPERIODSINFISCALYEAR, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_CDCCALCTERM 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_CDCCALCTERM 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_CDCCALCTERM INTO WA_CDCCALCTERM.


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

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

*Conversion exit AC132, internal->external for field PERIODICLEASEPAYMENTAMTINDC
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCTERM-PERIODICLEASEPAYMENTAMTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCTERM-PERIODICLEASEPAYMENTAMTINDC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field ASSETSCRAPAMOUNTINDSPCRCY
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCTERM-ASSETSCRAPAMOUNTINDSPCRCY
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCTERM-ASSETSCRAPAMOUNTINDSPCRCY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit GJAHR, internal->external for field DEPRKEYCHANGEOVERYEAR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCTERM-DEPRKEYCHANGEOVERYEAR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCTERM-DEPRKEYCHANGEOVERYEAR.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit GJAHR, internal->external for field FIRSTACQUISITIONFISCALYEAR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_CDCCALCTERM-FIRSTACQUISITIONFISCALYEAR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CDCCALCTERM-FIRSTACQUISITIONFISCALYEAR.
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_CDCCALCTERM_STR, 
MANDT TYPE STRING,
COMPANYCODE TYPE STRING,
MASTERFIXEDASSET TYPE STRING,
FIXEDASSET TYPE STRING,
ASSETDEPRECIATIONAREA TYPE STRING,
FISCALYEAR TYPE STRING,
DEPRECIATIONCALCVALUETYPE TYPE STRING,
CURRENCYROLE TYPE STRING,
TOFISCALPERIOD TYPE STRING,
FROMFISCALPERIOD TYPE STRING,
NUMBEROFPERIODSINFISCALYEAR TYPE STRING,
NUMBEROFPERDSINSHORTENEDFSCLYR TYPE STRING,
DEPRECIATIONKEY TYPE STRING,
DEPRECIATIONPHASE TYPE STRING,
DEPRECIATIONSTARTDATE TYPE STRING,
DEPRECIATIONFISCALPERIOD TYPE STRING,
DEPRECIATIONSTARTYEAR TYPE STRING,
LEASEPAYMENTCYCLE TYPE STRING,
NUMBEROFLEASEPAYMENTS TYPE STRING,
INTERESTRATEINPERCENT TYPE STRING,
PERIODICLEASEPAYMENTAMTINDC TYPE STRING,
LEASEISPAYEDINADVANCE TYPE STRING,
USEFULLIFEINPERIODS TYPE STRING,
PLANNEDUSEFULLIFEINPERIODS TYPE STRING,
PLANNEDUSEFULLIFEINYEARS TYPE STRING,
EXPIREDUSEFULLIFEINPERDS TYPE STRING,
EXPIREDUSEFULLIFEINTIMESEGMENT TYPE STRING,
CHGOVRYREXPIREDUSFLLIFEINPERDS TYPE STRING,
RPLCMTVALUEAGINGINDEXSERS TYPE STRING,
REPLACEMENTVALUEINDEXSERS TYPE STRING,
ASSETREVALUATIONKEY TYPE STRING,
ASSETSCRAPAMOUNTINDSPCRCY TYPE STRING,
ACQNPRODNCOSTSCRAPPERCENT TYPE STRING,
NEGATIVEAMOUNTISALLOWED TYPE STRING,
DEPRKEYCHANGEOVERYEAR TYPE STRING,
DEPRKEYCHANGEOVERPERIOD TYPE STRING,
EXACTDAYYEARCHANGEOVER TYPE STRING,
VARIABLEDEPRPERCENT TYPE STRING,
SHIFTOPERATIONFACTOR TYPE STRING,
ISSHUTDOWN TYPE STRING,
ASSETCLASS TYPE STRING,
ASSETCAPITALIZATIONDATE TYPE STRING,
ACQUISITIONVALUEDATE TYPE STRING,
FIRSTACQUISITIONFISCALYEAR TYPE STRING,
FIRSTACQUISITIONFISCALPERIOD TYPE STRING,
ORIGINALFIXEDASSETVALUEDATE TYPE STRING,
LASTRETIREMENTVALUEDATE TYPE STRING,
MLTPLSHFTUSESHUTDOWNINFLNCFCTR TYPE STRING,
DEPRECIATIONCALCSORTKEY TYPE STRING,
DEPRECIATIONCALCSTEPINDEX TYPE STRING,
DEPRECIATIONCALCCTFFINDEX TYPE STRING,
MEMOVALUEISNOTCONSIDERED TYPE STRING,
ASSETHASTIMEDEPENDENTVALNPARAM TYPE STRING,
DEPRECIATIONCALCVALIDTODATE TYPE STRING,
ISGROUPASSET TYPE STRING,
ASSETUSAGEISCONSIDERED TYPE STRING,
SEGMENTGENERATIONINTVLINPERDS TYPE STRING,
INFLATIONCALCISPERFORMED TYPE STRING,
DEPRECIATIONVALUEISCALCULATED TYPE STRING,
VALUETYPEHASSAMEPERDINTERVALS TYPE STRING,
INDIVIDUALPERDCALCISPERFORMED TYPE STRING,
DEPRECIATIONCALCISTOEXACTDATE TYPE STRING,
FISCALYEARSTARTDATE TYPE STRING,
FISCALYEARENDDATE TYPE STRING,
FISCALYEARISSHORTENED TYPE STRING,
PERIODINTERVALISAFTUSFLLIFEEND TYPE STRING,
MLTPLSHFTUSESHUTDOWNCRRTNFCTR TYPE STRING,
USEFULLIFEISCALCDFRMCHGOVRYR TYPE STRING,
DISPLAYCURRENCY TYPE STRING,
DEPRECIATIONCALCBASEVALUEKEY TYPE STRING,
DEPRCALCADDLBASEVALKEY TYPE STRING,
DEPRECIATIONCALCCALCMETHOD TYPE STRING,
DEPRECIATIONCALCEXTRATEINPCT TYPE STRING,
FIXEDASSETUSAGEOBJECT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_CDCCALCTERM_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_CDCCALCTERM_STR-MANDT sy-vline 
WA_CDCCALCTERM_STR-COMPANYCODE sy-vline 
WA_CDCCALCTERM_STR-MASTERFIXEDASSET sy-vline 
WA_CDCCALCTERM_STR-FIXEDASSET sy-vline 
WA_CDCCALCTERM_STR-ASSETDEPRECIATIONAREA sy-vline 
WA_CDCCALCTERM_STR-FISCALYEAR sy-vline 
WA_CDCCALCTERM_STR-DEPRECIATIONCALCVALUETYPE sy-vline 
WA_CDCCALCTERM_STR-CURRENCYROLE sy-vline 
WA_CDCCALCTERM_STR-TOFISCALPERIOD sy-vline 
WA_CDCCALCTERM_STR-FROMFISCALPERIOD sy-vline 
WA_CDCCALCTERM_STR-NUMBEROFPERIODSINFISCALYEAR sy-vline 
WA_CDCCALCTERM_STR-NUMBEROFPERDSINSHORTENEDFSCLYR sy-vline 
WA_CDCCALCTERM_STR-DEPRECIATIONKEY sy-vline 
WA_CDCCALCTERM_STR-DEPRECIATIONPHASE sy-vline 
WA_CDCCALCTERM_STR-DEPRECIATIONSTARTDATE sy-vline 
WA_CDCCALCTERM_STR-DEPRECIATIONFISCALPERIOD sy-vline 
WA_CDCCALCTERM_STR-DEPRECIATIONSTARTYEAR sy-vline 
WA_CDCCALCTERM_STR-LEASEPAYMENTCYCLE sy-vline 
WA_CDCCALCTERM_STR-NUMBEROFLEASEPAYMENTS sy-vline 
WA_CDCCALCTERM_STR-INTERESTRATEINPERCENT sy-vline 
WA_CDCCALCTERM_STR-PERIODICLEASEPAYMENTAMTINDC sy-vline 
WA_CDCCALCTERM_STR-LEASEISPAYEDINADVANCE sy-vline 
WA_CDCCALCTERM_STR-USEFULLIFEINPERIODS sy-vline 
WA_CDCCALCTERM_STR-PLANNEDUSEFULLIFEINPERIODS sy-vline 
WA_CDCCALCTERM_STR-PLANNEDUSEFULLIFEINYEARS sy-vline 
WA_CDCCALCTERM_STR-EXPIREDUSEFULLIFEINPERDS sy-vline 
WA_CDCCALCTERM_STR-EXPIREDUSEFULLIFEINTIMESEGMENT sy-vline 
WA_CDCCALCTERM_STR-CHGOVRYREXPIREDUSFLLIFEINPERDS sy-vline 
WA_CDCCALCTERM_STR-RPLCMTVALUEAGINGINDEXSERS sy-vline 
WA_CDCCALCTERM_STR-REPLACEMENTVALUEINDEXSERS sy-vline 
WA_CDCCALCTERM_STR-ASSETREVALUATIONKEY sy-vline 
WA_CDCCALCTERM_STR-ASSETSCRAPAMOUNTINDSPCRCY sy-vline 
WA_CDCCALCTERM_STR-ACQNPRODNCOSTSCRAPPERCENT sy-vline 
WA_CDCCALCTERM_STR-NEGATIVEAMOUNTISALLOWED sy-vline 
WA_CDCCALCTERM_STR-DEPRKEYCHANGEOVERYEAR sy-vline 
WA_CDCCALCTERM_STR-DEPRKEYCHANGEOVERPERIOD sy-vline 
WA_CDCCALCTERM_STR-EXACTDAYYEARCHANGEOVER sy-vline 
WA_CDCCALCTERM_STR-VARIABLEDEPRPERCENT sy-vline 
WA_CDCCALCTERM_STR-SHIFTOPERATIONFACTOR sy-vline 
WA_CDCCALCTERM_STR-ISSHUTDOWN sy-vline 
WA_CDCCALCTERM_STR-ASSETCLASS sy-vline 
WA_CDCCALCTERM_STR-ASSETCAPITALIZATIONDATE sy-vline 
WA_CDCCALCTERM_STR-ACQUISITIONVALUEDATE sy-vline 
WA_CDCCALCTERM_STR-FIRSTACQUISITIONFISCALYEAR sy-vline 
WA_CDCCALCTERM_STR-FIRSTACQUISITIONFISCALPERIOD sy-vline 
WA_CDCCALCTERM_STR-ORIGINALFIXEDASSETVALUEDATE sy-vline 
WA_CDCCALCTERM_STR-LASTRETIREMENTVALUEDATE sy-vline 
WA_CDCCALCTERM_STR-MLTPLSHFTUSESHUTDOWNINFLNCFCTR sy-vline 
WA_CDCCALCTERM_STR-DEPRECIATIONCALCSORTKEY sy-vline 
WA_CDCCALCTERM_STR-DEPRECIATIONCALCSTEPINDEX sy-vline 
WA_CDCCALCTERM_STR-DEPRECIATIONCALCCTFFINDEX sy-vline 
WA_CDCCALCTERM_STR-MEMOVALUEISNOTCONSIDERED sy-vline 
WA_CDCCALCTERM_STR-ASSETHASTIMEDEPENDENTVALNPARAM sy-vline 
WA_CDCCALCTERM_STR-DEPRECIATIONCALCVALIDTODATE sy-vline 
WA_CDCCALCTERM_STR-ISGROUPASSET sy-vline 
WA_CDCCALCTERM_STR-ASSETUSAGEISCONSIDERED sy-vline 
WA_CDCCALCTERM_STR-SEGMENTGENERATIONINTVLINPERDS sy-vline 
WA_CDCCALCTERM_STR-INFLATIONCALCISPERFORMED sy-vline 
WA_CDCCALCTERM_STR-DEPRECIATIONVALUEISCALCULATED sy-vline 
WA_CDCCALCTERM_STR-VALUETYPEHASSAMEPERDINTERVALS sy-vline 
WA_CDCCALCTERM_STR-INDIVIDUALPERDCALCISPERFORMED sy-vline 
WA_CDCCALCTERM_STR-DEPRECIATIONCALCISTOEXACTDATE sy-vline 
WA_CDCCALCTERM_STR-FISCALYEARSTARTDATE sy-vline 
WA_CDCCALCTERM_STR-FISCALYEARENDDATE sy-vline 
WA_CDCCALCTERM_STR-FISCALYEARISSHORTENED sy-vline 
WA_CDCCALCTERM_STR-PERIODINTERVALISAFTUSFLLIFEEND sy-vline 
WA_CDCCALCTERM_STR-MLTPLSHFTUSESHUTDOWNCRRTNFCTR sy-vline 
WA_CDCCALCTERM_STR-USEFULLIFEISCALCDFRMCHGOVRYR sy-vline 
WA_CDCCALCTERM_STR-DISPLAYCURRENCY sy-vline 
WA_CDCCALCTERM_STR-DEPRECIATIONCALCBASEVALUEKEY sy-vline 
WA_CDCCALCTERM_STR-DEPRCALCADDLBASEVALKEY sy-vline 
WA_CDCCALCTERM_STR-DEPRECIATIONCALCCALCMETHOD sy-vline 
WA_CDCCALCTERM_STR-DEPRECIATIONCALCEXTRATEINPCT sy-vline 
WA_CDCCALCTERM_STR-FIXEDASSETUSAGEOBJECT sy-vline      INTO ld_text SEPARATED BY SPACE.

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