ABAP Select data from SAP table R2RLEDLV_DELNOTE 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 R2RLEDLV_DELNOTE 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 R2RLEDLV_DELNOTE. 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 R2RLEDLV_DELNOTE 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_R2RLEDLV_DELNOTE TYPE STANDARD TABLE OF R2RLEDLV_DELNOTE,
      WA_R2RLEDLV_DELNOTE TYPE R2RLEDLV_DELNOTE,
      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: <R2RLEDLV_DELNOTE> TYPE R2RLEDLV_DELNOTE.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM R2RLEDLV_DELNOTE
*  INTO TABLE @DATA(IT_R2RLEDLV_DELNOTE2).
*--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_R2RLEDLV_DELNOTE INDEX 1 INTO DATA(WA_R2RLEDLV_DELNOTE2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<R2RLEDLV_DELNOTE>-HD_GEN = 1.
<R2RLEDLV_DELNOTE>-DELIV_NUMB = 1.
<R2RLEDLV_DELNOTE>-SOLD_TO_PARTY = 1.
<R2RLEDLV_DELNOTE>-SHIP_TO_PARTY = 1.
<R2RLEDLV_DELNOTE>-FWDAGENT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_R2RLEDLV_DELNOTE-INCOTERMS1, sy-vline,
  WA_R2RLEDLV_DELNOTE-INCOTERMS2, sy-vline,
  WA_R2RLEDLV_DELNOTE-ROUTE, sy-vline,
  WA_R2RLEDLV_DELNOTE-SHIP_COND, sy-vline,
  WA_R2RLEDLV_DELNOTE-CREA_DATE, sy-vline,
  WA_R2RLEDLV_DELNOTE-CHG_DATE, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_R2RLEDLV_DELNOTE 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_R2RLEDLV_DELNOTE 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_R2RLEDLV_DELNOTE INTO WA_R2RLEDLV_DELNOTE.


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ABPSN, internal->external for field R2R_PROJ_NUM
CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT'
  EXPORTING
    input =                      WA_R2RLEDLV_DELNOTE-R2R_PROJ_NUM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_R2RLEDLV_DELNOTE-R2R_PROJ_NUM.
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_R2RLEDLV_DELNOTE_STR, 
HD_GEN TYPE STRING,
DELIV_NUMB TYPE STRING,
SOLD_TO_PARTY TYPE STRING,
SHIP_TO_PARTY TYPE STRING,
FWDAGENT TYPE STRING,
INCOTERMS1 TYPE STRING,
INCOTERMS2 TYPE STRING,
ROUTE TYPE STRING,
SHIP_COND TYPE STRING,
CREA_DATE TYPE STRING,
CHG_DATE TYPE STRING,
DLV_DATE TYPE STRING,
TOT_WEIGHT TYPE STRING,
BRT_WEIGHT TYPE STRING,
NET_WEIGHT TYPE STRING,
UNIT_OF_WEIGHT TYPE STRING,
TOT_VOLUME TYPE STRING,
VOLUME TYPE STRING,
VOLUMEUNIT TYPE STRING,
NOSHPUNITS TYPE STRING,
EXTDELV_NO TYPE STRING,
DLV_PRIO TYPE STRING,
PICK_LOC TYPE STRING,
SHIPPING_TYPE TYPE STRING,
GI_DATE TYPE STRING,
HD_ADR TYPE STRING,
HD_GEN_DESCRIPT TYPE STRING,
DELIV_NUMB TYPE STRING,
NAME_ROUTE TYPE STRING,
NAME_SHIP_COND TYPE STRING,
NAME_INCOTERMS1 TYPE STRING,
NAME_SHP_MAT_TYPE TYPE STRING,
NAME_DELIV_TYPE TYPE STRING,
NAME_DELIV_PRIO TYPE STRING,
NAME_SALES_DISTR TYPE STRING,
NAME_DELIV_BLOCK TYPE STRING,
NAME_CUST_GROUP TYPE STRING,
NAME_TRANSP_GROUP TYPE STRING,
NAME_TRANSP_BLOCK TYPE STRING,
NAME_ROUTE_SCHED TYPE STRING,
NAME_SHIPPING_TYPE TYPE STRING,
HD_ORG TYPE STRING,
DELIV_NUMB TYPE STRING,
SHIP_POINT TYPE STRING,
SHIP_POINT_ADR TYPE STRING,
SALESORG TYPE STRING,
SALESORG_ADR TYPE STRING,
LOADING_PT TYPE STRING,
SALES_OFF TYPE STRING,
SALES_OFF_ADR TYPE STRING,
WHSE_NO TYPE STRING,
SALES_DIST TYPE STRING,
WHSE_DOOR TYPE STRING,
UNLOAD_PT TYPE STRING,
HD_ORG_DESCRIPT TYPE STRING,
DELIV_NUMB TYPE STRING,
SALES_ORG_DESCR TYPE STRING,
LOADING_PT_DESCR TYPE STRING,
SALES_OFFICE_DESCR TYPE STRING,
SHIPPING_PT_DESCR TYPE STRING,
WHS_NUMB_DESCR TYPE STRING,
HD_PART_ADD TYPE STRING,
HD_FIN TYPE STRING,
HD_FT TYPE STRING,
DELIV_NUMB TYPE STRING,
DEST_CNTRY TYPE STRING,
DEPCOUNTRY TYPE STRING,
TRNSP_MODE TYPE STRING,
CUSTOMS TYPE STRING,
OFFICE_OF_DEST TYPE STRING,
CUSTOMS_OFFICE1 TYPE STRING,
CUSTOMS_OFFICE2 TYPE STRING,
CUSTOMS_OFFICE3 TYPE STRING,
CUSTOMS_OFFICE4 TYPE STRING,
CUSTOMS_OFFICE5 TYPE STRING,
CUSTOMS_OFFICE6 TYPE STRING,
QUAL_MEANS_TR TYPE STRING,
QUAL_MEANS_TR_OUT TYPE STRING,
NAT_MEANS_TR TYPE STRING,
NAT_MENAS_TR_OUT TYPE STRING,
CURRENCY_BORDER TYPE STRING,
HD_FT_DESCRIPT TYPE STRING,
DELIV_NUMB TYPE STRING,
MODETRANSPDESC TYPE STRING,
CUSTOFFDESC TYPE STRING,
CUSTOFFDESTDESC TYPE STRING,
CUSTOFF1DESC TYPE STRING,
CUSTOFF2DESC TYPE STRING,
CUSTOFF3DESC TYPE STRING,
CUSTOFF4DESC TYPE STRING,
CUSTOFF5DESC TYPE STRING,
CUSTOFF6DESC TYPE STRING,
INLMODETRANSDSCR TYPE STRING,
CNTRYMNSTRNSP TYPE STRING,
CNTRYMNSTRNSDEP TYPE STRING,
HD_REF TYPE STRING,
DELIV_NUMB TYPE STRING,
PURCH_NO TYPE STRING,
PURCH_DATE TYPE STRING,
PO_SUPPLEM TYPE STRING,
CUST_REFERENCE TYPE STRING,
REF_DOC TYPE STRING,
REF_DOC_TYPE TYPE STRING,
PURCH_NO_C TYPE STRING,
PO_METHOD TYPE STRING,
PURCH_NO_S TYPE STRING,
PO_DAT_S TYPE STRING,
PO_METH_S TYPE STRING,
REF_1_S TYPE STRING,
ORDER_NUMB TYPE STRING,
ORDER_DATE TYPE STRING,
R2R_PO_TYPE TYPE STRING,
R2R_PROJ_NUM TYPE STRING,
R2R_PROJ_DESC TYPE STRING,
HD_SCHED TYPE STRING,
HD_TECH TYPE STRING,
IT_GEN TYPE STRING,
IT_GEN_DESCRIPT TYPE STRING,
IT_ORG TYPE STRING,
IT_ORG_DESCRIPT TYPE STRING,
IT_REF TYPE STRING,
IT_REFORD TYPE STRING,
IT_REFPURORD TYPE STRING,
IT_TECH TYPE STRING,
IT_FT TYPE STRING,
IT_FT_DESCRIPT TYPE STRING,
IT_SCHED TYPE STRING,
IT_FIN TYPE STRING,
IT_SERNR TYPE STRING,
IT_CONFITM TYPE STRING,
IT_CONFBATCH TYPE STRING,
IT_QM TYPE STRING,END OF T_EKKO_STR.
DATA: WA_R2RLEDLV_DELNOTE_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_R2RLEDLV_DELNOTE_STR-HD_GEN sy-vline 
WA_R2RLEDLV_DELNOTE_STR-DELIV_NUMB sy-vline 
WA_R2RLEDLV_DELNOTE_STR-SOLD_TO_PARTY sy-vline 
WA_R2RLEDLV_DELNOTE_STR-SHIP_TO_PARTY sy-vline 
WA_R2RLEDLV_DELNOTE_STR-FWDAGENT sy-vline 
WA_R2RLEDLV_DELNOTE_STR-INCOTERMS1 sy-vline 
WA_R2RLEDLV_DELNOTE_STR-INCOTERMS2 sy-vline 
WA_R2RLEDLV_DELNOTE_STR-ROUTE sy-vline 
WA_R2RLEDLV_DELNOTE_STR-SHIP_COND sy-vline 
WA_R2RLEDLV_DELNOTE_STR-CREA_DATE sy-vline 
WA_R2RLEDLV_DELNOTE_STR-CHG_DATE sy-vline 
WA_R2RLEDLV_DELNOTE_STR-DLV_DATE sy-vline 
WA_R2RLEDLV_DELNOTE_STR-TOT_WEIGHT sy-vline 
WA_R2RLEDLV_DELNOTE_STR-BRT_WEIGHT sy-vline 
WA_R2RLEDLV_DELNOTE_STR-NET_WEIGHT sy-vline 
WA_R2RLEDLV_DELNOTE_STR-UNIT_OF_WEIGHT sy-vline 
WA_R2RLEDLV_DELNOTE_STR-TOT_VOLUME sy-vline 
WA_R2RLEDLV_DELNOTE_STR-VOLUME sy-vline 
WA_R2RLEDLV_DELNOTE_STR-VOLUMEUNIT sy-vline 
WA_R2RLEDLV_DELNOTE_STR-NOSHPUNITS sy-vline 
WA_R2RLEDLV_DELNOTE_STR-EXTDELV_NO sy-vline 
WA_R2RLEDLV_DELNOTE_STR-DLV_PRIO sy-vline 
WA_R2RLEDLV_DELNOTE_STR-PICK_LOC sy-vline 
WA_R2RLEDLV_DELNOTE_STR-SHIPPING_TYPE sy-vline 
WA_R2RLEDLV_DELNOTE_STR-GI_DATE sy-vline 
WA_R2RLEDLV_DELNOTE_STR-HD_ADR sy-vline 
WA_R2RLEDLV_DELNOTE_STR-HD_GEN_DESCRIPT sy-vline 
WA_R2RLEDLV_DELNOTE_STR-DELIV_NUMB sy-vline 
WA_R2RLEDLV_DELNOTE_STR-NAME_ROUTE sy-vline 
WA_R2RLEDLV_DELNOTE_STR-NAME_SHIP_COND sy-vline 
WA_R2RLEDLV_DELNOTE_STR-NAME_INCOTERMS1 sy-vline 
WA_R2RLEDLV_DELNOTE_STR-NAME_SHP_MAT_TYPE sy-vline 
WA_R2RLEDLV_DELNOTE_STR-NAME_DELIV_TYPE sy-vline 
WA_R2RLEDLV_DELNOTE_STR-NAME_DELIV_PRIO sy-vline 
WA_R2RLEDLV_DELNOTE_STR-NAME_SALES_DISTR sy-vline 
WA_R2RLEDLV_DELNOTE_STR-NAME_DELIV_BLOCK sy-vline 
WA_R2RLEDLV_DELNOTE_STR-NAME_CUST_GROUP sy-vline 
WA_R2RLEDLV_DELNOTE_STR-NAME_TRANSP_GROUP sy-vline 
WA_R2RLEDLV_DELNOTE_STR-NAME_TRANSP_BLOCK sy-vline 
WA_R2RLEDLV_DELNOTE_STR-NAME_ROUTE_SCHED sy-vline 
WA_R2RLEDLV_DELNOTE_STR-NAME_SHIPPING_TYPE sy-vline 
WA_R2RLEDLV_DELNOTE_STR-HD_ORG sy-vline 
WA_R2RLEDLV_DELNOTE_STR-DELIV_NUMB sy-vline 
WA_R2RLEDLV_DELNOTE_STR-SHIP_POINT sy-vline 
WA_R2RLEDLV_DELNOTE_STR-SHIP_POINT_ADR sy-vline 
WA_R2RLEDLV_DELNOTE_STR-SALESORG sy-vline 
WA_R2RLEDLV_DELNOTE_STR-SALESORG_ADR sy-vline 
WA_R2RLEDLV_DELNOTE_STR-LOADING_PT sy-vline 
WA_R2RLEDLV_DELNOTE_STR-SALES_OFF sy-vline 
WA_R2RLEDLV_DELNOTE_STR-SALES_OFF_ADR sy-vline 
WA_R2RLEDLV_DELNOTE_STR-WHSE_NO sy-vline 
WA_R2RLEDLV_DELNOTE_STR-SALES_DIST sy-vline 
WA_R2RLEDLV_DELNOTE_STR-WHSE_DOOR sy-vline 
WA_R2RLEDLV_DELNOTE_STR-UNLOAD_PT sy-vline 
WA_R2RLEDLV_DELNOTE_STR-HD_ORG_DESCRIPT sy-vline 
WA_R2RLEDLV_DELNOTE_STR-DELIV_NUMB sy-vline 
WA_R2RLEDLV_DELNOTE_STR-SALES_ORG_DESCR sy-vline 
WA_R2RLEDLV_DELNOTE_STR-LOADING_PT_DESCR sy-vline 
WA_R2RLEDLV_DELNOTE_STR-SALES_OFFICE_DESCR sy-vline 
WA_R2RLEDLV_DELNOTE_STR-SHIPPING_PT_DESCR sy-vline 
WA_R2RLEDLV_DELNOTE_STR-WHS_NUMB_DESCR sy-vline 
WA_R2RLEDLV_DELNOTE_STR-HD_PART_ADD sy-vline 
WA_R2RLEDLV_DELNOTE_STR-HD_FIN sy-vline 
WA_R2RLEDLV_DELNOTE_STR-HD_FT sy-vline 
WA_R2RLEDLV_DELNOTE_STR-DELIV_NUMB sy-vline 
WA_R2RLEDLV_DELNOTE_STR-DEST_CNTRY sy-vline 
WA_R2RLEDLV_DELNOTE_STR-DEPCOUNTRY sy-vline 
WA_R2RLEDLV_DELNOTE_STR-TRNSP_MODE sy-vline 
WA_R2RLEDLV_DELNOTE_STR-CUSTOMS sy-vline 
WA_R2RLEDLV_DELNOTE_STR-OFFICE_OF_DEST sy-vline 
WA_R2RLEDLV_DELNOTE_STR-CUSTOMS_OFFICE1 sy-vline 
WA_R2RLEDLV_DELNOTE_STR-CUSTOMS_OFFICE2 sy-vline 
WA_R2RLEDLV_DELNOTE_STR-CUSTOMS_OFFICE3 sy-vline 
WA_R2RLEDLV_DELNOTE_STR-CUSTOMS_OFFICE4 sy-vline 
WA_R2RLEDLV_DELNOTE_STR-CUSTOMS_OFFICE5 sy-vline 
WA_R2RLEDLV_DELNOTE_STR-CUSTOMS_OFFICE6 sy-vline 
WA_R2RLEDLV_DELNOTE_STR-QUAL_MEANS_TR sy-vline 
WA_R2RLEDLV_DELNOTE_STR-QUAL_MEANS_TR_OUT sy-vline 
WA_R2RLEDLV_DELNOTE_STR-NAT_MEANS_TR sy-vline 
WA_R2RLEDLV_DELNOTE_STR-NAT_MENAS_TR_OUT sy-vline 
WA_R2RLEDLV_DELNOTE_STR-CURRENCY_BORDER sy-vline 
WA_R2RLEDLV_DELNOTE_STR-HD_FT_DESCRIPT sy-vline 
WA_R2RLEDLV_DELNOTE_STR-DELIV_NUMB sy-vline 
WA_R2RLEDLV_DELNOTE_STR-MODETRANSPDESC sy-vline 
WA_R2RLEDLV_DELNOTE_STR-CUSTOFFDESC sy-vline 
WA_R2RLEDLV_DELNOTE_STR-CUSTOFFDESTDESC sy-vline 
WA_R2RLEDLV_DELNOTE_STR-CUSTOFF1DESC sy-vline 
WA_R2RLEDLV_DELNOTE_STR-CUSTOFF2DESC sy-vline 
WA_R2RLEDLV_DELNOTE_STR-CUSTOFF3DESC sy-vline 
WA_R2RLEDLV_DELNOTE_STR-CUSTOFF4DESC sy-vline 
WA_R2RLEDLV_DELNOTE_STR-CUSTOFF5DESC sy-vline 
WA_R2RLEDLV_DELNOTE_STR-CUSTOFF6DESC sy-vline 
WA_R2RLEDLV_DELNOTE_STR-INLMODETRANSDSCR sy-vline 
WA_R2RLEDLV_DELNOTE_STR-CNTRYMNSTRNSP sy-vline 
WA_R2RLEDLV_DELNOTE_STR-CNTRYMNSTRNSDEP sy-vline 
WA_R2RLEDLV_DELNOTE_STR-HD_REF sy-vline 
WA_R2RLEDLV_DELNOTE_STR-DELIV_NUMB sy-vline 
WA_R2RLEDLV_DELNOTE_STR-PURCH_NO sy-vline 
WA_R2RLEDLV_DELNOTE_STR-PURCH_DATE sy-vline 
WA_R2RLEDLV_DELNOTE_STR-PO_SUPPLEM sy-vline 
WA_R2RLEDLV_DELNOTE_STR-CUST_REFERENCE sy-vline 
WA_R2RLEDLV_DELNOTE_STR-REF_DOC sy-vline 
WA_R2RLEDLV_DELNOTE_STR-REF_DOC_TYPE sy-vline 
WA_R2RLEDLV_DELNOTE_STR-PURCH_NO_C sy-vline 
WA_R2RLEDLV_DELNOTE_STR-PO_METHOD sy-vline 
WA_R2RLEDLV_DELNOTE_STR-PURCH_NO_S sy-vline 
WA_R2RLEDLV_DELNOTE_STR-PO_DAT_S sy-vline 
WA_R2RLEDLV_DELNOTE_STR-PO_METH_S sy-vline 
WA_R2RLEDLV_DELNOTE_STR-REF_1_S sy-vline 
WA_R2RLEDLV_DELNOTE_STR-ORDER_NUMB sy-vline 
WA_R2RLEDLV_DELNOTE_STR-ORDER_DATE sy-vline 
WA_R2RLEDLV_DELNOTE_STR-R2R_PO_TYPE sy-vline 
WA_R2RLEDLV_DELNOTE_STR-R2R_PROJ_NUM sy-vline 
WA_R2RLEDLV_DELNOTE_STR-R2R_PROJ_DESC sy-vline 
WA_R2RLEDLV_DELNOTE_STR-HD_SCHED sy-vline 
WA_R2RLEDLV_DELNOTE_STR-HD_TECH sy-vline 
WA_R2RLEDLV_DELNOTE_STR-IT_GEN sy-vline 
WA_R2RLEDLV_DELNOTE_STR-IT_GEN_DESCRIPT sy-vline 
WA_R2RLEDLV_DELNOTE_STR-IT_ORG sy-vline 
WA_R2RLEDLV_DELNOTE_STR-IT_ORG_DESCRIPT sy-vline 
WA_R2RLEDLV_DELNOTE_STR-IT_REF sy-vline 
WA_R2RLEDLV_DELNOTE_STR-IT_REFORD sy-vline 
WA_R2RLEDLV_DELNOTE_STR-IT_REFPURORD sy-vline 
WA_R2RLEDLV_DELNOTE_STR-IT_TECH sy-vline 
WA_R2RLEDLV_DELNOTE_STR-IT_FT sy-vline 
WA_R2RLEDLV_DELNOTE_STR-IT_FT_DESCRIPT sy-vline 
WA_R2RLEDLV_DELNOTE_STR-IT_SCHED sy-vline 
WA_R2RLEDLV_DELNOTE_STR-IT_FIN sy-vline 
WA_R2RLEDLV_DELNOTE_STR-IT_SERNR sy-vline 
WA_R2RLEDLV_DELNOTE_STR-IT_CONFITM sy-vline 
WA_R2RLEDLV_DELNOTE_STR-IT_CONFBATCH sy-vline 
WA_R2RLEDLV_DELNOTE_STR-IT_QM sy-vline      INTO ld_text SEPARATED BY SPACE.

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