ABAP Select data from SAP table J_3R_TTAX_REPORT 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 J_3R_TTAX_REPORT 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 J_3R_TTAX_REPORT. 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 J_3R_TTAX_REPORT 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_J_3R_TTAX_REPORT TYPE STANDARD TABLE OF J_3R_TTAX_REPORT,
      WA_J_3R_TTAX_REPORT TYPE J_3R_TTAX_REPORT,
      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: <J_3R_TTAX_REPORT> TYPE J_3R_TTAX_REPORT.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM J_3R_TTAX_REPORT
*  INTO TABLE @DATA(IT_J_3R_TTAX_REPORT2).
*--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_J_3R_TTAX_REPORT INDEX 1 INTO DATA(WA_J_3R_TTAX_REPORT2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_J_3R_TTAX_REPORT ASSIGNING <J_3R_TTAX_REPORT>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<J_3R_TTAX_REPORT>-MANDT = 1.
<J_3R_TTAX_REPORT>-TAX_TYPE = 1.
<J_3R_TTAX_REPORT>-BUKRS = 1.
<J_3R_TTAX_REPORT>-OKATO = 1.
<J_3R_TTAX_REPORT>-STRUCT_DIV = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_J_3R_TTAX_REPORT-ANLN1, sy-vline,
WA_J_3R_TTAX_REPORT-ANLN2, sy-vline,
WA_J_3R_TTAX_REPORT-GJAHR, sy-vline,
WA_J_3R_TTAX_REPORT-VERSION, sy-vline,
WA_J_3R_TTAX_REPORT-LIGHT, sy-vline,
WA_J_3R_TTAX_REPORT-TAX01, sy-vline.
ENDLOOP. *Add any further fields from structure WA_J_3R_TTAX_REPORT 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_J_3R_TTAX_REPORT 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_J_3R_TTAX_REPORT INTO WA_J_3R_TTAX_REPORT. *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_J_3R_TTAX_REPORT-ANLN1 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-ANLN1.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit AU175, internal->external for field TAX01 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TAX01 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TAX01.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX02 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TAX02 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TAX02.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX03 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TAX03 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TAX03.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX04 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TAX04 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TAX04.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX05 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TAX05 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TAX05.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX06 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TAX06 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TAX06.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX07 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TAX07 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TAX07.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX08 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TAX08 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TAX08.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX09 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TAX09 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TAX09.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX10 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TAX10 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TAX10.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX11 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TAX11 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TAX11.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX12 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TAX12 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TAX12.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV01 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-NBV01 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-NBV01.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV02 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-NBV02 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-NBV02.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV03 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-NBV03 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-NBV03.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV04 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-NBV04 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-NBV04.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV05 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-NBV05 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-NBV05.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV06 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-NBV06 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-NBV06.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV07 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-NBV07 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-NBV07.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV08 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-NBV08 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-NBV08.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV09 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-NBV09 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-NBV09.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV10 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-NBV10 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-NBV10.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV11 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-NBV11 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-NBV11.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV12 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-NBV12 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-NBV12.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field NBV13 CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-NBV13 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-NBV13.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX01_ORIG CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TTAX01_ORIG IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TTAX01_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX02_ORIG CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TTAX02_ORIG IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TTAX02_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX03_ORIG CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TTAX03_ORIG IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TTAX03_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX04_ORIG CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TTAX04_ORIG IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TTAX04_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX05_ORIG CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TTAX05_ORIG IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TTAX05_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX06_ORIG CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TTAX06_ORIG IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TTAX06_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX07_ORIG CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TTAX07_ORIG IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TTAX07_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX08_ORIG CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TTAX08_ORIG IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TTAX08_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX09_ORIG CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TTAX09_ORIG IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TTAX09_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX10_ORIG CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TTAX10_ORIG IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TTAX10_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX11_ORIG CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TTAX11_ORIG IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TTAX11_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TTAX12_ORIG CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TTAX12_ORIG IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TTAX12_ORIG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU175, internal->external for field TAX_SUM CALL FUNCTION 'CONVERSION_EXIT_AU175_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-TAX_SUM IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-TAX_SUM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU172, internal->external for field CAD_VALUE CALL FUNCTION 'CONVERSION_EXIT_AU172_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-CAD_VALUE IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-CAD_VALUE.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field LIFNR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_J_3R_TTAX_REPORT-LIFNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_J_3R_TTAX_REPORT-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_J_3R_TTAX_REPORT_STR,
MANDT TYPE STRING,
TAX_TYPE TYPE STRING,
BUKRS TYPE STRING,
OKATO TYPE STRING,
STRUCT_DIV TYPE STRING,
ANLN1 TYPE STRING,
ANLN2 TYPE STRING,
GJAHR TYPE STRING,
VERSION TYPE STRING,
LIGHT TYPE STRING,
TAX01 TYPE STRING,
TAX02 TYPE STRING,
TAX03 TYPE STRING,
TAX04 TYPE STRING,
TAX05 TYPE STRING,
TAX06 TYPE STRING,
TAX07 TYPE STRING,
TAX08 TYPE STRING,
TAX09 TYPE STRING,
TAX10 TYPE STRING,
TAX11 TYPE STRING,
TAX12 TYPE STRING,
WAERS TYPE STRING,
STATUS TYPE STRING,
LAST_DECLARED TYPE STRING,
CREATED_ON TYPE STRING,
CALC_ID TYPE STRING,
DECL_01 TYPE STRING,
DECL_NUM1 TYPE STRING,
DECL_02 TYPE STRING,
DECL_NUM2 TYPE STRING,
DECL_03 TYPE STRING,
DECL_NUM3 TYPE STRING,
DECL_04 TYPE STRING,
DECL_NUM4 TYPE STRING,
NBV01 TYPE STRING,
NBV02 TYPE STRING,
NBV03 TYPE STRING,
NBV04 TYPE STRING,
NBV05 TYPE STRING,
NBV06 TYPE STRING,
NBV07 TYPE STRING,
NBV08 TYPE STRING,
NBV09 TYPE STRING,
NBV10 TYPE STRING,
NBV11 TYPE STRING,
NBV12 TYPE STRING,
NBV13 TYPE STRING,
VALID_MONTH TYPE STRING,
ASSETNAME TYPE STRING,
TTAX01_ORIG TYPE STRING,
TTAX02_ORIG TYPE STRING,
TTAX03_ORIG TYPE STRING,
TTAX04_ORIG TYPE STRING,
TTAX05_ORIG TYPE STRING,
TTAX06_ORIG TYPE STRING,
TTAX07_ORIG TYPE STRING,
TTAX08_ORIG TYPE STRING,
TTAX09_ORIG TYPE STRING,
TTAX10_ORIG TYPE STRING,
TTAX11_ORIG TYPE STRING,
TTAX12_ORIG TYPE STRING,
TTAX_RATE TYPE STRING,
BRAND TYPE STRING,
TAX_SUM TYPE STRING,
PRIVILEGE TYPE STRING,
AMOUNTRED TYPE STRING,
EXEMPTION TYPE STRING,
CNOTX TYPE STRING,
CPRTX TYPE STRING,
USAGE_YEARS TYPE STRING,
TAX_COEFF TYPE STRING,
PROPTYPE TYPE STRING,
CAD_VALUE TYPE STRING,
EXEMP_REASON TYPE STRING,
EXP_COEFF TYPE STRING,
PLATON_AMNT TYPE STRING,
TAX_TO_PAY TYPE STRING,
PROPTYPE_TMDPND TYPE STRING,
SPEC_TAX_CAT TYPE STRING,
REP_PERIOD TYPE STRING,
CTYPV TYPE STRING,
POWER TYPE STRING,
UNITP TYPE STRING,
KOEFU TYPE STRING,
TAXVL TYPE STRING,
VALTX TYPE STRING,
PLNTX TYPE STRING,
FULLT TYPE STRING,
TXT50 TYPE STRING,
LICENSE_NUM TYPE STRING,
FLEET_VIN TYPE STRING,
BAUJJ TYPE STRING,
ADATU TYPE STRING,
BDATU TYPE STRING,
DTBRA TYPE STRING,
DTBRB TYPE STRING,
LIFNR TYPE STRING,
TERR_CODE1 TYPE STRING,
TERR_CODE2 TYPE STRING,
TERR_CODE3 TYPE STRING,
TERR_CODE4 TYPE STRING,
REGION TYPE STRING,
DISTRICT TYPE STRING,
OKATO1 TYPE STRING,
OKATO2 TYPE STRING,
OKATO3 TYPE STRING,
OKATO4 TYPE STRING,END OF T_EKKO_STR. DATA: WA_J_3R_TTAX_REPORT_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_J_3R_TTAX_REPORT_STR-MANDT sy-vline
WA_J_3R_TTAX_REPORT_STR-TAX_TYPE sy-vline
WA_J_3R_TTAX_REPORT_STR-BUKRS sy-vline
WA_J_3R_TTAX_REPORT_STR-OKATO sy-vline
WA_J_3R_TTAX_REPORT_STR-STRUCT_DIV sy-vline
WA_J_3R_TTAX_REPORT_STR-ANLN1 sy-vline
WA_J_3R_TTAX_REPORT_STR-ANLN2 sy-vline
WA_J_3R_TTAX_REPORT_STR-GJAHR sy-vline
WA_J_3R_TTAX_REPORT_STR-VERSION sy-vline
WA_J_3R_TTAX_REPORT_STR-LIGHT sy-vline
WA_J_3R_TTAX_REPORT_STR-TAX01 sy-vline
WA_J_3R_TTAX_REPORT_STR-TAX02 sy-vline
WA_J_3R_TTAX_REPORT_STR-TAX03 sy-vline
WA_J_3R_TTAX_REPORT_STR-TAX04 sy-vline
WA_J_3R_TTAX_REPORT_STR-TAX05 sy-vline
WA_J_3R_TTAX_REPORT_STR-TAX06 sy-vline
WA_J_3R_TTAX_REPORT_STR-TAX07 sy-vline
WA_J_3R_TTAX_REPORT_STR-TAX08 sy-vline
WA_J_3R_TTAX_REPORT_STR-TAX09 sy-vline
WA_J_3R_TTAX_REPORT_STR-TAX10 sy-vline
WA_J_3R_TTAX_REPORT_STR-TAX11 sy-vline
WA_J_3R_TTAX_REPORT_STR-TAX12 sy-vline
WA_J_3R_TTAX_REPORT_STR-WAERS sy-vline
WA_J_3R_TTAX_REPORT_STR-STATUS sy-vline
WA_J_3R_TTAX_REPORT_STR-LAST_DECLARED sy-vline
WA_J_3R_TTAX_REPORT_STR-CREATED_ON sy-vline
WA_J_3R_TTAX_REPORT_STR-CALC_ID sy-vline
WA_J_3R_TTAX_REPORT_STR-DECL_01 sy-vline
WA_J_3R_TTAX_REPORT_STR-DECL_NUM1 sy-vline
WA_J_3R_TTAX_REPORT_STR-DECL_02 sy-vline
WA_J_3R_TTAX_REPORT_STR-DECL_NUM2 sy-vline
WA_J_3R_TTAX_REPORT_STR-DECL_03 sy-vline
WA_J_3R_TTAX_REPORT_STR-DECL_NUM3 sy-vline
WA_J_3R_TTAX_REPORT_STR-DECL_04 sy-vline
WA_J_3R_TTAX_REPORT_STR-DECL_NUM4 sy-vline
WA_J_3R_TTAX_REPORT_STR-NBV01 sy-vline
WA_J_3R_TTAX_REPORT_STR-NBV02 sy-vline
WA_J_3R_TTAX_REPORT_STR-NBV03 sy-vline
WA_J_3R_TTAX_REPORT_STR-NBV04 sy-vline
WA_J_3R_TTAX_REPORT_STR-NBV05 sy-vline
WA_J_3R_TTAX_REPORT_STR-NBV06 sy-vline
WA_J_3R_TTAX_REPORT_STR-NBV07 sy-vline
WA_J_3R_TTAX_REPORT_STR-NBV08 sy-vline
WA_J_3R_TTAX_REPORT_STR-NBV09 sy-vline
WA_J_3R_TTAX_REPORT_STR-NBV10 sy-vline
WA_J_3R_TTAX_REPORT_STR-NBV11 sy-vline
WA_J_3R_TTAX_REPORT_STR-NBV12 sy-vline
WA_J_3R_TTAX_REPORT_STR-NBV13 sy-vline
WA_J_3R_TTAX_REPORT_STR-VALID_MONTH sy-vline
WA_J_3R_TTAX_REPORT_STR-ASSETNAME sy-vline
WA_J_3R_TTAX_REPORT_STR-TTAX01_ORIG sy-vline
WA_J_3R_TTAX_REPORT_STR-TTAX02_ORIG sy-vline
WA_J_3R_TTAX_REPORT_STR-TTAX03_ORIG sy-vline
WA_J_3R_TTAX_REPORT_STR-TTAX04_ORIG sy-vline
WA_J_3R_TTAX_REPORT_STR-TTAX05_ORIG sy-vline
WA_J_3R_TTAX_REPORT_STR-TTAX06_ORIG sy-vline
WA_J_3R_TTAX_REPORT_STR-TTAX07_ORIG sy-vline
WA_J_3R_TTAX_REPORT_STR-TTAX08_ORIG sy-vline
WA_J_3R_TTAX_REPORT_STR-TTAX09_ORIG sy-vline
WA_J_3R_TTAX_REPORT_STR-TTAX10_ORIG sy-vline
WA_J_3R_TTAX_REPORT_STR-TTAX11_ORIG sy-vline
WA_J_3R_TTAX_REPORT_STR-TTAX12_ORIG sy-vline
WA_J_3R_TTAX_REPORT_STR-TTAX_RATE sy-vline
WA_J_3R_TTAX_REPORT_STR-BRAND sy-vline
WA_J_3R_TTAX_REPORT_STR-TAX_SUM sy-vline
WA_J_3R_TTAX_REPORT_STR-PRIVILEGE sy-vline
WA_J_3R_TTAX_REPORT_STR-AMOUNTRED sy-vline
WA_J_3R_TTAX_REPORT_STR-EXEMPTION sy-vline
WA_J_3R_TTAX_REPORT_STR-CNOTX sy-vline
WA_J_3R_TTAX_REPORT_STR-CPRTX sy-vline
WA_J_3R_TTAX_REPORT_STR-USAGE_YEARS sy-vline
WA_J_3R_TTAX_REPORT_STR-TAX_COEFF sy-vline
WA_J_3R_TTAX_REPORT_STR-PROPTYPE sy-vline
WA_J_3R_TTAX_REPORT_STR-CAD_VALUE sy-vline
WA_J_3R_TTAX_REPORT_STR-EXEMP_REASON sy-vline
WA_J_3R_TTAX_REPORT_STR-EXP_COEFF sy-vline
WA_J_3R_TTAX_REPORT_STR-PLATON_AMNT sy-vline
WA_J_3R_TTAX_REPORT_STR-TAX_TO_PAY sy-vline
WA_J_3R_TTAX_REPORT_STR-PROPTYPE_TMDPND sy-vline
WA_J_3R_TTAX_REPORT_STR-SPEC_TAX_CAT sy-vline
WA_J_3R_TTAX_REPORT_STR-REP_PERIOD sy-vline
WA_J_3R_TTAX_REPORT_STR-CTYPV sy-vline
WA_J_3R_TTAX_REPORT_STR-POWER sy-vline
WA_J_3R_TTAX_REPORT_STR-UNITP sy-vline
WA_J_3R_TTAX_REPORT_STR-KOEFU sy-vline
WA_J_3R_TTAX_REPORT_STR-TAXVL sy-vline
WA_J_3R_TTAX_REPORT_STR-VALTX sy-vline
WA_J_3R_TTAX_REPORT_STR-PLNTX sy-vline
WA_J_3R_TTAX_REPORT_STR-FULLT sy-vline
WA_J_3R_TTAX_REPORT_STR-TXT50 sy-vline
WA_J_3R_TTAX_REPORT_STR-LICENSE_NUM sy-vline
WA_J_3R_TTAX_REPORT_STR-FLEET_VIN sy-vline
WA_J_3R_TTAX_REPORT_STR-BAUJJ sy-vline
WA_J_3R_TTAX_REPORT_STR-ADATU sy-vline
WA_J_3R_TTAX_REPORT_STR-BDATU sy-vline
WA_J_3R_TTAX_REPORT_STR-DTBRA sy-vline
WA_J_3R_TTAX_REPORT_STR-DTBRB sy-vline
WA_J_3R_TTAX_REPORT_STR-LIFNR sy-vline
WA_J_3R_TTAX_REPORT_STR-TERR_CODE1 sy-vline
WA_J_3R_TTAX_REPORT_STR-TERR_CODE2 sy-vline
WA_J_3R_TTAX_REPORT_STR-TERR_CODE3 sy-vline
WA_J_3R_TTAX_REPORT_STR-TERR_CODE4 sy-vline
WA_J_3R_TTAX_REPORT_STR-REGION sy-vline
WA_J_3R_TTAX_REPORT_STR-DISTRICT sy-vline
WA_J_3R_TTAX_REPORT_STR-OKATO1 sy-vline
WA_J_3R_TTAX_REPORT_STR-OKATO2 sy-vline
WA_J_3R_TTAX_REPORT_STR-OKATO3 sy-vline
WA_J_3R_TTAX_REPORT_STR-OKATO4 sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.