ABAP Select data from SAP table WB2_STATUS_CALCULATION 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 WB2_STATUS_CALCULATION 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 WB2_STATUS_CALCULATION. 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 WB2_STATUS_CALCULATION 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_WB2_STATUS_CALCULATION TYPE STANDARD TABLE OF WB2_STATUS_CALCULATION,
      WA_WB2_STATUS_CALCULATION TYPE WB2_STATUS_CALCULATION,
      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: <WB2_STATUS_CALCULATION> TYPE WB2_STATUS_CALCULATION.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM WB2_STATUS_CALCULATION
*  INTO TABLE @DATA(IT_WB2_STATUS_CALCULATION2).
*--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_WB2_STATUS_CALCULATION INDEX 1 INTO DATA(WA_WB2_STATUS_CALCULATION2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<WB2_STATUS_CALCULATION>-QUANTITY1 = 1.
<WB2_STATUS_CALCULATION>-UNIT1 = 1.
<WB2_STATUS_CALCULATION>-QUANTITY2 = 1.
<WB2_STATUS_CALCULATION>-UNIT2 = 1.
<WB2_STATUS_CALCULATION>-QUANTITY3 = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_WB2_STATUS_CALCULATION-UNIT3, sy-vline,
  WA_WB2_STATUS_CALCULATION-QUANTITY4, sy-vline,
  WA_WB2_STATUS_CALCULATION-UNIT4, sy-vline,
  WA_WB2_STATUS_CALCULATION-QUANTITY5, sy-vline,
  WA_WB2_STATUS_CALCULATION-UNIT5, sy-vline,
  WA_WB2_STATUS_CALCULATION-QUANTITY6, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_WB2_STATUS_CALCULATION 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_WB2_STATUS_CALCULATION 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_WB2_STATUS_CALCULATION INTO WA_WB2_STATUS_CALCULATION.


*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 CUNIT, internal->external for field UNIT1
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_WB2_STATUS_CALCULATION-UNIT1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_WB2_STATUS_CALCULATION-UNIT1.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit CUNIT, internal->external for field UNIT30
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_WB2_STATUS_CALCULATION-UNIT30
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_WB2_STATUS_CALCULATION-UNIT30.
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_WB2_STATUS_CALCULATION_STR, 
QUANTITY1 TYPE STRING,
UNIT1 TYPE STRING,
QUANTITY2 TYPE STRING,
UNIT2 TYPE STRING,
QUANTITY3 TYPE STRING,
UNIT3 TYPE STRING,
QUANTITY4 TYPE STRING,
UNIT4 TYPE STRING,
QUANTITY5 TYPE STRING,
UNIT5 TYPE STRING,
QUANTITY6 TYPE STRING,
UNIT6 TYPE STRING,
QUANTITY7 TYPE STRING,
UNIT7 TYPE STRING,
QUANTITY8 TYPE STRING,
UNIT8 TYPE STRING,
QUANTITY9 TYPE STRING,
UNIT9 TYPE STRING,
QUANTITY10 TYPE STRING,
UNIT10 TYPE STRING,
QUANTITY11 TYPE STRING,
UNIT11 TYPE STRING,
QUANTITY12 TYPE STRING,
UNIT12 TYPE STRING,
QUANTITY13 TYPE STRING,
UNIT13 TYPE STRING,
QUANTITY14 TYPE STRING,
UNIT14 TYPE STRING,
QUANTITY15 TYPE STRING,
UNIT15 TYPE STRING,
QUANTITY16 TYPE STRING,
UNIT16 TYPE STRING,
QUANTITY17 TYPE STRING,
UNIT17 TYPE STRING,
QUANTITY18 TYPE STRING,
UNIT18 TYPE STRING,
QUANTITY19 TYPE STRING,
UNIT19 TYPE STRING,
QUANTITY20 TYPE STRING,
UNIT20 TYPE STRING,
QUANTITY21 TYPE STRING,
UNIT21 TYPE STRING,
QUANTITY22 TYPE STRING,
UNIT22 TYPE STRING,
QUANTITY23 TYPE STRING,
UNIT23 TYPE STRING,
QUANTITY24 TYPE STRING,
UNIT24 TYPE STRING,
QUANTITY25 TYPE STRING,
UNIT25 TYPE STRING,
QUANTITY26 TYPE STRING,
UNIT26 TYPE STRING,
QUANTITY27 TYPE STRING,
UNIT27 TYPE STRING,
QUANTITY28 TYPE STRING,
UNIT28 TYPE STRING,
QUANTITY29 TYPE STRING,
UNIT29 TYPE STRING,
QUANTITY30 TYPE STRING,
UNIT30 TYPE STRING,
VALUE1 TYPE STRING,
CURRENCY1 TYPE STRING,
VALUE2 TYPE STRING,
CURRENCY2 TYPE STRING,
VALUE3 TYPE STRING,
CURRENCY3 TYPE STRING,
VALUE4 TYPE STRING,
CURRENCY4 TYPE STRING,
VALUE5 TYPE STRING,
CURRENCY5 TYPE STRING,
VALUE6 TYPE STRING,
CURRENCY6 TYPE STRING,
VALUE7 TYPE STRING,
CURRENCY7 TYPE STRING,
VALUE8 TYPE STRING,
CURRENCY8 TYPE STRING,
VALUE9 TYPE STRING,
CURRENCY9 TYPE STRING,
VALUE10 TYPE STRING,
CURRENCY10 TYPE STRING,
VALUE11 TYPE STRING,
CURRENCY11 TYPE STRING,
VALUE12 TYPE STRING,
CURRENCY12 TYPE STRING,
VALUE13 TYPE STRING,
CURRENCY13 TYPE STRING,
VALUE14 TYPE STRING,
CURRENCY14 TYPE STRING,
VALUE15 TYPE STRING,
CURRENCY15 TYPE STRING,
VALUE16 TYPE STRING,
CURRENCY16 TYPE STRING,
VALUE17 TYPE STRING,
CURRENCY17 TYPE STRING,
VALUE18 TYPE STRING,
CURRENCY18 TYPE STRING,
VALUE19 TYPE STRING,
CURRENCY19 TYPE STRING,
VALUE20 TYPE STRING,
CURRENCY20 TYPE STRING,
VALUE21 TYPE STRING,
CURRENCY21 TYPE STRING,
VALUE22 TYPE STRING,
CURRENCY22 TYPE STRING,
VALUE23 TYPE STRING,
CURRENCY23 TYPE STRING,
VALUE24 TYPE STRING,
CURRENCY24 TYPE STRING,
VALUE25 TYPE STRING,
CURRENCY25 TYPE STRING,
VALUE26 TYPE STRING,
CURRENCY26 TYPE STRING,
VALUE27 TYPE STRING,
CURRENCY27 TYPE STRING,
VALUE28 TYPE STRING,
CURRENCY28 TYPE STRING,
VALUE29 TYPE STRING,
CURRENCY29 TYPE STRING,
VALUE30 TYPE STRING,
CURRENCY30 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_WB2_STATUS_CALCULATION_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_WB2_STATUS_CALCULATION_STR-QUANTITY1 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT1 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY2 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT2 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY3 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT3 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY4 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT4 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY5 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT5 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY6 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT6 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY7 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT7 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY8 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT8 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY9 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT9 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY10 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT10 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY11 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT11 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY12 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT12 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY13 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT13 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY14 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT14 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY15 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT15 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY16 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT16 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY17 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT17 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY18 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT18 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY19 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT19 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY20 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT20 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY21 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT21 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY22 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT22 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY23 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT23 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY24 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT24 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY25 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT25 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY26 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT26 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY27 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT27 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY28 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT28 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY29 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT29 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-QUANTITY30 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-UNIT30 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE1 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY1 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE2 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY2 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE3 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY3 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE4 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY4 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE5 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY5 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE6 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY6 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE7 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY7 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE8 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY8 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE9 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY9 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE10 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY10 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE11 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY11 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE12 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY12 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE13 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY13 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE14 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY14 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE15 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY15 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE16 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY16 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE17 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY17 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE18 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY18 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE19 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY19 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE20 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY20 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE21 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY21 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE22 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY22 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE23 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY23 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE24 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY24 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE25 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY25 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE26 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY26 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE27 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY27 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE28 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY28 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE29 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY29 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-VALUE30 sy-vline 
WA_WB2_STATUS_CALCULATION_STR-CURRENCY30 sy-vline      INTO ld_text SEPARATED BY SPACE.

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