ABAP Select data from SAP table BAPIPCADOC 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 BAPIPCADOC 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 BAPIPCADOC. 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 BAPIPCADOC 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_BAPIPCADOC TYPE STANDARD TABLE OF BAPIPCADOC,
      WA_BAPIPCADOC TYPE BAPIPCADOC,
      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: <BAPIPCADOC> TYPE BAPIPCADOC.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM BAPIPCADOC
*  INTO TABLE @DATA(IT_BAPIPCADOC2).
*--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_BAPIPCADOC INDEX 1 INTO DATA(WA_BAPIPCADOC2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<BAPIPCADOC>-RLDNR = 1.
<BAPIPCADOC>-RRCTY = 1.
<BAPIPCADOC>-RVERS = 1.
<BAPIPCADOC>-FISC_YEAR = 1.
<BAPIPCADOC>-RTCUR = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_BAPIPCADOC-RTCUR_ISO, sy-vline,
  WA_BAPIPCADOC-RUNIT, sy-vline,
  WA_BAPIPCADOC-RUNIT_ISO, sy-vline,
  WA_BAPIPCADOC-MSL, sy-vline,
  WA_BAPIPCADOC-DCINDIC, sy-vline,
  WA_BAPIPCADOC-POPER, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_BAPIPCADOC 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_BAPIPCADOC 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_BAPIPCADOC INTO WA_BAPIPCADOC.


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit MATN5, internal->external for field MATERIAL
CALL FUNCTION 'CONVERSION_EXIT_MATN5_OUTPUT'
  EXPORTING
    input =                      WA_BAPIPCADOC-MATERIAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPIPCADOC-MATERIAL.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit ABPSP, internal->external for field WBS_ELEM
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
  EXPORTING
    input =                      WA_BAPIPCADOC-WBS_ELEM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPIPCADOC-WBS_ELEM.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

*Conversion exit MATN5, internal->external for field REP_MATERIAL
CALL FUNCTION 'CONVERSION_EXIT_MATN5_OUTPUT'
  EXPORTING
    input =                      WA_BAPIPCADOC-REP_MATERIAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPIPCADOC-REP_MATERIAL.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit IMKEY, internal->external for field RL_EST_KEY
CALL FUNCTION 'CONVERSION_EXIT_IMKEY_OUTPUT'
  EXPORTING
    input =                      WA_BAPIPCADOC-RL_EST_KEY
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPIPCADOC-RL_EST_KEY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SCOPE, internal->external for field OBJECTCLASS
CALL FUNCTION 'CONVERSION_EXIT_SCOPE_OUTPUT'
  EXPORTING
    input =                      WA_BAPIPCADOC-OBJECTCLASS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPIPCADOC-OBJECTCLASS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MATNL, internal->external for field MATERIAL_EXTERNAL
CALL FUNCTION 'CONVERSION_EXIT_MATNL_OUTPUT'
  EXPORTING
    input =                      WA_BAPIPCADOC-MATERIAL_EXTERNAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPIPCADOC-MATERIAL_EXTERNAL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MATNW, internal->external for field MATERIAL_VERSION
CALL FUNCTION 'CONVERSION_EXIT_MATNW_OUTPUT'
  EXPORTING
    input =                      WA_BAPIPCADOC-MATERIAL_VERSION
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPIPCADOC-MATERIAL_VERSION.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MATNL, internal->external for field REP_MATERIAL_EXTERNAL
CALL FUNCTION 'CONVERSION_EXIT_MATNL_OUTPUT'
  EXPORTING
    input =                      WA_BAPIPCADOC-REP_MATERIAL_EXTERNAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPIPCADOC-REP_MATERIAL_EXTERNAL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MATNW, internal->external for field REP_MATERIAL_VERSION
CALL FUNCTION 'CONVERSION_EXIT_MATNW_OUTPUT'
  EXPORTING
    input =                      WA_BAPIPCADOC-REP_MATERIAL_VERSION
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPIPCADOC-REP_MATERIAL_VERSION.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit MATN1, internal->external for field REP_MATERIAL_LONG
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_BAPIPCADOC-REP_MATERIAL_LONG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPIPCADOC-REP_MATERIAL_LONG.
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_BAPIPCADOC_STR, 
RLDNR TYPE STRING,
RRCTY TYPE STRING,
RVERS TYPE STRING,
FISC_YEAR TYPE STRING,
RTCUR TYPE STRING,
RTCUR_ISO TYPE STRING,
RUNIT TYPE STRING,
RUNIT_ISO TYPE STRING,
MSL TYPE STRING,
DCINDIC TYPE STRING,
POPER TYPE STRING,
DOCCT TYPE STRING,
DOCNR TYPE STRING,
DOCLN TYPE STRING,
COMP_CODE TYPE STRING,
PROFIT_CTR TYPE STRING,
RHOART TYPE STRING,
FUNC_AREA TYPE STRING,
CO_AREA TYPE STRING,
RACCT TYPE STRING,
ORIG_GROUP TYPE STRING,
TRADE_ID TYPE STRING,
P_EL_PRCTR TYPE STRING,
ACTIV TYPE STRING,
AFABE TYPE STRING,
OCLNT TYPE STRING,
S_COMP_CODE TYPE STRING,
PART_PRCTR TYPE STRING,
SHOART TYPE STRING,
SFAREA TYPE STRING,
TSL TYPE STRING,
HMCUR TYPE STRING,
HMCUR_ISO TYPE STRING,
HSL TYPE STRING,
GRCUR TYPE STRING,
GRCUR_ISO TYPE STRING,
KSL TYPE STRING,
CPUDT TYPE STRING,
CPUTM TYPE STRING,
USNAM TYPE STRING,
ITEM_TEXT TYPE STRING,
AUTOM TYPE STRING,
DOCTY TYPE STRING,
DOC_DATE TYPE STRING,
PSTNG_DATE TYPE STRING,
WSDAT TYPE STRING,
REFDOCNR TYPE STRING,
REFRYEAR TYPE STRING,
REFDOCLN TYPE STRING,
REFDOCCT TYPE STRING,
REFACTIV TYPE STRING,
OBJ_TYPE TYPE STRING,
REF_ORG_UN TYPE STRING,
PLANT TYPE STRING,
BUS_AREA TYPE STRING,
COSTCENTER TYPE STRING,
ACTTYPE TYPE STRING,
ORDERID TYPE STRING,
ROUTING_NO TYPE STRING,
ASSET_NO TYPE STRING,
SUB_NUMBER TYPE STRING,
MATERIAL TYPE STRING,
VAL_AREA TYPE STRING,
VAL_TYPE TYPE STRING,
ANBWA TYPE STRING,
CUSTOMER TYPE STRING,
VENDOR_NO TYPE STRING,
CS_TRANS_T TYPE STRING,
PO_NUMBER TYPE STRING,
PO_ITEM TYPE STRING,
COST_OBJ TYPE STRING,
ERKRS TYPE STRING,
PROFIT_SEGM_NO TYPE STRING,
PASUBNR TYPE STRING,
WBS_ELEM TYPE STRING,
SALES_ORD TYPE STRING,
S_ORD_ITEM TYPE STRING,
BILL_TYPE TYPE STRING,
SALESORG TYPE STRING,
DISTR_CHAN TYPE STRING,
DOC_NUMBER TYPE STRING,
SDOC_ITEM TYPE STRING,
DIVISION TYPE STRING,
SD_DOC TYPE STRING,
ITM_NUMBER TYPE STRING,
SALES_GRP TYPE STRING,
SALES_OFF TYPE STRING,
SALES_TRADE_ID TYPE STRING,
LOGSYSTEM TYPE STRING,
VERSA TYPE STRING,
REVERSEDOC TYPE STRING,
REVERSED TYPE STRING,
STATKEYFIG TYPE STRING,
GRTYP TYPE STRING,
REP_MATERIAL TYPE STRING,
CO_BUSPROC TYPE STRING,
RL_EST_KEY TYPE STRING,
REF_DATE TYPE STRING,
VALUE_DATE TYPE STRING,
OBJECTCLASS TYPE STRING,
MATERIAL_EXTERNAL TYPE STRING,
MATERIAL_GUID TYPE STRING,
MATERIAL_VERSION TYPE STRING,
REP_MATERIAL_EXTERNAL TYPE STRING,
REP_MATERIAL_GUID TYPE STRING,
REP_MATERIAL_VERSION TYPE STRING,
FUNC_AREA_LONG TYPE STRING,
SFAREA_LONG TYPE STRING,
MOVE_TYPE TYPE STRING,
DOC_TYPE TYPE STRING,
MATERIAL_LONG TYPE STRING,
REP_MATERIAL_LONG TYPE STRING,
TSL_LONG TYPE STRING,
HSL_LONG TYPE STRING,
KSL_LONG TYPE STRING,END OF T_EKKO_STR.
DATA: WA_BAPIPCADOC_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_BAPIPCADOC_STR-RLDNR sy-vline 
WA_BAPIPCADOC_STR-RRCTY sy-vline 
WA_BAPIPCADOC_STR-RVERS sy-vline 
WA_BAPIPCADOC_STR-FISC_YEAR sy-vline 
WA_BAPIPCADOC_STR-RTCUR sy-vline 
WA_BAPIPCADOC_STR-RTCUR_ISO sy-vline 
WA_BAPIPCADOC_STR-RUNIT sy-vline 
WA_BAPIPCADOC_STR-RUNIT_ISO sy-vline 
WA_BAPIPCADOC_STR-MSL sy-vline 
WA_BAPIPCADOC_STR-DCINDIC sy-vline 
WA_BAPIPCADOC_STR-POPER sy-vline 
WA_BAPIPCADOC_STR-DOCCT sy-vline 
WA_BAPIPCADOC_STR-DOCNR sy-vline 
WA_BAPIPCADOC_STR-DOCLN sy-vline 
WA_BAPIPCADOC_STR-COMP_CODE sy-vline 
WA_BAPIPCADOC_STR-PROFIT_CTR sy-vline 
WA_BAPIPCADOC_STR-RHOART sy-vline 
WA_BAPIPCADOC_STR-FUNC_AREA sy-vline 
WA_BAPIPCADOC_STR-CO_AREA sy-vline 
WA_BAPIPCADOC_STR-RACCT sy-vline 
WA_BAPIPCADOC_STR-ORIG_GROUP sy-vline 
WA_BAPIPCADOC_STR-TRADE_ID sy-vline 
WA_BAPIPCADOC_STR-P_EL_PRCTR sy-vline 
WA_BAPIPCADOC_STR-ACTIV sy-vline 
WA_BAPIPCADOC_STR-AFABE sy-vline 
WA_BAPIPCADOC_STR-OCLNT sy-vline 
WA_BAPIPCADOC_STR-S_COMP_CODE sy-vline 
WA_BAPIPCADOC_STR-PART_PRCTR sy-vline 
WA_BAPIPCADOC_STR-SHOART sy-vline 
WA_BAPIPCADOC_STR-SFAREA sy-vline 
WA_BAPIPCADOC_STR-TSL sy-vline 
WA_BAPIPCADOC_STR-HMCUR sy-vline 
WA_BAPIPCADOC_STR-HMCUR_ISO sy-vline 
WA_BAPIPCADOC_STR-HSL sy-vline 
WA_BAPIPCADOC_STR-GRCUR sy-vline 
WA_BAPIPCADOC_STR-GRCUR_ISO sy-vline 
WA_BAPIPCADOC_STR-KSL sy-vline 
WA_BAPIPCADOC_STR-CPUDT sy-vline 
WA_BAPIPCADOC_STR-CPUTM sy-vline 
WA_BAPIPCADOC_STR-USNAM sy-vline 
WA_BAPIPCADOC_STR-ITEM_TEXT sy-vline 
WA_BAPIPCADOC_STR-AUTOM sy-vline 
WA_BAPIPCADOC_STR-DOCTY sy-vline 
WA_BAPIPCADOC_STR-DOC_DATE sy-vline 
WA_BAPIPCADOC_STR-PSTNG_DATE sy-vline 
WA_BAPIPCADOC_STR-WSDAT sy-vline 
WA_BAPIPCADOC_STR-REFDOCNR sy-vline 
WA_BAPIPCADOC_STR-REFRYEAR sy-vline 
WA_BAPIPCADOC_STR-REFDOCLN sy-vline 
WA_BAPIPCADOC_STR-REFDOCCT sy-vline 
WA_BAPIPCADOC_STR-REFACTIV sy-vline 
WA_BAPIPCADOC_STR-OBJ_TYPE sy-vline 
WA_BAPIPCADOC_STR-REF_ORG_UN sy-vline 
WA_BAPIPCADOC_STR-PLANT sy-vline 
WA_BAPIPCADOC_STR-BUS_AREA sy-vline 
WA_BAPIPCADOC_STR-COSTCENTER sy-vline 
WA_BAPIPCADOC_STR-ACTTYPE sy-vline 
WA_BAPIPCADOC_STR-ORDERID sy-vline 
WA_BAPIPCADOC_STR-ROUTING_NO sy-vline 
WA_BAPIPCADOC_STR-ASSET_NO sy-vline 
WA_BAPIPCADOC_STR-SUB_NUMBER sy-vline 
WA_BAPIPCADOC_STR-MATERIAL sy-vline 
WA_BAPIPCADOC_STR-VAL_AREA sy-vline 
WA_BAPIPCADOC_STR-VAL_TYPE sy-vline 
WA_BAPIPCADOC_STR-ANBWA sy-vline 
WA_BAPIPCADOC_STR-CUSTOMER sy-vline 
WA_BAPIPCADOC_STR-VENDOR_NO sy-vline 
WA_BAPIPCADOC_STR-CS_TRANS_T sy-vline 
WA_BAPIPCADOC_STR-PO_NUMBER sy-vline 
WA_BAPIPCADOC_STR-PO_ITEM sy-vline 
WA_BAPIPCADOC_STR-COST_OBJ sy-vline 
WA_BAPIPCADOC_STR-ERKRS sy-vline 
WA_BAPIPCADOC_STR-PROFIT_SEGM_NO sy-vline 
WA_BAPIPCADOC_STR-PASUBNR sy-vline 
WA_BAPIPCADOC_STR-WBS_ELEM sy-vline 
WA_BAPIPCADOC_STR-SALES_ORD sy-vline 
WA_BAPIPCADOC_STR-S_ORD_ITEM sy-vline 
WA_BAPIPCADOC_STR-BILL_TYPE sy-vline 
WA_BAPIPCADOC_STR-SALESORG sy-vline 
WA_BAPIPCADOC_STR-DISTR_CHAN sy-vline 
WA_BAPIPCADOC_STR-DOC_NUMBER sy-vline 
WA_BAPIPCADOC_STR-SDOC_ITEM sy-vline 
WA_BAPIPCADOC_STR-DIVISION sy-vline 
WA_BAPIPCADOC_STR-SD_DOC sy-vline 
WA_BAPIPCADOC_STR-ITM_NUMBER sy-vline 
WA_BAPIPCADOC_STR-SALES_GRP sy-vline 
WA_BAPIPCADOC_STR-SALES_OFF sy-vline 
WA_BAPIPCADOC_STR-SALES_TRADE_ID sy-vline 
WA_BAPIPCADOC_STR-LOGSYSTEM sy-vline 
WA_BAPIPCADOC_STR-VERSA sy-vline 
WA_BAPIPCADOC_STR-REVERSEDOC sy-vline 
WA_BAPIPCADOC_STR-REVERSED sy-vline 
WA_BAPIPCADOC_STR-STATKEYFIG sy-vline 
WA_BAPIPCADOC_STR-GRTYP sy-vline 
WA_BAPIPCADOC_STR-REP_MATERIAL sy-vline 
WA_BAPIPCADOC_STR-CO_BUSPROC sy-vline 
WA_BAPIPCADOC_STR-RL_EST_KEY sy-vline 
WA_BAPIPCADOC_STR-REF_DATE sy-vline 
WA_BAPIPCADOC_STR-VALUE_DATE sy-vline 
WA_BAPIPCADOC_STR-OBJECTCLASS sy-vline 
WA_BAPIPCADOC_STR-MATERIAL_EXTERNAL sy-vline 
WA_BAPIPCADOC_STR-MATERIAL_GUID sy-vline 
WA_BAPIPCADOC_STR-MATERIAL_VERSION sy-vline 
WA_BAPIPCADOC_STR-REP_MATERIAL_EXTERNAL sy-vline 
WA_BAPIPCADOC_STR-REP_MATERIAL_GUID sy-vline 
WA_BAPIPCADOC_STR-REP_MATERIAL_VERSION sy-vline 
WA_BAPIPCADOC_STR-FUNC_AREA_LONG sy-vline 
WA_BAPIPCADOC_STR-SFAREA_LONG sy-vline 
WA_BAPIPCADOC_STR-MOVE_TYPE sy-vline 
WA_BAPIPCADOC_STR-DOC_TYPE sy-vline 
WA_BAPIPCADOC_STR-MATERIAL_LONG sy-vline 
WA_BAPIPCADOC_STR-REP_MATERIAL_LONG sy-vline 
WA_BAPIPCADOC_STR-TSL_LONG sy-vline 
WA_BAPIPCADOC_STR-HSL_LONG sy-vline 
WA_BAPIPCADOC_STR-KSL_LONG sy-vline      INTO ld_text SEPARATED BY SPACE.

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