ABAP Select data from SAP table FIKZD_TRTAX 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 FIKZD_TRTAX 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 FIKZD_TRTAX. 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 FIKZD_TRTAX 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_FIKZD_TRTAX TYPE STANDARD TABLE OF FIKZD_TRTAX,
      WA_FIKZD_TRTAX TYPE FIKZD_TRTAX,
      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: <FIKZD_TRTAX> TYPE FIKZD_TRTAX.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM FIKZD_TRTAX
*  INTO TABLE @DATA(IT_FIKZD_TRTAX2).
*--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_FIKZD_TRTAX INDEX 1 INTO DATA(WA_FIKZD_TRTAX2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_FIKZD_TRTAX ASSIGNING <FIKZD_TRTAX>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<FIKZD_TRTAX>-MANDT = 1.
<FIKZD_TRTAX>-BUKRS = 1.
<FIKZD_TRTAX>-ANLN1 = 1.
<FIKZD_TRTAX>-ANLN2 = 1.
<FIKZD_TRTAX>-GJAHR = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_FIKZD_TRTAX-REG_DATE, sy-vline,
WA_FIKZD_TRTAX-TTAX_TYPE, sy-vline,
WA_FIKZD_TRTAX-LAUFI, sy-vline,
WA_FIKZD_TRTAX-CANC_DATE, sy-vline,
WA_FIKZD_TRTAX-CTYPV, sy-vline,
WA_FIKZD_TRTAX-POWER, sy-vline.
ENDLOOP. *Add any further fields from structure WA_FIKZD_TRTAX 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_FIKZD_TRTAX 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_FIKZD_TRTAX INTO WA_FIKZD_TRTAX. *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 ANLN1 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_FIKZD_TRTAX-ANLN1 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FIKZD_TRTAX-ANLN1.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit AU152, internal->external for field FULLT CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_FIKZD_TRTAX-FULLT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FIKZD_TRTAX-FULLT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field ADVP CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_FIKZD_TRTAX-ADVP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FIKZD_TRTAX-ADVP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field TAX_TO_PAY CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_FIKZD_TRTAX-TAX_TO_PAY IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FIKZD_TRTAX-TAX_TO_PAY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU152, internal->external for field EXCEEDTAX CALL FUNCTION 'CONVERSION_EXIT_AU152_OUTPUT' EXPORTING input = WA_FIKZD_TRTAX-EXCEEDTAX IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FIKZD_TRTAX-EXCEEDTAX.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit ALPHA, internal->external for field LIFNR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_FIKZD_TRTAX-LIFNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FIKZD_TRTAX-LIFNR.
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_FIKZD_TRTAX_STR,
MANDT TYPE STRING,
BUKRS TYPE STRING,
ANLN1 TYPE STRING,
ANLN2 TYPE STRING,
GJAHR TYPE STRING,
REG_DATE TYPE STRING,
TTAX_TYPE TYPE STRING,
LAUFI TYPE STRING,
CANC_DATE TYPE STRING,
CTYPV TYPE STRING,
POWER TYPE STRING,
UNITP TYPE STRING,
KOEFU TYPE STRING,
THRES TYPE STRING,
TAXVL TYPE STRING,
CORCOFF TYPE STRING,
FULLT TYPE STRING,
ADVP TYPE STRING,
TAX_TO_PAY TYPE STRING,
EXCEEDRATE TYPE STRING,
EXCEEDBASE TYPE STRING,
EXCEEDTAX TYPE STRING,
WAERS TYPE STRING,
TXT50 TYPE STRING,
LICENSE_NUM TYPE STRING,
FLEET_VIN TYPE STRING,
CONSTR_DATE TYPE STRING,
CNOTX TYPE STRING,
CPRTX TYPE STRING,
DTBRA TYPE STRING,
DTBRB TYPE STRING,
ANLKL TYPE STRING,
KOSTL TYPE STRING,
WERKS TYPE STRING,
STORT TYPE STRING,
CAUFN TYPE STRING,
PERNR TYPE STRING,
OKATO TYPE STRING,
REGION TYPE STRING,
DISTRICT TYPE STRING,
ITEM_DECL TYPE STRING,
INVNR TYPE STRING,
LIFNR TYPE STRING,
DEPONUSLF TYPE STRING,
MONTX TYPE STRING,
LIGHT TYPE STRING,
ERRCM TYPE STRING,END OF T_EKKO_STR. DATA: WA_FIKZD_TRTAX_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_FIKZD_TRTAX_STR-MANDT sy-vline
WA_FIKZD_TRTAX_STR-BUKRS sy-vline
WA_FIKZD_TRTAX_STR-ANLN1 sy-vline
WA_FIKZD_TRTAX_STR-ANLN2 sy-vline
WA_FIKZD_TRTAX_STR-GJAHR sy-vline
WA_FIKZD_TRTAX_STR-REG_DATE sy-vline
WA_FIKZD_TRTAX_STR-TTAX_TYPE sy-vline
WA_FIKZD_TRTAX_STR-LAUFI sy-vline
WA_FIKZD_TRTAX_STR-CANC_DATE sy-vline
WA_FIKZD_TRTAX_STR-CTYPV sy-vline
WA_FIKZD_TRTAX_STR-POWER sy-vline
WA_FIKZD_TRTAX_STR-UNITP sy-vline
WA_FIKZD_TRTAX_STR-KOEFU sy-vline
WA_FIKZD_TRTAX_STR-THRES sy-vline
WA_FIKZD_TRTAX_STR-TAXVL sy-vline
WA_FIKZD_TRTAX_STR-CORCOFF sy-vline
WA_FIKZD_TRTAX_STR-FULLT sy-vline
WA_FIKZD_TRTAX_STR-ADVP sy-vline
WA_FIKZD_TRTAX_STR-TAX_TO_PAY sy-vline
WA_FIKZD_TRTAX_STR-EXCEEDRATE sy-vline
WA_FIKZD_TRTAX_STR-EXCEEDBASE sy-vline
WA_FIKZD_TRTAX_STR-EXCEEDTAX sy-vline
WA_FIKZD_TRTAX_STR-WAERS sy-vline
WA_FIKZD_TRTAX_STR-TXT50 sy-vline
WA_FIKZD_TRTAX_STR-LICENSE_NUM sy-vline
WA_FIKZD_TRTAX_STR-FLEET_VIN sy-vline
WA_FIKZD_TRTAX_STR-CONSTR_DATE sy-vline
WA_FIKZD_TRTAX_STR-CNOTX sy-vline
WA_FIKZD_TRTAX_STR-CPRTX sy-vline
WA_FIKZD_TRTAX_STR-DTBRA sy-vline
WA_FIKZD_TRTAX_STR-DTBRB sy-vline
WA_FIKZD_TRTAX_STR-ANLKL sy-vline
WA_FIKZD_TRTAX_STR-KOSTL sy-vline
WA_FIKZD_TRTAX_STR-WERKS sy-vline
WA_FIKZD_TRTAX_STR-STORT sy-vline
WA_FIKZD_TRTAX_STR-CAUFN sy-vline
WA_FIKZD_TRTAX_STR-PERNR sy-vline
WA_FIKZD_TRTAX_STR-OKATO sy-vline
WA_FIKZD_TRTAX_STR-REGION sy-vline
WA_FIKZD_TRTAX_STR-DISTRICT sy-vline
WA_FIKZD_TRTAX_STR-ITEM_DECL sy-vline
WA_FIKZD_TRTAX_STR-INVNR sy-vline
WA_FIKZD_TRTAX_STR-LIFNR sy-vline
WA_FIKZD_TRTAX_STR-DEPONUSLF sy-vline
WA_FIKZD_TRTAX_STR-MONTX sy-vline
WA_FIKZD_TRTAX_STR-LIGHT sy-vline
WA_FIKZD_TRTAX_STR-ERRCM sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.