ABAP Select data from SAP table CARFORM731 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 CARFORM731 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 CARFORM731. 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 CARFORM731 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_CARFORM731 TYPE STANDARD TABLE OF CARFORM731,
      WA_CARFORM731 TYPE CARFORM731,
      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: <CARFORM731> TYPE CARFORM731.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM CARFORM731
*  INTO TABLE @DATA(IT_CARFORM7312).
*--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_CARFORM731 INDEX 1 INTO DATA(WA_CARFORM7312).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<CARFORM731>-MANDT = 1.
<CARFORM731>-COMPANYCODE = 1.
<CARFORM731>-ACCOUNTINGDOCUMENT = 1.
<CARFORM731>-FISCALYEAR = 1.
<CARFORM731>-TAXITEM = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_CARFORM731-TRANSACTIONTYPEDETERMINATION, sy-vline,
  WA_CARFORM731-TAXCODE, sy-vline,
  WA_CARFORM731-STATRYRPTGENTITY, sy-vline,
  WA_CARFORM731-STATRYRPTCATEGORY, sy-vline,
  WA_CARFORM731-STATRYRPTRUNID, sy-vline,
  WA_CARFORM731-TAXREPORTINGDATE, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_CARFORM731 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_CARFORM731 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_CARFORM731 INTO WA_CARFORM731.


*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_CARFORM731-ACCOUNTINGDOCUMENT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CARFORM731-ACCOUNTINGDOCUMENT.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field BUSINESSPARTNER
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_CARFORM731-BUSINESSPARTNER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CARFORM731-BUSINESSPARTNER.
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_CARFORM731_STR, 
MANDT TYPE STRING,
COMPANYCODE TYPE STRING,
ACCOUNTINGDOCUMENT TYPE STRING,
FISCALYEAR TYPE STRING,
TAXITEM TYPE STRING,
TRANSACTIONTYPEDETERMINATION TYPE STRING,
TAXCODE TYPE STRING,
STATRYRPTGENTITY TYPE STRING,
STATRYRPTCATEGORY TYPE STRING,
STATRYRPTRUNID TYPE STRING,
TAXREPORTINGDATE TYPE STRING,
GLACCOUNT TYPE STRING,
TAXTYPE TYPE STRING,
POSTINGDATE TYPE STRING,
REPORTINGDATE TYPE STRING,
DEBITCREDITCODE TYPE STRING,
LEDGER TYPE STRING,
TAXBASEAMOUNTINCOCODECRCY TYPE STRING,
TAXAMOUNTINCOCODECRCY TYPE STRING,
TAXBASEAMOUNTINTRANSCRCY TYPE STRING,
TAXRETURNCOUNTRY TYPE STRING,
TAXAMOUNTINCOUNTRYCRCY TYPE STRING,
TAXBASEAMOUNTINCOUNTRYCRCY TYPE STRING,
COMPANYCODECURRENCY TYPE STRING,
COMPANYCODECOUNTRY TYPE STRING,
DOCUMENTCURRENCY TYPE STRING,
COUNTRYCURRENCY TYPE STRING,
TAXCALCULATIONPROCEDURE TYPE STRING,
STRPTAXCLASSIFICATION TYPE STRING,
ADDRESSREGION TYPE STRING,
CUSTOMERCOUNTY TYPE STRING,
MUNICIPALJURISDICTION TYPE STRING,
ZEROVATRSN TYPE STRING,
TAXISPRORATED TYPE STRING,
RESPONSIBLETYPE TYPE STRING,
CUSTOMER TYPE STRING,
SUPPLIER TYPE STRING,
REGISTEREDBPTAXBASEAMOUNT TYPE STRING,
TAXINVOICEITEMTAXAMOUNT TYPE STRING,
REGISTEREDBPTAXAMOUNT TYPE STRING,
TAXINVOICEITEMNETAMOUNT TYPE STRING,
NOTREGISTEREDBPTAXBASEAMOUNT TYPE STRING,
TXBASEAMTWITHTXRATE18INCCCRCY TYPE STRING,
TXBASEAMTWITHTXRATE0INCCCRCY TYPE STRING,
TXBASEAMTWITHTXRATE10INCCCRCY TYPE STRING,
EXEMPTEDCONSUMERTAXBASEAMOUNT TYPE STRING,
PLANNEDSALESREVENUEVATAMOUNT TYPE STRING,
EXEMPTEDCONSUMERTAXAMOUNT TYPE STRING,
INCOMETAXAMTINGLOBCRCY TYPE STRING,
REGIMETAXBASEAMOUNT TYPE STRING,
SERVICESTAXABLEPURAMTINCCCRCY TYPE STRING,
REGIMETAXAMOUNT TYPE STRING,
REPORTEDTAXDEPRECIATIONAMOUNT TYPE STRING,
EXPORTOPERATIONTAXBASEAMOUNT TYPE STRING,
COMMSNTRADEINVCLINKEDVATAMOUNT TYPE STRING,
EXPORTOPERATIONTAXAMOUNT TYPE STRING,
TAXDEPRECIATIONAMOUNT TYPE STRING,
EXEMPTEDICMSAMOUNT TYPE STRING,
FIXEDASSETAMOUNT TYPE STRING,
FIXEDASSETTAXAMOUNT TYPE STRING,
NOTREGISTEREDFIXEDASSETBASEAMT TYPE STRING,
NOTREGISTEREDFIXEDASSETTAXAMT TYPE STRING,
EXEMPTEDSIMPFDREGIMETAXBASEAMT TYPE STRING,
EXEMPTEDSIMPFDREGIMETAXAMOUNT TYPE STRING,
TOTALCREDITAMOUNT TYPE STRING,
PURCHASEOFGOODSCREDITAMOUNT TYPE STRING,
CALCULATEDTXBASEAMTINTRANSCRCY TYPE STRING,
RELEASEDCREDITAMOUNT TYPE STRING,
SERVICECREDITTAXAMOUNT TYPE STRING,
OCIOFFSTLOSSALLWNCINVALNCRCY TYPE STRING,
PAYMENTAMOUNT TYPE STRING,
RENTSCREDITTAXAMOUNT TYPE STRING,
ACTLBLLDREVENUEITEMAMTINCCCRCY TYPE STRING,
BILLEDAMOUNT TYPE STRING,
FIXEDASSETCREDITTAXAMOUNT TYPE STRING,
IDXCLNAMORTIZEDCOSTINPOSCRCY TYPE STRING,
CREDITLIMITAMOUNT TYPE STRING,
CREDITAMOUNT TYPE STRING,
AMORTIZEDCOSTINPOSITIONCRCY TYPE STRING,
GOODSRECEIPTGOODSAMTINCCCRCY TYPE STRING,
GOODSBALANCEAMOUNTINCCCRCY TYPE STRING,
EXPORTAMOUNTINCOMPANYCODECRCY TYPE STRING,
NOTTAXEDAMOUNT TYPE STRING,
NOTREGISTEREDTAXBASEAMOUNT TYPE STRING,
SIMPLIFIEDREGIMETAXBASEAMOUNT TYPE STRING,
OTHERPURCHASESTAXBASEAMOUNT TYPE STRING,
BUDGETAMOUNTINCOMPANYCODECRCY TYPE STRING,
CRDTSTRTGBALAMTINBALTRANSCRCY TYPE STRING,
FINANCIALACCOUNTTYPE TYPE STRING,
CAPITALTXBLPURCHASEAMTINCCCRCY TYPE STRING,
GLBUSINESSTRANSACTIONTYPE TYPE STRING,
BUSINESSPARTNER TYPE STRING,
SUPPLIERCOUNTRY TYPE STRING,
CUSTOMERCOUNTRY TYPE STRING,END OF T_EKKO_STR.
DATA: WA_CARFORM731_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_CARFORM731_STR-MANDT sy-vline 
WA_CARFORM731_STR-COMPANYCODE sy-vline 
WA_CARFORM731_STR-ACCOUNTINGDOCUMENT sy-vline 
WA_CARFORM731_STR-FISCALYEAR sy-vline 
WA_CARFORM731_STR-TAXITEM sy-vline 
WA_CARFORM731_STR-TRANSACTIONTYPEDETERMINATION sy-vline 
WA_CARFORM731_STR-TAXCODE sy-vline 
WA_CARFORM731_STR-STATRYRPTGENTITY sy-vline 
WA_CARFORM731_STR-STATRYRPTCATEGORY sy-vline 
WA_CARFORM731_STR-STATRYRPTRUNID sy-vline 
WA_CARFORM731_STR-TAXREPORTINGDATE sy-vline 
WA_CARFORM731_STR-GLACCOUNT sy-vline 
WA_CARFORM731_STR-TAXTYPE sy-vline 
WA_CARFORM731_STR-POSTINGDATE sy-vline 
WA_CARFORM731_STR-REPORTINGDATE sy-vline 
WA_CARFORM731_STR-DEBITCREDITCODE sy-vline 
WA_CARFORM731_STR-LEDGER sy-vline 
WA_CARFORM731_STR-TAXBASEAMOUNTINCOCODECRCY sy-vline 
WA_CARFORM731_STR-TAXAMOUNTINCOCODECRCY sy-vline 
WA_CARFORM731_STR-TAXBASEAMOUNTINTRANSCRCY sy-vline 
WA_CARFORM731_STR-TAXRETURNCOUNTRY sy-vline 
WA_CARFORM731_STR-TAXAMOUNTINCOUNTRYCRCY sy-vline 
WA_CARFORM731_STR-TAXBASEAMOUNTINCOUNTRYCRCY sy-vline 
WA_CARFORM731_STR-COMPANYCODECURRENCY sy-vline 
WA_CARFORM731_STR-COMPANYCODECOUNTRY sy-vline 
WA_CARFORM731_STR-DOCUMENTCURRENCY sy-vline 
WA_CARFORM731_STR-COUNTRYCURRENCY sy-vline 
WA_CARFORM731_STR-TAXCALCULATIONPROCEDURE sy-vline 
WA_CARFORM731_STR-STRPTAXCLASSIFICATION sy-vline 
WA_CARFORM731_STR-ADDRESSREGION sy-vline 
WA_CARFORM731_STR-CUSTOMERCOUNTY sy-vline 
WA_CARFORM731_STR-MUNICIPALJURISDICTION sy-vline 
WA_CARFORM731_STR-ZEROVATRSN sy-vline 
WA_CARFORM731_STR-TAXISPRORATED sy-vline 
WA_CARFORM731_STR-RESPONSIBLETYPE sy-vline 
WA_CARFORM731_STR-CUSTOMER sy-vline 
WA_CARFORM731_STR-SUPPLIER sy-vline 
WA_CARFORM731_STR-REGISTEREDBPTAXBASEAMOUNT sy-vline 
WA_CARFORM731_STR-TAXINVOICEITEMTAXAMOUNT sy-vline 
WA_CARFORM731_STR-REGISTEREDBPTAXAMOUNT sy-vline 
WA_CARFORM731_STR-TAXINVOICEITEMNETAMOUNT sy-vline 
WA_CARFORM731_STR-NOTREGISTEREDBPTAXBASEAMOUNT sy-vline 
WA_CARFORM731_STR-TXBASEAMTWITHTXRATE18INCCCRCY sy-vline 
WA_CARFORM731_STR-TXBASEAMTWITHTXRATE0INCCCRCY sy-vline 
WA_CARFORM731_STR-TXBASEAMTWITHTXRATE10INCCCRCY sy-vline 
WA_CARFORM731_STR-EXEMPTEDCONSUMERTAXBASEAMOUNT sy-vline 
WA_CARFORM731_STR-PLANNEDSALESREVENUEVATAMOUNT sy-vline 
WA_CARFORM731_STR-EXEMPTEDCONSUMERTAXAMOUNT sy-vline 
WA_CARFORM731_STR-INCOMETAXAMTINGLOBCRCY sy-vline 
WA_CARFORM731_STR-REGIMETAXBASEAMOUNT sy-vline 
WA_CARFORM731_STR-SERVICESTAXABLEPURAMTINCCCRCY sy-vline 
WA_CARFORM731_STR-REGIMETAXAMOUNT sy-vline 
WA_CARFORM731_STR-REPORTEDTAXDEPRECIATIONAMOUNT sy-vline 
WA_CARFORM731_STR-EXPORTOPERATIONTAXBASEAMOUNT sy-vline 
WA_CARFORM731_STR-COMMSNTRADEINVCLINKEDVATAMOUNT sy-vline 
WA_CARFORM731_STR-EXPORTOPERATIONTAXAMOUNT sy-vline 
WA_CARFORM731_STR-TAXDEPRECIATIONAMOUNT sy-vline 
WA_CARFORM731_STR-EXEMPTEDICMSAMOUNT sy-vline 
WA_CARFORM731_STR-FIXEDASSETAMOUNT sy-vline 
WA_CARFORM731_STR-FIXEDASSETTAXAMOUNT sy-vline 
WA_CARFORM731_STR-NOTREGISTEREDFIXEDASSETBASEAMT sy-vline 
WA_CARFORM731_STR-NOTREGISTEREDFIXEDASSETTAXAMT sy-vline 
WA_CARFORM731_STR-EXEMPTEDSIMPFDREGIMETAXBASEAMT sy-vline 
WA_CARFORM731_STR-EXEMPTEDSIMPFDREGIMETAXAMOUNT sy-vline 
WA_CARFORM731_STR-TOTALCREDITAMOUNT sy-vline 
WA_CARFORM731_STR-PURCHASEOFGOODSCREDITAMOUNT sy-vline 
WA_CARFORM731_STR-CALCULATEDTXBASEAMTINTRANSCRCY sy-vline 
WA_CARFORM731_STR-RELEASEDCREDITAMOUNT sy-vline 
WA_CARFORM731_STR-SERVICECREDITTAXAMOUNT sy-vline 
WA_CARFORM731_STR-OCIOFFSTLOSSALLWNCINVALNCRCY sy-vline 
WA_CARFORM731_STR-PAYMENTAMOUNT sy-vline 
WA_CARFORM731_STR-RENTSCREDITTAXAMOUNT sy-vline 
WA_CARFORM731_STR-ACTLBLLDREVENUEITEMAMTINCCCRCY sy-vline 
WA_CARFORM731_STR-BILLEDAMOUNT sy-vline 
WA_CARFORM731_STR-FIXEDASSETCREDITTAXAMOUNT sy-vline 
WA_CARFORM731_STR-IDXCLNAMORTIZEDCOSTINPOSCRCY sy-vline 
WA_CARFORM731_STR-CREDITLIMITAMOUNT sy-vline 
WA_CARFORM731_STR-CREDITAMOUNT sy-vline 
WA_CARFORM731_STR-AMORTIZEDCOSTINPOSITIONCRCY sy-vline 
WA_CARFORM731_STR-GOODSRECEIPTGOODSAMTINCCCRCY sy-vline 
WA_CARFORM731_STR-GOODSBALANCEAMOUNTINCCCRCY sy-vline 
WA_CARFORM731_STR-EXPORTAMOUNTINCOMPANYCODECRCY sy-vline 
WA_CARFORM731_STR-NOTTAXEDAMOUNT sy-vline 
WA_CARFORM731_STR-NOTREGISTEREDTAXBASEAMOUNT sy-vline 
WA_CARFORM731_STR-SIMPLIFIEDREGIMETAXBASEAMOUNT sy-vline 
WA_CARFORM731_STR-OTHERPURCHASESTAXBASEAMOUNT sy-vline 
WA_CARFORM731_STR-BUDGETAMOUNTINCOMPANYCODECRCY sy-vline 
WA_CARFORM731_STR-CRDTSTRTGBALAMTINBALTRANSCRCY sy-vline 
WA_CARFORM731_STR-FINANCIALACCOUNTTYPE sy-vline 
WA_CARFORM731_STR-CAPITALTXBLPURCHASEAMTINCCCRCY sy-vline 
WA_CARFORM731_STR-GLBUSINESSTRANSACTIONTYPE sy-vline 
WA_CARFORM731_STR-BUSINESSPARTNER sy-vline 
WA_CARFORM731_STR-SUPPLIERCOUNTRY sy-vline 
WA_CARFORM731_STR-CUSTOMERCOUNTRY sy-vline      INTO ld_text SEPARATED BY SPACE.

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