ABAP Select data from SAP table FAGL_S_LINE_ITEM 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 FAGL_S_LINE_ITEM 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 FAGL_S_LINE_ITEM. 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 FAGL_S_LINE_ITEM 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_FAGL_S_LINE_ITEM TYPE STANDARD TABLE OF FAGL_S_LINE_ITEM,
      WA_FAGL_S_LINE_ITEM TYPE FAGL_S_LINE_ITEM,
      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: <FAGL_S_LINE_ITEM> TYPE FAGL_S_LINE_ITEM.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM FAGL_S_LINE_ITEM
*  INTO TABLE @DATA(IT_FAGL_S_LINE_ITEM2).
*--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_FAGL_S_LINE_ITEM INDEX 1 INTO DATA(WA_FAGL_S_LINE_ITEM2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<FAGL_S_LINE_ITEM>-OBJECT_KEY = 1.
<FAGL_S_LINE_ITEM>-ITEMNO_ACC = 1.
<FAGL_S_LINE_ITEM>-LINETYPE = 1.
<FAGL_S_LINE_ITEM>-CURR_NO = 1.
<FAGL_S_LINE_ITEM>-GL_ACCOUNT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_FAGL_S_LINE_ITEM-CURR_TYPE, sy-vline,
  WA_FAGL_S_LINE_ITEM-CURRENCY_ISO, sy-vline,
  WA_FAGL_S_LINE_ITEM-AMT_DOCCUR, sy-vline,
  WA_FAGL_S_LINE_ITEM-SHKZG, sy-vline,
  WA_FAGL_S_LINE_ITEM-EXCH_RATE, sy-vline,
  WA_FAGL_S_LINE_ITEM-EXCH_RATE_V, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_FAGL_S_LINE_ITEM 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_FAGL_S_LINE_ITEM 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_FAGL_S_LINE_ITEM INTO WA_FAGL_S_LINE_ITEM.


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

*Conversion exit EXCRT, internal->external for field EXCH_RATE
CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT'
  EXPORTING
    input =                      WA_FAGL_S_LINE_ITEM-EXCH_RATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FAGL_S_LINE_ITEM-EXCH_RATE.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

*Conversion exit ABPSN, internal->external for field WBS_ELEMENT
CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT'
  EXPORTING
    input =                      WA_FAGL_S_LINE_ITEM-WBS_ELEMENT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FAGL_S_LINE_ITEM-WBS_ELEMENT.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit NUMCV, internal->external for field ACTIVITY
CALL FUNCTION 'CONVERSION_EXIT_NUMCV_OUTPUT'
  EXPORTING
    input =                      WA_FAGL_S_LINE_ITEM-ACTIVITY
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FAGL_S_LINE_ITEM-ACTIVITY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit FMCIS, internal->external for field CMMT_ITEM
CALL FUNCTION 'CONVERSION_EXIT_FMCIS_OUTPUT'
  EXPORTING
    input =                      WA_FAGL_S_LINE_ITEM-CMMT_ITEM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FAGL_S_LINE_ITEM-CMMT_ITEM.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ALPHA, internal->external for field ASSET_NO
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_FAGL_S_LINE_ITEM-ASSET_NO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FAGL_S_LINE_ITEM-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_FAGL_S_LINE_ITEM-SUB_NUMBER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FAGL_S_LINE_ITEM-SUB_NUMBER.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

*Conversion exit FMCIL, internal->external for field CMMT_ITEM_LONG
CALL FUNCTION 'CONVERSION_EXIT_FMCIL_OUTPUT'
  EXPORTING
    input =                      WA_FAGL_S_LINE_ITEM-CMMT_ITEM_LONG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FAGL_S_LINE_ITEM-CMMT_ITEM_LONG.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit EXCRT, internal->external for field KURSR
CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT'
  EXPORTING
    input =                      WA_FAGL_S_LINE_ITEM-KURSR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FAGL_S_LINE_ITEM-KURSR.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

*Conversion exit FMCIS, internal->external for field FIPOS
CALL FUNCTION 'CONVERSION_EXIT_FMCIS_OUTPUT'
  EXPORTING
    input =                      WA_FAGL_S_LINE_ITEM-FIPOS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FAGL_S_LINE_ITEM-FIPOS.
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_FAGL_S_LINE_ITEM_STR, 
OBJECT_KEY TYPE STRING,
ITEMNO_ACC TYPE STRING,
LINETYPE TYPE STRING,
CURR_NO TYPE STRING,
GL_ACCOUNT TYPE STRING,
CURR_TYPE TYPE STRING,
CURRENCY_ISO TYPE STRING,
AMT_DOCCUR TYPE STRING,
SHKZG TYPE STRING,
EXCH_RATE TYPE STRING,
EXCH_RATE_V TYPE STRING,
AMT_BASE TYPE STRING,
DISC_BASE TYPE STRING,
DISC_AMT TYPE STRING,
ITEM_TEXT TYPE STRING,
AC_DOC_NO TYPE STRING,
REF_KEY_1 TYPE STRING,
REF_KEY_2 TYPE STRING,
REF_KEY_3 TYPE STRING,
ACCT_KEY TYPE STRING,
ACCT_TYPE TYPE STRING,
DOC_TYPE TYPE STRING,
COMP_CODE TYPE STRING,
BUS_AREA TYPE STRING,
FUNC_AREA TYPE STRING,
PLANT TYPE STRING,
FIS_PERIOD TYPE STRING,
FISC_YEAR TYPE STRING,
PSTNG_DATE TYPE STRING,
VALUE_DATE TYPE STRING,
FM_AREA TYPE STRING,
CUSTOMER TYPE STRING,
CSHDIS_IND TYPE STRING,
VENDOR_NO TYPE STRING,
ALLOC_NMBR TYPE STRING,
TAX_CODE TYPE STRING,
TAXJURCODE TYPE STRING,
COSTOBJECT TYPE STRING,
COSTCENTER TYPE STRING,
ACTTYPE TYPE STRING,
PROFIT_CTR TYPE STRING,
PART_PRCTR TYPE STRING,
NETWORK TYPE STRING,
WBS_ELEMENT TYPE STRING,
ORDERID TYPE STRING,
ORDER_ITNO TYPE STRING,
ROUTING_NO TYPE STRING,
ACTIVITY TYPE STRING,
COND_TYPE TYPE STRING,
COND_COUNT TYPE STRING,
COND_ST_NO TYPE STRING,
FUND TYPE STRING,
FUNDS_CTR TYPE STRING,
CMMT_ITEM TYPE STRING,
CO_BUSPROC TYPE STRING,
ASSET_NO TYPE STRING,
SUB_NUMBER TYPE STRING,
SALES_ORD TYPE STRING,
S_ORD_ITEM TYPE STRING,
DE_CRE_IND TYPE STRING,
QUANTITY TYPE STRING,
BASE_UOM TYPE STRING,
MATERIAL TYPE STRING,
SERIAL_NO TYPE STRING,
PART_ACCT TYPE STRING,
TR_PART_BA TYPE STRING,
TRADE_ID TYPE STRING,
VAL_AREA TYPE STRING,
VAL_TYPE TYPE STRING,
ASVAL_DATE TYPE STRING,
PO_NUMBER TYPE STRING,
PO_ITEM TYPE STRING,
CMMT_ITEM_LONG TYPE STRING,
GRANT_NBR TYPE STRING,
CURRENCY TYPE STRING,
KURSR TYPE STRING,
GBETR TYPE STRING,
PMNTTRMS TYPE STRING,
BLINE_DATE TYPE STRING,
DSCT_DAYS1 TYPE STRING,
DSCT_DAYS2 TYPE STRING,
NETTERMS TYPE STRING,
DSCT_PCT1 TYPE STRING,
DSCT_PCT2 TYPE STRING,
PYMT_METH TYPE STRING,
PMTMTHSUPL TYPE STRING,
PAYMT_REF TYPE STRING,
DUNN_KEY TYPE STRING,
DUNN_BLOCK TYPE STRING,
PMNT_BLOCK TYPE STRING,
VAT_REG_NO TYPE STRING,
PARTNER_BK TYPE STRING,
SCBANK_IND TYPE STRING,
BUSINESSPLACE TYPE STRING,
SECTIONCODE TYPE STRING,
BRANCH TYPE STRING,
PYMT_CUR TYPE STRING,
C_CTR_AREA TYPE STRING,
BANK_ID TYPE STRING,
SUPCOUNTRY TYPE STRING,
SP_GL_IND TYPE STRING,
ALT_PAYEE TYPE STRING,
ALT_PAYEE_BANK TYPE STRING,
DUNN_AREA TYPE STRING,
REBZG TYPE STRING,
REBZJ TYPE STRING,
REBZZ TYPE STRING,
REBZT TYPE STRING,
INSTR1 TYPE STRING,
INSTR2 TYPE STRING,
INSTR3 TYPE STRING,
INSTR4 TYPE STRING,
CESSION_KZ TYPE STRING,
RSTGR TYPE STRING,
DIEKZ TYPE STRING,
ZINKZ TYPE STRING,
FDLEN TYPE STRING,
FDTAG TYPE STRING,
XEGDR TYPE STRING,
HZUON TYPE STRING,
VERTN TYPE STRING,
VERTT TYPE STRING,
VBEWA TYPE STRING,
SAMNR TYPE STRING,
EGRUP TYPE STRING,
BTYPE TYPE STRING,
VNAME TYPE STRING,
VRSKZ TYPE STRING,
VRSDT TYPE STRING,
GEBER TYPE STRING,
FKBER TYPE STRING,
KBLNR TYPE STRING,
KBLPOS TYPE STRING,
ERLKZ TYPE STRING,
FISTL TYPE STRING,
FIPOS TYPE STRING,
IDXSP TYPE STRING,
ACCOUNT_TEXT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_FAGL_S_LINE_ITEM_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_FAGL_S_LINE_ITEM_STR-OBJECT_KEY sy-vline 
WA_FAGL_S_LINE_ITEM_STR-ITEMNO_ACC sy-vline 
WA_FAGL_S_LINE_ITEM_STR-LINETYPE sy-vline 
WA_FAGL_S_LINE_ITEM_STR-CURR_NO sy-vline 
WA_FAGL_S_LINE_ITEM_STR-GL_ACCOUNT sy-vline 
WA_FAGL_S_LINE_ITEM_STR-CURR_TYPE sy-vline 
WA_FAGL_S_LINE_ITEM_STR-CURRENCY_ISO sy-vline 
WA_FAGL_S_LINE_ITEM_STR-AMT_DOCCUR sy-vline 
WA_FAGL_S_LINE_ITEM_STR-SHKZG sy-vline 
WA_FAGL_S_LINE_ITEM_STR-EXCH_RATE sy-vline 
WA_FAGL_S_LINE_ITEM_STR-EXCH_RATE_V sy-vline 
WA_FAGL_S_LINE_ITEM_STR-AMT_BASE sy-vline 
WA_FAGL_S_LINE_ITEM_STR-DISC_BASE sy-vline 
WA_FAGL_S_LINE_ITEM_STR-DISC_AMT sy-vline 
WA_FAGL_S_LINE_ITEM_STR-ITEM_TEXT sy-vline 
WA_FAGL_S_LINE_ITEM_STR-AC_DOC_NO sy-vline 
WA_FAGL_S_LINE_ITEM_STR-REF_KEY_1 sy-vline 
WA_FAGL_S_LINE_ITEM_STR-REF_KEY_2 sy-vline 
WA_FAGL_S_LINE_ITEM_STR-REF_KEY_3 sy-vline 
WA_FAGL_S_LINE_ITEM_STR-ACCT_KEY sy-vline 
WA_FAGL_S_LINE_ITEM_STR-ACCT_TYPE sy-vline 
WA_FAGL_S_LINE_ITEM_STR-DOC_TYPE sy-vline 
WA_FAGL_S_LINE_ITEM_STR-COMP_CODE sy-vline 
WA_FAGL_S_LINE_ITEM_STR-BUS_AREA sy-vline 
WA_FAGL_S_LINE_ITEM_STR-FUNC_AREA sy-vline 
WA_FAGL_S_LINE_ITEM_STR-PLANT sy-vline 
WA_FAGL_S_LINE_ITEM_STR-FIS_PERIOD sy-vline 
WA_FAGL_S_LINE_ITEM_STR-FISC_YEAR sy-vline 
WA_FAGL_S_LINE_ITEM_STR-PSTNG_DATE sy-vline 
WA_FAGL_S_LINE_ITEM_STR-VALUE_DATE sy-vline 
WA_FAGL_S_LINE_ITEM_STR-FM_AREA sy-vline 
WA_FAGL_S_LINE_ITEM_STR-CUSTOMER sy-vline 
WA_FAGL_S_LINE_ITEM_STR-CSHDIS_IND sy-vline 
WA_FAGL_S_LINE_ITEM_STR-VENDOR_NO sy-vline 
WA_FAGL_S_LINE_ITEM_STR-ALLOC_NMBR sy-vline 
WA_FAGL_S_LINE_ITEM_STR-TAX_CODE sy-vline 
WA_FAGL_S_LINE_ITEM_STR-TAXJURCODE sy-vline 
WA_FAGL_S_LINE_ITEM_STR-COSTOBJECT sy-vline 
WA_FAGL_S_LINE_ITEM_STR-COSTCENTER sy-vline 
WA_FAGL_S_LINE_ITEM_STR-ACTTYPE sy-vline 
WA_FAGL_S_LINE_ITEM_STR-PROFIT_CTR sy-vline 
WA_FAGL_S_LINE_ITEM_STR-PART_PRCTR sy-vline 
WA_FAGL_S_LINE_ITEM_STR-NETWORK sy-vline 
WA_FAGL_S_LINE_ITEM_STR-WBS_ELEMENT sy-vline 
WA_FAGL_S_LINE_ITEM_STR-ORDERID sy-vline 
WA_FAGL_S_LINE_ITEM_STR-ORDER_ITNO sy-vline 
WA_FAGL_S_LINE_ITEM_STR-ROUTING_NO sy-vline 
WA_FAGL_S_LINE_ITEM_STR-ACTIVITY sy-vline 
WA_FAGL_S_LINE_ITEM_STR-COND_TYPE sy-vline 
WA_FAGL_S_LINE_ITEM_STR-COND_COUNT sy-vline 
WA_FAGL_S_LINE_ITEM_STR-COND_ST_NO sy-vline 
WA_FAGL_S_LINE_ITEM_STR-FUND sy-vline 
WA_FAGL_S_LINE_ITEM_STR-FUNDS_CTR sy-vline 
WA_FAGL_S_LINE_ITEM_STR-CMMT_ITEM sy-vline 
WA_FAGL_S_LINE_ITEM_STR-CO_BUSPROC sy-vline 
WA_FAGL_S_LINE_ITEM_STR-ASSET_NO sy-vline 
WA_FAGL_S_LINE_ITEM_STR-SUB_NUMBER sy-vline 
WA_FAGL_S_LINE_ITEM_STR-SALES_ORD sy-vline 
WA_FAGL_S_LINE_ITEM_STR-S_ORD_ITEM sy-vline 
WA_FAGL_S_LINE_ITEM_STR-DE_CRE_IND sy-vline 
WA_FAGL_S_LINE_ITEM_STR-QUANTITY sy-vline 
WA_FAGL_S_LINE_ITEM_STR-BASE_UOM sy-vline 
WA_FAGL_S_LINE_ITEM_STR-MATERIAL sy-vline 
WA_FAGL_S_LINE_ITEM_STR-SERIAL_NO sy-vline 
WA_FAGL_S_LINE_ITEM_STR-PART_ACCT sy-vline 
WA_FAGL_S_LINE_ITEM_STR-TR_PART_BA sy-vline 
WA_FAGL_S_LINE_ITEM_STR-TRADE_ID sy-vline 
WA_FAGL_S_LINE_ITEM_STR-VAL_AREA sy-vline 
WA_FAGL_S_LINE_ITEM_STR-VAL_TYPE sy-vline 
WA_FAGL_S_LINE_ITEM_STR-ASVAL_DATE sy-vline 
WA_FAGL_S_LINE_ITEM_STR-PO_NUMBER sy-vline 
WA_FAGL_S_LINE_ITEM_STR-PO_ITEM sy-vline 
WA_FAGL_S_LINE_ITEM_STR-CMMT_ITEM_LONG sy-vline 
WA_FAGL_S_LINE_ITEM_STR-GRANT_NBR sy-vline 
WA_FAGL_S_LINE_ITEM_STR-CURRENCY sy-vline 
WA_FAGL_S_LINE_ITEM_STR-KURSR sy-vline 
WA_FAGL_S_LINE_ITEM_STR-GBETR sy-vline 
WA_FAGL_S_LINE_ITEM_STR-PMNTTRMS sy-vline 
WA_FAGL_S_LINE_ITEM_STR-BLINE_DATE sy-vline 
WA_FAGL_S_LINE_ITEM_STR-DSCT_DAYS1 sy-vline 
WA_FAGL_S_LINE_ITEM_STR-DSCT_DAYS2 sy-vline 
WA_FAGL_S_LINE_ITEM_STR-NETTERMS sy-vline 
WA_FAGL_S_LINE_ITEM_STR-DSCT_PCT1 sy-vline 
WA_FAGL_S_LINE_ITEM_STR-DSCT_PCT2 sy-vline 
WA_FAGL_S_LINE_ITEM_STR-PYMT_METH sy-vline 
WA_FAGL_S_LINE_ITEM_STR-PMTMTHSUPL sy-vline 
WA_FAGL_S_LINE_ITEM_STR-PAYMT_REF sy-vline 
WA_FAGL_S_LINE_ITEM_STR-DUNN_KEY sy-vline 
WA_FAGL_S_LINE_ITEM_STR-DUNN_BLOCK sy-vline 
WA_FAGL_S_LINE_ITEM_STR-PMNT_BLOCK sy-vline 
WA_FAGL_S_LINE_ITEM_STR-VAT_REG_NO sy-vline 
WA_FAGL_S_LINE_ITEM_STR-PARTNER_BK sy-vline 
WA_FAGL_S_LINE_ITEM_STR-SCBANK_IND sy-vline 
WA_FAGL_S_LINE_ITEM_STR-BUSINESSPLACE sy-vline 
WA_FAGL_S_LINE_ITEM_STR-SECTIONCODE sy-vline 
WA_FAGL_S_LINE_ITEM_STR-BRANCH sy-vline 
WA_FAGL_S_LINE_ITEM_STR-PYMT_CUR sy-vline 
WA_FAGL_S_LINE_ITEM_STR-C_CTR_AREA sy-vline 
WA_FAGL_S_LINE_ITEM_STR-BANK_ID sy-vline 
WA_FAGL_S_LINE_ITEM_STR-SUPCOUNTRY sy-vline 
WA_FAGL_S_LINE_ITEM_STR-SP_GL_IND sy-vline 
WA_FAGL_S_LINE_ITEM_STR-ALT_PAYEE sy-vline 
WA_FAGL_S_LINE_ITEM_STR-ALT_PAYEE_BANK sy-vline 
WA_FAGL_S_LINE_ITEM_STR-DUNN_AREA sy-vline 
WA_FAGL_S_LINE_ITEM_STR-REBZG sy-vline 
WA_FAGL_S_LINE_ITEM_STR-REBZJ sy-vline 
WA_FAGL_S_LINE_ITEM_STR-REBZZ sy-vline 
WA_FAGL_S_LINE_ITEM_STR-REBZT sy-vline 
WA_FAGL_S_LINE_ITEM_STR-INSTR1 sy-vline 
WA_FAGL_S_LINE_ITEM_STR-INSTR2 sy-vline 
WA_FAGL_S_LINE_ITEM_STR-INSTR3 sy-vline 
WA_FAGL_S_LINE_ITEM_STR-INSTR4 sy-vline 
WA_FAGL_S_LINE_ITEM_STR-CESSION_KZ sy-vline 
WA_FAGL_S_LINE_ITEM_STR-RSTGR sy-vline 
WA_FAGL_S_LINE_ITEM_STR-DIEKZ sy-vline 
WA_FAGL_S_LINE_ITEM_STR-ZINKZ sy-vline 
WA_FAGL_S_LINE_ITEM_STR-FDLEN sy-vline 
WA_FAGL_S_LINE_ITEM_STR-FDTAG sy-vline 
WA_FAGL_S_LINE_ITEM_STR-XEGDR sy-vline 
WA_FAGL_S_LINE_ITEM_STR-HZUON sy-vline 
WA_FAGL_S_LINE_ITEM_STR-VERTN sy-vline 
WA_FAGL_S_LINE_ITEM_STR-VERTT sy-vline 
WA_FAGL_S_LINE_ITEM_STR-VBEWA sy-vline 
WA_FAGL_S_LINE_ITEM_STR-SAMNR sy-vline 
WA_FAGL_S_LINE_ITEM_STR-EGRUP sy-vline 
WA_FAGL_S_LINE_ITEM_STR-BTYPE sy-vline 
WA_FAGL_S_LINE_ITEM_STR-VNAME sy-vline 
WA_FAGL_S_LINE_ITEM_STR-VRSKZ sy-vline 
WA_FAGL_S_LINE_ITEM_STR-VRSDT sy-vline 
WA_FAGL_S_LINE_ITEM_STR-GEBER sy-vline 
WA_FAGL_S_LINE_ITEM_STR-FKBER sy-vline 
WA_FAGL_S_LINE_ITEM_STR-KBLNR sy-vline 
WA_FAGL_S_LINE_ITEM_STR-KBLPOS sy-vline 
WA_FAGL_S_LINE_ITEM_STR-ERLKZ sy-vline 
WA_FAGL_S_LINE_ITEM_STR-FISTL sy-vline 
WA_FAGL_S_LINE_ITEM_STR-FIPOS sy-vline 
WA_FAGL_S_LINE_ITEM_STR-IDXSP sy-vline 
WA_FAGL_S_LINE_ITEM_STR-ACCOUNT_TEXT sy-vline      INTO ld_text SEPARATED BY SPACE.

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