ABAP Select data from SAP table CITSRFAREGCUB 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 CITSRFAREGCUB 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 CITSRFAREGCUB. 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 CITSRFAREGCUB 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_CITSRFAREGCUB TYPE STANDARD TABLE OF CITSRFAREGCUB,
      WA_CITSRFAREGCUB TYPE CITSRFAREGCUB,
      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: <CITSRFAREGCUB> TYPE CITSRFAREGCUB.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM CITSRFAREGCUB
*  INTO TABLE @DATA(IT_CITSRFAREGCUB2).
*--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_CITSRFAREGCUB INDEX 1 INTO DATA(WA_CITSRFAREGCUB2).


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

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

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_CITSRFAREGCUB-LEDGER, sy-vline,
  WA_CITSRFAREGCUB-FISCALYEAR, sy-vline,
  WA_CITSRFAREGCUB-FISCALPERIOD, sy-vline,
  WA_CITSRFAREGCUB-SUBLEDGERACCTLINEITEMTYPE, sy-vline,
  WA_CITSRFAREGCUB-ASSETACCTTRANSCLASSFCTN, sy-vline,
  WA_CITSRFAREGCUB-ASSETACCOUNTINGKEYFIGURE, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_CITSRFAREGCUB 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_CITSRFAREGCUB 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_CITSRFAREGCUB INTO WA_CITSRFAREGCUB.


*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_CITSRFAREGCUB-MASTERFIXEDASSET
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CITSRFAREGCUB-MASTERFIXEDASSET.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit AC132, internal->external for field RPTGYEARACQUISITIONSAMOUNTINDC
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_CITSRFAREGCUB-RPTGYEARACQUISITIONSAMOUNTINDC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CITSRFAREGCUB-RPTGYEARACQUISITIONSAMOUNTINDC.
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_CITSRFAREGCUB_STR, 
MANDT TYPE STRING,
COMPANYCODE TYPE STRING,
ASSETDEPRECIATIONAREA TYPE STRING,
MASTERFIXEDASSET TYPE STRING,
FIXEDASSET TYPE STRING,
LEDGER TYPE STRING,
FISCALYEAR TYPE STRING,
FISCALPERIOD TYPE STRING,
SUBLEDGERACCTLINEITEMTYPE TYPE STRING,
ASSETACCTTRANSCLASSFCTN TYPE STRING,
ASSETACCOUNTINGKEYFIGURE TYPE STRING,
ASSETACCOUNTINGKEYFIGURESET TYPE STRING,
KEYFIGUREISZEROBALANCE TYPE STRING,
LEDGERFISCALYEAR TYPE STRING,
FISCALYEARVARIANT TYPE STRING,
ASSETACCOUNTINGSORTEDKEYFIGURE TYPE STRING,
PARENTNODE TYPE STRING,
ASSETACCOUNTDETERMINATION TYPE STRING,
ASSETCLASS TYPE STRING,
FIRSTACQUISITIONFISCALYEAR TYPE STRING,
DEPRECIATIONKEY TYPE STRING,
PLANNEDUSEFULLIFEINYEARS TYPE STRING,
PLANNEDUSEFULLIFEINPERIODS TYPE STRING,
ASSETPLANT TYPE STRING,
ASSETLOCATION TYPE STRING,
VEHICLELICENSEPLATENUMBER TYPE STRING,
CONTROLLINGAREA TYPE STRING,
ASSETCOSTCENTER TYPE STRING,
ASSETBUSINESSAREA TYPE STRING,
DISPLAYCURRENCY TYPE STRING,
AMOUNTINDISPLAYCURRENCY TYPE STRING,
CURRENCYROLE TYPE STRING,
DEPRECIATIONSTARTDATE TYPE STRING,
CHARTOFDEPRECIATION TYPE STRING,
FXDASSETFORMCOLUMN01AMOUNTINDC TYPE STRING,
FXDASSETFORMCOLUMN02AMOUNTINDC TYPE STRING,
FXDASSETFORMCOLUMN03AMOUNTINDC TYPE STRING,
FXDASSETFORMCOLUMN04AMOUNTINDC TYPE STRING,
FXDASSETFORMCOLUMN05AMOUNTINDC TYPE STRING,
FXDASSETFORMCOLUMN06AMOUNTINDC TYPE STRING,
FXDASSETFORMCOLUMN07AMOUNTINDC TYPE STRING,
FXDASSETFORMCOLUMN08AMOUNTINDC TYPE STRING,
FXDASSETFORMCOLUMN09AMOUNTINDC TYPE STRING,
RPTGYEARACQUISITIONSAMOUNTINDC TYPE STRING,
FIXEDASSETDESCRIPTION TYPE STRING,END OF T_EKKO_STR.
DATA: WA_CITSRFAREGCUB_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_CITSRFAREGCUB_STR-MANDT sy-vline 
WA_CITSRFAREGCUB_STR-COMPANYCODE sy-vline 
WA_CITSRFAREGCUB_STR-ASSETDEPRECIATIONAREA sy-vline 
WA_CITSRFAREGCUB_STR-MASTERFIXEDASSET sy-vline 
WA_CITSRFAREGCUB_STR-FIXEDASSET sy-vline 
WA_CITSRFAREGCUB_STR-LEDGER sy-vline 
WA_CITSRFAREGCUB_STR-FISCALYEAR sy-vline 
WA_CITSRFAREGCUB_STR-FISCALPERIOD sy-vline 
WA_CITSRFAREGCUB_STR-SUBLEDGERACCTLINEITEMTYPE sy-vline 
WA_CITSRFAREGCUB_STR-ASSETACCTTRANSCLASSFCTN sy-vline 
WA_CITSRFAREGCUB_STR-ASSETACCOUNTINGKEYFIGURE sy-vline 
WA_CITSRFAREGCUB_STR-ASSETACCOUNTINGKEYFIGURESET sy-vline 
WA_CITSRFAREGCUB_STR-KEYFIGUREISZEROBALANCE sy-vline 
WA_CITSRFAREGCUB_STR-LEDGERFISCALYEAR sy-vline 
WA_CITSRFAREGCUB_STR-FISCALYEARVARIANT sy-vline 
WA_CITSRFAREGCUB_STR-ASSETACCOUNTINGSORTEDKEYFIGURE sy-vline 
WA_CITSRFAREGCUB_STR-PARENTNODE sy-vline 
WA_CITSRFAREGCUB_STR-ASSETACCOUNTDETERMINATION sy-vline 
WA_CITSRFAREGCUB_STR-ASSETCLASS sy-vline 
WA_CITSRFAREGCUB_STR-FIRSTACQUISITIONFISCALYEAR sy-vline 
WA_CITSRFAREGCUB_STR-DEPRECIATIONKEY sy-vline 
WA_CITSRFAREGCUB_STR-PLANNEDUSEFULLIFEINYEARS sy-vline 
WA_CITSRFAREGCUB_STR-PLANNEDUSEFULLIFEINPERIODS sy-vline 
WA_CITSRFAREGCUB_STR-ASSETPLANT sy-vline 
WA_CITSRFAREGCUB_STR-ASSETLOCATION sy-vline 
WA_CITSRFAREGCUB_STR-VEHICLELICENSEPLATENUMBER sy-vline 
WA_CITSRFAREGCUB_STR-CONTROLLINGAREA sy-vline 
WA_CITSRFAREGCUB_STR-ASSETCOSTCENTER sy-vline 
WA_CITSRFAREGCUB_STR-ASSETBUSINESSAREA sy-vline 
WA_CITSRFAREGCUB_STR-DISPLAYCURRENCY sy-vline 
WA_CITSRFAREGCUB_STR-AMOUNTINDISPLAYCURRENCY sy-vline 
WA_CITSRFAREGCUB_STR-CURRENCYROLE sy-vline 
WA_CITSRFAREGCUB_STR-DEPRECIATIONSTARTDATE sy-vline 
WA_CITSRFAREGCUB_STR-CHARTOFDEPRECIATION sy-vline 
WA_CITSRFAREGCUB_STR-FXDASSETFORMCOLUMN01AMOUNTINDC sy-vline 
WA_CITSRFAREGCUB_STR-FXDASSETFORMCOLUMN02AMOUNTINDC sy-vline 
WA_CITSRFAREGCUB_STR-FXDASSETFORMCOLUMN03AMOUNTINDC sy-vline 
WA_CITSRFAREGCUB_STR-FXDASSETFORMCOLUMN04AMOUNTINDC sy-vline 
WA_CITSRFAREGCUB_STR-FXDASSETFORMCOLUMN05AMOUNTINDC sy-vline 
WA_CITSRFAREGCUB_STR-FXDASSETFORMCOLUMN06AMOUNTINDC sy-vline 
WA_CITSRFAREGCUB_STR-FXDASSETFORMCOLUMN07AMOUNTINDC sy-vline 
WA_CITSRFAREGCUB_STR-FXDASSETFORMCOLUMN08AMOUNTINDC sy-vline 
WA_CITSRFAREGCUB_STR-FXDASSETFORMCOLUMN09AMOUNTINDC sy-vline 
WA_CITSRFAREGCUB_STR-RPTGYEARACQUISITIONSAMOUNTINDC sy-vline 
WA_CITSRFAREGCUB_STR-FIXEDASSETDESCRIPTION sy-vline      INTO ld_text SEPARATED BY SPACE.

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