ABAP Select data from SAP table YTEL01_S_DOCPAY 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 YTEL01_S_DOCPAY 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 YTEL01_S_DOCPAY. 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 YTEL01_S_DOCPAY 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_YTEL01_S_DOCPAY TYPE STANDARD TABLE OF YTEL01_S_DOCPAY,
      WA_YTEL01_S_DOCPAY TYPE YTEL01_S_DOCPAY,
      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: <YTEL01_S_DOCPAY> TYPE YTEL01_S_DOCPAY.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM YTEL01_S_DOCPAY
*  INTO TABLE @DATA(IT_YTEL01_S_DOCPAY2).
*--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_YTEL01_S_DOCPAY INDEX 1 INTO DATA(WA_YTEL01_S_DOCPAY2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<YTEL01_S_DOCPAY>-BUS_AREA = 1.
<YTEL01_S_DOCPAY>-COMPCODE = 1.
<YTEL01_S_DOCPAY>-COSTCENTER = 1.
<YTEL01_S_DOCPAY>-TAX_CODE = 1.
<YTEL01_S_DOCPAY>-GROSS_AMT_MARK = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_YTEL01_S_DOCPAY-DOC_TYPE, sy-vline,
  WA_YTEL01_S_DOCPAY-GL_ACCOUNT, sy-vline,
  WA_YTEL01_S_DOCPAY-COSTELEMENT, sy-vline,
  WA_YTEL01_S_DOCPAY-ZZMODELL, sy-vline,
  WA_YTEL01_S_DOCPAY-ZZANZ, sy-vline,
  WA_YTEL01_S_DOCPAY-ZZME, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_YTEL01_S_DOCPAY 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_YTEL01_S_DOCPAY 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_YTEL01_S_DOCPAY INTO WA_YTEL01_S_DOCPAY.


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

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

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

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

*Conversion exit ABPSN, internal->external for field WBS_ELEMENT
CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT'
  EXPORTING
    input =                      WA_YTEL01_S_DOCPAY-WBS_ELEMENT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_YTEL01_S_DOCPAY-WBS_ELEMENT.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit NUMCV, internal->external for field ACTIVITY
CALL FUNCTION 'CONVERSION_EXIT_NUMCV_OUTPUT'
  EXPORTING
    input =                      WA_YTEL01_S_DOCPAY-ACTIVITY
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_YTEL01_S_DOCPAY-ACTIVITY.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit FMCIL, internal->external for field CMMT_ITEM
CALL FUNCTION 'CONVERSION_EXIT_FMCIL_OUTPUT'
  EXPORTING
    input =                      WA_YTEL01_S_DOCPAY-CMMT_ITEM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_YTEL01_S_DOCPAY-CMMT_ITEM.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field ORG_SETTL_POS
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_YTEL01_S_DOCPAY-ORG_SETTL_POS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_YTEL01_S_DOCPAY-ORG_SETTL_POS.
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_YTEL01_S_DOCPAY_STR, 
BUS_AREA TYPE STRING,
COMPCODE TYPE STRING,
COSTCENTER TYPE STRING,
TAX_CODE TYPE STRING,
GROSS_AMT_MARK TYPE STRING,
DOC_TYPE TYPE STRING,
GL_ACCOUNT TYPE STRING,
COSTELEMENT TYPE STRING,
ZZMODELL TYPE STRING,
ZZANZ TYPE STRING,
ZZME TYPE STRING,
ZZSPARTE TYPE STRING,
ZZSTOPS TYPE STRING,
ZZAUFMENG TYPE STRING,
ZZLASTKZ TYPE STRING,
ZZVERTTYP TYPE STRING,
ZZUMSATZ TYPE STRING,
ZZWAERS TYPE STRING,
ZZYTEL01_MODELL TYPE STRING,
ZZYTEL01_CLASS TYPE STRING,
ZZYTEL01_PIECES TYPE STRING,
ZZYTEL01_UNIT TYPE STRING,
ZZYTEL01_ROAMIN TYPE STRING,
ZZYTEL01_ADDSER TYPE STRING,
ZZYTEL01_RATEPL TYPE STRING,
COMP_CODE TYPE STRING,
BUSINESSAREA TYPE STRING,
ORDERID TYPE STRING,
COSTOBJECT TYPE STRING,
WBS_ELEMENT TYPE STRING,
NETWORK TYPE STRING,
ACTIVITY TYPE STRING,
SALES_ORD TYPE STRING,
S_ORD_ITEM TYPE STRING,
FUNDS_CTR TYPE STRING,
CMMT_ITEM TYPE STRING,
FUND TYPE STRING,
WAGETYPE TYPE STRING,
MANDT TYPE STRING,
POST_YEAR TYPE STRING,
DOC_ID TYPE STRING,
SETTL_POS TYPE STRING,
FLG_REVERSED TYPE STRING,
STATUS_POS TYPE STRING,
STATUS_WORK TYPE STRING,
CTRTBU_ID TYPE STRING,
GPART TYPE STRING,
DUE_DATE TYPE STRING,
DUE_YEAR TYPE STRING,
DUE_MONTH TYPE STRING,
STMTYPE_ID TYPE STRING,
REMUNERATION TYPE STRING,
SETTLE_GROUP TYPE STRING,
FLG_INTSETTLE TYPE STRING,
DET_GRP TYPE STRING,
CON_CURR TYPE STRING,
DUE_CONAMNT TYPE STRING,
LED_CURR TYPE STRING,
DUE_LEDAMNT TYPE STRING,
REM_UNIT TYPE STRING,
DUE_QUAN TYPE STRING,
SETTLE_DATE TYPE STRING,
SETTLE_POST_YEAR TYPE STRING,
SETTLE_DOC_ID TYPE STRING,
PMNT_BLOCK TYPE STRING,
REM_CASE_TXT TYPE STRING,
REV_POS TYPE STRING,
SETT_LOCK TYPE STRING,
GPART_CTRT TYPE STRING,
CTRTST_ID TYPE STRING,
CTRT_TYPE TYPE STRING,
STCAGR_ID TYPE STRING,
PAYEE_HR TYPE STRING,
PAYEE_FI TYPE STRING,
PAYEE_ISCD TYPE STRING,
PAYEE_OTHER TYPE STRING,
ACCAS_STMTY TYPE STRING,
STM_TYP TYPE STRING,
PAY_REF_ID TYPE STRING,
ZEROSUM TYPE STRING,
COMBTP_ID TYPE STRING,
POST_DATE TYPE STRING,
ORG_POST_YEAR TYPE STRING,
ORG_DOCID TYPE STRING,
ORG_SETTL_POS TYPE STRING,
ORG_POST_DATE TYPE STRING,
ORG_DOC_TYPE TYPE STRING,
ORG_FLG_REVERSOR TYPE STRING,
LOG_HANDLE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_YTEL01_S_DOCPAY_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_YTEL01_S_DOCPAY_STR-BUS_AREA sy-vline 
WA_YTEL01_S_DOCPAY_STR-COMPCODE sy-vline 
WA_YTEL01_S_DOCPAY_STR-COSTCENTER sy-vline 
WA_YTEL01_S_DOCPAY_STR-TAX_CODE sy-vline 
WA_YTEL01_S_DOCPAY_STR-GROSS_AMT_MARK sy-vline 
WA_YTEL01_S_DOCPAY_STR-DOC_TYPE sy-vline 
WA_YTEL01_S_DOCPAY_STR-GL_ACCOUNT sy-vline 
WA_YTEL01_S_DOCPAY_STR-COSTELEMENT sy-vline 
WA_YTEL01_S_DOCPAY_STR-ZZMODELL sy-vline 
WA_YTEL01_S_DOCPAY_STR-ZZANZ sy-vline 
WA_YTEL01_S_DOCPAY_STR-ZZME sy-vline 
WA_YTEL01_S_DOCPAY_STR-ZZSPARTE sy-vline 
WA_YTEL01_S_DOCPAY_STR-ZZSTOPS sy-vline 
WA_YTEL01_S_DOCPAY_STR-ZZAUFMENG sy-vline 
WA_YTEL01_S_DOCPAY_STR-ZZLASTKZ sy-vline 
WA_YTEL01_S_DOCPAY_STR-ZZVERTTYP sy-vline 
WA_YTEL01_S_DOCPAY_STR-ZZUMSATZ sy-vline 
WA_YTEL01_S_DOCPAY_STR-ZZWAERS sy-vline 
WA_YTEL01_S_DOCPAY_STR-ZZYTEL01_MODELL sy-vline 
WA_YTEL01_S_DOCPAY_STR-ZZYTEL01_CLASS sy-vline 
WA_YTEL01_S_DOCPAY_STR-ZZYTEL01_PIECES sy-vline 
WA_YTEL01_S_DOCPAY_STR-ZZYTEL01_UNIT sy-vline 
WA_YTEL01_S_DOCPAY_STR-ZZYTEL01_ROAMIN sy-vline 
WA_YTEL01_S_DOCPAY_STR-ZZYTEL01_ADDSER sy-vline 
WA_YTEL01_S_DOCPAY_STR-ZZYTEL01_RATEPL sy-vline 
WA_YTEL01_S_DOCPAY_STR-COMP_CODE sy-vline 
WA_YTEL01_S_DOCPAY_STR-BUSINESSAREA sy-vline 
WA_YTEL01_S_DOCPAY_STR-ORDERID sy-vline 
WA_YTEL01_S_DOCPAY_STR-COSTOBJECT sy-vline 
WA_YTEL01_S_DOCPAY_STR-WBS_ELEMENT sy-vline 
WA_YTEL01_S_DOCPAY_STR-NETWORK sy-vline 
WA_YTEL01_S_DOCPAY_STR-ACTIVITY sy-vline 
WA_YTEL01_S_DOCPAY_STR-SALES_ORD sy-vline 
WA_YTEL01_S_DOCPAY_STR-S_ORD_ITEM sy-vline 
WA_YTEL01_S_DOCPAY_STR-FUNDS_CTR sy-vline 
WA_YTEL01_S_DOCPAY_STR-CMMT_ITEM sy-vline 
WA_YTEL01_S_DOCPAY_STR-FUND sy-vline 
WA_YTEL01_S_DOCPAY_STR-WAGETYPE sy-vline 
WA_YTEL01_S_DOCPAY_STR-MANDT sy-vline 
WA_YTEL01_S_DOCPAY_STR-POST_YEAR sy-vline 
WA_YTEL01_S_DOCPAY_STR-DOC_ID sy-vline 
WA_YTEL01_S_DOCPAY_STR-SETTL_POS sy-vline 
WA_YTEL01_S_DOCPAY_STR-FLG_REVERSED sy-vline 
WA_YTEL01_S_DOCPAY_STR-STATUS_POS sy-vline 
WA_YTEL01_S_DOCPAY_STR-STATUS_WORK sy-vline 
WA_YTEL01_S_DOCPAY_STR-CTRTBU_ID sy-vline 
WA_YTEL01_S_DOCPAY_STR-GPART sy-vline 
WA_YTEL01_S_DOCPAY_STR-DUE_DATE sy-vline 
WA_YTEL01_S_DOCPAY_STR-DUE_YEAR sy-vline 
WA_YTEL01_S_DOCPAY_STR-DUE_MONTH sy-vline 
WA_YTEL01_S_DOCPAY_STR-STMTYPE_ID sy-vline 
WA_YTEL01_S_DOCPAY_STR-REMUNERATION sy-vline 
WA_YTEL01_S_DOCPAY_STR-SETTLE_GROUP sy-vline 
WA_YTEL01_S_DOCPAY_STR-FLG_INTSETTLE sy-vline 
WA_YTEL01_S_DOCPAY_STR-DET_GRP sy-vline 
WA_YTEL01_S_DOCPAY_STR-CON_CURR sy-vline 
WA_YTEL01_S_DOCPAY_STR-DUE_CONAMNT sy-vline 
WA_YTEL01_S_DOCPAY_STR-LED_CURR sy-vline 
WA_YTEL01_S_DOCPAY_STR-DUE_LEDAMNT sy-vline 
WA_YTEL01_S_DOCPAY_STR-REM_UNIT sy-vline 
WA_YTEL01_S_DOCPAY_STR-DUE_QUAN sy-vline 
WA_YTEL01_S_DOCPAY_STR-SETTLE_DATE sy-vline 
WA_YTEL01_S_DOCPAY_STR-SETTLE_POST_YEAR sy-vline 
WA_YTEL01_S_DOCPAY_STR-SETTLE_DOC_ID sy-vline 
WA_YTEL01_S_DOCPAY_STR-PMNT_BLOCK sy-vline 
WA_YTEL01_S_DOCPAY_STR-REM_CASE_TXT sy-vline 
WA_YTEL01_S_DOCPAY_STR-REV_POS sy-vline 
WA_YTEL01_S_DOCPAY_STR-SETT_LOCK sy-vline 
WA_YTEL01_S_DOCPAY_STR-GPART_CTRT sy-vline 
WA_YTEL01_S_DOCPAY_STR-CTRTST_ID sy-vline 
WA_YTEL01_S_DOCPAY_STR-CTRT_TYPE sy-vline 
WA_YTEL01_S_DOCPAY_STR-STCAGR_ID sy-vline 
WA_YTEL01_S_DOCPAY_STR-PAYEE_HR sy-vline 
WA_YTEL01_S_DOCPAY_STR-PAYEE_FI sy-vline 
WA_YTEL01_S_DOCPAY_STR-PAYEE_ISCD sy-vline 
WA_YTEL01_S_DOCPAY_STR-PAYEE_OTHER sy-vline 
WA_YTEL01_S_DOCPAY_STR-ACCAS_STMTY sy-vline 
WA_YTEL01_S_DOCPAY_STR-STM_TYP sy-vline 
WA_YTEL01_S_DOCPAY_STR-PAY_REF_ID sy-vline 
WA_YTEL01_S_DOCPAY_STR-ZEROSUM sy-vline 
WA_YTEL01_S_DOCPAY_STR-COMBTP_ID sy-vline 
WA_YTEL01_S_DOCPAY_STR-POST_DATE sy-vline 
WA_YTEL01_S_DOCPAY_STR-ORG_POST_YEAR sy-vline 
WA_YTEL01_S_DOCPAY_STR-ORG_DOCID sy-vline 
WA_YTEL01_S_DOCPAY_STR-ORG_SETTL_POS sy-vline 
WA_YTEL01_S_DOCPAY_STR-ORG_POST_DATE sy-vline 
WA_YTEL01_S_DOCPAY_STR-ORG_DOC_TYPE sy-vline 
WA_YTEL01_S_DOCPAY_STR-ORG_FLG_REVERSOR sy-vline 
WA_YTEL01_S_DOCPAY_STR-LOG_HANDLE sy-vline      INTO ld_text SEPARATED BY SPACE.

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