ABAP Select data from SAP table PDTSEGAMT 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 PDTSEGAMT 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 PDTSEGAMT. 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 PDTSEGAMT 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_PDTSEGAMT TYPE STANDARD TABLE OF PDTSEGAMT,
      WA_PDTSEGAMT TYPE PDTSEGAMT,
      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: <PDTSEGAMT> TYPE PDTSEGAMT.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PDTSEGAMT
*  INTO TABLE @DATA(IT_PDTSEGAMT2).
*--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_PDTSEGAMT INDEX 1 INTO DATA(WA_PDTSEGAMT2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<PDTSEGAMT>-MANDT = 1.
<PDTSEGAMT>-COMP_CODE = 1.
<PDTSEGAMT>-ASSET_NO = 1.
<PDTSEGAMT>-ASSET_SUBNO = 1.
<PDTSEGAMT>-DEPR_AREA = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PDTSEGAMT-FISC_YEAR, sy-vline,
  WA_PDTSEGAMT-AMOUNT_TYPE, sy-vline,
  WA_PDTSEGAMT-CURR_TYPE, sy-vline,
  WA_PDTSEGAMT-PERIOD_TO, sy-vline,
  WA_PDTSEGAMT-CURRENCY, sy-vline,
  WA_PDTSEGAMT-BASEVALUE, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_PDTSEGAMT 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_PDTSEGAMT 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_PDTSEGAMT INTO WA_PDTSEGAMT.


*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 ASSET_NO
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-ASSET_NO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-ASSET_NO.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit AU162, internal->external for field BASEVALUE
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-BASEVALUE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-BASEVALUE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field BASEVAL_PREV
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-BASEVAL_PREV
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-BASEVAL_PREV.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field AMOUNT
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-AMOUNT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-AMOUNT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field AMOUNT_PREV
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-AMOUNT_PREV
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-AMOUNT_PREV.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field MINVALUE
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-MINVALUE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-MINVALUE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CUR_APC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-CUR_APC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-CUR_APC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CUR_REVL
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-CUR_REVL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-CUR_REVL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CUR_INVS
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-CUR_INVS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-CUR_INVS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CUR_DEPR_O
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-CUR_DEPR_O
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-CUR_DEPR_O.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CUR_DEPR_S
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-CUR_DEPR_S
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-CUR_DEPR_S.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CUR_DEPR_U
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-CUR_DEPR_U
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-CUR_DEPR_U.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CUR_RESV
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-CUR_RESV
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-CUR_RESV.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CUR_INTR
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-CUR_INTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-CUR_INTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CUR_REVL_D
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-CUR_REVL_D
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-CUR_REVL_D.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field CUR_DOWNP
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-CUR_DOWNP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-CUR_DOWNP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PREV_PREV_APC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-PREV_PREV_APC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-PREV_PREV_APC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PREV_PREV_REVL
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-PREV_PREV_REVL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-PREV_PREV_REVL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PREV_PREV_INVS
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-PREV_PREV_INVS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-PREV_PREV_INVS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PREV_PREV_DEPR_O
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-PREV_PREV_DEPR_O
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-PREV_PREV_DEPR_O.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PREV_PREV_DEPR_S
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-PREV_PREV_DEPR_S
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-PREV_PREV_DEPR_S.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PREV_PREV_DEPR_U
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-PREV_PREV_DEPR_U
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-PREV_PREV_DEPR_U.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PREV_PREV_RESV
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-PREV_PREV_RESV
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-PREV_PREV_RESV.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PREV_PREV_INTR
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-PREV_PREV_INTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-PREV_PREV_INTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PREV_PREV_REVL_D
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-PREV_PREV_REVL_D
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-PREV_PREV_REVL_D.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PREV_PREV_DOWNP
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-PREV_PREV_DOWNP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-PREV_PREV_DOWNP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PREV_CUR_APC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-PREV_CUR_APC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-PREV_CUR_APC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PREV_CUR_REVL
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-PREV_CUR_REVL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-PREV_CUR_REVL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PREV_CUR_INVS
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-PREV_CUR_INVS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-PREV_CUR_INVS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PREV_CUR_DEPR_O
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-PREV_CUR_DEPR_O
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-PREV_CUR_DEPR_O.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PREV_CUR_DEPR_S
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-PREV_CUR_DEPR_S
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-PREV_CUR_DEPR_S.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PREV_CUR_DEPR_U
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-PREV_CUR_DEPR_U
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-PREV_CUR_DEPR_U.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PREV_CUR_RESV
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-PREV_CUR_RESV
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-PREV_CUR_RESV.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PREV_CUR_INTR
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-PREV_CUR_INTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-PREV_CUR_INTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PREV_CUR_REVL_D
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-PREV_CUR_REVL_D
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-PREV_CUR_REVL_D.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field PREV_CUR_DOWNP
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-PREV_CUR_DOWNP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-PREV_CUR_DOWNP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field BASE_ADD
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-BASE_ADD
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-BASE_ADD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field BASE_ADD_PREV
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-BASE_ADD_PREV
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-BASE_ADD_PREV.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field MINVAL_PREV
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-MINVAL_PREV
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-MINVAL_PREV.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field NETVALUE
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-NETVALUE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-NETVALUE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field NETVAL_PREV
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-NETVAL_PREV
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-NETVAL_PREV.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field SUM_APC
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-SUM_APC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-SUM_APC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field SUM_APC_PREV
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-SUM_APC_PREV
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-SUM_APC_PREV.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field AM_ADD
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-AM_ADD
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-AM_ADD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field AM_ADD_PREV
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-AM_ADD_PREV
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-AM_ADD_PREV.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field BASEVAL_MAX
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-BASEVAL_MAX
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-BASEVAL_MAX.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field BASEVAL_FACT_ADD
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-BASEVAL_FACT_ADD
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-BASEVAL_FACT_ADD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field BASEVAL_STATED
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-BASEVAL_STATED
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-BASEVAL_STATED.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field AMOUNT_MAX
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-AMOUNT_MAX
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-AMOUNT_MAX.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field MINVAL_STATED
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-MINVAL_STATED
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-MINVAL_STATED.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field MINVAL_MEMO
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-MINVAL_MEMO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-MINVAL_MEMO.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU162, internal->external for field MINVAL_TOLERANCE
CALL FUNCTION 'CONVERSION_EXIT_AU162_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-MINVAL_TOLERANCE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-MINVAL_TOLERANCE.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

*Conversion exit GJAHR, internal->external for field INITIAL_ACQ_YR_DT
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_PDTSEGAMT-INITIAL_ACQ_YR_DT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PDTSEGAMT-INITIAL_ACQ_YR_DT.
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_PDTSEGAMT_STR, 
MANDT TYPE STRING,
COMP_CODE TYPE STRING,
ASSET_NO TYPE STRING,
ASSET_SUBNO TYPE STRING,
DEPR_AREA TYPE STRING,
FISC_YEAR TYPE STRING,
AMOUNT_TYPE TYPE STRING,
CURR_TYPE TYPE STRING,
PERIOD_TO TYPE STRING,
CURRENCY TYPE STRING,
BASEVALUE TYPE STRING,
BASEVAL_PREV TYPE STRING,
PERFACTOR_RAW TYPE STRING,
PERCENT_RAW TYPE STRING,
AMOUNT TYPE STRING,
AMOUNT_PREV TYPE STRING,
AMOUNT_SKIPPED TYPE STRING,
MINVALUE TYPE STRING,
CUR_APC TYPE STRING,
CUR_REVL TYPE STRING,
CUR_INVS TYPE STRING,
CUR_DEPR_O TYPE STRING,
CUR_DEPR_S TYPE STRING,
CUR_DEPR_U TYPE STRING,
CUR_RESV TYPE STRING,
CUR_INTR TYPE STRING,
CUR_REVL_D TYPE STRING,
CUR_DOWNP TYPE STRING,
PREV_PREV_APC TYPE STRING,
PREV_PREV_REVL TYPE STRING,
PREV_PREV_INVS TYPE STRING,
PREV_PREV_DEPR_O TYPE STRING,
PREV_PREV_DEPR_S TYPE STRING,
PREV_PREV_DEPR_U TYPE STRING,
PREV_PREV_RESV TYPE STRING,
PREV_PREV_INTR TYPE STRING,
PREV_PREV_REVL_D TYPE STRING,
PREV_PREV_DOWNP TYPE STRING,
PREV_CUR_APC TYPE STRING,
PREV_CUR_REVL TYPE STRING,
PREV_CUR_INVS TYPE STRING,
PREV_CUR_DEPR_O TYPE STRING,
PREV_CUR_DEPR_S TYPE STRING,
PREV_CUR_DEPR_U TYPE STRING,
PREV_CUR_RESV TYPE STRING,
PREV_CUR_INTR TYPE STRING,
PREV_CUR_REVL_D TYPE STRING,
PREV_CUR_DOWNP TYPE STRING,
BASE_ADD TYPE STRING,
BASE_ADD_PREV TYPE STRING,
MINVAL_PREV TYPE STRING,
MINVAL_PERC_USED TYPE STRING,
NETVALUE TYPE STRING,
NETVAL_PREV TYPE STRING,
SUM_APC TYPE STRING,
SUM_APC_PREV TYPE STRING,
AM_ADD TYPE STRING,
AM_ADD_PREV TYPE STRING,
SIGN TYPE STRING,
PERSEG_REDUCED TYPE STRING,
AMOUNT_REDUCED TYPE STRING,
USEFUL_LIFE TYPE STRING,
EXP_LIFE TYPE STRING,
EXP_LIFE_NEW TYPE STRING,
EXP_LIFE_SEG TYPE STRING,
PERYEAR_WEIGHTED TYPE STRING,
PERYEAR TYPE STRING,
SHORT_YR_PRDS TYPE STRING,
PERSEG_WEIGHTED TYPE STRING,
IGNORE_SHORT_YR TYPE STRING,
CHANGEOVER_YR TYPE STRING,
CHANGEOVER_PRD TYPE STRING,
USE_HALFPERIODS TYPE STRING,
BASEVAL_KEY TYPE STRING,
BASE_ADD_KEY TYPE STRING,
BASEVAL_MAX TYPE STRING,
BASEVAL_FACTOR TYPE STRING,
BASEVAL_FACT_ADD TYPE STRING,
BASEVAL_STATED TYPE STRING,
PERCENT_KEY TYPE STRING,
PERCENT_STATED TYPE STRING,
PERCENT_FACTOR TYPE STRING,
PERCENT_MAX TYPE STRING,
PERCENT_MIN TYPE STRING,
PERCENT_ROUND TYPE STRING,
AMOUNT_FACTOR TYPE STRING,
AMOUNT_MAX TYPE STRING,
USE_YEAR_AMOUNT TYPE STRING,
SKIP_AMOUNT TYPE STRING,
CHECK_AMOUNT TYPE STRING,
MINVAL_PERCENT TYPE STRING,
MINVAL_STATED TYPE STRING,
MINVAL_MEMO TYPE STRING,
MINVAL_RNDMETHOD TYPE STRING,
MINVAL_RNDDECIM TYPE STRING,
MINVAL_RNDPLACE TYPE STRING,
SUBTRACT_MINVAL TYPE STRING,
NO_MINVAL TYPE STRING,
MINVAL_TOLERANCE TYPE STRING,
MINVAL_KEY TYPE STRING,
MINVAL_PERC_ADD TYPE STRING,
MINVAL_STATED_ADD TYPE STRING,
ROUNDING_OFF TYPE STRING,
LEAS_PAYMT_CYCLE TYPE STRING,
LEAS_NO_PAYMENTS TYPE STRING,
LEAS_INTRST_RATE TYPE STRING,
LEAS_PER_PAYMENT TYPE STRING,
LEAS_ADV_PAYMENT TYPE STRING,
USE_DAYS TYPE STRING,
FYEAR_DT TYPE STRING,
AREA_DT TYPE STRING,
CURR_TYPE_DT TYPE STRING,
AMOUNT_TYPE_DT TYPE STRING,
PERIOD_TO_DT TYPE STRING,
PERIOD_FROM_DT TYPE STRING,
PERIODS_DT TYPE STRING,
PERIODS_SHORT_FY_DT TYPE STRING,
DEPR_KEY_DT TYPE STRING,
PHASE_DT TYPE STRING,
START_DATE_DT TYPE STRING,
START_PRD_DT TYPE STRING,
START_YR_DT TYPE STRING,
LEAS_PAYMT_CYCLE_DT TYPE STRING,
LEAS_NO_PAYMENTS_DT TYPE STRING,
LEAS_INTRST_RATE_DT TYPE STRING,
LEAS_PER_PAYMENT_DT TYPE STRING,
LEAS_ADV_PAYMENT_DT TYPE STRING,
USEFUL_LIFE_DT TYPE STRING,
USEFUL_LIFE_PRDS_DT TYPE STRING,
USEFUL_LIFE_YRS_DT TYPE STRING,
EXP_LIFE_DT TYPE STRING,
EXP_LIFE_SEG_DT TYPE STRING,
EXP_LIFE_NEW_DT TYPE STRING,
AGE_INDEX_DT TYPE STRING,
RPLCMNTVAL_INDEX_DT TYPE STRING,
REVALTN_KEY_DT TYPE STRING,
INVSUPPORT_KEY_DT TYPE STRING,
SCRAPVALUE_DT TYPE STRING,
SCRAPVALUE_PRCTG_DT TYPE STRING,
NEG_VALUES_DT TYPE STRING,
CHANGEOVER_YR_DT TYPE STRING,
CHANGEOVER_PRD_DT TYPE STRING,
CHANGEOVER_IND_DT TYPE STRING,
VAR_DEP_PORTION_DT TYPE STRING,
SHIFT_FACT_DT TYPE STRING,
IS_SHUTDOWN_DT TYPE STRING,
ASSETCLASS_DT TYPE STRING,
CAP_DATE_DT TYPE STRING,
INITIAL_ACQ_DT TYPE STRING,
INITIAL_ACQ_YR_DT TYPE STRING,
INITIAL_ACQ_PRD_DT TYPE STRING,
ORIG_ACQ_DATE_DT TYPE STRING,
LAST_RET_DATE_DT TYPE STRING,
DEACT_DATE_DT TYPE STRING,
USAGE_IMPACT_IND_DT TYPE STRING,
SORT_INDICATOR_DT TYPE STRING,
MULTI_LEVEL_INDX_DT TYPE STRING,
CUTOF_VALUE_INDX_DT TYPE STRING,
IGNORE_MEMVAL_DT TYPE STRING,
HAS_TDDP_DT TYPE STRING,
TO_DATE_OF_TDDP_DT TYPE STRING,
GRP_ASSET_ASSGND_DT TYPE STRING,
USE_USAGE_DATA_DT TYPE STRING,
RANGE_LENGTH_DT TYPE STRING,
CALC_INFLATION_DT TYPE STRING,
CALC_PERFORM_DT TYPE STRING,
RECALC_PERFORM_DT TYPE STRING,
CALC_END_REACHED_DT TYPE STRING,
USE_ALIGNMENT_DT TYPE STRING,
USE_MAX_PERIODS_DT TYPE STRING,
USE_DAYS_DT TYPE STRING,
FIRST_DAY_IN_YR_DT TYPE STRING,
LAST_DAY_IN_YR_DT TYPE STRING,
IS_SHORTFISCYEAR_DT TYPE STRING,
IS_BEHIND_UL_DT TYPE STRING,
AMOUNT_FACTOR_DT TYPE STRING,
USE_EXP_LIFE_NEW_DT TYPE STRING,
CURRENCY_DT TYPE STRING,
BASEVAL_KEY_DT TYPE STRING,
BASE_ADD_KEY_DT TYPE STRING,
PERCENT_KEY_DT TYPE STRING,
PERCENT_STATED_DT TYPE STRING,
USAGE_OBJECT_DT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PDTSEGAMT_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_PDTSEGAMT_STR-MANDT sy-vline 
WA_PDTSEGAMT_STR-COMP_CODE sy-vline 
WA_PDTSEGAMT_STR-ASSET_NO sy-vline 
WA_PDTSEGAMT_STR-ASSET_SUBNO sy-vline 
WA_PDTSEGAMT_STR-DEPR_AREA sy-vline 
WA_PDTSEGAMT_STR-FISC_YEAR sy-vline 
WA_PDTSEGAMT_STR-AMOUNT_TYPE sy-vline 
WA_PDTSEGAMT_STR-CURR_TYPE sy-vline 
WA_PDTSEGAMT_STR-PERIOD_TO sy-vline 
WA_PDTSEGAMT_STR-CURRENCY sy-vline 
WA_PDTSEGAMT_STR-BASEVALUE sy-vline 
WA_PDTSEGAMT_STR-BASEVAL_PREV sy-vline 
WA_PDTSEGAMT_STR-PERFACTOR_RAW sy-vline 
WA_PDTSEGAMT_STR-PERCENT_RAW sy-vline 
WA_PDTSEGAMT_STR-AMOUNT sy-vline 
WA_PDTSEGAMT_STR-AMOUNT_PREV sy-vline 
WA_PDTSEGAMT_STR-AMOUNT_SKIPPED sy-vline 
WA_PDTSEGAMT_STR-MINVALUE sy-vline 
WA_PDTSEGAMT_STR-CUR_APC sy-vline 
WA_PDTSEGAMT_STR-CUR_REVL sy-vline 
WA_PDTSEGAMT_STR-CUR_INVS sy-vline 
WA_PDTSEGAMT_STR-CUR_DEPR_O sy-vline 
WA_PDTSEGAMT_STR-CUR_DEPR_S sy-vline 
WA_PDTSEGAMT_STR-CUR_DEPR_U sy-vline 
WA_PDTSEGAMT_STR-CUR_RESV sy-vline 
WA_PDTSEGAMT_STR-CUR_INTR sy-vline 
WA_PDTSEGAMT_STR-CUR_REVL_D sy-vline 
WA_PDTSEGAMT_STR-CUR_DOWNP sy-vline 
WA_PDTSEGAMT_STR-PREV_PREV_APC sy-vline 
WA_PDTSEGAMT_STR-PREV_PREV_REVL sy-vline 
WA_PDTSEGAMT_STR-PREV_PREV_INVS sy-vline 
WA_PDTSEGAMT_STR-PREV_PREV_DEPR_O sy-vline 
WA_PDTSEGAMT_STR-PREV_PREV_DEPR_S sy-vline 
WA_PDTSEGAMT_STR-PREV_PREV_DEPR_U sy-vline 
WA_PDTSEGAMT_STR-PREV_PREV_RESV sy-vline 
WA_PDTSEGAMT_STR-PREV_PREV_INTR sy-vline 
WA_PDTSEGAMT_STR-PREV_PREV_REVL_D sy-vline 
WA_PDTSEGAMT_STR-PREV_PREV_DOWNP sy-vline 
WA_PDTSEGAMT_STR-PREV_CUR_APC sy-vline 
WA_PDTSEGAMT_STR-PREV_CUR_REVL sy-vline 
WA_PDTSEGAMT_STR-PREV_CUR_INVS sy-vline 
WA_PDTSEGAMT_STR-PREV_CUR_DEPR_O sy-vline 
WA_PDTSEGAMT_STR-PREV_CUR_DEPR_S sy-vline 
WA_PDTSEGAMT_STR-PREV_CUR_DEPR_U sy-vline 
WA_PDTSEGAMT_STR-PREV_CUR_RESV sy-vline 
WA_PDTSEGAMT_STR-PREV_CUR_INTR sy-vline 
WA_PDTSEGAMT_STR-PREV_CUR_REVL_D sy-vline 
WA_PDTSEGAMT_STR-PREV_CUR_DOWNP sy-vline 
WA_PDTSEGAMT_STR-BASE_ADD sy-vline 
WA_PDTSEGAMT_STR-BASE_ADD_PREV sy-vline 
WA_PDTSEGAMT_STR-MINVAL_PREV sy-vline 
WA_PDTSEGAMT_STR-MINVAL_PERC_USED sy-vline 
WA_PDTSEGAMT_STR-NETVALUE sy-vline 
WA_PDTSEGAMT_STR-NETVAL_PREV sy-vline 
WA_PDTSEGAMT_STR-SUM_APC sy-vline 
WA_PDTSEGAMT_STR-SUM_APC_PREV sy-vline 
WA_PDTSEGAMT_STR-AM_ADD sy-vline 
WA_PDTSEGAMT_STR-AM_ADD_PREV sy-vline 
WA_PDTSEGAMT_STR-SIGN sy-vline 
WA_PDTSEGAMT_STR-PERSEG_REDUCED sy-vline 
WA_PDTSEGAMT_STR-AMOUNT_REDUCED sy-vline 
WA_PDTSEGAMT_STR-USEFUL_LIFE sy-vline 
WA_PDTSEGAMT_STR-EXP_LIFE sy-vline 
WA_PDTSEGAMT_STR-EXP_LIFE_NEW sy-vline 
WA_PDTSEGAMT_STR-EXP_LIFE_SEG sy-vline 
WA_PDTSEGAMT_STR-PERYEAR_WEIGHTED sy-vline 
WA_PDTSEGAMT_STR-PERYEAR sy-vline 
WA_PDTSEGAMT_STR-SHORT_YR_PRDS sy-vline 
WA_PDTSEGAMT_STR-PERSEG_WEIGHTED sy-vline 
WA_PDTSEGAMT_STR-IGNORE_SHORT_YR sy-vline 
WA_PDTSEGAMT_STR-CHANGEOVER_YR sy-vline 
WA_PDTSEGAMT_STR-CHANGEOVER_PRD sy-vline 
WA_PDTSEGAMT_STR-USE_HALFPERIODS sy-vline 
WA_PDTSEGAMT_STR-BASEVAL_KEY sy-vline 
WA_PDTSEGAMT_STR-BASE_ADD_KEY sy-vline 
WA_PDTSEGAMT_STR-BASEVAL_MAX sy-vline 
WA_PDTSEGAMT_STR-BASEVAL_FACTOR sy-vline 
WA_PDTSEGAMT_STR-BASEVAL_FACT_ADD sy-vline 
WA_PDTSEGAMT_STR-BASEVAL_STATED sy-vline 
WA_PDTSEGAMT_STR-PERCENT_KEY sy-vline 
WA_PDTSEGAMT_STR-PERCENT_STATED sy-vline 
WA_PDTSEGAMT_STR-PERCENT_FACTOR sy-vline 
WA_PDTSEGAMT_STR-PERCENT_MAX sy-vline 
WA_PDTSEGAMT_STR-PERCENT_MIN sy-vline 
WA_PDTSEGAMT_STR-PERCENT_ROUND sy-vline 
WA_PDTSEGAMT_STR-AMOUNT_FACTOR sy-vline 
WA_PDTSEGAMT_STR-AMOUNT_MAX sy-vline 
WA_PDTSEGAMT_STR-USE_YEAR_AMOUNT sy-vline 
WA_PDTSEGAMT_STR-SKIP_AMOUNT sy-vline 
WA_PDTSEGAMT_STR-CHECK_AMOUNT sy-vline 
WA_PDTSEGAMT_STR-MINVAL_PERCENT sy-vline 
WA_PDTSEGAMT_STR-MINVAL_STATED sy-vline 
WA_PDTSEGAMT_STR-MINVAL_MEMO sy-vline 
WA_PDTSEGAMT_STR-MINVAL_RNDMETHOD sy-vline 
WA_PDTSEGAMT_STR-MINVAL_RNDDECIM sy-vline 
WA_PDTSEGAMT_STR-MINVAL_RNDPLACE sy-vline 
WA_PDTSEGAMT_STR-SUBTRACT_MINVAL sy-vline 
WA_PDTSEGAMT_STR-NO_MINVAL sy-vline 
WA_PDTSEGAMT_STR-MINVAL_TOLERANCE sy-vline 
WA_PDTSEGAMT_STR-MINVAL_KEY sy-vline 
WA_PDTSEGAMT_STR-MINVAL_PERC_ADD sy-vline 
WA_PDTSEGAMT_STR-MINVAL_STATED_ADD sy-vline 
WA_PDTSEGAMT_STR-ROUNDING_OFF sy-vline 
WA_PDTSEGAMT_STR-LEAS_PAYMT_CYCLE sy-vline 
WA_PDTSEGAMT_STR-LEAS_NO_PAYMENTS sy-vline 
WA_PDTSEGAMT_STR-LEAS_INTRST_RATE sy-vline 
WA_PDTSEGAMT_STR-LEAS_PER_PAYMENT sy-vline 
WA_PDTSEGAMT_STR-LEAS_ADV_PAYMENT sy-vline 
WA_PDTSEGAMT_STR-USE_DAYS sy-vline 
WA_PDTSEGAMT_STR-FYEAR_DT sy-vline 
WA_PDTSEGAMT_STR-AREA_DT sy-vline 
WA_PDTSEGAMT_STR-CURR_TYPE_DT sy-vline 
WA_PDTSEGAMT_STR-AMOUNT_TYPE_DT sy-vline 
WA_PDTSEGAMT_STR-PERIOD_TO_DT sy-vline 
WA_PDTSEGAMT_STR-PERIOD_FROM_DT sy-vline 
WA_PDTSEGAMT_STR-PERIODS_DT sy-vline 
WA_PDTSEGAMT_STR-PERIODS_SHORT_FY_DT sy-vline 
WA_PDTSEGAMT_STR-DEPR_KEY_DT sy-vline 
WA_PDTSEGAMT_STR-PHASE_DT sy-vline 
WA_PDTSEGAMT_STR-START_DATE_DT sy-vline 
WA_PDTSEGAMT_STR-START_PRD_DT sy-vline 
WA_PDTSEGAMT_STR-START_YR_DT sy-vline 
WA_PDTSEGAMT_STR-LEAS_PAYMT_CYCLE_DT sy-vline 
WA_PDTSEGAMT_STR-LEAS_NO_PAYMENTS_DT sy-vline 
WA_PDTSEGAMT_STR-LEAS_INTRST_RATE_DT sy-vline 
WA_PDTSEGAMT_STR-LEAS_PER_PAYMENT_DT sy-vline 
WA_PDTSEGAMT_STR-LEAS_ADV_PAYMENT_DT sy-vline 
WA_PDTSEGAMT_STR-USEFUL_LIFE_DT sy-vline 
WA_PDTSEGAMT_STR-USEFUL_LIFE_PRDS_DT sy-vline 
WA_PDTSEGAMT_STR-USEFUL_LIFE_YRS_DT sy-vline 
WA_PDTSEGAMT_STR-EXP_LIFE_DT sy-vline 
WA_PDTSEGAMT_STR-EXP_LIFE_SEG_DT sy-vline 
WA_PDTSEGAMT_STR-EXP_LIFE_NEW_DT sy-vline 
WA_PDTSEGAMT_STR-AGE_INDEX_DT sy-vline 
WA_PDTSEGAMT_STR-RPLCMNTVAL_INDEX_DT sy-vline 
WA_PDTSEGAMT_STR-REVALTN_KEY_DT sy-vline 
WA_PDTSEGAMT_STR-INVSUPPORT_KEY_DT sy-vline 
WA_PDTSEGAMT_STR-SCRAPVALUE_DT sy-vline 
WA_PDTSEGAMT_STR-SCRAPVALUE_PRCTG_DT sy-vline 
WA_PDTSEGAMT_STR-NEG_VALUES_DT sy-vline 
WA_PDTSEGAMT_STR-CHANGEOVER_YR_DT sy-vline 
WA_PDTSEGAMT_STR-CHANGEOVER_PRD_DT sy-vline 
WA_PDTSEGAMT_STR-CHANGEOVER_IND_DT sy-vline 
WA_PDTSEGAMT_STR-VAR_DEP_PORTION_DT sy-vline 
WA_PDTSEGAMT_STR-SHIFT_FACT_DT sy-vline 
WA_PDTSEGAMT_STR-IS_SHUTDOWN_DT sy-vline 
WA_PDTSEGAMT_STR-ASSETCLASS_DT sy-vline 
WA_PDTSEGAMT_STR-CAP_DATE_DT sy-vline 
WA_PDTSEGAMT_STR-INITIAL_ACQ_DT sy-vline 
WA_PDTSEGAMT_STR-INITIAL_ACQ_YR_DT sy-vline 
WA_PDTSEGAMT_STR-INITIAL_ACQ_PRD_DT sy-vline 
WA_PDTSEGAMT_STR-ORIG_ACQ_DATE_DT sy-vline 
WA_PDTSEGAMT_STR-LAST_RET_DATE_DT sy-vline 
WA_PDTSEGAMT_STR-DEACT_DATE_DT sy-vline 
WA_PDTSEGAMT_STR-USAGE_IMPACT_IND_DT sy-vline 
WA_PDTSEGAMT_STR-SORT_INDICATOR_DT sy-vline 
WA_PDTSEGAMT_STR-MULTI_LEVEL_INDX_DT sy-vline 
WA_PDTSEGAMT_STR-CUTOF_VALUE_INDX_DT sy-vline 
WA_PDTSEGAMT_STR-IGNORE_MEMVAL_DT sy-vline 
WA_PDTSEGAMT_STR-HAS_TDDP_DT sy-vline 
WA_PDTSEGAMT_STR-TO_DATE_OF_TDDP_DT sy-vline 
WA_PDTSEGAMT_STR-GRP_ASSET_ASSGND_DT sy-vline 
WA_PDTSEGAMT_STR-USE_USAGE_DATA_DT sy-vline 
WA_PDTSEGAMT_STR-RANGE_LENGTH_DT sy-vline 
WA_PDTSEGAMT_STR-CALC_INFLATION_DT sy-vline 
WA_PDTSEGAMT_STR-CALC_PERFORM_DT sy-vline 
WA_PDTSEGAMT_STR-RECALC_PERFORM_DT sy-vline 
WA_PDTSEGAMT_STR-CALC_END_REACHED_DT sy-vline 
WA_PDTSEGAMT_STR-USE_ALIGNMENT_DT sy-vline 
WA_PDTSEGAMT_STR-USE_MAX_PERIODS_DT sy-vline 
WA_PDTSEGAMT_STR-USE_DAYS_DT sy-vline 
WA_PDTSEGAMT_STR-FIRST_DAY_IN_YR_DT sy-vline 
WA_PDTSEGAMT_STR-LAST_DAY_IN_YR_DT sy-vline 
WA_PDTSEGAMT_STR-IS_SHORTFISCYEAR_DT sy-vline 
WA_PDTSEGAMT_STR-IS_BEHIND_UL_DT sy-vline 
WA_PDTSEGAMT_STR-AMOUNT_FACTOR_DT sy-vline 
WA_PDTSEGAMT_STR-USE_EXP_LIFE_NEW_DT sy-vline 
WA_PDTSEGAMT_STR-CURRENCY_DT sy-vline 
WA_PDTSEGAMT_STR-BASEVAL_KEY_DT sy-vline 
WA_PDTSEGAMT_STR-BASE_ADD_KEY_DT sy-vline 
WA_PDTSEGAMT_STR-PERCENT_KEY_DT sy-vline 
WA_PDTSEGAMT_STR-PERCENT_STATED_DT sy-vline 
WA_PDTSEGAMT_STR-USAGE_OBJECT_DT sy-vline      INTO ld_text SEPARATED BY SPACE.

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