ABAP Select data from SAP table PARBSITMPAYITM 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 PARBSITMPAYITM 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 PARBSITMPAYITM. 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 PARBSITMPAYITM 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_PARBSITMPAYITM TYPE STANDARD TABLE OF PARBSITMPAYITM,
      WA_PARBSITMPAYITM TYPE PARBSITMPAYITM,
      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: <PARBSITMPAYITM> TYPE PARBSITMPAYITM.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PARBSITMPAYITM
*  INTO TABLE @DATA(IT_PARBSITMPAYITM2).
*--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_PARBSITMPAYITM INDEX 1 INTO DATA(WA_PARBSITMPAYITM2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<PARBSITMPAYITM>-MANDT = 1.
<PARBSITMPAYITM>-BSBANKSTATEMENTSHORTID = 1.
<PARBSITMPAYITM>-BSCOMPANYCODE = 1.
<PARBSITMPAYITM>-BSBANKSTATEMENT = 1.
<PARBSITMPAYITM>-BSHOUSEBANK = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PARBSITMPAYITM-BSHOUSEBANKACCOUNT, sy-vline,
  WA_PARBSITMPAYITM-BSCURRENCY, sy-vline,
  WA_PARBSITMPAYITM-BSFISCALYEAR, sy-vline,
  WA_PARBSITMPAYITM-BSBANKSTATEMENTDATE, sy-vline,
  WA_PARBSITMPAYITM-BSBANKSTATEMENTIMPORTDATE, sy-vline,
  WA_PARBSITMPAYITM-BSBANKSTATEMENTIMPORTTIME, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_PARBSITMPAYITM 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_PARBSITMPAYITM 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_PARBSITMPAYITM INTO WA_PARBSITMPAYITM.


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit GJAHR, internal->external for field PIINVOICEREFERENCEFISCALYEAR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_PARBSITMPAYITM-PIINVOICEREFERENCEFISCALYEAR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PARBSITMPAYITM-PIINVOICEREFERENCEFISCALYEAR.
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_PARBSITMPAYITM_STR, 
MANDT TYPE STRING,
BSBANKSTATEMENTSHORTID TYPE STRING,
BSCOMPANYCODE TYPE STRING,
BSBANKSTATEMENT TYPE STRING,
BSHOUSEBANK TYPE STRING,
BSHOUSEBANKACCOUNT TYPE STRING,
BSCURRENCY TYPE STRING,
BSFISCALYEAR TYPE STRING,
BSBANKSTATEMENTDATE TYPE STRING,
BSBANKSTATEMENTIMPORTDATE TYPE STRING,
BSBANKSTATEMENTIMPORTTIME TYPE STRING,
BSCREATEDBYUSER TYPE STRING,
BSBANKSTATEMENTITEM TYPE STRING,
BSPAYMENTADVICEACCOUNTTYPE TYPE STRING,
BSPAYMENTADVICEACCOUNT TYPE STRING,
BSPAYMENTADVICE TYPE STRING,
BSAMOUNTINTRANSACTIONCURRENCY TYPE STRING,
BSORIGINALCURRENCY TYPE STRING,
BSAMOUNTINORIGINALCURRENCY TYPE STRING,
BSCUSTOMERREFERENCENUMBER TYPE STRING,
BSPAYMENTREFERENCE TYPE STRING,
BSDOCUMENTREFERENCEID TYPE STRING,
BSASSIGNMENTREFERENCE TYPE STRING,
BSBANKPOSTINGKEY TYPE STRING,
BSPAYMENTEXTERNALTRANSACTYPE TYPE STRING,
BSBANKSTATEMENTPOSTINGRULE TYPE STRING,
BSDOCUMENTITEMTEXT TYPE STRING,
BSPOSTINGDATE TYPE STRING,
BSDEBITCREDITCODE TYPE STRING,
BSBANKLEDGERISPOSTED TYPE STRING,
BSSUBLEDGERISPOSTED TYPE STRING,
BSISCOMPLETED TYPE STRING,
BSINTERPRETATIONALGORITHM TYPE STRING,
BSBUSINESSPARTNERNAME TYPE STRING,
BSPARTNERBANKCOUNTRY TYPE STRING,
BSPARTNERBANK TYPE STRING,
BSPARTNERBANKSWIFTCODE TYPE STRING,
BSPARTNERBANKACCOUNT TYPE STRING,
BSPARTNERBANKIBAN TYPE STRING,
BSBANKLEDGERDOCUMENT TYPE STRING,
BSSUBLEDGERDOCUMENT TYPE STRING,
BSSUBLEDGERONACCOUNTDOCUMENT TYPE STRING,
BSBANKREFERENCE TYPE STRING,
BSMEMOLINE TYPE STRING,
BSBANKSTATEMENTITEMPAYDOC TYPE STRING,
PICOMPANYCODE TYPE STRING,
PIACCOUNTINGDOCUMENT TYPE STRING,
PIFISCALYEAR TYPE STRING,
PITRANSACTIONCURRENCY TYPE STRING,
PIDOCUMENTREFERENCEID TYPE STRING,
PIORIGINALREFERENCEDOCUMENT TYPE STRING,
PIREFERENCEDOCUMENTLOGICALSYS TYPE STRING,
PIREFERENCEDOCUMENTTYPE TYPE STRING,
PIACCOUNTINGDOCUMENTHEADERTEXT TYPE STRING,
PIPOSTINGDATE TYPE STRING,
PIACCOUNTINGDOCUMENTTYPE TYPE STRING,
PIACCOUNTINGDOCCREATEDBYUSER TYPE STRING,
PITRANSACTIONCODE TYPE STRING,
PIACCOUNTINGDOCCREATIONDATE TYPE STRING,
PICREATIONTIME TYPE STRING,
PIACCOUNTINGDOCUMENTITEM TYPE STRING,
PIDEBTOR TYPE STRING,
PICLEARINGACCOUNTINGDOCUMENT TYPE STRING,
PICLEARINGCREATIONDATE TYPE STRING,
PIDEBITCREDITCODE TYPE STRING,
PICLEARINGDOCFISCALYEAR TYPE STRING,
PIAMOUNTINTRANSACTIONCURRENCY TYPE STRING,
PIAMOUNTINCOMPANYCODECURRENCY TYPE STRING,
PIFINANCIALACCOUNTTYPE TYPE STRING,
PIASSIGNMENTREFERENCE TYPE STRING,
PIPAYMENTREFERENCE TYPE STRING,
PIDOCUMENTITEMTEXT TYPE STRING,
PIINVOICEREFERENCE TYPE STRING,
PIINVOICEREFERENCEFISCALYEAR TYPE STRING,
PIINVOICEITEMREFERENCE TYPE STRING,
PIFOLLOWONDOCUMENTTYPE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PARBSITMPAYITM_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_PARBSITMPAYITM_STR-MANDT sy-vline 
WA_PARBSITMPAYITM_STR-BSBANKSTATEMENTSHORTID sy-vline 
WA_PARBSITMPAYITM_STR-BSCOMPANYCODE sy-vline 
WA_PARBSITMPAYITM_STR-BSBANKSTATEMENT sy-vline 
WA_PARBSITMPAYITM_STR-BSHOUSEBANK sy-vline 
WA_PARBSITMPAYITM_STR-BSHOUSEBANKACCOUNT sy-vline 
WA_PARBSITMPAYITM_STR-BSCURRENCY sy-vline 
WA_PARBSITMPAYITM_STR-BSFISCALYEAR sy-vline 
WA_PARBSITMPAYITM_STR-BSBANKSTATEMENTDATE sy-vline 
WA_PARBSITMPAYITM_STR-BSBANKSTATEMENTIMPORTDATE sy-vline 
WA_PARBSITMPAYITM_STR-BSBANKSTATEMENTIMPORTTIME sy-vline 
WA_PARBSITMPAYITM_STR-BSCREATEDBYUSER sy-vline 
WA_PARBSITMPAYITM_STR-BSBANKSTATEMENTITEM sy-vline 
WA_PARBSITMPAYITM_STR-BSPAYMENTADVICEACCOUNTTYPE sy-vline 
WA_PARBSITMPAYITM_STR-BSPAYMENTADVICEACCOUNT sy-vline 
WA_PARBSITMPAYITM_STR-BSPAYMENTADVICE sy-vline 
WA_PARBSITMPAYITM_STR-BSAMOUNTINTRANSACTIONCURRENCY sy-vline 
WA_PARBSITMPAYITM_STR-BSORIGINALCURRENCY sy-vline 
WA_PARBSITMPAYITM_STR-BSAMOUNTINORIGINALCURRENCY sy-vline 
WA_PARBSITMPAYITM_STR-BSCUSTOMERREFERENCENUMBER sy-vline 
WA_PARBSITMPAYITM_STR-BSPAYMENTREFERENCE sy-vline 
WA_PARBSITMPAYITM_STR-BSDOCUMENTREFERENCEID sy-vline 
WA_PARBSITMPAYITM_STR-BSASSIGNMENTREFERENCE sy-vline 
WA_PARBSITMPAYITM_STR-BSBANKPOSTINGKEY sy-vline 
WA_PARBSITMPAYITM_STR-BSPAYMENTEXTERNALTRANSACTYPE sy-vline 
WA_PARBSITMPAYITM_STR-BSBANKSTATEMENTPOSTINGRULE sy-vline 
WA_PARBSITMPAYITM_STR-BSDOCUMENTITEMTEXT sy-vline 
WA_PARBSITMPAYITM_STR-BSPOSTINGDATE sy-vline 
WA_PARBSITMPAYITM_STR-BSDEBITCREDITCODE sy-vline 
WA_PARBSITMPAYITM_STR-BSBANKLEDGERISPOSTED sy-vline 
WA_PARBSITMPAYITM_STR-BSSUBLEDGERISPOSTED sy-vline 
WA_PARBSITMPAYITM_STR-BSISCOMPLETED sy-vline 
WA_PARBSITMPAYITM_STR-BSINTERPRETATIONALGORITHM sy-vline 
WA_PARBSITMPAYITM_STR-BSBUSINESSPARTNERNAME sy-vline 
WA_PARBSITMPAYITM_STR-BSPARTNERBANKCOUNTRY sy-vline 
WA_PARBSITMPAYITM_STR-BSPARTNERBANK sy-vline 
WA_PARBSITMPAYITM_STR-BSPARTNERBANKSWIFTCODE sy-vline 
WA_PARBSITMPAYITM_STR-BSPARTNERBANKACCOUNT sy-vline 
WA_PARBSITMPAYITM_STR-BSPARTNERBANKIBAN sy-vline 
WA_PARBSITMPAYITM_STR-BSBANKLEDGERDOCUMENT sy-vline 
WA_PARBSITMPAYITM_STR-BSSUBLEDGERDOCUMENT sy-vline 
WA_PARBSITMPAYITM_STR-BSSUBLEDGERONACCOUNTDOCUMENT sy-vline 
WA_PARBSITMPAYITM_STR-BSBANKREFERENCE sy-vline 
WA_PARBSITMPAYITM_STR-BSMEMOLINE sy-vline 
WA_PARBSITMPAYITM_STR-BSBANKSTATEMENTITEMPAYDOC sy-vline 
WA_PARBSITMPAYITM_STR-PICOMPANYCODE sy-vline 
WA_PARBSITMPAYITM_STR-PIACCOUNTINGDOCUMENT sy-vline 
WA_PARBSITMPAYITM_STR-PIFISCALYEAR sy-vline 
WA_PARBSITMPAYITM_STR-PITRANSACTIONCURRENCY sy-vline 
WA_PARBSITMPAYITM_STR-PIDOCUMENTREFERENCEID sy-vline 
WA_PARBSITMPAYITM_STR-PIORIGINALREFERENCEDOCUMENT sy-vline 
WA_PARBSITMPAYITM_STR-PIREFERENCEDOCUMENTLOGICALSYS sy-vline 
WA_PARBSITMPAYITM_STR-PIREFERENCEDOCUMENTTYPE sy-vline 
WA_PARBSITMPAYITM_STR-PIACCOUNTINGDOCUMENTHEADERTEXT sy-vline 
WA_PARBSITMPAYITM_STR-PIPOSTINGDATE sy-vline 
WA_PARBSITMPAYITM_STR-PIACCOUNTINGDOCUMENTTYPE sy-vline 
WA_PARBSITMPAYITM_STR-PIACCOUNTINGDOCCREATEDBYUSER sy-vline 
WA_PARBSITMPAYITM_STR-PITRANSACTIONCODE sy-vline 
WA_PARBSITMPAYITM_STR-PIACCOUNTINGDOCCREATIONDATE sy-vline 
WA_PARBSITMPAYITM_STR-PICREATIONTIME sy-vline 
WA_PARBSITMPAYITM_STR-PIACCOUNTINGDOCUMENTITEM sy-vline 
WA_PARBSITMPAYITM_STR-PIDEBTOR sy-vline 
WA_PARBSITMPAYITM_STR-PICLEARINGACCOUNTINGDOCUMENT sy-vline 
WA_PARBSITMPAYITM_STR-PICLEARINGCREATIONDATE sy-vline 
WA_PARBSITMPAYITM_STR-PIDEBITCREDITCODE sy-vline 
WA_PARBSITMPAYITM_STR-PICLEARINGDOCFISCALYEAR sy-vline 
WA_PARBSITMPAYITM_STR-PIAMOUNTINTRANSACTIONCURRENCY sy-vline 
WA_PARBSITMPAYITM_STR-PIAMOUNTINCOMPANYCODECURRENCY sy-vline 
WA_PARBSITMPAYITM_STR-PIFINANCIALACCOUNTTYPE sy-vline 
WA_PARBSITMPAYITM_STR-PIASSIGNMENTREFERENCE sy-vline 
WA_PARBSITMPAYITM_STR-PIPAYMENTREFERENCE sy-vline 
WA_PARBSITMPAYITM_STR-PIDOCUMENTITEMTEXT sy-vline 
WA_PARBSITMPAYITM_STR-PIINVOICEREFERENCE sy-vline 
WA_PARBSITMPAYITM_STR-PIINVOICEREFERENCEFISCALYEAR sy-vline 
WA_PARBSITMPAYITM_STR-PIINVOICEITEMREFERENCE sy-vline 
WA_PARBSITMPAYITM_STR-PIFOLLOWONDOCUMENTTYPE sy-vline      INTO ld_text SEPARATED BY SPACE.

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