ABAP Select data from SAP table VBPOK 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 VBPOK 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 VBPOK. 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 VBPOK 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_VBPOK TYPE STANDARD TABLE OF VBPOK,
      WA_VBPOK TYPE VBPOK,
      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: <VBPOK> TYPE VBPOK.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM VBPOK
*  INTO TABLE @DATA(IT_VBPOK2).
*--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_VBPOK INDEX 1 INTO DATA(WA_VBPOK2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<VBPOK>-VBELN_VL = 1.
<VBPOK>-POSNR_VL = 1.
<VBPOK>-VBELN = 1.
<VBPOK>-POSNN = 1.
<VBPOK>-VBTYP_N = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_VBPOK-MATNR, sy-vline,
  WA_VBPOK-CHARG, sy-vline,
  WA_VBPOK-WERKS, sy-vline,
  WA_VBPOK-TAQUI, sy-vline,
  WA_VBPOK-KZNTG, sy-vline,
  WA_VBPOK-KZBRG, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_VBPOK 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_VBPOK 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_VBPOK INTO WA_VBPOK.


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

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

*Conversion exit MATN1, internal->external for field MATNR
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_VBPOK-MATNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VBPOK-MATNR.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

*Conversion exit EAN11, internal->external for field EAN11
CALL FUNCTION 'CONVERSION_EXIT_EAN11_OUTPUT'
  EXPORTING
    input =                      WA_VBPOK-EAN11
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VBPOK-EAN11.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit ALPHA, internal->external for field VGBEL
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_VBPOK-VGBEL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VBPOK-VGBEL.
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_VBPOK_STR, 
VBELN_VL TYPE STRING,
POSNR_VL TYPE STRING,
VBELN TYPE STRING,
POSNN TYPE STRING,
VBTYP_N TYPE STRING,
MATNR TYPE STRING,
CHARG TYPE STRING,
WERKS TYPE STRING,
TAQUI TYPE STRING,
KZNTG TYPE STRING,
KZBRG TYPE STRING,
KZVOL TYPE STRING,
LIANP TYPE STRING,
LIPS_DEL TYPE STRING,
INSMK TYPE STRING,
BESTQ TYPE STRING,
KZPOD TYPE STRING,
NDIFM TYPE STRING,
ORPOS TYPE STRING,
PIKMG TYPE STRING,
SOBKZ TYPE STRING,
SONUM TYPE STRING,
KZBEF TYPE STRING,
PLMIN TYPE STRING,
FORCE_ORPOS_REDUCTION TYPE STRING,
LFIMG TYPE STRING,
LGMNG TYPE STRING,
LFIMG_FLO TYPE STRING,
LGMNG_FLO TYPE STRING,
UMVKZ TYPE STRING,
UMVKN TYPE STRING,
UMREV TYPE STRING,
AKMNG TYPE STRING,
VRKME TYPE STRING,
MEINS TYPE STRING,
KZFME TYPE STRING,
BRGEW TYPE STRING,
NTGEW TYPE STRING,
GEWEI TYPE STRING,
VOLUM TYPE STRING,
VOLEH TYPE STRING,
LGPLA TYPE STRING,
LGTYP TYPE STRING,
BWLVS TYPE STRING,
XWMPP TYPE STRING,
VFDAT TYPE STRING,
KZVFDAT TYPE STRING,
EBUMG_BME TYPE STRING,
WMS_RFBEL TYPE STRING,
WMS_RFPOS TYPE STRING,
HSDAT TYPE STRING,
KZHSDAT TYPE STRING,
SPE_DIFF_POST_INDICATOR TYPE STRING,
SPE_EXCEPT_CODE TYPE STRING,
SPE_AUTH_NUMBER TYPE STRING,
SPE_RET_QTY_POST TYPE STRING,
SPE_BASE_UOM TYPE STRING,
SPE_AUTH_COMPLET TYPE STRING,
SPE_AUTH_COMPLET_F TYPE STRING,
SPE_RET_CLOSING_INDICATOR TYPE STRING,
SPE_EXP_DATE_EXT_B TYPE STRING,
SPE_EXP_DATE_EXT TYPE STRING,
SPE_MDIFF_INSMK TYPE STRING,
SPE_IMWRK_ITM TYPE STRING,
SPE_IMWRK_ITM_F TYPE STRING,
SPE_ORIG_SYS TYPE STRING,
SPE_CUM_VEND TYPE STRING,
SPE_CUM_ITQS TYPE STRING,
SPE_CUM_SA TYPE STRING,
SPE_LIFEXPOS2 TYPE STRING,
SPE_VERSION TYPE STRING,
SPE_DLV_QTY_FROM TYPE STRING,
SPE_INMSK_F TYPE STRING,
SPE_LIFEXPOS2_F TYPE STRING,
SPE_INB_ITM_UPD TYPE STRING,
ARKTX TYPE STRING,
LGBZO TYPE STRING,
LGORT TYPE STRING,
KZLGO TYPE STRING,
LIFEXPOS TYPE STRING,
KZLXP TYPE STRING,
BWTAR TYPE STRING,
KZBWT TYPE STRING,
MFRGR TYPE STRING,
EAN11 TYPE STRING,
IDNLF TYPE STRING,
KDMAT TYPE STRING,
KZ_KDMAT TYPE STRING,
SPE_HERKL TYPE STRING,
KZ_SPE_HERKL TYPE STRING,
SPE_HERKR TYPE STRING,
KZ_SPE_HERKR TYPE STRING,
LICHN TYPE STRING,
ABRVW TYPE STRING,
KZTXT TYPE STRING,
TXTOLD_DEL_ALL_LANG TYPE STRING,
MDIFF_BWART TYPE STRING,
MDIFF_GRUND TYPE STRING,
MDIFF_LGORT TYPE STRING,
MDIFF_AUTO_SPLIT TYPE STRING,
SPE_MDNUM_EWM TYPE STRING,
SPE_MDITM_EWM TYPE STRING,
SPE_OMDNUM_EWM TYPE STRING,
SPE_OMDITM_EWM TYPE STRING,
ORMNG TYPE STRING,
SPE_GTS_STOCK_TYPE TYPE STRING,
SPE_LIEFFZ TYPE STRING,
SPE_APO_QNTYFAC TYPE STRING,
SPE_APO_QNTYDIV TYPE STRING,
SPE_PICK_DENIAL TYPE STRING,
SERNR_DEL TYPE STRING,
FLAG_DOCUB TYPE STRING,
SPE_XNOCON TYPE STRING,
SPE_EBUMG TYPE STRING,
BWART TYPE STRING,
SPE_FORCE_ORMNG_UPDATE TYPE STRING,
INSP_DOC_GUID TYPE STRING,
SGT_RCAT TYPE STRING,
SGT_SCAT TYPE STRING,
KZ_ITM_EMCST TYPE STRING,
ITM_EMCST TYPE STRING,
KZ_ITM_SLCST TYPE STRING,
ITM_SLCST TYPE STRING,
KZ_ITM_LCCST TYPE STRING,
ITM_LCCST TYPE STRING,
KZ_ARC_STATUS TYPE STRING,
ARC_STATUS TYPE STRING,
RESOURCE_ID TYPE STRING,
KZ_RESOURCE_ID TYPE STRING,
UMRESOURCE_ID TYPE STRING,
KZ_UMRESOURCE_ID TYPE STRING,
LOADING_POINT TYPE STRING,
KZ_LOADING_POINT TYPE STRING,
DUMMY_DELITM_INCL_EEW_PS TYPE STRING,
UPDATE_EXTENSION_FIELDS TYPE STRING,
IGNORE_GOODS_MVMT_STATUS TYPE STRING,
IGNORE_DISTRIBUTION_STATUS TYPE STRING,
/CWM/LFIMG TYPE STRING,
/CWM/PIKMG TYPE STRING,
/CWM/LFIME TYPE STRING,
/CWM/PIKME TYPE STRING,
/CWM/PIKME_SOLL TYPE STRING,
/CWM/PIKMG_SOLL TYPE STRING,
/CWM/TOLCHECK TYPE STRING,
/CWM/TOCANCEL TYPE STRING,
/CWM/EBUMG TYPE STRING,
LIPS_CRE TYPE STRING,
VGBEL TYPE STRING,
VGPOS TYPE STRING,
VGTYP TYPE STRING,
RFPOS TYPE STRING,
LGNUM TYPE STRING,
LGTOR TYPE STRING,
UEPOS TYPE STRING,
UEPVW TYPE STRING,
KZUEP TYPE STRING,
PSTYV TYPE STRING,
MDIFF_COMPL TYPE STRING,
MDIFF_FZGLS TYPE STRING,
MDIFF_ETANP TYPE STRING,
MDIFF_POPUP TYPE STRING,END OF T_EKKO_STR.
DATA: WA_VBPOK_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_VBPOK_STR-VBELN_VL sy-vline 
WA_VBPOK_STR-POSNR_VL sy-vline 
WA_VBPOK_STR-VBELN sy-vline 
WA_VBPOK_STR-POSNN sy-vline 
WA_VBPOK_STR-VBTYP_N sy-vline 
WA_VBPOK_STR-MATNR sy-vline 
WA_VBPOK_STR-CHARG sy-vline 
WA_VBPOK_STR-WERKS sy-vline 
WA_VBPOK_STR-TAQUI sy-vline 
WA_VBPOK_STR-KZNTG sy-vline 
WA_VBPOK_STR-KZBRG sy-vline 
WA_VBPOK_STR-KZVOL sy-vline 
WA_VBPOK_STR-LIANP sy-vline 
WA_VBPOK_STR-LIPS_DEL sy-vline 
WA_VBPOK_STR-INSMK sy-vline 
WA_VBPOK_STR-BESTQ sy-vline 
WA_VBPOK_STR-KZPOD sy-vline 
WA_VBPOK_STR-NDIFM sy-vline 
WA_VBPOK_STR-ORPOS sy-vline 
WA_VBPOK_STR-PIKMG sy-vline 
WA_VBPOK_STR-SOBKZ sy-vline 
WA_VBPOK_STR-SONUM sy-vline 
WA_VBPOK_STR-KZBEF sy-vline 
WA_VBPOK_STR-PLMIN sy-vline 
WA_VBPOK_STR-FORCE_ORPOS_REDUCTION sy-vline 
WA_VBPOK_STR-LFIMG sy-vline 
WA_VBPOK_STR-LGMNG sy-vline 
WA_VBPOK_STR-LFIMG_FLO sy-vline 
WA_VBPOK_STR-LGMNG_FLO sy-vline 
WA_VBPOK_STR-UMVKZ sy-vline 
WA_VBPOK_STR-UMVKN sy-vline 
WA_VBPOK_STR-UMREV sy-vline 
WA_VBPOK_STR-AKMNG sy-vline 
WA_VBPOK_STR-VRKME sy-vline 
WA_VBPOK_STR-MEINS sy-vline 
WA_VBPOK_STR-KZFME sy-vline 
WA_VBPOK_STR-BRGEW sy-vline 
WA_VBPOK_STR-NTGEW sy-vline 
WA_VBPOK_STR-GEWEI sy-vline 
WA_VBPOK_STR-VOLUM sy-vline 
WA_VBPOK_STR-VOLEH sy-vline 
WA_VBPOK_STR-LGPLA sy-vline 
WA_VBPOK_STR-LGTYP sy-vline 
WA_VBPOK_STR-BWLVS sy-vline 
WA_VBPOK_STR-XWMPP sy-vline 
WA_VBPOK_STR-VFDAT sy-vline 
WA_VBPOK_STR-KZVFDAT sy-vline 
WA_VBPOK_STR-EBUMG_BME sy-vline 
WA_VBPOK_STR-WMS_RFBEL sy-vline 
WA_VBPOK_STR-WMS_RFPOS sy-vline 
WA_VBPOK_STR-HSDAT sy-vline 
WA_VBPOK_STR-KZHSDAT sy-vline 
WA_VBPOK_STR-SPE_DIFF_POST_INDICATOR sy-vline 
WA_VBPOK_STR-SPE_EXCEPT_CODE sy-vline 
WA_VBPOK_STR-SPE_AUTH_NUMBER sy-vline 
WA_VBPOK_STR-SPE_RET_QTY_POST sy-vline 
WA_VBPOK_STR-SPE_BASE_UOM sy-vline 
WA_VBPOK_STR-SPE_AUTH_COMPLET sy-vline 
WA_VBPOK_STR-SPE_AUTH_COMPLET_F sy-vline 
WA_VBPOK_STR-SPE_RET_CLOSING_INDICATOR sy-vline 
WA_VBPOK_STR-SPE_EXP_DATE_EXT_B sy-vline 
WA_VBPOK_STR-SPE_EXP_DATE_EXT sy-vline 
WA_VBPOK_STR-SPE_MDIFF_INSMK sy-vline 
WA_VBPOK_STR-SPE_IMWRK_ITM sy-vline 
WA_VBPOK_STR-SPE_IMWRK_ITM_F sy-vline 
WA_VBPOK_STR-SPE_ORIG_SYS sy-vline 
WA_VBPOK_STR-SPE_CUM_VEND sy-vline 
WA_VBPOK_STR-SPE_CUM_ITQS sy-vline 
WA_VBPOK_STR-SPE_CUM_SA sy-vline 
WA_VBPOK_STR-SPE_LIFEXPOS2 sy-vline 
WA_VBPOK_STR-SPE_VERSION sy-vline 
WA_VBPOK_STR-SPE_DLV_QTY_FROM sy-vline 
WA_VBPOK_STR-SPE_INMSK_F sy-vline 
WA_VBPOK_STR-SPE_LIFEXPOS2_F sy-vline 
WA_VBPOK_STR-SPE_INB_ITM_UPD sy-vline 
WA_VBPOK_STR-ARKTX sy-vline 
WA_VBPOK_STR-LGBZO sy-vline 
WA_VBPOK_STR-LGORT sy-vline 
WA_VBPOK_STR-KZLGO sy-vline 
WA_VBPOK_STR-LIFEXPOS sy-vline 
WA_VBPOK_STR-KZLXP sy-vline 
WA_VBPOK_STR-BWTAR sy-vline 
WA_VBPOK_STR-KZBWT sy-vline 
WA_VBPOK_STR-MFRGR sy-vline 
WA_VBPOK_STR-EAN11 sy-vline 
WA_VBPOK_STR-IDNLF sy-vline 
WA_VBPOK_STR-KDMAT sy-vline 
WA_VBPOK_STR-KZ_KDMAT sy-vline 
WA_VBPOK_STR-SPE_HERKL sy-vline 
WA_VBPOK_STR-KZ_SPE_HERKL sy-vline 
WA_VBPOK_STR-SPE_HERKR sy-vline 
WA_VBPOK_STR-KZ_SPE_HERKR sy-vline 
WA_VBPOK_STR-LICHN sy-vline 
WA_VBPOK_STR-ABRVW sy-vline 
WA_VBPOK_STR-KZTXT sy-vline 
WA_VBPOK_STR-TXTOLD_DEL_ALL_LANG sy-vline 
WA_VBPOK_STR-MDIFF_BWART sy-vline 
WA_VBPOK_STR-MDIFF_GRUND sy-vline 
WA_VBPOK_STR-MDIFF_LGORT sy-vline 
WA_VBPOK_STR-MDIFF_AUTO_SPLIT sy-vline 
WA_VBPOK_STR-SPE_MDNUM_EWM sy-vline 
WA_VBPOK_STR-SPE_MDITM_EWM sy-vline 
WA_VBPOK_STR-SPE_OMDNUM_EWM sy-vline 
WA_VBPOK_STR-SPE_OMDITM_EWM sy-vline 
WA_VBPOK_STR-ORMNG sy-vline 
WA_VBPOK_STR-SPE_GTS_STOCK_TYPE sy-vline 
WA_VBPOK_STR-SPE_LIEFFZ sy-vline 
WA_VBPOK_STR-SPE_APO_QNTYFAC sy-vline 
WA_VBPOK_STR-SPE_APO_QNTYDIV sy-vline 
WA_VBPOK_STR-SPE_PICK_DENIAL sy-vline 
WA_VBPOK_STR-SERNR_DEL sy-vline 
WA_VBPOK_STR-FLAG_DOCUB sy-vline 
WA_VBPOK_STR-SPE_XNOCON sy-vline 
WA_VBPOK_STR-SPE_EBUMG sy-vline 
WA_VBPOK_STR-BWART sy-vline 
WA_VBPOK_STR-SPE_FORCE_ORMNG_UPDATE sy-vline 
WA_VBPOK_STR-INSP_DOC_GUID sy-vline 
WA_VBPOK_STR-SGT_RCAT sy-vline 
WA_VBPOK_STR-SGT_SCAT sy-vline 
WA_VBPOK_STR-KZ_ITM_EMCST sy-vline 
WA_VBPOK_STR-ITM_EMCST sy-vline 
WA_VBPOK_STR-KZ_ITM_SLCST sy-vline 
WA_VBPOK_STR-ITM_SLCST sy-vline 
WA_VBPOK_STR-KZ_ITM_LCCST sy-vline 
WA_VBPOK_STR-ITM_LCCST sy-vline 
WA_VBPOK_STR-KZ_ARC_STATUS sy-vline 
WA_VBPOK_STR-ARC_STATUS sy-vline 
WA_VBPOK_STR-RESOURCE_ID sy-vline 
WA_VBPOK_STR-KZ_RESOURCE_ID sy-vline 
WA_VBPOK_STR-UMRESOURCE_ID sy-vline 
WA_VBPOK_STR-KZ_UMRESOURCE_ID sy-vline 
WA_VBPOK_STR-LOADING_POINT sy-vline 
WA_VBPOK_STR-KZ_LOADING_POINT sy-vline 
WA_VBPOK_STR-DUMMY_DELITM_INCL_EEW_PS sy-vline 
WA_VBPOK_STR-UPDATE_EXTENSION_FIELDS sy-vline 
WA_VBPOK_STR-IGNORE_GOODS_MVMT_STATUS sy-vline 
WA_VBPOK_STR-IGNORE_DISTRIBUTION_STATUS sy-vline 
WA_VBPOK_STR-/CWM/LFIMG sy-vline 
WA_VBPOK_STR-/CWM/PIKMG sy-vline 
WA_VBPOK_STR-/CWM/LFIME sy-vline 
WA_VBPOK_STR-/CWM/PIKME sy-vline 
WA_VBPOK_STR-/CWM/PIKME_SOLL sy-vline 
WA_VBPOK_STR-/CWM/PIKMG_SOLL sy-vline 
WA_VBPOK_STR-/CWM/TOLCHECK sy-vline 
WA_VBPOK_STR-/CWM/TOCANCEL sy-vline 
WA_VBPOK_STR-/CWM/EBUMG sy-vline 
WA_VBPOK_STR-LIPS_CRE sy-vline 
WA_VBPOK_STR-VGBEL sy-vline 
WA_VBPOK_STR-VGPOS sy-vline 
WA_VBPOK_STR-VGTYP sy-vline 
WA_VBPOK_STR-RFPOS sy-vline 
WA_VBPOK_STR-LGNUM sy-vline 
WA_VBPOK_STR-LGTOR sy-vline 
WA_VBPOK_STR-UEPOS sy-vline 
WA_VBPOK_STR-UEPVW sy-vline 
WA_VBPOK_STR-KZUEP sy-vline 
WA_VBPOK_STR-PSTYV sy-vline 
WA_VBPOK_STR-MDIFF_COMPL sy-vline 
WA_VBPOK_STR-MDIFF_FZGLS sy-vline 
WA_VBPOK_STR-MDIFF_ETANP sy-vline 
WA_VBPOK_STR-MDIFF_POPUP sy-vline      INTO ld_text SEPARATED BY SPACE.

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