ABAP Select data from SAP table GACN_STRUCTURE 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 GACN_STRUCTURE 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 GACN_STRUCTURE. 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 GACN_STRUCTURE 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_GACN_STRUCTURE TYPE STANDARD TABLE OF GACN_STRUCTURE,
      WA_GACN_STRUCTURE TYPE GACN_STRUCTURE,
      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: <GACN_STRUCTURE> TYPE GACN_STRUCTURE.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM GACN_STRUCTURE
*  INTO TABLE @DATA(IT_GACN_STRUCTURE2).
*--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_GACN_STRUCTURE INDEX 1 INTO DATA(WA_GACN_STRUCTURE2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<GACN_STRUCTURE>-IDCN_GA_COMMONINFO = 1.
<GACN_STRUCTURE>-F_B_BUKRS = 1.
<GACN_STRUCTURE>-B_CODE = 1.
<GACN_STRUCTURE>-B_DESC = 1.
<GACN_STRUCTURE>-ORG_DESC = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_GACN_STRUCTURE-ORG_CODE, sy-vline,
  WA_GACN_STRUCTURE-ORG_CATG, sy-vline,
  WA_GACN_STRUCTURE-IND_CODE, sy-vline,
  WA_GACN_STRUCTURE-DEV_BY, sy-vline,
  WA_GACN_STRUCTURE-SOFT_REL_VER, sy-vline,
  WA_GACN_STRUCTURE-LOC_CURR, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_GACN_STRUCTURE 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_GACN_STRUCTURE 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_GACN_STRUCTURE INTO WA_GACN_STRUCTURE.


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

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

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

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

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

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

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

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

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

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

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

*Conversion exit AC132, internal->external for field NAFAP_PER
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-NAFAP_PER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-NAFAP_PER.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field KANSW
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-KANSW
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-KANSW.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field KNAFA
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-KNAFA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-KNAFA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field GJA_BCHWRT
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-GJA_BCHWRT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-GJA_BCHWRT.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit GERNR, internal->external for field SERNR
CALL FUNCTION 'CONVERSION_EXIT_GERNR_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-SERNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-SERNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field ANBTR
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-ANBTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-ANBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field KAUFW
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-KAUFW
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-KAUFW.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit AC132, internal->external for field AHPROZ
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-AHPROZ
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-AHPROZ.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field AHPROZ_VALUE
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-AHPROZ_VALUE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-AHPROZ_VALUE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field APC_REDUCE
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-APC_REDUCE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-APC_REDUCE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field NAFAV
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-NAFAV
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-NAFAV.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field NBV_REDUCE
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-NBV_REDUCE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-NBV_REDUCE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field ERLBT
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-ERLBT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-ERLBT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field VERKO
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-VERKO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-VERKO.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field AMOR_REDUCE
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-AMOR_REDUCE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-AMOR_REDUCE.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

*Conversion exit AU132, internal->external for field DMBTR
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-DMBTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-DMBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field WRBTR
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-WRBTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-WRBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field DMBTR_TOT
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-DMBTR_TOT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-DMBTR_TOT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field WRBTR_TOT
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-WRBTR_TOT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-WRBTR_TOT.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

*Conversion exit AC152, internal->external for field ACBAL_DOC_CURR_BG
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-ACBAL_DOC_CURR_BG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-ACBAL_DOC_CURR_BG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field ACBAL_LCL_CURR_BG
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-ACBAL_LCL_CURR_BG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-ACBAL_LCL_CURR_BG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field ACBAL_DR_DOC_CURR
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-ACBAL_DR_DOC_CURR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-ACBAL_DR_DOC_CURR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field ACBAL_DR_LCL_CURR
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-ACBAL_DR_LCL_CURR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-ACBAL_DR_LCL_CURR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field ACBAL_CR_DOC_CURR
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-ACBAL_CR_DOC_CURR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-ACBAL_CR_DOC_CURR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field ACBAL_CR_LCL_CURR
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-ACBAL_CR_LCL_CURR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-ACBAL_CR_LCL_CURR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field ACBAL_DOC_CURR_END
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-ACBAL_DOC_CURR_END
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-ACBAL_DOC_CURR_END.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field ACBAL_LCL_CURR_END
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-ACBAL_LCL_CURR_END
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-ACBAL_LCL_CURR_END.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit AC152, internal->external for field ACDOC_DR_DOC_CURR
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-ACDOC_DR_DOC_CURR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-ACDOC_DR_DOC_CURR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field ACDOC_DR_LCL_CURR
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-ACDOC_DR_LCL_CURR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-ACDOC_DR_LCL_CURR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field ACDOC_CR_DOC_CURR
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-ACDOC_CR_DOC_CURR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-ACDOC_CR_DOC_CURR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field ACDOC_CR_LCL_CURR
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-ACDOC_CR_LCL_CURR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-ACDOC_CR_LCL_CURR.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit AC152, internal->external for field CASH_DOC_CURR
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-CASH_DOC_CURR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-CASH_DOC_CURR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field CASH_DOC_LCL_CURR
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-CASH_DOC_LCL_CURR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-CASH_DOC_LCL_CURR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field USERFIELDNUM1
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-USERFIELDNUM1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-USERFIELDNUM1.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field USERFIELDNUM2
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_GACN_STRUCTURE-USERFIELDNUM2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GACN_STRUCTURE-USERFIELDNUM2.
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_GACN_STRUCTURE_STR, 
IDCN_GA_COMMONINFO TYPE STRING,
F_B_BUKRS TYPE STRING,
B_CODE TYPE STRING,
B_DESC TYPE STRING,
ORG_DESC TYPE STRING,
ORG_CODE TYPE STRING,
ORG_CATG TYPE STRING,
IND_CODE TYPE STRING,
DEV_BY TYPE STRING,
SOFT_REL_VER TYPE STRING,
LOC_CURR TYPE STRING,
FISCAL_YEAR TYPE STRING,
REL_VER TYPE STRING,
FISCAL_PRD TYPE STRING,
PRD_STRAT_DATE TYPE STRING,
PRD_END_DATE TYPE STRING,
DOC_TYPE TYPE STRING,
DOC_DESC TYPE STRING,
DOC_S_DESC TYPE STRING,
ER_TYPE TYPE STRING,
ER_DESC TYPE STRING,
CURR_TYPE TYPE STRING,
CURR_DESC TYPE STRING,
PAY_METHOD TYPE STRING,
PAY_METHOD_DESC TYPE STRING,
DEP_CODE TYPE STRING,
DEP_DESC TYPE STRING,
SUP_CODE TYPE STRING,
EMP_NO TYPE STRING,
EMP_NAME TYPE STRING,
ID_DOC_TYPE TYPE STRING,
ID_DOC_NO TYPE STRING,
GENDER TYPE STRING,
BIRTHDATE TYPE STRING,
DEPT_CODE TYPE STRING,
EMPLOYMENT_START_DATE TYPE STRING,
EMPLOYMENT_END_DATE TYPE STRING,
V_CODE TYPE STRING,
V_DES TYPE STRING,
V_S_DESC TYPE STRING,
CUST_CODE TYPE STRING,
CUST_DESC TYPE STRING,
CUST_S_DESC TYPE STRING,
ARCHIVE_CODE TYPE STRING,
ARCHIVE_NAME TYPE STRING,
ARCHIVE_DESC TYPE STRING,
HIERARCHY TYPE STRING,
ARCHIVE_NUM_RULE TYPE STRING,
ARCHIVE_CODE_V TYPE STRING,
ARCHIVE_VALUE_CODE TYPE STRING,
ARCHIVE_VALUE_NAME TYPE STRING,
ARCHIVE_VALUE_DESC TYPE STRING,
ARCHIVE_VALUE_UPPER_NODE TYPE STRING,
ARCHIVE_VALUE_LEVEL TYPE STRING,
IDCN_GA_FIAAXML TYPE STRING,
BUKRS TYPE STRING,
KTOGR TYPE STRING,
KTANSW TYPE STRING,
KTAUNB TYPE STRING,
KTNAFB TYPE STRING,
ANLKL_CODE TYPE STRING,
ANLKL TYPE STRING,
TXK50 TYPE STRING,
BWAGRP_CN TYPE STRING,
BWATXT TYPE STRING,
ANLN1 TYPE STRING,
ANLN2 TYPE STRING,
TXT50 TYPE STRING,
AKTIV TYPE STRING,
MONAT TYPE STRING,
MSEHT TYPE STRING,
MENGE TYPE STRING,
RAUMN TYPE STRING,
AFATXT TYPE STRING,
AFASL TYPE STRING,
FORMULAE TYPE STRING,
AFPROZ TYPE STRING,
NDPER TYPE STRING,
WAERS TYPE STRING,
WAERS_TEXT TYPE STRING,
NAFAP_PER TYPE STRING,
KANSW TYPE STRING,
KNAFA TYPE STRING,
GJA_BCHWRT TYPE STRING,
KOSTL TYPE STRING,
DEP_RATIO TYPE STRING,
BELNR TYPE STRING,
BUDAT TYPE STRING,
STATUS_CODE TYPE STRING,
STATUS_CODE_TEXT TYPE STRING,
TYPE_CODE TYPE STRING,
TYPE_CODE_TEXT TYPE STRING,
SERNR TYPE STRING,
INVNR TYPE STRING,
TYPBZ TYPE STRING,
ANBTR TYPE STRING,
AFBLPE TYPE STRING,
INKEN TYPE STRING,
KAUFW TYPE STRING,
MEINS_AFASL TYPE STRING,
GSTZAHL TYPE STRING,
STZAHL TYPE STRING,
AHPROZ TYPE STRING,
AHPROZ_VALUE TYPE STRING,
MENGE_ANEK TYPE STRING,
APC_REDUCE TYPE STRING,
NAFAV TYPE STRING,
ZUONR TYPE STRING,
NBV_REDUCE TYPE STRING,
ERLBT TYPE STRING,
VERKO TYPE STRING,
RAUMN_NEW TYPE STRING,
RAUMN_OLD TYPE STRING,
REDUCTION TYPE STRING,
NODE TYPE STRING,
DOCUMENT_ID TYPE STRING,
AMOR_REDUCE TYPE STRING,
IDCN_GA_APAR TYPE STRING,
BUKRS TYPE STRING,
DTCODE TYPE STRING,
DTCODE_D TYPE STRING,
TTCODE TYPE STRING,
TTCODE_D TYPE STRING,
KUNNR TYPE STRING,
LIFNR TYPE STRING,
HKONT TYPE STRING,
BLDAT TYPE STRING,
BUDAT TYPE STRING,
GJAHR TYPE STRING,
MONAT TYPE STRING,
BLART TYPE STRING,
BELNR TYPE STRING,
HWAER TYPE STRING,
KURSF TYPE STRING,
SHKZG TYPE STRING,
DMBTR TYPE STRING,
WRBTR TYPE STRING,
DMBTR_TOT TYPE STRING,
DOC_CURR TYPE STRING,
WRBTR_TOT TYPE STRING,
SGTXT TYPE STRING,
VALUT TYPE STRING,
AUGBL TYPE STRING,
AUGDT_CLR TYPE STRING,
DTCODE1 TYPE STRING,
TTCODE1 TYPE STRING,
VBELN TYPE STRING,
XBLNR TYPE STRING,
VBELN_VA TYPE STRING,
EBELN TYPE STRING,
ZLSCH TYPE STRING,
AUGDT TYPE STRING,
CLFLAG TYPE STRING,
BOENUM TYPE STRING,
DUMAR TYPE STRING,
DUMAP TYPE STRING,
WAERS TYPE STRING,
IDCN_GA_GL TYPE STRING,
BUKRS TYPE STRING,
GL_AC_R TYPE STRING,
CH_NUM_R TYPE STRING,
DOCHDREXFSTR TYPE STRING,
DOCHDREXFARV TYPE STRING,
DOCITMEXFSTR TYPE STRING,
DOCITMEXFARV TYPE STRING,
HKONT TYPE STRING,
TXT50_SKAT TYPE STRING,
GL_ACC_LEVEL TYPE STRING,
GL_CAT TYPE STRING,
SHKZG TYPE STRING,
SUB_HKONT TYPE STRING,
SUB_NUMB TYPE STRING,
SUB_ITEM_DESC TYPE STRING,
SUB_ARHV TYPE STRING,
SUB_ITEM_DESC1 TYPE STRING,
CASH_ITM_CODE TYPE STRING,
CASH_ITM_NAME TYPE STRING,
CASH_ITM_DESC TYPE STRING,
CASH_LEVEL TYPE STRING,
CASH_LEVEL_ITEM TYPE STRING,
CASH_UP_CODE TYPE STRING,
CASH_DATA_SRC TYPE STRING,
CASH_ITM_ATTR TYPE STRING,
ACBAL_HKONT TYPE STRING,
ACBAL_SUB1 TYPE STRING,
ACBAL_SUB2 TYPE STRING,
ACBAL_SUB3 TYPE STRING,
ACBAL_SUB4 TYPE STRING,
ACBAL_SUB5 TYPE STRING,
ACBAL_SUB6 TYPE STRING,
ACBAL_SUB7 TYPE STRING,
ACBAL_SUB8 TYPE STRING,
ACBAL_SUB9 TYPE STRING,
ACBAL_SUB10 TYPE STRING,
ACBAL_SUB11 TYPE STRING,
ACBAL_SUB12 TYPE STRING,
ACBAL_SUB13 TYPE STRING,
ACBAL_SUB14 TYPE STRING,
ACBAL_SUB15 TYPE STRING,
ACBAL_SUB16 TYPE STRING,
ACBAL_SUB17 TYPE STRING,
ACBAL_SUB18 TYPE STRING,
ACBAL_SUB19 TYPE STRING,
ACBAL_SUB20 TYPE STRING,
ACBAL_SUB21 TYPE STRING,
ACBAL_SUB22 TYPE STRING,
ACBAL_SUB23 TYPE STRING,
ACBAL_SUB24 TYPE STRING,
ACBAL_SUB25 TYPE STRING,
ACBAL_SUB26 TYPE STRING,
ACBAL_SUB27 TYPE STRING,
ACBAL_SUB28 TYPE STRING,
ACBAL_SUB29 TYPE STRING,
ACBAL_SUB30 TYPE STRING,
ACBAL_SHKZG_PRD_SRT TYPE STRING,
ACBAL_SHKZG_PRD_END TYPE STRING,
ACBAL_CURR_CODE TYPE STRING,
ACBAL_UNIT_MSR TYPE STRING,
ACBAL_GJAHR TYPE STRING,
ACBAL_MONAT TYPE STRING,
ACBAL_PRD_BEG_QUAN TYPE STRING,
ACBAL_DOC_CURR_BG TYPE STRING,
ACBAL_LCL_CURR_BG TYPE STRING,
ACBAL_DR_QUAN TYPE STRING,
ACBAL_DR_DOC_CURR TYPE STRING,
ACBAL_DR_LCL_CURR TYPE STRING,
ACBAL_CR_QUAN TYPE STRING,
ACBAL_CR_DOC_CURR TYPE STRING,
ACBAL_CR_LCL_CURR TYPE STRING,
ACBAL_PRD_END_QUAN TYPE STRING,
ACBAL_DOC_CURR_END TYPE STRING,
ACBAL_LCL_CURR_END TYPE STRING,
ACDOC_BUDAT TYPE STRING,
ACDOC_GJAHR TYPE STRING,
ACDOC_MONAT TYPE STRING,
ACDOC_BLART TYPE STRING,
ACDOC_BELNR TYPE STRING,
ACDOC_BUZEI TYPE STRING,
ACDOC_BKTXT TYPE STRING,
ACDOC_HKONT TYPE STRING,
ACDOC_SUB1 TYPE STRING,
ACDOC_SUB2 TYPE STRING,
ACDOC_SUB3 TYPE STRING,
ACDOC_SUB4 TYPE STRING,
ACDOC_SUB5 TYPE STRING,
ACDOC_SUB6 TYPE STRING,
ACDOC_SUB7 TYPE STRING,
ACDOC_SUB8 TYPE STRING,
ACDOC_SUB9 TYPE STRING,
ACDOC_SUB10 TYPE STRING,
ACDOC_SUB11 TYPE STRING,
ACDOC_SUB12 TYPE STRING,
ACDOC_SUB13 TYPE STRING,
ACDOC_SUB14 TYPE STRING,
ACDOC_SUB15 TYPE STRING,
ACDOC_SUB16 TYPE STRING,
ACDOC_SUB17 TYPE STRING,
ACDOC_SUB18 TYPE STRING,
ACDOC_SUB19 TYPE STRING,
ACDOC_SUB20 TYPE STRING,
ACDOC_SUB21 TYPE STRING,
ACDOC_SUB22 TYPE STRING,
ACDOC_SUB23 TYPE STRING,
ACDOC_SUB24 TYPE STRING,
ACDOC_SUB25 TYPE STRING,
ACDOC_SUB26 TYPE STRING,
ACDOC_SUB27 TYPE STRING,
ACDOC_SUB28 TYPE STRING,
ACDOC_SUB29 TYPE STRING,
ACDOC_SUB30 TYPE STRING,
ACDOC_CURR_CODE TYPE STRING,
ACDOC_UNIT_MSR TYPE STRING,
ACDOC_DR_QUAN TYPE STRING,
ACDOC_DR_DOC_CURR TYPE STRING,
ACDOC_DR_LCL_CURR TYPE STRING,
ACDOC_CR_QUAN TYPE STRING,
ACDOC_CR_DOC_CURR TYPE STRING,
ACDOC_CR_LCL_CURR TYPE STRING,
ACDOC_EXG_CODE TYPE STRING,
ACDOC_EXG_RATE TYPE STRING,
ACDOC_UNT_PRC TYPE STRING,
ACDOC_FLX_HDR TYPE STRING,
ACDOC_FLX_ITM TYPE STRING,
ACDOC_PYMT_MTHD TYPE STRING,
ACDOC_ORIG_DOC TYPE STRING,
ACDOC_ORIG_NUM TYPE STRING,
ACDOC_ORIG_BUDAT TYPE STRING,
ACDOC_ATH_QTY TYPE STRING,
ACDOC_DOC_CTR TYPE STRING,
ACDOC_DOC_RCV TYPE STRING,
ACDOC_DOC_BK_KPR TYPE STRING,
ACDOC_POSTED TYPE STRING,
ACDOC_CANCELLED TYPE STRING,
ACDOC_SRC_APPL TYPE STRING,
CASH_DOC_TYP TYPE STRING,
CASH_DOC_NUMBER TYPE STRING,
CASH_DOC_CURR_CODE TYPE STRING,
CASH_DOC_STM_NUM TYPE STRING,
CASH_DOC_ABST TYPE STRING,
CASH_DOC_ITM_CODE TYPE STRING,
CASH_DOC_ITM_ATTR TYPE STRING,
CASH_DOC_CURR TYPE STRING,
CASH_DOC_LCL_CURR TYPE STRING,
REP_CODE TYPE STRING,
REP_NAME TYPE STRING,
REP_DATE TYPE STRING,
REP_PRD TYPE STRING,
REP_BUSS_ETY TYPE STRING,
REP_CURR_UT TYPE STRING,
REP_ITM_CODE TYPE STRING,
REP_ITM_CODE_ITEM TYPE STRING,
REP_ITEM_DT_ELMT TYPE STRING,
REP_ITM_FRML TYPE STRING,
REP_ITM_AMT TYPE STRING,
WAERS TYPE STRING,
USER_FIELD_1 TYPE STRING,
USER_FIELD_2 TYPE STRING,
USER_FIELD_3 TYPE STRING,
USER_FIELD_4 TYPE STRING,
USER_FIELD_A TYPE STRING,
USER_FIELD_B TYPE STRING,
USERFIELDNUM1 TYPE STRING,
USERFIELDNUM2 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_GACN_STRUCTURE_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_GACN_STRUCTURE_STR-IDCN_GA_COMMONINFO sy-vline 
WA_GACN_STRUCTURE_STR-F_B_BUKRS sy-vline 
WA_GACN_STRUCTURE_STR-B_CODE sy-vline 
WA_GACN_STRUCTURE_STR-B_DESC sy-vline 
WA_GACN_STRUCTURE_STR-ORG_DESC sy-vline 
WA_GACN_STRUCTURE_STR-ORG_CODE sy-vline 
WA_GACN_STRUCTURE_STR-ORG_CATG sy-vline 
WA_GACN_STRUCTURE_STR-IND_CODE sy-vline 
WA_GACN_STRUCTURE_STR-DEV_BY sy-vline 
WA_GACN_STRUCTURE_STR-SOFT_REL_VER sy-vline 
WA_GACN_STRUCTURE_STR-LOC_CURR sy-vline 
WA_GACN_STRUCTURE_STR-FISCAL_YEAR sy-vline 
WA_GACN_STRUCTURE_STR-REL_VER sy-vline 
WA_GACN_STRUCTURE_STR-FISCAL_PRD sy-vline 
WA_GACN_STRUCTURE_STR-PRD_STRAT_DATE sy-vline 
WA_GACN_STRUCTURE_STR-PRD_END_DATE sy-vline 
WA_GACN_STRUCTURE_STR-DOC_TYPE sy-vline 
WA_GACN_STRUCTURE_STR-DOC_DESC sy-vline 
WA_GACN_STRUCTURE_STR-DOC_S_DESC sy-vline 
WA_GACN_STRUCTURE_STR-ER_TYPE sy-vline 
WA_GACN_STRUCTURE_STR-ER_DESC sy-vline 
WA_GACN_STRUCTURE_STR-CURR_TYPE sy-vline 
WA_GACN_STRUCTURE_STR-CURR_DESC sy-vline 
WA_GACN_STRUCTURE_STR-PAY_METHOD sy-vline 
WA_GACN_STRUCTURE_STR-PAY_METHOD_DESC sy-vline 
WA_GACN_STRUCTURE_STR-DEP_CODE sy-vline 
WA_GACN_STRUCTURE_STR-DEP_DESC sy-vline 
WA_GACN_STRUCTURE_STR-SUP_CODE sy-vline 
WA_GACN_STRUCTURE_STR-EMP_NO sy-vline 
WA_GACN_STRUCTURE_STR-EMP_NAME sy-vline 
WA_GACN_STRUCTURE_STR-ID_DOC_TYPE sy-vline 
WA_GACN_STRUCTURE_STR-ID_DOC_NO sy-vline 
WA_GACN_STRUCTURE_STR-GENDER sy-vline 
WA_GACN_STRUCTURE_STR-BIRTHDATE sy-vline 
WA_GACN_STRUCTURE_STR-DEPT_CODE sy-vline 
WA_GACN_STRUCTURE_STR-EMPLOYMENT_START_DATE sy-vline 
WA_GACN_STRUCTURE_STR-EMPLOYMENT_END_DATE sy-vline 
WA_GACN_STRUCTURE_STR-V_CODE sy-vline 
WA_GACN_STRUCTURE_STR-V_DES sy-vline 
WA_GACN_STRUCTURE_STR-V_S_DESC sy-vline 
WA_GACN_STRUCTURE_STR-CUST_CODE sy-vline 
WA_GACN_STRUCTURE_STR-CUST_DESC sy-vline 
WA_GACN_STRUCTURE_STR-CUST_S_DESC sy-vline 
WA_GACN_STRUCTURE_STR-ARCHIVE_CODE sy-vline 
WA_GACN_STRUCTURE_STR-ARCHIVE_NAME sy-vline 
WA_GACN_STRUCTURE_STR-ARCHIVE_DESC sy-vline 
WA_GACN_STRUCTURE_STR-HIERARCHY sy-vline 
WA_GACN_STRUCTURE_STR-ARCHIVE_NUM_RULE sy-vline 
WA_GACN_STRUCTURE_STR-ARCHIVE_CODE_V sy-vline 
WA_GACN_STRUCTURE_STR-ARCHIVE_VALUE_CODE sy-vline 
WA_GACN_STRUCTURE_STR-ARCHIVE_VALUE_NAME sy-vline 
WA_GACN_STRUCTURE_STR-ARCHIVE_VALUE_DESC sy-vline 
WA_GACN_STRUCTURE_STR-ARCHIVE_VALUE_UPPER_NODE sy-vline 
WA_GACN_STRUCTURE_STR-ARCHIVE_VALUE_LEVEL sy-vline 
WA_GACN_STRUCTURE_STR-IDCN_GA_FIAAXML sy-vline 
WA_GACN_STRUCTURE_STR-BUKRS sy-vline 
WA_GACN_STRUCTURE_STR-KTOGR sy-vline 
WA_GACN_STRUCTURE_STR-KTANSW sy-vline 
WA_GACN_STRUCTURE_STR-KTAUNB sy-vline 
WA_GACN_STRUCTURE_STR-KTNAFB sy-vline 
WA_GACN_STRUCTURE_STR-ANLKL_CODE sy-vline 
WA_GACN_STRUCTURE_STR-ANLKL sy-vline 
WA_GACN_STRUCTURE_STR-TXK50 sy-vline 
WA_GACN_STRUCTURE_STR-BWAGRP_CN sy-vline 
WA_GACN_STRUCTURE_STR-BWATXT sy-vline 
WA_GACN_STRUCTURE_STR-ANLN1 sy-vline 
WA_GACN_STRUCTURE_STR-ANLN2 sy-vline 
WA_GACN_STRUCTURE_STR-TXT50 sy-vline 
WA_GACN_STRUCTURE_STR-AKTIV sy-vline 
WA_GACN_STRUCTURE_STR-MONAT sy-vline 
WA_GACN_STRUCTURE_STR-MSEHT sy-vline 
WA_GACN_STRUCTURE_STR-MENGE sy-vline 
WA_GACN_STRUCTURE_STR-RAUMN sy-vline 
WA_GACN_STRUCTURE_STR-AFATXT sy-vline 
WA_GACN_STRUCTURE_STR-AFASL sy-vline 
WA_GACN_STRUCTURE_STR-FORMULAE sy-vline 
WA_GACN_STRUCTURE_STR-AFPROZ sy-vline 
WA_GACN_STRUCTURE_STR-NDPER sy-vline 
WA_GACN_STRUCTURE_STR-WAERS sy-vline 
WA_GACN_STRUCTURE_STR-WAERS_TEXT sy-vline 
WA_GACN_STRUCTURE_STR-NAFAP_PER sy-vline 
WA_GACN_STRUCTURE_STR-KANSW sy-vline 
WA_GACN_STRUCTURE_STR-KNAFA sy-vline 
WA_GACN_STRUCTURE_STR-GJA_BCHWRT sy-vline 
WA_GACN_STRUCTURE_STR-KOSTL sy-vline 
WA_GACN_STRUCTURE_STR-DEP_RATIO sy-vline 
WA_GACN_STRUCTURE_STR-BELNR sy-vline 
WA_GACN_STRUCTURE_STR-BUDAT sy-vline 
WA_GACN_STRUCTURE_STR-STATUS_CODE sy-vline 
WA_GACN_STRUCTURE_STR-STATUS_CODE_TEXT sy-vline 
WA_GACN_STRUCTURE_STR-TYPE_CODE sy-vline 
WA_GACN_STRUCTURE_STR-TYPE_CODE_TEXT sy-vline 
WA_GACN_STRUCTURE_STR-SERNR sy-vline 
WA_GACN_STRUCTURE_STR-INVNR sy-vline 
WA_GACN_STRUCTURE_STR-TYPBZ sy-vline 
WA_GACN_STRUCTURE_STR-ANBTR sy-vline 
WA_GACN_STRUCTURE_STR-AFBLPE sy-vline 
WA_GACN_STRUCTURE_STR-INKEN sy-vline 
WA_GACN_STRUCTURE_STR-KAUFW sy-vline 
WA_GACN_STRUCTURE_STR-MEINS_AFASL sy-vline 
WA_GACN_STRUCTURE_STR-GSTZAHL sy-vline 
WA_GACN_STRUCTURE_STR-STZAHL sy-vline 
WA_GACN_STRUCTURE_STR-AHPROZ sy-vline 
WA_GACN_STRUCTURE_STR-AHPROZ_VALUE sy-vline 
WA_GACN_STRUCTURE_STR-MENGE_ANEK sy-vline 
WA_GACN_STRUCTURE_STR-APC_REDUCE sy-vline 
WA_GACN_STRUCTURE_STR-NAFAV sy-vline 
WA_GACN_STRUCTURE_STR-ZUONR sy-vline 
WA_GACN_STRUCTURE_STR-NBV_REDUCE sy-vline 
WA_GACN_STRUCTURE_STR-ERLBT sy-vline 
WA_GACN_STRUCTURE_STR-VERKO sy-vline 
WA_GACN_STRUCTURE_STR-RAUMN_NEW sy-vline 
WA_GACN_STRUCTURE_STR-RAUMN_OLD sy-vline 
WA_GACN_STRUCTURE_STR-REDUCTION sy-vline 
WA_GACN_STRUCTURE_STR-NODE sy-vline 
WA_GACN_STRUCTURE_STR-DOCUMENT_ID sy-vline 
WA_GACN_STRUCTURE_STR-AMOR_REDUCE sy-vline 
WA_GACN_STRUCTURE_STR-IDCN_GA_APAR sy-vline 
WA_GACN_STRUCTURE_STR-BUKRS sy-vline 
WA_GACN_STRUCTURE_STR-DTCODE sy-vline 
WA_GACN_STRUCTURE_STR-DTCODE_D sy-vline 
WA_GACN_STRUCTURE_STR-TTCODE sy-vline 
WA_GACN_STRUCTURE_STR-TTCODE_D sy-vline 
WA_GACN_STRUCTURE_STR-KUNNR sy-vline 
WA_GACN_STRUCTURE_STR-LIFNR sy-vline 
WA_GACN_STRUCTURE_STR-HKONT sy-vline 
WA_GACN_STRUCTURE_STR-BLDAT sy-vline 
WA_GACN_STRUCTURE_STR-BUDAT sy-vline 
WA_GACN_STRUCTURE_STR-GJAHR sy-vline 
WA_GACN_STRUCTURE_STR-MONAT sy-vline 
WA_GACN_STRUCTURE_STR-BLART sy-vline 
WA_GACN_STRUCTURE_STR-BELNR sy-vline 
WA_GACN_STRUCTURE_STR-HWAER sy-vline 
WA_GACN_STRUCTURE_STR-KURSF sy-vline 
WA_GACN_STRUCTURE_STR-SHKZG sy-vline 
WA_GACN_STRUCTURE_STR-DMBTR sy-vline 
WA_GACN_STRUCTURE_STR-WRBTR sy-vline 
WA_GACN_STRUCTURE_STR-DMBTR_TOT sy-vline 
WA_GACN_STRUCTURE_STR-DOC_CURR sy-vline 
WA_GACN_STRUCTURE_STR-WRBTR_TOT sy-vline 
WA_GACN_STRUCTURE_STR-SGTXT sy-vline 
WA_GACN_STRUCTURE_STR-VALUT sy-vline 
WA_GACN_STRUCTURE_STR-AUGBL sy-vline 
WA_GACN_STRUCTURE_STR-AUGDT_CLR sy-vline 
WA_GACN_STRUCTURE_STR-DTCODE1 sy-vline 
WA_GACN_STRUCTURE_STR-TTCODE1 sy-vline 
WA_GACN_STRUCTURE_STR-VBELN sy-vline 
WA_GACN_STRUCTURE_STR-XBLNR sy-vline 
WA_GACN_STRUCTURE_STR-VBELN_VA sy-vline 
WA_GACN_STRUCTURE_STR-EBELN sy-vline 
WA_GACN_STRUCTURE_STR-ZLSCH sy-vline 
WA_GACN_STRUCTURE_STR-AUGDT sy-vline 
WA_GACN_STRUCTURE_STR-CLFLAG sy-vline 
WA_GACN_STRUCTURE_STR-BOENUM sy-vline 
WA_GACN_STRUCTURE_STR-DUMAR sy-vline 
WA_GACN_STRUCTURE_STR-DUMAP sy-vline 
WA_GACN_STRUCTURE_STR-WAERS sy-vline 
WA_GACN_STRUCTURE_STR-IDCN_GA_GL sy-vline 
WA_GACN_STRUCTURE_STR-BUKRS sy-vline 
WA_GACN_STRUCTURE_STR-GL_AC_R sy-vline 
WA_GACN_STRUCTURE_STR-CH_NUM_R sy-vline 
WA_GACN_STRUCTURE_STR-DOCHDREXFSTR sy-vline 
WA_GACN_STRUCTURE_STR-DOCHDREXFARV sy-vline 
WA_GACN_STRUCTURE_STR-DOCITMEXFSTR sy-vline 
WA_GACN_STRUCTURE_STR-DOCITMEXFARV sy-vline 
WA_GACN_STRUCTURE_STR-HKONT sy-vline 
WA_GACN_STRUCTURE_STR-TXT50_SKAT sy-vline 
WA_GACN_STRUCTURE_STR-GL_ACC_LEVEL sy-vline 
WA_GACN_STRUCTURE_STR-GL_CAT sy-vline 
WA_GACN_STRUCTURE_STR-SHKZG sy-vline 
WA_GACN_STRUCTURE_STR-SUB_HKONT sy-vline 
WA_GACN_STRUCTURE_STR-SUB_NUMB sy-vline 
WA_GACN_STRUCTURE_STR-SUB_ITEM_DESC sy-vline 
WA_GACN_STRUCTURE_STR-SUB_ARHV sy-vline 
WA_GACN_STRUCTURE_STR-SUB_ITEM_DESC1 sy-vline 
WA_GACN_STRUCTURE_STR-CASH_ITM_CODE sy-vline 
WA_GACN_STRUCTURE_STR-CASH_ITM_NAME sy-vline 
WA_GACN_STRUCTURE_STR-CASH_ITM_DESC sy-vline 
WA_GACN_STRUCTURE_STR-CASH_LEVEL sy-vline 
WA_GACN_STRUCTURE_STR-CASH_LEVEL_ITEM sy-vline 
WA_GACN_STRUCTURE_STR-CASH_UP_CODE sy-vline 
WA_GACN_STRUCTURE_STR-CASH_DATA_SRC sy-vline 
WA_GACN_STRUCTURE_STR-CASH_ITM_ATTR sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_HKONT sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB1 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB2 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB3 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB4 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB5 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB6 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB7 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB8 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB9 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB10 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB11 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB12 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB13 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB14 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB15 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB16 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB17 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB18 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB19 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB20 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB21 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB22 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB23 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB24 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB25 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB26 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB27 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB28 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB29 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SUB30 sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SHKZG_PRD_SRT sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_SHKZG_PRD_END sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_CURR_CODE sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_UNIT_MSR sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_GJAHR sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_MONAT sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_PRD_BEG_QUAN sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_DOC_CURR_BG sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_LCL_CURR_BG sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_DR_QUAN sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_DR_DOC_CURR sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_DR_LCL_CURR sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_CR_QUAN sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_CR_DOC_CURR sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_CR_LCL_CURR sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_PRD_END_QUAN sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_DOC_CURR_END sy-vline 
WA_GACN_STRUCTURE_STR-ACBAL_LCL_CURR_END sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_BUDAT sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_GJAHR sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_MONAT sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_BLART sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_BELNR sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_BUZEI sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_BKTXT sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_HKONT sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB1 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB2 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB3 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB4 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB5 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB6 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB7 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB8 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB9 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB10 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB11 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB12 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB13 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB14 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB15 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB16 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB17 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB18 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB19 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB20 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB21 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB22 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB23 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB24 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB25 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB26 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB27 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB28 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB29 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SUB30 sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_CURR_CODE sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_UNIT_MSR sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_DR_QUAN sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_DR_DOC_CURR sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_DR_LCL_CURR sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_CR_QUAN sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_CR_DOC_CURR sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_CR_LCL_CURR sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_EXG_CODE sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_EXG_RATE sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_UNT_PRC sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_FLX_HDR sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_FLX_ITM sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_PYMT_MTHD sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_ORIG_DOC sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_ORIG_NUM sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_ORIG_BUDAT sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_ATH_QTY sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_DOC_CTR sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_DOC_RCV sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_DOC_BK_KPR sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_POSTED sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_CANCELLED sy-vline 
WA_GACN_STRUCTURE_STR-ACDOC_SRC_APPL sy-vline 
WA_GACN_STRUCTURE_STR-CASH_DOC_TYP sy-vline 
WA_GACN_STRUCTURE_STR-CASH_DOC_NUMBER sy-vline 
WA_GACN_STRUCTURE_STR-CASH_DOC_CURR_CODE sy-vline 
WA_GACN_STRUCTURE_STR-CASH_DOC_STM_NUM sy-vline 
WA_GACN_STRUCTURE_STR-CASH_DOC_ABST sy-vline 
WA_GACN_STRUCTURE_STR-CASH_DOC_ITM_CODE sy-vline 
WA_GACN_STRUCTURE_STR-CASH_DOC_ITM_ATTR sy-vline 
WA_GACN_STRUCTURE_STR-CASH_DOC_CURR sy-vline 
WA_GACN_STRUCTURE_STR-CASH_DOC_LCL_CURR sy-vline 
WA_GACN_STRUCTURE_STR-REP_CODE sy-vline 
WA_GACN_STRUCTURE_STR-REP_NAME sy-vline 
WA_GACN_STRUCTURE_STR-REP_DATE sy-vline 
WA_GACN_STRUCTURE_STR-REP_PRD sy-vline 
WA_GACN_STRUCTURE_STR-REP_BUSS_ETY sy-vline 
WA_GACN_STRUCTURE_STR-REP_CURR_UT sy-vline 
WA_GACN_STRUCTURE_STR-REP_ITM_CODE sy-vline 
WA_GACN_STRUCTURE_STR-REP_ITM_CODE_ITEM sy-vline 
WA_GACN_STRUCTURE_STR-REP_ITEM_DT_ELMT sy-vline 
WA_GACN_STRUCTURE_STR-REP_ITM_FRML sy-vline 
WA_GACN_STRUCTURE_STR-REP_ITM_AMT sy-vline 
WA_GACN_STRUCTURE_STR-WAERS sy-vline 
WA_GACN_STRUCTURE_STR-USER_FIELD_1 sy-vline 
WA_GACN_STRUCTURE_STR-USER_FIELD_2 sy-vline 
WA_GACN_STRUCTURE_STR-USER_FIELD_3 sy-vline 
WA_GACN_STRUCTURE_STR-USER_FIELD_4 sy-vline 
WA_GACN_STRUCTURE_STR-USER_FIELD_A sy-vline 
WA_GACN_STRUCTURE_STR-USER_FIELD_B sy-vline 
WA_GACN_STRUCTURE_STR-USERFIELDNUM1 sy-vline 
WA_GACN_STRUCTURE_STR-USERFIELDNUM2 sy-vline      INTO ld_text SEPARATED BY SPACE.

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