ABAP Select data from SAP table CF003 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 CF003 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 CF003. 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 CF003 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_CF003 TYPE STANDARD TABLE OF CF003,
      WA_CF003 TYPE CF003,
      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: <CF003> TYPE CF003.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM CF003
*  INTO TABLE @DATA(IT_CF0032).
*--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_CF003 INDEX 1 INTO DATA(WA_CF0032).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<CF003>-MANDT = 1.
<CF003>-RECTY = 1.
<CF003>-VERSO = 1.
<CF003>-YEARB = 1.
<CF003>-PERDE = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_CF003-BUKRS, sy-vline,
  WA_CF003-RNGVD, sy-vline,
  WA_CF003-ZTVER, sy-vline,
  WA_CF003-EBUKR, sy-vline,
  WA_CF003-PGSBR, sy-vline,
  WA_CF003-PRART, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_CF003 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_CF003 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_CF003 INTO WA_CF003.


*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 GJAHR, internal->external for field YEARB
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_CF003-YEARB
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CF003-YEARB.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit CUNIT, internal->external for field QMGA16
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_CF003-QMGA16
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CF003-QMGA16.
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_CF003_STR, 
MANDT TYPE STRING,
RECTY TYPE STRING,
VERSO TYPE STRING,
YEARB TYPE STRING,
PERDE TYPE STRING,
BUKRS TYPE STRING,
RNGVD TYPE STRING,
ZTVER TYPE STRING,
EBUKR TYPE STRING,
PGSBR TYPE STRING,
PRART TYPE STRING,
VERAP TYPE STRING,
FWERK TYPE STRING,
FKOST TYPE STRING,
VALTY TYPE STRING,
RECNR TYPE STRING,
AEDTM TYPE STRING,
UNAME TYPE STRING,
PINTR TYPE STRING,
PSTAT TYPE STRING,
PHASE TYPE STRING,
ANLKL TYPE STRING,
BUZKZ TYPE STRING,
BUZGJ TYPE STRING,
PRIOT TYPE STRING,
EIGN1 TYPE STRING,
EIGN2 TYPE STRING,
EIGN3 TYPE STRING,
EIGN4 TYPE STRING,
EIGN5 TYPE STRING,
EIGN6 TYPE STRING,
EIGN7 TYPE STRING,
EIGN8 TYPE STRING,
WRTTP TYPE STRING,
VARIA TYPE STRING,
KSTAR TYPE STRING,
LWERK TYPE STRING,
LKOST TYPE STRING,
LSTAR TYPE STRING,
ULTAR TYPE STRING,
PVDS1 TYPE STRING,
PVDS2 TYPE STRING,
PVDS3 TYPE STRING,
PVDS4 TYPE STRING,
PROJN TYPE STRING,
OBGWT TYPE STRING,
COBGWT TYPE STRING,
GBUWT TYPE STRING,
CGBUWT TYPE STRING,
NTRWT TYPE STRING,
CNTRWT TYPE STRING,
RGAWT TYPE STRING,
CRGAWT TYPE STRING,
UTRWT TYPE STRING,
CUTRWT TYPE STRING,
UBAWT TYPE STRING,
CUBAWT TYPE STRING,
BGSUM TYPE STRING,
CBGSUM TYPE STRING,
FGAWT TYPE STRING,
CFGAWT TYPE STRING,
OPLWT TYPE STRING,
COPLWT TYPE STRING,
EPLWT TYPE STRING,
CEPLWT TYPE STRING,
PLEWT TYPE STRING,
CPLEWT TYPE STRING,
ATAWT TYPE STRING,
CATAWT TYPE STRING,
ATOWT TYPE STRING,
CATOWT TYPE STRING,
VGSWT TYPE STRING,
CVGSWT TYPE STRING,
OBLWT TYPE STRING,
COBLWT TYPE STRING,
WTA01 TYPE STRING,
CWTA01 TYPE STRING,
WTA02 TYPE STRING,
CWTA02 TYPE STRING,
WTA03 TYPE STRING,
CWTA03 TYPE STRING,
WTA04 TYPE STRING,
CWTA04 TYPE STRING,
WTA05 TYPE STRING,
CWTA05 TYPE STRING,
WTA06 TYPE STRING,
CWTA06 TYPE STRING,
WTA07 TYPE STRING,
CWTA07 TYPE STRING,
WTA08 TYPE STRING,
CWTA08 TYPE STRING,
WTA09 TYPE STRING,
CWTA09 TYPE STRING,
WTA10 TYPE STRING,
CWTA10 TYPE STRING,
WTA11 TYPE STRING,
CWTA11 TYPE STRING,
WTA12 TYPE STRING,
CWTA12 TYPE STRING,
WTA13 TYPE STRING,
CWTA13 TYPE STRING,
WTA14 TYPE STRING,
CWTA14 TYPE STRING,
WTA15 TYPE STRING,
CWTA15 TYPE STRING,
WTA16 TYPE STRING,
CWTA16 TYPE STRING,
WTB01 TYPE STRING,
CWTB01 TYPE STRING,
WTB02 TYPE STRING,
CWTB02 TYPE STRING,
WTB03 TYPE STRING,
CWTB03 TYPE STRING,
WTB04 TYPE STRING,
CWTB04 TYPE STRING,
WTB05 TYPE STRING,
CWTB05 TYPE STRING,
WTB06 TYPE STRING,
CWTB06 TYPE STRING,
WTB07 TYPE STRING,
CWTB07 TYPE STRING,
WTB08 TYPE STRING,
CWTB08 TYPE STRING,
WTB09 TYPE STRING,
CWTB09 TYPE STRING,
WTB10 TYPE STRING,
CWTB10 TYPE STRING,
WTB11 TYPE STRING,
CWTB11 TYPE STRING,
WTB12 TYPE STRING,
CWTB12 TYPE STRING,
WTB13 TYPE STRING,
CWTB13 TYPE STRING,
WTB14 TYPE STRING,
CWTB14 TYPE STRING,
WTB15 TYPE STRING,
CWTB15 TYPE STRING,
WTB16 TYPE STRING,
CWTB16 TYPE STRING,
MGA01 TYPE STRING,
QMGA01 TYPE STRING,
MGA02 TYPE STRING,
QMGA02 TYPE STRING,
MGA03 TYPE STRING,
QMGA03 TYPE STRING,
MGA04 TYPE STRING,
QMGA04 TYPE STRING,
MGA05 TYPE STRING,
QMGA05 TYPE STRING,
MGA06 TYPE STRING,
QMGA06 TYPE STRING,
MGA07 TYPE STRING,
QMGA07 TYPE STRING,
MGA08 TYPE STRING,
QMGA08 TYPE STRING,
MGA09 TYPE STRING,
QMGA09 TYPE STRING,
MGA10 TYPE STRING,
QMGA10 TYPE STRING,
MGA11 TYPE STRING,
QMGA11 TYPE STRING,
MGA12 TYPE STRING,
QMGA12 TYPE STRING,
MGA13 TYPE STRING,
QMGA13 TYPE STRING,
MGA14 TYPE STRING,
QMGA14 TYPE STRING,
MGA15 TYPE STRING,
QMGA15 TYPE STRING,
MGA16 TYPE STRING,
QMGA16 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_CF003_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_CF003_STR-MANDT sy-vline 
WA_CF003_STR-RECTY sy-vline 
WA_CF003_STR-VERSO sy-vline 
WA_CF003_STR-YEARB sy-vline 
WA_CF003_STR-PERDE sy-vline 
WA_CF003_STR-BUKRS sy-vline 
WA_CF003_STR-RNGVD sy-vline 
WA_CF003_STR-ZTVER sy-vline 
WA_CF003_STR-EBUKR sy-vline 
WA_CF003_STR-PGSBR sy-vline 
WA_CF003_STR-PRART sy-vline 
WA_CF003_STR-VERAP sy-vline 
WA_CF003_STR-FWERK sy-vline 
WA_CF003_STR-FKOST sy-vline 
WA_CF003_STR-VALTY sy-vline 
WA_CF003_STR-RECNR sy-vline 
WA_CF003_STR-AEDTM sy-vline 
WA_CF003_STR-UNAME sy-vline 
WA_CF003_STR-PINTR sy-vline 
WA_CF003_STR-PSTAT sy-vline 
WA_CF003_STR-PHASE sy-vline 
WA_CF003_STR-ANLKL sy-vline 
WA_CF003_STR-BUZKZ sy-vline 
WA_CF003_STR-BUZGJ sy-vline 
WA_CF003_STR-PRIOT sy-vline 
WA_CF003_STR-EIGN1 sy-vline 
WA_CF003_STR-EIGN2 sy-vline 
WA_CF003_STR-EIGN3 sy-vline 
WA_CF003_STR-EIGN4 sy-vline 
WA_CF003_STR-EIGN5 sy-vline 
WA_CF003_STR-EIGN6 sy-vline 
WA_CF003_STR-EIGN7 sy-vline 
WA_CF003_STR-EIGN8 sy-vline 
WA_CF003_STR-WRTTP sy-vline 
WA_CF003_STR-VARIA sy-vline 
WA_CF003_STR-KSTAR sy-vline 
WA_CF003_STR-LWERK sy-vline 
WA_CF003_STR-LKOST sy-vline 
WA_CF003_STR-LSTAR sy-vline 
WA_CF003_STR-ULTAR sy-vline 
WA_CF003_STR-PVDS1 sy-vline 
WA_CF003_STR-PVDS2 sy-vline 
WA_CF003_STR-PVDS3 sy-vline 
WA_CF003_STR-PVDS4 sy-vline 
WA_CF003_STR-PROJN sy-vline 
WA_CF003_STR-OBGWT sy-vline 
WA_CF003_STR-COBGWT sy-vline 
WA_CF003_STR-GBUWT sy-vline 
WA_CF003_STR-CGBUWT sy-vline 
WA_CF003_STR-NTRWT sy-vline 
WA_CF003_STR-CNTRWT sy-vline 
WA_CF003_STR-RGAWT sy-vline 
WA_CF003_STR-CRGAWT sy-vline 
WA_CF003_STR-UTRWT sy-vline 
WA_CF003_STR-CUTRWT sy-vline 
WA_CF003_STR-UBAWT sy-vline 
WA_CF003_STR-CUBAWT sy-vline 
WA_CF003_STR-BGSUM sy-vline 
WA_CF003_STR-CBGSUM sy-vline 
WA_CF003_STR-FGAWT sy-vline 
WA_CF003_STR-CFGAWT sy-vline 
WA_CF003_STR-OPLWT sy-vline 
WA_CF003_STR-COPLWT sy-vline 
WA_CF003_STR-EPLWT sy-vline 
WA_CF003_STR-CEPLWT sy-vline 
WA_CF003_STR-PLEWT sy-vline 
WA_CF003_STR-CPLEWT sy-vline 
WA_CF003_STR-ATAWT sy-vline 
WA_CF003_STR-CATAWT sy-vline 
WA_CF003_STR-ATOWT sy-vline 
WA_CF003_STR-CATOWT sy-vline 
WA_CF003_STR-VGSWT sy-vline 
WA_CF003_STR-CVGSWT sy-vline 
WA_CF003_STR-OBLWT sy-vline 
WA_CF003_STR-COBLWT sy-vline 
WA_CF003_STR-WTA01 sy-vline 
WA_CF003_STR-CWTA01 sy-vline 
WA_CF003_STR-WTA02 sy-vline 
WA_CF003_STR-CWTA02 sy-vline 
WA_CF003_STR-WTA03 sy-vline 
WA_CF003_STR-CWTA03 sy-vline 
WA_CF003_STR-WTA04 sy-vline 
WA_CF003_STR-CWTA04 sy-vline 
WA_CF003_STR-WTA05 sy-vline 
WA_CF003_STR-CWTA05 sy-vline 
WA_CF003_STR-WTA06 sy-vline 
WA_CF003_STR-CWTA06 sy-vline 
WA_CF003_STR-WTA07 sy-vline 
WA_CF003_STR-CWTA07 sy-vline 
WA_CF003_STR-WTA08 sy-vline 
WA_CF003_STR-CWTA08 sy-vline 
WA_CF003_STR-WTA09 sy-vline 
WA_CF003_STR-CWTA09 sy-vline 
WA_CF003_STR-WTA10 sy-vline 
WA_CF003_STR-CWTA10 sy-vline 
WA_CF003_STR-WTA11 sy-vline 
WA_CF003_STR-CWTA11 sy-vline 
WA_CF003_STR-WTA12 sy-vline 
WA_CF003_STR-CWTA12 sy-vline 
WA_CF003_STR-WTA13 sy-vline 
WA_CF003_STR-CWTA13 sy-vline 
WA_CF003_STR-WTA14 sy-vline 
WA_CF003_STR-CWTA14 sy-vline 
WA_CF003_STR-WTA15 sy-vline 
WA_CF003_STR-CWTA15 sy-vline 
WA_CF003_STR-WTA16 sy-vline 
WA_CF003_STR-CWTA16 sy-vline 
WA_CF003_STR-WTB01 sy-vline 
WA_CF003_STR-CWTB01 sy-vline 
WA_CF003_STR-WTB02 sy-vline 
WA_CF003_STR-CWTB02 sy-vline 
WA_CF003_STR-WTB03 sy-vline 
WA_CF003_STR-CWTB03 sy-vline 
WA_CF003_STR-WTB04 sy-vline 
WA_CF003_STR-CWTB04 sy-vline 
WA_CF003_STR-WTB05 sy-vline 
WA_CF003_STR-CWTB05 sy-vline 
WA_CF003_STR-WTB06 sy-vline 
WA_CF003_STR-CWTB06 sy-vline 
WA_CF003_STR-WTB07 sy-vline 
WA_CF003_STR-CWTB07 sy-vline 
WA_CF003_STR-WTB08 sy-vline 
WA_CF003_STR-CWTB08 sy-vline 
WA_CF003_STR-WTB09 sy-vline 
WA_CF003_STR-CWTB09 sy-vline 
WA_CF003_STR-WTB10 sy-vline 
WA_CF003_STR-CWTB10 sy-vline 
WA_CF003_STR-WTB11 sy-vline 
WA_CF003_STR-CWTB11 sy-vline 
WA_CF003_STR-WTB12 sy-vline 
WA_CF003_STR-CWTB12 sy-vline 
WA_CF003_STR-WTB13 sy-vline 
WA_CF003_STR-CWTB13 sy-vline 
WA_CF003_STR-WTB14 sy-vline 
WA_CF003_STR-CWTB14 sy-vline 
WA_CF003_STR-WTB15 sy-vline 
WA_CF003_STR-CWTB15 sy-vline 
WA_CF003_STR-WTB16 sy-vline 
WA_CF003_STR-CWTB16 sy-vline 
WA_CF003_STR-MGA01 sy-vline 
WA_CF003_STR-QMGA01 sy-vline 
WA_CF003_STR-MGA02 sy-vline 
WA_CF003_STR-QMGA02 sy-vline 
WA_CF003_STR-MGA03 sy-vline 
WA_CF003_STR-QMGA03 sy-vline 
WA_CF003_STR-MGA04 sy-vline 
WA_CF003_STR-QMGA04 sy-vline 
WA_CF003_STR-MGA05 sy-vline 
WA_CF003_STR-QMGA05 sy-vline 
WA_CF003_STR-MGA06 sy-vline 
WA_CF003_STR-QMGA06 sy-vline 
WA_CF003_STR-MGA07 sy-vline 
WA_CF003_STR-QMGA07 sy-vline 
WA_CF003_STR-MGA08 sy-vline 
WA_CF003_STR-QMGA08 sy-vline 
WA_CF003_STR-MGA09 sy-vline 
WA_CF003_STR-QMGA09 sy-vline 
WA_CF003_STR-MGA10 sy-vline 
WA_CF003_STR-QMGA10 sy-vline 
WA_CF003_STR-MGA11 sy-vline 
WA_CF003_STR-QMGA11 sy-vline 
WA_CF003_STR-MGA12 sy-vline 
WA_CF003_STR-QMGA12 sy-vline 
WA_CF003_STR-MGA13 sy-vline 
WA_CF003_STR-QMGA13 sy-vline 
WA_CF003_STR-MGA14 sy-vline 
WA_CF003_STR-QMGA14 sy-vline 
WA_CF003_STR-MGA15 sy-vline 
WA_CF003_STR-QMGA15 sy-vline 
WA_CF003_STR-MGA16 sy-vline 
WA_CF003_STR-QMGA16 sy-vline      INTO ld_text SEPARATED BY SPACE.

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