ABAP Select data from SAP table RECP_OI_DOC_LR 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 RECP_OI_DOC_LR 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 RECP_OI_DOC_LR. 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 RECP_OI_DOC_LR 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_RECP_OI_DOC_LR TYPE STANDARD TABLE OF RECP_OI_DOC_LR,
      WA_RECP_OI_DOC_LR TYPE RECP_OI_DOC_LR,
      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: <RECP_OI_DOC_LR> TYPE RECP_OI_DOC_LR.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RECP_OI_DOC_LR
*  INTO TABLE @DATA(IT_RECP_OI_DOC_LR2).
*--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_RECP_OI_DOC_LR INDEX 1 INTO DATA(WA_RECP_OI_DOC_LR2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RECP_OI_DOC_LR>-MANDT = 1.
<RECP_OI_DOC_LR>-INTRENO = 1.
<RECP_OI_DOC_LR>-LRDISTRICT = 1.
<RECP_OI_DOC_LR>-LRVOLUMENO = 1.
<RECP_OI_DOC_LR>-LRPAGENO = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RECP_OI_DOC_LR-OBJNR, sy-vline,
  WA_RECP_OI_DOC_LR-CREATIONTYPE, sy-vline,
  WA_RECP_OI_DOC_LR-RERF, sy-vline,
  WA_RECP_OI_DOC_LR-DERF, sy-vline,
  WA_RECP_OI_DOC_LR-TERF, sy-vline,
  WA_RECP_OI_DOC_LR-REHER, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RECP_OI_DOC_LR 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_RECP_OI_DOC_LR 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_RECP_OI_DOC_LR INTO WA_RECP_OI_DOC_LR.


*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 LRPGN, internal->external for field LRPAGENO
CALL FUNCTION 'CONVERSION_EXIT_LRPGN_OUTPUT'
  EXPORTING
    input =                      WA_RECP_OI_DOC_LR-LRPAGENO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RECP_OI_DOC_LR-LRPAGENO.
WRITE:/ 'New Value:', ld_input.

*Conversion exit REDAT, internal->external for field VALIDTO
CALL FUNCTION 'CONVERSION_EXIT_REDAT_OUTPUT'
  EXPORTING
    input =                      WA_RECP_OI_DOC_LR-VALIDTO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RECP_OI_DOC_LR-VALIDTO.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ISOLA, internal->external for field LANGU
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_RECP_OI_DOC_LR-LANGU
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RECP_OI_DOC_LR-LANGU.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ISOLA, internal->external for field SPRAS_SE
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_RECP_OI_DOC_LR-SPRAS_SE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RECP_OI_DOC_LR-SPRAS_SE.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

*Conversion exit SXIDN, internal->external for field SMTP_ADDR_RC
CALL FUNCTION 'CONVERSION_EXIT_SXIDN_OUTPUT'
  EXPORTING
    input =                      WA_RECP_OI_DOC_LR-SMTP_ADDR_RC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RECP_OI_DOC_LR-SMTP_ADDR_RC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit REDAT, internal->external for field VALIDTO_RC
CALL FUNCTION 'CONVERSION_EXIT_REDAT_OUTPUT'
  EXPORTING
    input =                      WA_RECP_OI_DOC_LR-VALIDTO_RC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RECP_OI_DOC_LR-VALIDTO_RC.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit SXIDN, internal->external for field SMTP_ADDR_CL
CALL FUNCTION 'CONVERSION_EXIT_SXIDN_OUTPUT'
  EXPORTING
    input =                      WA_RECP_OI_DOC_LR-SMTP_ADDR_CL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RECP_OI_DOC_LR-SMTP_ADDR_CL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit REDAT, internal->external for field VALIDTO_CL
CALL FUNCTION 'CONVERSION_EXIT_REDAT_OUTPUT'
  EXPORTING
    input =                      WA_RECP_OI_DOC_LR-VALIDTO_CL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RECP_OI_DOC_LR-VALIDTO_CL.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit SXIDN, internal->external for field SMTP_ADDR_P1
CALL FUNCTION 'CONVERSION_EXIT_SXIDN_OUTPUT'
  EXPORTING
    input =                      WA_RECP_OI_DOC_LR-SMTP_ADDR_P1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RECP_OI_DOC_LR-SMTP_ADDR_P1.
WRITE:/ 'New Value:', ld_input.

*Conversion exit REDAT, internal->external for field VALIDTO_P1
CALL FUNCTION 'CONVERSION_EXIT_REDAT_OUTPUT'
  EXPORTING
    input =                      WA_RECP_OI_DOC_LR-VALIDTO_P1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RECP_OI_DOC_LR-VALIDTO_P1.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit SXIDN, internal->external for field SMTP_ADDR_P2
CALL FUNCTION 'CONVERSION_EXIT_SXIDN_OUTPUT'
  EXPORTING
    input =                      WA_RECP_OI_DOC_LR-SMTP_ADDR_P2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RECP_OI_DOC_LR-SMTP_ADDR_P2.
WRITE:/ 'New Value:', ld_input.

*Conversion exit REDAT, internal->external for field VALIDTO_P2
CALL FUNCTION 'CONVERSION_EXIT_REDAT_OUTPUT'
  EXPORTING
    input =                      WA_RECP_OI_DOC_LR-VALIDTO_P2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RECP_OI_DOC_LR-VALIDTO_P2.
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_RECP_OI_DOC_LR_STR, 
MANDT TYPE STRING,
INTRENO TYPE STRING,
LRDISTRICT TYPE STRING,
LRVOLUMENO TYPE STRING,
LRPAGENO TYPE STRING,
OBJNR TYPE STRING,
CREATIONTYPE TYPE STRING,
RERF TYPE STRING,
DERF TYPE STRING,
TERF TYPE STRING,
REHER TYPE STRING,
RBEAR TYPE STRING,
DBEAR TYPE STRING,
TBEAR TYPE STRING,
RBHER TYPE STRING,
RESPONSIBLE TYPE STRING,
USEREXCLUSIVE TYPE STRING,
AUTHGRP TYPE STRING,
LRTYPE TYPE STRING,
XLR TYPE STRING,
VALIDFROM TYPE STRING,
VALIDTO TYPE STRING,
LRNOOLD TYPE STRING,
XAUTHGRP TYPE STRING,
XLRDISTRICT TYPE STRING,
XLLRTYPE TYPE STRING,
COUNTRY TYPE STRING,
REGION TYPE STRING,
XCOUNTRY TYPE STRING,
XREGION TYPE STRING,
TEMPLATE TYPE STRING,
LANGU TYPE STRING,
SELDATE TYPE STRING,
PRNDATE TYPE STRING,
IDENTKEY TYPE STRING,
IDENT TYPE STRING,
XIDENT TYPE STRING,
XOBJTYPE TYPE STRING,
XLOBJTYPE TYPE STRING,
BUSTYPE TYPE STRING,
BUSKEY TYPE STRING,
BUKRS_SE TYPE STRING,
BUTXT_SE TYPE STRING,
ORT01_SE TYPE STRING,
LAND1_SE TYPE STRING,
WAERS_SE TYPE STRING,
SPRAS_SE TYPE STRING,
KTOPL_SE TYPE STRING,
WAABW_SE TYPE STRING,
PERIV_SE TYPE STRING,
KOKFI_SE TYPE STRING,
RCOMP_SE TYPE STRING,
ADRNR_SE TYPE STRING,
STCEG_SE TYPE STRING,
FIKRS_SE TYPE STRING,
TXJCD_SE TYPE STRING,
PARTNER_RC TYPE STRING,
PARTN_CAT_RC TYPE STRING,
SEARCHTERM1_RC TYPE STRING,
SEARCHTERM2_RC TYPE STRING,
FIRSTNAME_RC TYPE STRING,
LASTNAME_RC TYPE STRING,
NAME1_RC TYPE STRING,
NAME2_RC TYPE STRING,
NAME3_RC TYPE STRING,
NAME4_RC TYPE STRING,
NAMEGROUP1_RC TYPE STRING,
NAMEGROUP2_RC TYPE STRING,
XNAME_RC TYPE STRING,
XPARTNER_RC TYPE STRING,
XSALUTATION_RC TYPE STRING,
XADDRESS_RC TYPE STRING,
LINE0_RC TYPE STRING,
LINE1_RC TYPE STRING,
LINE2_RC TYPE STRING,
LINE3_RC TYPE STRING,
LINE4_RC TYPE STRING,
LINE5_RC TYPE STRING,
LINE6_RC TYPE STRING,
LINE7_RC TYPE STRING,
LINE8_RC TYPE STRING,
LINE9_RC TYPE STRING,
ADDRCATE_RC TYPE STRING,
ADDRNUMBER_RC TYPE STRING,
PERSNUMBER_RC TYPE STRING,
SMTP_ADDR_RC TYPE STRING,
TEL_COUNTRY_RC TYPE STRING,
TEL_NUMBER_RC TYPE STRING,
TEL_EXTENS_RC TYPE STRING,
TEL_NUMBER_LONG_RC TYPE STRING,
FAX_COUNTRY_RC TYPE STRING,
FAX_NUMBER_RC TYPE STRING,
FAX_EXTENS_RC TYPE STRING,
FAX_NUMBER_LONG_RC TYPE STRING,
INTRENO_RC TYPE STRING,
ROLE_RC TYPE STRING,
XROLE_RC TYPE STRING,
SUBROLE_RC TYPE STRING,
XSUBROLE_RC TYPE STRING,
ROLECATE_RC TYPE STRING,
APPL_RC TYPE STRING,
VALIDFROM_RC TYPE STRING,
VALIDTO_RC TYPE STRING,
ADDRTYPE_RC TYPE STRING,
PARTNER_CL TYPE STRING,
PARTN_CAT_CL TYPE STRING,
SEARCHTERM1_CL TYPE STRING,
SEARCHTERM2_CL TYPE STRING,
FIRSTNAME_CL TYPE STRING,
LASTNAME_CL TYPE STRING,
NAME1_CL TYPE STRING,
NAME2_CL TYPE STRING,
NAME3_CL TYPE STRING,
NAME4_CL TYPE STRING,
NAMEGROUP1_CL TYPE STRING,
NAMEGROUP2_CL TYPE STRING,
XNAME_CL TYPE STRING,
XPARTNER_CL TYPE STRING,
XSALUTATION_CL TYPE STRING,
XADDRESS_CL TYPE STRING,
LINE0_CL TYPE STRING,
LINE1_CL TYPE STRING,
LINE2_CL TYPE STRING,
LINE3_CL TYPE STRING,
LINE4_CL TYPE STRING,
LINE5_CL TYPE STRING,
LINE6_CL TYPE STRING,
LINE7_CL TYPE STRING,
LINE8_CL TYPE STRING,
LINE9_CL TYPE STRING,
ADDRCATE_CL TYPE STRING,
ADDRNUMBER_CL TYPE STRING,
PERSNUMBER_CL TYPE STRING,
SMTP_ADDR_CL TYPE STRING,
TEL_COUNTRY_CL TYPE STRING,
TEL_NUMBER_CL TYPE STRING,
TEL_EXTENS_CL TYPE STRING,
TEL_NUMBER_LONG_CL TYPE STRING,
FAX_COUNTRY_CL TYPE STRING,
FAX_NUMBER_CL TYPE STRING,
FAX_EXTENS_CL TYPE STRING,
FAX_NUMBER_LONG_CL TYPE STRING,
INTRENO_CL TYPE STRING,
ROLE_CL TYPE STRING,
XROLE_CL TYPE STRING,
SUBROLE_CL TYPE STRING,
XSUBROLE_CL TYPE STRING,
ROLECATE_CL TYPE STRING,
APPL_CL TYPE STRING,
VALIDFROM_CL TYPE STRING,
VALIDTO_CL TYPE STRING,
ADDRTYPE_CL TYPE STRING,
PARTNER_P1 TYPE STRING,
PARTN_CAT_P1 TYPE STRING,
SEARCHTERM1_P1 TYPE STRING,
SEARCHTERM2_P1 TYPE STRING,
FIRSTNAME_P1 TYPE STRING,
LASTNAME_P1 TYPE STRING,
NAME1_P1 TYPE STRING,
NAME2_P1 TYPE STRING,
NAME3_P1 TYPE STRING,
NAME4_P1 TYPE STRING,
NAMEGROUP1_P1 TYPE STRING,
NAMEGROUP2_P1 TYPE STRING,
XNAME_P1 TYPE STRING,
XPARTNER_P1 TYPE STRING,
XSALUTATION_P1 TYPE STRING,
XADDRESS_P1 TYPE STRING,
LINE0_P1 TYPE STRING,
LINE1_P1 TYPE STRING,
LINE2_P1 TYPE STRING,
LINE3_P1 TYPE STRING,
LINE4_P1 TYPE STRING,
LINE5_P1 TYPE STRING,
LINE6_P1 TYPE STRING,
LINE7_P1 TYPE STRING,
LINE8_P1 TYPE STRING,
LINE9_P1 TYPE STRING,
ADDRCATE_P1 TYPE STRING,
ADDRNUMBER_P1 TYPE STRING,
PERSNUMBER_P1 TYPE STRING,
SMTP_ADDR_P1 TYPE STRING,
TEL_COUNTRY_P1 TYPE STRING,
TEL_NUMBER_P1 TYPE STRING,
TEL_EXTENS_P1 TYPE STRING,
TEL_NUMBER_LONG_P1 TYPE STRING,
FAX_COUNTRY_P1 TYPE STRING,
FAX_NUMBER_P1 TYPE STRING,
FAX_EXTENS_P1 TYPE STRING,
FAX_NUMBER_LONG_P1 TYPE STRING,
INTRENO_P1 TYPE STRING,
ROLE_P1 TYPE STRING,
XROLE_P1 TYPE STRING,
SUBROLE_P1 TYPE STRING,
XSUBROLE_P1 TYPE STRING,
ROLECATE_P1 TYPE STRING,
APPL_P1 TYPE STRING,
VALIDFROM_P1 TYPE STRING,
VALIDTO_P1 TYPE STRING,
ADDRTYPE_P1 TYPE STRING,
PARTNER_P2 TYPE STRING,
PARTN_CAT_P2 TYPE STRING,
SEARCHTERM1_P2 TYPE STRING,
SEARCHTERM2_P2 TYPE STRING,
FIRSTNAME_P2 TYPE STRING,
LASTNAME_P2 TYPE STRING,
NAME1_P2 TYPE STRING,
NAME2_P2 TYPE STRING,
NAME3_P2 TYPE STRING,
NAME4_P2 TYPE STRING,
NAMEGROUP1_P2 TYPE STRING,
NAMEGROUP2_P2 TYPE STRING,
XNAME_P2 TYPE STRING,
XPARTNER_P2 TYPE STRING,
XSALUTATION_P2 TYPE STRING,
XADDRESS_P2 TYPE STRING,
LINE0_P2 TYPE STRING,
LINE1_P2 TYPE STRING,
LINE2_P2 TYPE STRING,
LINE3_P2 TYPE STRING,
LINE4_P2 TYPE STRING,
LINE5_P2 TYPE STRING,
LINE6_P2 TYPE STRING,
LINE7_P2 TYPE STRING,
LINE8_P2 TYPE STRING,
LINE9_P2 TYPE STRING,
ADDRCATE_P2 TYPE STRING,
ADDRNUMBER_P2 TYPE STRING,
PERSNUMBER_P2 TYPE STRING,
SMTP_ADDR_P2 TYPE STRING,
TEL_COUNTRY_P2 TYPE STRING,
TEL_NUMBER_P2 TYPE STRING,
TEL_EXTENS_P2 TYPE STRING,
TEL_NUMBER_LONG_P2 TYPE STRING,
FAX_COUNTRY_P2 TYPE STRING,
FAX_NUMBER_P2 TYPE STRING,
FAX_EXTENS_P2 TYPE STRING,
FAX_NUMBER_LONG_P2 TYPE STRING,
INTRENO_P2 TYPE STRING,
ROLE_P2 TYPE STRING,
XROLE_P2 TYPE STRING,
SUBROLE_P2 TYPE STRING,
XSUBROLE_P2 TYPE STRING,
ROLECATE_P2 TYPE STRING,
APPL_P2 TYPE STRING,
VALIDFROM_P2 TYPE STRING,
VALIDTO_P2 TYPE STRING,
ADDRTYPE_P2 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RECP_OI_DOC_LR_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_RECP_OI_DOC_LR_STR-MANDT sy-vline 
WA_RECP_OI_DOC_LR_STR-INTRENO sy-vline 
WA_RECP_OI_DOC_LR_STR-LRDISTRICT sy-vline 
WA_RECP_OI_DOC_LR_STR-LRVOLUMENO sy-vline 
WA_RECP_OI_DOC_LR_STR-LRPAGENO sy-vline 
WA_RECP_OI_DOC_LR_STR-OBJNR sy-vline 
WA_RECP_OI_DOC_LR_STR-CREATIONTYPE sy-vline 
WA_RECP_OI_DOC_LR_STR-RERF sy-vline 
WA_RECP_OI_DOC_LR_STR-DERF sy-vline 
WA_RECP_OI_DOC_LR_STR-TERF sy-vline 
WA_RECP_OI_DOC_LR_STR-REHER sy-vline 
WA_RECP_OI_DOC_LR_STR-RBEAR sy-vline 
WA_RECP_OI_DOC_LR_STR-DBEAR sy-vline 
WA_RECP_OI_DOC_LR_STR-TBEAR sy-vline 
WA_RECP_OI_DOC_LR_STR-RBHER sy-vline 
WA_RECP_OI_DOC_LR_STR-RESPONSIBLE sy-vline 
WA_RECP_OI_DOC_LR_STR-USEREXCLUSIVE sy-vline 
WA_RECP_OI_DOC_LR_STR-AUTHGRP sy-vline 
WA_RECP_OI_DOC_LR_STR-LRTYPE sy-vline 
WA_RECP_OI_DOC_LR_STR-XLR sy-vline 
WA_RECP_OI_DOC_LR_STR-VALIDFROM sy-vline 
WA_RECP_OI_DOC_LR_STR-VALIDTO sy-vline 
WA_RECP_OI_DOC_LR_STR-LRNOOLD sy-vline 
WA_RECP_OI_DOC_LR_STR-XAUTHGRP sy-vline 
WA_RECP_OI_DOC_LR_STR-XLRDISTRICT sy-vline 
WA_RECP_OI_DOC_LR_STR-XLLRTYPE sy-vline 
WA_RECP_OI_DOC_LR_STR-COUNTRY sy-vline 
WA_RECP_OI_DOC_LR_STR-REGION sy-vline 
WA_RECP_OI_DOC_LR_STR-XCOUNTRY sy-vline 
WA_RECP_OI_DOC_LR_STR-XREGION sy-vline 
WA_RECP_OI_DOC_LR_STR-TEMPLATE sy-vline 
WA_RECP_OI_DOC_LR_STR-LANGU sy-vline 
WA_RECP_OI_DOC_LR_STR-SELDATE sy-vline 
WA_RECP_OI_DOC_LR_STR-PRNDATE sy-vline 
WA_RECP_OI_DOC_LR_STR-IDENTKEY sy-vline 
WA_RECP_OI_DOC_LR_STR-IDENT sy-vline 
WA_RECP_OI_DOC_LR_STR-XIDENT sy-vline 
WA_RECP_OI_DOC_LR_STR-XOBJTYPE sy-vline 
WA_RECP_OI_DOC_LR_STR-XLOBJTYPE sy-vline 
WA_RECP_OI_DOC_LR_STR-BUSTYPE sy-vline 
WA_RECP_OI_DOC_LR_STR-BUSKEY sy-vline 
WA_RECP_OI_DOC_LR_STR-BUKRS_SE sy-vline 
WA_RECP_OI_DOC_LR_STR-BUTXT_SE sy-vline 
WA_RECP_OI_DOC_LR_STR-ORT01_SE sy-vline 
WA_RECP_OI_DOC_LR_STR-LAND1_SE sy-vline 
WA_RECP_OI_DOC_LR_STR-WAERS_SE sy-vline 
WA_RECP_OI_DOC_LR_STR-SPRAS_SE sy-vline 
WA_RECP_OI_DOC_LR_STR-KTOPL_SE sy-vline 
WA_RECP_OI_DOC_LR_STR-WAABW_SE sy-vline 
WA_RECP_OI_DOC_LR_STR-PERIV_SE sy-vline 
WA_RECP_OI_DOC_LR_STR-KOKFI_SE sy-vline 
WA_RECP_OI_DOC_LR_STR-RCOMP_SE sy-vline 
WA_RECP_OI_DOC_LR_STR-ADRNR_SE sy-vline 
WA_RECP_OI_DOC_LR_STR-STCEG_SE sy-vline 
WA_RECP_OI_DOC_LR_STR-FIKRS_SE sy-vline 
WA_RECP_OI_DOC_LR_STR-TXJCD_SE sy-vline 
WA_RECP_OI_DOC_LR_STR-PARTNER_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-PARTN_CAT_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-SEARCHTERM1_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-SEARCHTERM2_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-FIRSTNAME_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-LASTNAME_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-NAME1_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-NAME2_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-NAME3_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-NAME4_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-NAMEGROUP1_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-NAMEGROUP2_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-XNAME_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-XPARTNER_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-XSALUTATION_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-XADDRESS_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE0_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE1_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE2_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE3_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE4_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE5_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE6_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE7_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE8_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE9_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-ADDRCATE_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-ADDRNUMBER_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-PERSNUMBER_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-SMTP_ADDR_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-TEL_COUNTRY_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-TEL_NUMBER_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-TEL_EXTENS_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-TEL_NUMBER_LONG_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-FAX_COUNTRY_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-FAX_NUMBER_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-FAX_EXTENS_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-FAX_NUMBER_LONG_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-INTRENO_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-ROLE_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-XROLE_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-SUBROLE_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-XSUBROLE_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-ROLECATE_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-APPL_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-VALIDFROM_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-VALIDTO_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-ADDRTYPE_RC sy-vline 
WA_RECP_OI_DOC_LR_STR-PARTNER_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-PARTN_CAT_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-SEARCHTERM1_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-SEARCHTERM2_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-FIRSTNAME_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-LASTNAME_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-NAME1_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-NAME2_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-NAME3_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-NAME4_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-NAMEGROUP1_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-NAMEGROUP2_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-XNAME_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-XPARTNER_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-XSALUTATION_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-XADDRESS_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE0_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE1_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE2_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE3_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE4_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE5_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE6_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE7_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE8_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE9_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-ADDRCATE_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-ADDRNUMBER_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-PERSNUMBER_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-SMTP_ADDR_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-TEL_COUNTRY_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-TEL_NUMBER_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-TEL_EXTENS_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-TEL_NUMBER_LONG_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-FAX_COUNTRY_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-FAX_NUMBER_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-FAX_EXTENS_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-FAX_NUMBER_LONG_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-INTRENO_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-ROLE_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-XROLE_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-SUBROLE_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-XSUBROLE_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-ROLECATE_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-APPL_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-VALIDFROM_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-VALIDTO_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-ADDRTYPE_CL sy-vline 
WA_RECP_OI_DOC_LR_STR-PARTNER_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-PARTN_CAT_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-SEARCHTERM1_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-SEARCHTERM2_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-FIRSTNAME_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-LASTNAME_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-NAME1_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-NAME2_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-NAME3_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-NAME4_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-NAMEGROUP1_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-NAMEGROUP2_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-XNAME_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-XPARTNER_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-XSALUTATION_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-XADDRESS_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE0_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE1_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE2_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE3_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE4_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE5_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE6_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE7_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE8_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE9_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-ADDRCATE_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-ADDRNUMBER_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-PERSNUMBER_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-SMTP_ADDR_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-TEL_COUNTRY_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-TEL_NUMBER_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-TEL_EXTENS_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-TEL_NUMBER_LONG_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-FAX_COUNTRY_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-FAX_NUMBER_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-FAX_EXTENS_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-FAX_NUMBER_LONG_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-INTRENO_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-ROLE_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-XROLE_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-SUBROLE_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-XSUBROLE_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-ROLECATE_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-APPL_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-VALIDFROM_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-VALIDTO_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-ADDRTYPE_P1 sy-vline 
WA_RECP_OI_DOC_LR_STR-PARTNER_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-PARTN_CAT_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-SEARCHTERM1_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-SEARCHTERM2_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-FIRSTNAME_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-LASTNAME_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-NAME1_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-NAME2_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-NAME3_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-NAME4_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-NAMEGROUP1_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-NAMEGROUP2_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-XNAME_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-XPARTNER_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-XSALUTATION_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-XADDRESS_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE0_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE1_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE2_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE3_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE4_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE5_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE6_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE7_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE8_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-LINE9_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-ADDRCATE_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-ADDRNUMBER_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-PERSNUMBER_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-SMTP_ADDR_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-TEL_COUNTRY_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-TEL_NUMBER_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-TEL_EXTENS_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-TEL_NUMBER_LONG_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-FAX_COUNTRY_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-FAX_NUMBER_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-FAX_EXTENS_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-FAX_NUMBER_LONG_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-INTRENO_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-ROLE_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-XROLE_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-SUBROLE_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-XSUBROLE_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-ROLECATE_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-APPL_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-VALIDFROM_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-VALIDTO_P2 sy-vline 
WA_RECP_OI_DOC_LR_STR-ADDRTYPE_P2 sy-vline      INTO ld_text SEPARATED BY SPACE.

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