ABAP Select data from SAP table P0806 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 P0806 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 P0806. 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 P0806 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_P0806 TYPE STANDARD TABLE OF P0806,
      WA_P0806 TYPE P0806,
      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: <P0806> TYPE P0806.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM P0806
*  INTO TABLE @DATA(IT_P08062).
*--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_P0806 INDEX 1 INTO DATA(WA_P08062).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<P0806>-PERNR = 1.
<P0806>-INFTY = 1.
<P0806>-SUBTY = 1.
<P0806>-OBJPS = 1.
<P0806>-SPRPS = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_P0806-ENDDA, sy-vline,
  WA_P0806-BEGDA, sy-vline,
  WA_P0806-SEQNR, sy-vline,
  WA_P0806-AEDTM, sy-vline,
  WA_P0806-UNAME, sy-vline,
  WA_P0806-HISTO, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_P0806 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_P0806 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_P0806 INTO WA_P0806.


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit CUNIT, internal->external for field UNIT_VALUE30
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_P0806-UNIT_VALUE30
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_P0806-UNIT_VALUE30.
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_P0806_STR, 
PERNR TYPE STRING,
INFTY TYPE STRING,
SUBTY TYPE STRING,
OBJPS TYPE STRING,
SPRPS TYPE STRING,
ENDDA TYPE STRING,
BEGDA TYPE STRING,
SEQNR TYPE STRING,
AEDTM TYPE STRING,
UNAME TYPE STRING,
HISTO TYPE STRING,
ITXEX TYPE STRING,
REFEX TYPE STRING,
ORDEX TYPE STRING,
ITBLD TYPE STRING,
PREAS TYPE STRING,
FLAG1 TYPE STRING,
FLAG2 TYPE STRING,
FLAG3 TYPE STRING,
FLAG4 TYPE STRING,
RESE1 TYPE STRING,
RESE2 TYPE STRING,
GRPVL TYPE STRING,
TPROG_ID TYPE STRING,
FUNCT_ID TYPE STRING,
AFUNCT_ID TYPE STRING,
STATUS_ID TYPE STRING,
ORDER_ID TYPE STRING,
TRAIN_01 TYPE STRING,
ACT_VALUE01 TYPE STRING,
UNIT_VALUE01 TYPE STRING,
TPASS01 TYPE STRING,
QGEN01 TYPE STRING,
TRAIN_02 TYPE STRING,
ACT_VALUE02 TYPE STRING,
UNIT_VALUE02 TYPE STRING,
TPASS02 TYPE STRING,
QGEN02 TYPE STRING,
TRAIN_03 TYPE STRING,
ACT_VALUE03 TYPE STRING,
UNIT_VALUE03 TYPE STRING,
TPASS03 TYPE STRING,
QGEN03 TYPE STRING,
TRAIN_04 TYPE STRING,
ACT_VALUE04 TYPE STRING,
UNIT_VALUE04 TYPE STRING,
TPASS04 TYPE STRING,
QGEN04 TYPE STRING,
TRAIN_05 TYPE STRING,
ACT_VALUE05 TYPE STRING,
UNIT_VALUE05 TYPE STRING,
TPASS05 TYPE STRING,
QGEN05 TYPE STRING,
TRAIN_06 TYPE STRING,
ACT_VALUE06 TYPE STRING,
UNIT_VALUE06 TYPE STRING,
TPASS06 TYPE STRING,
QGEN06 TYPE STRING,
TRAIN_07 TYPE STRING,
ACT_VALUE07 TYPE STRING,
UNIT_VALUE07 TYPE STRING,
TPASS07 TYPE STRING,
QGEN07 TYPE STRING,
TRAIN_08 TYPE STRING,
ACT_VALUE08 TYPE STRING,
UNIT_VALUE08 TYPE STRING,
TPASS08 TYPE STRING,
QGEN08 TYPE STRING,
TRAIN_09 TYPE STRING,
ACT_VALUE09 TYPE STRING,
UNIT_VALUE09 TYPE STRING,
TPASS09 TYPE STRING,
QGEN09 TYPE STRING,
TRAIN_10 TYPE STRING,
ACT_VALUE10 TYPE STRING,
UNIT_VALUE10 TYPE STRING,
TPASS10 TYPE STRING,
QGEN10 TYPE STRING,
TRAIN_11 TYPE STRING,
ACT_VALUE11 TYPE STRING,
UNIT_VALUE11 TYPE STRING,
TPASS11 TYPE STRING,
QGEN11 TYPE STRING,
TRAIN_12 TYPE STRING,
ACT_VALUE12 TYPE STRING,
UNIT_VALUE12 TYPE STRING,
TPASS12 TYPE STRING,
QGEN12 TYPE STRING,
TRAIN_13 TYPE STRING,
ACT_VALUE13 TYPE STRING,
UNIT_VALUE13 TYPE STRING,
TPASS13 TYPE STRING,
QGEN13 TYPE STRING,
TRAIN_14 TYPE STRING,
ACT_VALUE14 TYPE STRING,
UNIT_VALUE14 TYPE STRING,
TPASS14 TYPE STRING,
QGEN14 TYPE STRING,
TRAIN_15 TYPE STRING,
ACT_VALUE15 TYPE STRING,
UNIT_VALUE15 TYPE STRING,
TPASS15 TYPE STRING,
QGEN15 TYPE STRING,
TRAIN_16 TYPE STRING,
ACT_VALUE16 TYPE STRING,
UNIT_VALUE16 TYPE STRING,
TPASS16 TYPE STRING,
QGEN16 TYPE STRING,
TRAIN_17 TYPE STRING,
ACT_VALUE17 TYPE STRING,
UNIT_VALUE17 TYPE STRING,
TPASS17 TYPE STRING,
QGEN17 TYPE STRING,
TRAIN_18 TYPE STRING,
ACT_VALUE18 TYPE STRING,
UNIT_VALUE18 TYPE STRING,
TPASS18 TYPE STRING,
QGEN18 TYPE STRING,
TRAIN_19 TYPE STRING,
ACT_VALUE19 TYPE STRING,
UNIT_VALUE19 TYPE STRING,
TPASS19 TYPE STRING,
QGEN19 TYPE STRING,
TRAIN_20 TYPE STRING,
ACT_VALUE20 TYPE STRING,
UNIT_VALUE20 TYPE STRING,
TPASS20 TYPE STRING,
QGEN20 TYPE STRING,
TRAIN_21 TYPE STRING,
ACT_VALUE21 TYPE STRING,
UNIT_VALUE21 TYPE STRING,
TPASS21 TYPE STRING,
QGEN21 TYPE STRING,
TRAIN_22 TYPE STRING,
ACT_VALUE22 TYPE STRING,
UNIT_VALUE22 TYPE STRING,
TPASS22 TYPE STRING,
QGEN22 TYPE STRING,
TRAIN_23 TYPE STRING,
ACT_VALUE23 TYPE STRING,
UNIT_VALUE23 TYPE STRING,
TPASS23 TYPE STRING,
QGEN23 TYPE STRING,
TRAIN_24 TYPE STRING,
ACT_VALUE24 TYPE STRING,
UNIT_VALUE24 TYPE STRING,
TPASS24 TYPE STRING,
QGEN24 TYPE STRING,
TRAIN_25 TYPE STRING,
ACT_VALUE25 TYPE STRING,
UNIT_VALUE25 TYPE STRING,
TPASS25 TYPE STRING,
QGEN25 TYPE STRING,
TRAIN_26 TYPE STRING,
ACT_VALUE26 TYPE STRING,
UNIT_VALUE26 TYPE STRING,
TPASS26 TYPE STRING,
QGEN26 TYPE STRING,
TRAIN_27 TYPE STRING,
ACT_VALUE27 TYPE STRING,
UNIT_VALUE27 TYPE STRING,
TPASS27 TYPE STRING,
QGEN27 TYPE STRING,
TRAIN_28 TYPE STRING,
ACT_VALUE28 TYPE STRING,
UNIT_VALUE28 TYPE STRING,
TPASS28 TYPE STRING,
QGEN28 TYPE STRING,
TRAIN_29 TYPE STRING,
ACT_VALUE29 TYPE STRING,
UNIT_VALUE29 TYPE STRING,
TPASS29 TYPE STRING,
QGEN29 TYPE STRING,
TRAIN_30 TYPE STRING,
ACT_VALUE30 TYPE STRING,
UNIT_VALUE30 TYPE STRING,
TPASS30 TYPE STRING,
QGEN30 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_P0806_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_P0806_STR-PERNR sy-vline 
WA_P0806_STR-INFTY sy-vline 
WA_P0806_STR-SUBTY sy-vline 
WA_P0806_STR-OBJPS sy-vline 
WA_P0806_STR-SPRPS sy-vline 
WA_P0806_STR-ENDDA sy-vline 
WA_P0806_STR-BEGDA sy-vline 
WA_P0806_STR-SEQNR sy-vline 
WA_P0806_STR-AEDTM sy-vline 
WA_P0806_STR-UNAME sy-vline 
WA_P0806_STR-HISTO sy-vline 
WA_P0806_STR-ITXEX sy-vline 
WA_P0806_STR-REFEX sy-vline 
WA_P0806_STR-ORDEX sy-vline 
WA_P0806_STR-ITBLD sy-vline 
WA_P0806_STR-PREAS sy-vline 
WA_P0806_STR-FLAG1 sy-vline 
WA_P0806_STR-FLAG2 sy-vline 
WA_P0806_STR-FLAG3 sy-vline 
WA_P0806_STR-FLAG4 sy-vline 
WA_P0806_STR-RESE1 sy-vline 
WA_P0806_STR-RESE2 sy-vline 
WA_P0806_STR-GRPVL sy-vline 
WA_P0806_STR-TPROG_ID sy-vline 
WA_P0806_STR-FUNCT_ID sy-vline 
WA_P0806_STR-AFUNCT_ID sy-vline 
WA_P0806_STR-STATUS_ID sy-vline 
WA_P0806_STR-ORDER_ID sy-vline 
WA_P0806_STR-TRAIN_01 sy-vline 
WA_P0806_STR-ACT_VALUE01 sy-vline 
WA_P0806_STR-UNIT_VALUE01 sy-vline 
WA_P0806_STR-TPASS01 sy-vline 
WA_P0806_STR-QGEN01 sy-vline 
WA_P0806_STR-TRAIN_02 sy-vline 
WA_P0806_STR-ACT_VALUE02 sy-vline 
WA_P0806_STR-UNIT_VALUE02 sy-vline 
WA_P0806_STR-TPASS02 sy-vline 
WA_P0806_STR-QGEN02 sy-vline 
WA_P0806_STR-TRAIN_03 sy-vline 
WA_P0806_STR-ACT_VALUE03 sy-vline 
WA_P0806_STR-UNIT_VALUE03 sy-vline 
WA_P0806_STR-TPASS03 sy-vline 
WA_P0806_STR-QGEN03 sy-vline 
WA_P0806_STR-TRAIN_04 sy-vline 
WA_P0806_STR-ACT_VALUE04 sy-vline 
WA_P0806_STR-UNIT_VALUE04 sy-vline 
WA_P0806_STR-TPASS04 sy-vline 
WA_P0806_STR-QGEN04 sy-vline 
WA_P0806_STR-TRAIN_05 sy-vline 
WA_P0806_STR-ACT_VALUE05 sy-vline 
WA_P0806_STR-UNIT_VALUE05 sy-vline 
WA_P0806_STR-TPASS05 sy-vline 
WA_P0806_STR-QGEN05 sy-vline 
WA_P0806_STR-TRAIN_06 sy-vline 
WA_P0806_STR-ACT_VALUE06 sy-vline 
WA_P0806_STR-UNIT_VALUE06 sy-vline 
WA_P0806_STR-TPASS06 sy-vline 
WA_P0806_STR-QGEN06 sy-vline 
WA_P0806_STR-TRAIN_07 sy-vline 
WA_P0806_STR-ACT_VALUE07 sy-vline 
WA_P0806_STR-UNIT_VALUE07 sy-vline 
WA_P0806_STR-TPASS07 sy-vline 
WA_P0806_STR-QGEN07 sy-vline 
WA_P0806_STR-TRAIN_08 sy-vline 
WA_P0806_STR-ACT_VALUE08 sy-vline 
WA_P0806_STR-UNIT_VALUE08 sy-vline 
WA_P0806_STR-TPASS08 sy-vline 
WA_P0806_STR-QGEN08 sy-vline 
WA_P0806_STR-TRAIN_09 sy-vline 
WA_P0806_STR-ACT_VALUE09 sy-vline 
WA_P0806_STR-UNIT_VALUE09 sy-vline 
WA_P0806_STR-TPASS09 sy-vline 
WA_P0806_STR-QGEN09 sy-vline 
WA_P0806_STR-TRAIN_10 sy-vline 
WA_P0806_STR-ACT_VALUE10 sy-vline 
WA_P0806_STR-UNIT_VALUE10 sy-vline 
WA_P0806_STR-TPASS10 sy-vline 
WA_P0806_STR-QGEN10 sy-vline 
WA_P0806_STR-TRAIN_11 sy-vline 
WA_P0806_STR-ACT_VALUE11 sy-vline 
WA_P0806_STR-UNIT_VALUE11 sy-vline 
WA_P0806_STR-TPASS11 sy-vline 
WA_P0806_STR-QGEN11 sy-vline 
WA_P0806_STR-TRAIN_12 sy-vline 
WA_P0806_STR-ACT_VALUE12 sy-vline 
WA_P0806_STR-UNIT_VALUE12 sy-vline 
WA_P0806_STR-TPASS12 sy-vline 
WA_P0806_STR-QGEN12 sy-vline 
WA_P0806_STR-TRAIN_13 sy-vline 
WA_P0806_STR-ACT_VALUE13 sy-vline 
WA_P0806_STR-UNIT_VALUE13 sy-vline 
WA_P0806_STR-TPASS13 sy-vline 
WA_P0806_STR-QGEN13 sy-vline 
WA_P0806_STR-TRAIN_14 sy-vline 
WA_P0806_STR-ACT_VALUE14 sy-vline 
WA_P0806_STR-UNIT_VALUE14 sy-vline 
WA_P0806_STR-TPASS14 sy-vline 
WA_P0806_STR-QGEN14 sy-vline 
WA_P0806_STR-TRAIN_15 sy-vline 
WA_P0806_STR-ACT_VALUE15 sy-vline 
WA_P0806_STR-UNIT_VALUE15 sy-vline 
WA_P0806_STR-TPASS15 sy-vline 
WA_P0806_STR-QGEN15 sy-vline 
WA_P0806_STR-TRAIN_16 sy-vline 
WA_P0806_STR-ACT_VALUE16 sy-vline 
WA_P0806_STR-UNIT_VALUE16 sy-vline 
WA_P0806_STR-TPASS16 sy-vline 
WA_P0806_STR-QGEN16 sy-vline 
WA_P0806_STR-TRAIN_17 sy-vline 
WA_P0806_STR-ACT_VALUE17 sy-vline 
WA_P0806_STR-UNIT_VALUE17 sy-vline 
WA_P0806_STR-TPASS17 sy-vline 
WA_P0806_STR-QGEN17 sy-vline 
WA_P0806_STR-TRAIN_18 sy-vline 
WA_P0806_STR-ACT_VALUE18 sy-vline 
WA_P0806_STR-UNIT_VALUE18 sy-vline 
WA_P0806_STR-TPASS18 sy-vline 
WA_P0806_STR-QGEN18 sy-vline 
WA_P0806_STR-TRAIN_19 sy-vline 
WA_P0806_STR-ACT_VALUE19 sy-vline 
WA_P0806_STR-UNIT_VALUE19 sy-vline 
WA_P0806_STR-TPASS19 sy-vline 
WA_P0806_STR-QGEN19 sy-vline 
WA_P0806_STR-TRAIN_20 sy-vline 
WA_P0806_STR-ACT_VALUE20 sy-vline 
WA_P0806_STR-UNIT_VALUE20 sy-vline 
WA_P0806_STR-TPASS20 sy-vline 
WA_P0806_STR-QGEN20 sy-vline 
WA_P0806_STR-TRAIN_21 sy-vline 
WA_P0806_STR-ACT_VALUE21 sy-vline 
WA_P0806_STR-UNIT_VALUE21 sy-vline 
WA_P0806_STR-TPASS21 sy-vline 
WA_P0806_STR-QGEN21 sy-vline 
WA_P0806_STR-TRAIN_22 sy-vline 
WA_P0806_STR-ACT_VALUE22 sy-vline 
WA_P0806_STR-UNIT_VALUE22 sy-vline 
WA_P0806_STR-TPASS22 sy-vline 
WA_P0806_STR-QGEN22 sy-vline 
WA_P0806_STR-TRAIN_23 sy-vline 
WA_P0806_STR-ACT_VALUE23 sy-vline 
WA_P0806_STR-UNIT_VALUE23 sy-vline 
WA_P0806_STR-TPASS23 sy-vline 
WA_P0806_STR-QGEN23 sy-vline 
WA_P0806_STR-TRAIN_24 sy-vline 
WA_P0806_STR-ACT_VALUE24 sy-vline 
WA_P0806_STR-UNIT_VALUE24 sy-vline 
WA_P0806_STR-TPASS24 sy-vline 
WA_P0806_STR-QGEN24 sy-vline 
WA_P0806_STR-TRAIN_25 sy-vline 
WA_P0806_STR-ACT_VALUE25 sy-vline 
WA_P0806_STR-UNIT_VALUE25 sy-vline 
WA_P0806_STR-TPASS25 sy-vline 
WA_P0806_STR-QGEN25 sy-vline 
WA_P0806_STR-TRAIN_26 sy-vline 
WA_P0806_STR-ACT_VALUE26 sy-vline 
WA_P0806_STR-UNIT_VALUE26 sy-vline 
WA_P0806_STR-TPASS26 sy-vline 
WA_P0806_STR-QGEN26 sy-vline 
WA_P0806_STR-TRAIN_27 sy-vline 
WA_P0806_STR-ACT_VALUE27 sy-vline 
WA_P0806_STR-UNIT_VALUE27 sy-vline 
WA_P0806_STR-TPASS27 sy-vline 
WA_P0806_STR-QGEN27 sy-vline 
WA_P0806_STR-TRAIN_28 sy-vline 
WA_P0806_STR-ACT_VALUE28 sy-vline 
WA_P0806_STR-UNIT_VALUE28 sy-vline 
WA_P0806_STR-TPASS28 sy-vline 
WA_P0806_STR-QGEN28 sy-vline 
WA_P0806_STR-TRAIN_29 sy-vline 
WA_P0806_STR-ACT_VALUE29 sy-vline 
WA_P0806_STR-UNIT_VALUE29 sy-vline 
WA_P0806_STR-TPASS29 sy-vline 
WA_P0806_STR-QGEN29 sy-vline 
WA_P0806_STR-TRAIN_30 sy-vline 
WA_P0806_STR-ACT_VALUE30 sy-vline 
WA_P0806_STR-UNIT_VALUE30 sy-vline 
WA_P0806_STR-TPASS30 sy-vline 
WA_P0806_STR-QGEN30 sy-vline      INTO ld_text SEPARATED BY SPACE.

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