ABAP Select data from SAP table /ACCGO/CAK_S_CONTRACT_HDR_BUFR into internal table

Get Example source ABAP code based on a different SAP table
  

Below is a number of ABAP code snippets to demonstrate how to select data from SAP /ACCGO/CAK_S_CONTRACT_HDR_BUFR 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 /ACCGO/CAK_S_CONTRACT_HDR_BUFR. 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 /ACCGO/CAK_S_CONTRACT_HDR_BUFR 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_/ACCGO/CAK_S_CONTRACT_HDR_BUFR TYPE STANDARD TABLE OF /ACCGO/CAK_S_CONTRACT_HDR_BUFR,
      WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR TYPE /ACCGO/CAK_S_CONTRACT_HDR_BUFR,
      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: </ACCGO/CAK_S_CONTRACT_HDR_BUFR> TYPE /ACCGO/CAK_S_CONTRACT_HDR_BUFR.

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

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM /ACCGO/CAK_S_CONTRACT_HDR_BUFR
  INTO TABLE IT_/ACCGO/CAK_S_CONTRACT_HDR_BUFR.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM /ACCGO/CAK_S_CONTRACT_HDR_BUFR
*  INTO TABLE @DATA(IT_/ACCGO/CAK_S_CONTRACT_HDR_BUFR2).
*--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_/ACCGO/CAK_S_CONTRACT_HDR_BUFR INDEX 1 INTO DATA(WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_/ACCGO/CAK_S_CONTRACT_HDR_BUFR ASSIGNING </ACCGO/CAK_S_CONTRACT_HDR_BUFR>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
</ACCGO/CAK_S_CONTRACT_HDR_BUFR>-TKONN = 1.
</ACCGO/CAK_S_CONTRACT_HDR_BUFR>-KOMWBHK = 1.
</ACCGO/CAK_S_CONTRACT_HDR_BUFR>-MANDT = 1.
</ACCGO/CAK_S_CONTRACT_HDR_BUFR>-TKONN = 1.
</ACCGO/CAK_S_CONTRACT_HDR_BUFR>-TCTYP = 1.
ENDLOOP.

LOOP AT IT_/ACCGO/CAK_S_CONTRACT_HDR_BUFR INTO WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR-KUNNR, sy-vline,
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR-BTBSTA, sy-vline,
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR-TKWAERS, sy-vline,
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR-TKRATE, sy-vline,
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR-ERNAM, sy-vline,
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR-ERDAT, sy-vline.
ENDLOOP. *Add any further fields from structure WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR 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_/ACCGO/CAK_S_CONTRACT_HDR_BUFR 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_/ACCGO/CAK_S_CONTRACT_HDR_BUFR INTO WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR. *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 TKONN CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR-TKONN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR-TKONN.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

*Conversion exit AUART, internal->external for field AUART CALL FUNCTION 'CONVERSION_EXIT_AUART_OUTPUT' EXPORTING input = WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR-AUART IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR-AUART.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit ABPSP, internal->external for field PS_PSP_PNR CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT' EXPORTING input = WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR-PS_PSP_PNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR-PS_PSP_PNR.
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_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR,
TKONN TYPE STRING,
KOMWBHK TYPE STRING,
MANDT TYPE STRING,
TKONN TYPE STRING,
TCTYP TYPE STRING,
KUNNR TYPE STRING,
BTBSTA TYPE STRING,
TKWAERS TYPE STRING,
TKRATE TYPE STRING,
ERNAM TYPE STRING,
ERDAT TYPE STRING,
ERZEIT TYPE STRING,
AENAM TYPE STRING,
AEDAT TYPE STRING,
AEZEIT TYPE STRING,
VKORG TYPE STRING,
VTWEG TYPE STRING,
SPART TYPE STRING,
TKSACHB TYPE STRING,
BSTNK TYPE STRING,
BSTDK TYPE STRING,
SDWRS TYPE STRING,
TKRATE_SD TYPE STRING,
KURST_SD TYPE STRING,
BUDAT TYPE STRING,
PRSDT_SD TYPE STRING,
KURST TYPE STRING,
AUGRU TYPE STRING,
ABSSC TYPE STRING,
LCNUM TYPE STRING,
AKPRZ TYPE STRING,
LOGSYS TYPE STRING,
AUDAT TYPE STRING,
EXNUM TYPE STRING,
FT_HEADER_COM TYPE STRING,
COMPLETE TYPE STRING,
ANGDT_SD TYPE STRING,
BNDDT_SD TYPE STRING,
SUBMI_SD TYPE STRING,
LIFSK_SD TYPE STRING,
FAKSK_SD TYPE STRING,
NETWR_SD TYPE STRING,
VKGRP TYPE STRING,
VKBUR TYPE STRING,
AUTLF_SD TYPE STRING,
VSBED_SD TYPE STRING,
BSARK_SD TYPE STRING,
BSTZD_SD TYPE STRING,
IHREZ_SD TYPE STRING,
BNAME_SD TYPE STRING,
TELF1_SD TYPE STRING,
MAHZA_SD TYPE STRING,
MAHDT_SD TYPE STRING,
TAXK1_SD TYPE STRING,
TAXK2_SD TYPE STRING,
TAXK3_SD TYPE STRING,
TAXK4_SD TYPE STRING,
TAXK5_SD TYPE STRING,
TAXK6_SD TYPE STRING,
TAXK7_SD TYPE STRING,
TAXK8_SD TYPE STRING,
TAXK9_SD TYPE STRING,
XBLNR_SD TYPE STRING,
VBTYP_SD TYPE STRING,
STCEG_L_SD TYPE STRING,
ANDTX_SD TYPE STRING,
KVGR1_SD TYPE STRING,
KVGR2_SD TYPE STRING,
KVGR3_SD TYPE STRING,
KVGR4_SD TYPE STRING,
KVGR5_SD TYPE STRING,
AUART TYPE STRING,
QUAN_COMPLETE TYPE STRING,
KOKRS TYPE STRING,
KKBER TYPE STRING,
KNKLI TYPE STRING,
GRUPP TYPE STRING,
SBGRP TYPE STRING,
CTLPC TYPE STRING,
CMWAE TYPE STRING,
CMFRE TYPE STRING,
CMNUP TYPE STRING,
CMNGV TYPE STRING,
AMTBL TYPE STRING,
LFSPG TYPE STRING,
WKURS_DAT TYPE STRING,
WBPCH TYPE STRING,
KURRF TYPE STRING,
TC_RELEASED TYPE STRING,
TKONN_EX TYPE STRING,
TCCAT TYPE STRING,
WE_KUNNR TYPE STRING,
STCEG_L TYPE STRING,
LANDTX TYPE STRING,
XEGDR TYPE STRING,
USE_CASE TYPE STRING,
_DATAAGING TYPE STRING,
DUMMY_WBHK_INCL_EEW_PS TYPE STRING,
TEW_TYPE TYPE STRING,
SUCC_ARCH TYPE STRING,
ABRVW TYPE STRING,
KNUMV_SD TYPE STRING,
PRICING_TYPE TYPE STRING,
KALSM_SD TYPE STRING,
PS_PSP_PNR TYPE STRING,
LAST_CHANGE_UUID TYPE STRING,
CREATED_FROM TYPE STRING,
COMPANY_CODE TYPE STRING,
GUEBG TYPE STRING,
GUEEN TYPE STRING,
CONSOL_IT_EXIST TYPE STRING,
SET_VARIANT TYPE STRING,
IN_APPROVAL TYPE STRING,
CONSOL_EMCSI TYPE STRING,
CONSOL_SLCSI TYPE STRING,
CONSOL_LCCSI TYPE STRING,
CONSOL_EMCSO TYPE STRING,
CONSOL_SLCSO TYPE STRING,
CONSOL_LCCSO TYPE STRING,
KALSM_CH TYPE STRING,
PURPOSE TYPE STRING,
PF_STATUS TYPE STRING,
PF_LAST_ACTION TYPE STRING,
PF_LAST_ORDER TYPE STRING,
UPDKZ TYPE STRING,
NAME1_KUNNR TYPE STRING,
BEZEI_KUNNR TYPE STRING,
BEZEI_CURT TYPE STRING,
BEZEI_TCTYP TYPE STRING,
BEZEI_VKORG TYPE STRING,
BEZEI_VTWEG TYPE STRING,
BEZEI_SPART TYPE STRING,
BEZEI_AUART TYPE STRING,
BEZEI_CURT_SD TYPE STRING,
TXT_VTRBER TYPE STRING,
HWAER TYPE STRING,
BUKRS TYPE STRING,
BEZEI_AUGRU TYPE STRING,
BEZEI_ABSSC TYPE STRING,
HLAND TYPE STRING,
PLAND TYPE STRING,
DEST_COUNTRY TYPE STRING,
BEZEI_STATUS TYPE STRING,
AMPEL_STATUS TYPE STRING,
BEZEI_KVGR1 TYPE STRING,
BEZEI_KVGR2 TYPE STRING,
BEZEI_KVGR3 TYPE STRING,
BEZEI_KVGR4 TYPE STRING,
BEZEI_KVGR5 TYPE STRING,
AMPEL_UNVOLL TYPE STRING,
AMPEL_MENGEN TYPE STRING,
AMPEL_RISK TYPE STRING,
AMPEL_RELEASED TYPE STRING,
BEZEI_VKBUR TYPE STRING,
BEZEI_VKGRP TYPE STRING,
BEZEI_BSARK TYPE STRING,
DEFAULT_WERKS TYPE STRING,
DEFAULT_LGORT TYPE STRING,
ARCHIV TYPE STRING,
BEZEI_VSBED TYPE STRING,
BEZEI_TVLS TYPE STRING,
BEZEI_TVFS TYPE STRING,
TESTRUN TYPE STRING,
BAPI_ACTIV TYPE STRING,
TEXTCHANGE TYPE STRING,
ITEMCHANGE TYPE STRING,
FLOW_EXIST TYPE STRING,
FOLLOW_DOCS TYPE STRING,
SIDE TYPE STRING,
TCGROUP TYPE STRING,
SO_STEP TYPE STRING,
PO_STEP TYPE STRING,
TC_STEP TYPE STRING,
AUTO_ASSOC TYPE STRING,
HOLD_STATUS TYPE STRING,
POFOST TYPE STRING,
ASIDE TYPE STRING,
DELETED_SIDE TYPE STRING,
KONV_CHANGE TYPE STRING,
KSTEU_MM TYPE STRING,
KSTEU_SD TYPE STRING,
SYNC_SD_COND TYPE STRING,
SYNC_MM_COND TYPE STRING,
NETWR_MM TYPE STRING,
CM_ERROR TYPE STRING,
REPLACEMENT_ACTIVE_ITEM TYPE STRING,
REPLACEMENT_ACTIVE_EXPENSE TYPE STRING,
REPLACEMENT_ACTIVE_SD_PRICING TYPE STRING,
REPLACEMENT_ACTIVE_MM_PRICING TYPE STRING,
REPLACEMENT_ACTIVE_PARTNER TYPE STRING,
CONTEXT TYPE STRING,
REP_GROUP TYPE STRING,
SERVICE_CALL TYPE STRING,
MERGE_BUS_DATA TYPE STRING,
ARC_DOC_ID TYPE STRING,
AR_OBJECT TYPE STRING,
SHIP_POINT_DIA_OFF TYPE STRING,
A2X_SERVICE TYPE STRING,
SETT_STATUS TYPE STRING,
VALID_FROM_SD TYPE STRING,
VALID_TO_SD TYPE STRING,
BTBSTS TYPE STRING,
CS_NOT_ACTIVE TYPE STRING,
GTS_ERROR TYPE STRING,
ITEM_REL_TYPE TYPE STRING,
TIME_CONTROL TYPE STRING,
IS_CAPTION_CHAR_01 TYPE STRING,
IS_CAPTION_CHAR_02 TYPE STRING,
IS_CAPTION_CHAR_03 TYPE STRING,
IS_CAPTION_CHAR_04 TYPE STRING,
IS_CAPTION_CHAR_05 TYPE STRING,
IS_CAPTION_CHAR_06 TYPE STRING,
IS_CAPTION_CHAR_07 TYPE STRING,
IS_CAPTION_CHAR_08 TYPE STRING,
IS_CAPTION_CHAR_09 TYPE STRING,
IS_CAPTION_CHAR_10 TYPE STRING,
IS_VISLENG_CHAR_01 TYPE STRING,
IS_VISLENG_CHAR_02 TYPE STRING,
IS_VISLENG_CHAR_03 TYPE STRING,
IS_VISLENG_CHAR_04 TYPE STRING,
IS_VISLENG_CHAR_05 TYPE STRING,
IS_VISLENG_CHAR_06 TYPE STRING,
IS_VISLENG_CHAR_07 TYPE STRING,
IS_VISLENG_CHAR_08 TYPE STRING,
IS_VISLENG_CHAR_09 TYPE STRING,
IS_VISLENG_CHAR_10 TYPE STRING,
TABKOMWBHD TYPE STRING,END OF T_EKKO_STR. DATA: WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_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_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TKONN sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-KOMWBHK sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-MANDT sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TKONN sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TCTYP sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-KUNNR sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BTBSTA sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TKWAERS sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TKRATE sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-ERNAM sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-ERDAT sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-ERZEIT sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-AENAM sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-AEDAT sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-AEZEIT sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-VKORG sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-VTWEG sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-SPART sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TKSACHB sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BSTNK sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BSTDK sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-SDWRS sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TKRATE_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-KURST_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BUDAT sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-PRSDT_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-KURST sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-AUGRU sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-ABSSC sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-LCNUM sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-AKPRZ sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-LOGSYS sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-AUDAT sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-EXNUM sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-FT_HEADER_COM sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-COMPLETE sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-ANGDT_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BNDDT_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-SUBMI_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-LIFSK_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-FAKSK_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-NETWR_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-VKGRP sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-VKBUR sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-AUTLF_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-VSBED_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BSARK_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BSTZD_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-IHREZ_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BNAME_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TELF1_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-MAHZA_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-MAHDT_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TAXK1_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TAXK2_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TAXK3_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TAXK4_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TAXK5_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TAXK6_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TAXK7_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TAXK8_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TAXK9_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-XBLNR_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-VBTYP_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-STCEG_L_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-ANDTX_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-KVGR1_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-KVGR2_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-KVGR3_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-KVGR4_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-KVGR5_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-AUART sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-QUAN_COMPLETE sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-KOKRS sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-KKBER sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-KNKLI sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-GRUPP sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-SBGRP sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-CTLPC sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-CMWAE sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-CMFRE sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-CMNUP sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-CMNGV sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-AMTBL sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-LFSPG sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-WKURS_DAT sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-WBPCH sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-KURRF sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TC_RELEASED sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TKONN_EX sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TCCAT sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-WE_KUNNR sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-STCEG_L sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-LANDTX sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-XEGDR sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-USE_CASE sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-_DATAAGING sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-DUMMY_WBHK_INCL_EEW_PS sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TEW_TYPE sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-SUCC_ARCH sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-ABRVW sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-KNUMV_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-PRICING_TYPE sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-KALSM_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-PS_PSP_PNR sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-LAST_CHANGE_UUID sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-CREATED_FROM sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-COMPANY_CODE sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-GUEBG sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-GUEEN sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-CONSOL_IT_EXIST sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-SET_VARIANT sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-IN_APPROVAL sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-CONSOL_EMCSI sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-CONSOL_SLCSI sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-CONSOL_LCCSI sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-CONSOL_EMCSO sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-CONSOL_SLCSO sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-CONSOL_LCCSO sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-KALSM_CH sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-PURPOSE sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-PF_STATUS sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-PF_LAST_ACTION sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-PF_LAST_ORDER sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-UPDKZ sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-NAME1_KUNNR sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BEZEI_KUNNR sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BEZEI_CURT sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BEZEI_TCTYP sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BEZEI_VKORG sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BEZEI_VTWEG sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BEZEI_SPART sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BEZEI_AUART sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BEZEI_CURT_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TXT_VTRBER sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-HWAER sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BUKRS sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BEZEI_AUGRU sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BEZEI_ABSSC sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-HLAND sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-PLAND sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-DEST_COUNTRY sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BEZEI_STATUS sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-AMPEL_STATUS sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BEZEI_KVGR1 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BEZEI_KVGR2 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BEZEI_KVGR3 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BEZEI_KVGR4 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BEZEI_KVGR5 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-AMPEL_UNVOLL sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-AMPEL_MENGEN sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-AMPEL_RISK sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-AMPEL_RELEASED sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BEZEI_VKBUR sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BEZEI_VKGRP sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BEZEI_BSARK sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-DEFAULT_WERKS sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-DEFAULT_LGORT sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-ARCHIV sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BEZEI_VSBED sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BEZEI_TVLS sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BEZEI_TVFS sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TESTRUN sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BAPI_ACTIV sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TEXTCHANGE sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-ITEMCHANGE sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-FLOW_EXIST sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-FOLLOW_DOCS sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-SIDE sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TCGROUP sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-SO_STEP sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-PO_STEP sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TC_STEP sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-AUTO_ASSOC sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-HOLD_STATUS sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-POFOST sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-ASIDE sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-DELETED_SIDE sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-KONV_CHANGE sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-KSTEU_MM sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-KSTEU_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-SYNC_SD_COND sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-SYNC_MM_COND sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-NETWR_MM sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-CM_ERROR sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-REPLACEMENT_ACTIVE_ITEM sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-REPLACEMENT_ACTIVE_EXPENSE sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-REPLACEMENT_ACTIVE_SD_PRICING sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-REPLACEMENT_ACTIVE_MM_PRICING sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-REPLACEMENT_ACTIVE_PARTNER sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-CONTEXT sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-REP_GROUP sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-SERVICE_CALL sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-MERGE_BUS_DATA sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-ARC_DOC_ID sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-AR_OBJECT sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-SHIP_POINT_DIA_OFF sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-A2X_SERVICE sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-SETT_STATUS sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-VALID_FROM_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-VALID_TO_SD sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-BTBSTS sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-CS_NOT_ACTIVE sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-GTS_ERROR sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-ITEM_REL_TYPE sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TIME_CONTROL sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-IS_CAPTION_CHAR_01 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-IS_CAPTION_CHAR_02 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-IS_CAPTION_CHAR_03 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-IS_CAPTION_CHAR_04 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-IS_CAPTION_CHAR_05 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-IS_CAPTION_CHAR_06 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-IS_CAPTION_CHAR_07 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-IS_CAPTION_CHAR_08 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-IS_CAPTION_CHAR_09 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-IS_CAPTION_CHAR_10 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-IS_VISLENG_CHAR_01 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-IS_VISLENG_CHAR_02 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-IS_VISLENG_CHAR_03 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-IS_VISLENG_CHAR_04 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-IS_VISLENG_CHAR_05 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-IS_VISLENG_CHAR_06 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-IS_VISLENG_CHAR_07 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-IS_VISLENG_CHAR_08 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-IS_VISLENG_CHAR_09 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-IS_VISLENG_CHAR_10 sy-vline
WA_/ACCGO/CAK_S_CONTRACT_HDR_BUFR_STR-TABKOMWBHD sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.