ABAP Select data from SAP table CAUTAXITEMQ into internal table

Get Example source ABAP code based on a different SAP table
  

Below is a number of ABAP code snippets to demonstrate how to select data from SAP CAUTAXITEMQ 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 CAUTAXITEMQ. 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 CAUTAXITEMQ 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_CAUTAXITEMQ TYPE STANDARD TABLE OF CAUTAXITEMQ,
      WA_CAUTAXITEMQ TYPE CAUTAXITEMQ,
      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: <CAUTAXITEMQ> TYPE CAUTAXITEMQ.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM CAUTAXITEMQ
*  INTO TABLE @DATA(IT_CAUTAXITEMQ2).
*--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_CAUTAXITEMQ INDEX 1 INTO DATA(WA_CAUTAXITEMQ2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_CAUTAXITEMQ ASSIGNING <CAUTAXITEMQ>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<CAUTAXITEMQ>-MANDT = 1.
<CAUTAXITEMQ>-COMPANYCODE = 1.
<CAUTAXITEMQ>-ACCOUNTINGDOCUMENT = 1.
<CAUTAXITEMQ>-FISCALYEAR = 1.
<CAUTAXITEMQ>-TAXITEM = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_CAUTAXITEMQ-STATRYRPTGENTITY, sy-vline,
WA_CAUTAXITEMQ-STATRYRPTCATEGORY, sy-vline,
WA_CAUTAXITEMQ-STATRYRPTRUNID, sy-vline,
WA_CAUTAXITEMQ-TAXBOX, sy-vline,
WA_CAUTAXITEMQ-TAXCODE, sy-vline,
WA_CAUTAXITEMQ-TRANSACTIONTYPEDETERMINATION, sy-vline.
ENDLOOP. *Add any further fields from structure WA_CAUTAXITEMQ 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_CAUTAXITEMQ 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_CAUTAXITEMQ INTO WA_CAUTAXITEMQ. *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 ACCOUNTINGDOCUMENT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_CAUTAXITEMQ-ACCOUNTINGDOCUMENT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CAUTAXITEMQ-ACCOUNTINGDOCUMENT.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit EXCRT, internal->external for field EXCHANGERATE CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT' EXPORTING input = WA_CAUTAXITEMQ-EXCHANGERATE IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CAUTAXITEMQ-EXCHANGERATE.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit AU132, internal->external for field TAXAMOUNTINCOCODECRCY CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT' EXPORTING input = WA_CAUTAXITEMQ-TAXAMOUNTINCOCODECRCY IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CAUTAXITEMQ-TAXAMOUNTINCOCODECRCY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field TAXAMOUNT CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT' EXPORTING input = WA_CAUTAXITEMQ-TAXAMOUNT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CAUTAXITEMQ-TAXAMOUNT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field TAXBASEAMOUNTINRPTGCRCY CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_CAUTAXITEMQ-TAXBASEAMOUNTINRPTGCRCY IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CAUTAXITEMQ-TAXBASEAMOUNTINRPTGCRCY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field TAXAMOUNTINRPTGCRCY CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_CAUTAXITEMQ-TAXAMOUNTINRPTGCRCY IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CAUTAXITEMQ-TAXAMOUNTINRPTGCRCY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field TAXBASEAMOUNTINCOCODECRCY CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT' EXPORTING input = WA_CAUTAXITEMQ-TAXBASEAMOUNTINCOCODECRCY IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CAUTAXITEMQ-TAXBASEAMOUNTINCOCODECRCY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field CALCDTXBASEAMTINCOCODECRCY CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_CAUTAXITEMQ-CALCDTXBASEAMTINCOCODECRCY IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CAUTAXITEMQ-CALCDTXBASEAMTINCOCODECRCY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field CALCULATEDTXAMTINCOCODECRCY CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_CAUTAXITEMQ-CALCULATEDTXAMTINCOCODECRCY IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_CAUTAXITEMQ-CALCULATEDTXAMTINCOCODECRCY.
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_CAUTAXITEMQ_STR,
MANDT TYPE STRING,
COMPANYCODE TYPE STRING,
ACCOUNTINGDOCUMENT TYPE STRING,
FISCALYEAR TYPE STRING,
TAXITEM TYPE STRING,
STATRYRPTGENTITY TYPE STRING,
STATRYRPTCATEGORY TYPE STRING,
STATRYRPTRUNID TYPE STRING,
TAXBOX TYPE STRING,
TAXCODE TYPE STRING,
TRANSACTIONTYPEDETERMINATION TYPE STRING,
TAXDECLNAMOUNTTYPE TYPE STRING,
TAXITEMGROUPINGVERSION TYPE STRING,
POSTINGDATE TYPE STRING,
REPORTINGDATE TYPE STRING,
DOCUMENTDATE TYPE STRING,
TAXREPORTINGDATE TYPE STRING,
TAXITEMGROUP TYPE STRING,
FISCALPERIOD TYPE STRING,
ACCOUNTINGDOCUMENTTYPE TYPE STRING,
ACCOUNTINGDOCUMENTHEADERTEXT TYPE STRING,
DOCUMENTREFERENCEID TYPE STRING,
COMPANYCODECOUNTRY TYPE STRING,
REPORTINGCOUNTRY TYPE STRING,
TAXRETURNCOUNTRY TYPE STRING,
EXCHANGERATE TYPE STRING,
TAXRATE TYPE STRING,
GLACCOUNT TYPE STRING,
BUSINESSPLACE TYPE STRING,
TAXJURISDICTION TYPE STRING,
LOWESTLEVELTAXJURISDICTION TYPE STRING,
TAXCALCULATIONPROCEDURE TYPE STRING,
TARGETTAXCODE TYPE STRING,
TAXNUMBER1 TYPE STRING,
TAXNUMBER2 TYPE STRING,
TAXNUMBER3 TYPE STRING,
BUSINESSPARTNER TYPE STRING,
BUSINESSPARTNERNAME TYPE STRING,
CUSTOMERSUPPLIERADDRESS TYPE STRING,
TAXTYPE TYPE STRING,
COMPANYCODECURRENCY TYPE STRING,
COUNTRYCURRENCY TYPE STRING,
DOCUMENTCURRENCY TYPE STRING,
REPORTINGCURRENCY TYPE STRING,
ADDITIONALCURRENCY1 TYPE STRING,
ADDITIONALCURRENCY2 TYPE STRING,
TAXAMOUNTINCOCODECRCY TYPE STRING,
TAXAMOUNT TYPE STRING,
TAXBASEAMOUNTINRPTGCRCY TYPE STRING,
TAXAMOUNTINRPTGCRCY TYPE STRING,
TAXISNOTDEDUCTIBLE TYPE STRING,
TAXBASEAMOUNTINCOCODECRCY TYPE STRING,
CALCDTXBASEAMTINCOCODECRCY TYPE STRING,
CALCULATEDTXAMTINCOCODECRCY TYPE STRING,
TAXCOUNTRY TYPE STRING,END OF T_EKKO_STR. DATA: WA_CAUTAXITEMQ_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_CAUTAXITEMQ_STR-MANDT sy-vline
WA_CAUTAXITEMQ_STR-COMPANYCODE sy-vline
WA_CAUTAXITEMQ_STR-ACCOUNTINGDOCUMENT sy-vline
WA_CAUTAXITEMQ_STR-FISCALYEAR sy-vline
WA_CAUTAXITEMQ_STR-TAXITEM sy-vline
WA_CAUTAXITEMQ_STR-STATRYRPTGENTITY sy-vline
WA_CAUTAXITEMQ_STR-STATRYRPTCATEGORY sy-vline
WA_CAUTAXITEMQ_STR-STATRYRPTRUNID sy-vline
WA_CAUTAXITEMQ_STR-TAXBOX sy-vline
WA_CAUTAXITEMQ_STR-TAXCODE sy-vline
WA_CAUTAXITEMQ_STR-TRANSACTIONTYPEDETERMINATION sy-vline
WA_CAUTAXITEMQ_STR-TAXDECLNAMOUNTTYPE sy-vline
WA_CAUTAXITEMQ_STR-TAXITEMGROUPINGVERSION sy-vline
WA_CAUTAXITEMQ_STR-POSTINGDATE sy-vline
WA_CAUTAXITEMQ_STR-REPORTINGDATE sy-vline
WA_CAUTAXITEMQ_STR-DOCUMENTDATE sy-vline
WA_CAUTAXITEMQ_STR-TAXREPORTINGDATE sy-vline
WA_CAUTAXITEMQ_STR-TAXITEMGROUP sy-vline
WA_CAUTAXITEMQ_STR-FISCALPERIOD sy-vline
WA_CAUTAXITEMQ_STR-ACCOUNTINGDOCUMENTTYPE sy-vline
WA_CAUTAXITEMQ_STR-ACCOUNTINGDOCUMENTHEADERTEXT sy-vline
WA_CAUTAXITEMQ_STR-DOCUMENTREFERENCEID sy-vline
WA_CAUTAXITEMQ_STR-COMPANYCODECOUNTRY sy-vline
WA_CAUTAXITEMQ_STR-REPORTINGCOUNTRY sy-vline
WA_CAUTAXITEMQ_STR-TAXRETURNCOUNTRY sy-vline
WA_CAUTAXITEMQ_STR-EXCHANGERATE sy-vline
WA_CAUTAXITEMQ_STR-TAXRATE sy-vline
WA_CAUTAXITEMQ_STR-GLACCOUNT sy-vline
WA_CAUTAXITEMQ_STR-BUSINESSPLACE sy-vline
WA_CAUTAXITEMQ_STR-TAXJURISDICTION sy-vline
WA_CAUTAXITEMQ_STR-LOWESTLEVELTAXJURISDICTION sy-vline
WA_CAUTAXITEMQ_STR-TAXCALCULATIONPROCEDURE sy-vline
WA_CAUTAXITEMQ_STR-TARGETTAXCODE sy-vline
WA_CAUTAXITEMQ_STR-TAXNUMBER1 sy-vline
WA_CAUTAXITEMQ_STR-TAXNUMBER2 sy-vline
WA_CAUTAXITEMQ_STR-TAXNUMBER3 sy-vline
WA_CAUTAXITEMQ_STR-BUSINESSPARTNER sy-vline
WA_CAUTAXITEMQ_STR-BUSINESSPARTNERNAME sy-vline
WA_CAUTAXITEMQ_STR-CUSTOMERSUPPLIERADDRESS sy-vline
WA_CAUTAXITEMQ_STR-TAXTYPE sy-vline
WA_CAUTAXITEMQ_STR-COMPANYCODECURRENCY sy-vline
WA_CAUTAXITEMQ_STR-COUNTRYCURRENCY sy-vline
WA_CAUTAXITEMQ_STR-DOCUMENTCURRENCY sy-vline
WA_CAUTAXITEMQ_STR-REPORTINGCURRENCY sy-vline
WA_CAUTAXITEMQ_STR-ADDITIONALCURRENCY1 sy-vline
WA_CAUTAXITEMQ_STR-ADDITIONALCURRENCY2 sy-vline
WA_CAUTAXITEMQ_STR-TAXAMOUNTINCOCODECRCY sy-vline
WA_CAUTAXITEMQ_STR-TAXAMOUNT sy-vline
WA_CAUTAXITEMQ_STR-TAXBASEAMOUNTINRPTGCRCY sy-vline
WA_CAUTAXITEMQ_STR-TAXAMOUNTINRPTGCRCY sy-vline
WA_CAUTAXITEMQ_STR-TAXISNOTDEDUCTIBLE sy-vline
WA_CAUTAXITEMQ_STR-TAXBASEAMOUNTINCOCODECRCY sy-vline
WA_CAUTAXITEMQ_STR-CALCDTXBASEAMTINCOCODECRCY sy-vline
WA_CAUTAXITEMQ_STR-CALCULATEDTXAMTINCOCODECRCY sy-vline
WA_CAUTAXITEMQ_STR-TAXCOUNTRY sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.