ABAP Select data from SAP table ICL_DI_SEND 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 ICL_DI_SEND 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 ICL_DI_SEND. 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 ICL_DI_SEND 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_ICL_DI_SEND TYPE STANDARD TABLE OF ICL_DI_SEND,
      WA_ICL_DI_SEND TYPE ICL_DI_SEND,
      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: <ICL_DI_SEND> TYPE ICL_DI_SEND.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM ICL_DI_SEND
*  INTO TABLE @DATA(IT_ICL_DI_SEND2).
*--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_ICL_DI_SEND INDEX 1 INTO DATA(WA_ICL_DI_SEND2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<ICL_DI_SEND>-AKTYP = 1.
<ICL_DI_SEND>-RLTP1 = 1.
<ICL_DI_SEND>-RLTP2 = 1.
<ICL_DI_SEND>-RLTP3 = 1.
<ICL_DI_SEND>-RLTP4 = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_ICL_DI_SEND-RLTP5, sy-vline,
  WA_ICL_DI_SEND-RLTP6, sy-vline,
  WA_ICL_DI_SEND-RLTP7, sy-vline,
  WA_ICL_DI_SEND-RLTP8, sy-vline,
  WA_ICL_DI_SEND-RLTP9, sy-vline,
  WA_ICL_DI_SEND-POLICY, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_ICL_DI_SEND 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_ICL_DI_SEND 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_ICL_DI_SEND INTO WA_ICL_DI_SEND.


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

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

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

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

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

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

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

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

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

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

*Conversion exit CLAIM, internal->external for field REFCLAIM
CALL FUNCTION 'CONVERSION_EXIT_CLAIM_OUTPUT'
  EXPORTING
    input =                      WA_ICL_DI_SEND-REFCLAIM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_SEND-REFCLAIM.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

*Conversion exit INSPE, internal->external for field GENERALINSP
CALL FUNCTION 'CONVERSION_EXIT_INSPE_OUTPUT'
  EXPORTING
    input =                      WA_ICL_DI_SEND-GENERALINSP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_SEND-GENERALINSP.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit DIAID, internal->external for field DIAGID1
CALL FUNCTION 'CONVERSION_EXIT_DIAID_OUTPUT'
  EXPORTING
    input =                      WA_ICL_DI_SEND-DIAGID1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_SEND-DIAGID1.
WRITE:/ 'New Value:', ld_input.

*Conversion exit DIAID, internal->external for field DIAGID2
CALL FUNCTION 'CONVERSION_EXIT_DIAID_OUTPUT'
  EXPORTING
    input =                      WA_ICL_DI_SEND-DIAGID2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_SEND-DIAGID2.
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_ICL_DI_SEND_STR, 
AKTYP TYPE STRING,
RLTP1 TYPE STRING,
RLTP2 TYPE STRING,
RLTP3 TYPE STRING,
RLTP4 TYPE STRING,
RLTP5 TYPE STRING,
RLTP6 TYPE STRING,
RLTP7 TYPE STRING,
RLTP8 TYPE STRING,
RLTP9 TYPE STRING,
POLICY TYPE STRING,
POLREIMPORT TYPE STRING,
POLPROD TYPE STRING,
PLINEOFBUS TYPE STRING,
LOSSTYPE TYPE STRING,
DATELOSS TYPE STRING,
XDATEESTIM TYPE STRING,
TIMELOSS TYPE STRING,
CLAIM TYPE STRING,
EXCLAIMNOCAT TYPE STRING,
EXCLAIMNO TYPE STRING,
EXHANDLE TYPE STRING,
LOCKOBJ TYPE STRING,
XSKIPDUPLCHECK TYPE STRING,
XDUMMCLAIM TYPE STRING,
MIGCONTROL TYPE STRING,
LTIMEZONE TYPE STRING,
CHIND_CLAIM TYPE STRING,
VIEWFAULTPH TYPE STRING,
XAUTHREP TYPE STRING,
CLSTATUS TYPE STRING,
LOSSCAUSE TYPE STRING,
REPORTER TYPE STRING,
POLICE TYPE STRING,
STREET_L TYPE STRING,
HOUSE_NUM1_L TYPE STRING,
POST_CODE1_L TYPE STRING,
CITY1_L TYPE STRING,
COUNTRY_L TYPE STRING,
REGION_L TYPE STRING,
XINJURED TYPE STRING,
XWITNESS TYPE STRING,
XMATCH_COVERAGE TYPE STRING,
STATREASON TYPE STRING,
AUTHCLM TYPE STRING,
COMPLEX TYPE STRING,
XDUMMYCLAIM TYPE STRING,
OPENDATE TYPE STRING,
LOSSREPCOMPA TYPE STRING,
LOSSREPAGENT TYPE STRING,
STHANDLER TYPE STRING,
OWNER TYPE STRING,
CLAIM_PROC_TIME TYPE STRING,
STATUSCHG TYPE STRING,
XSENSITIVE TYPE STRING,
COVERED TYPE STRING,
INVSTG_STATUS TYPE STRING,
EFFECTIVE_DT TYPE STRING,
FOLLOWUP_DT TYPE STRING,
LOSSREP_DT TYPE STRING,
CHIND_CLA TYPE STRING,
SUBOBJCAT_CLA TYPE STRING,
SUBOBJECT_CLA TYPE STRING,
OBJCAT TYPE STRING,
CLOBJECT TYPE STRING,
CHIND_SUBCL TYPE STRING,
SUBCLAIM TYPE STRING,
SUBCLTYPE TYPE STRING,
COVERAGE TYPE STRING,
XCOMPLETE TYPE STRING,
XSALVAGE TYPE STRING,
XOTHERINSURE TYPE STRING,
XSUBRO TYPE STRING,
XLITIGATION TYPE STRING,
XNEGOTIATION TYPE STRING,
XFRAUD TYPE STRING,
XCOVCONFIRMED TYPE STRING,
SUBCL_STHANDLER TYPE STRING,
CLAIMHANDLER TYPE STRING,
SUBCL_PROC_TIME TYPE STRING,
SUBCL_STATREASON TYPE STRING,
SUBCL_STATUS TYPE STRING,
SUBCL_STATUSCHG TYPE STRING,
SUBCL_COMPLEX TYPE STRING,
OVERRULEREASON TYPE STRING,
COMPENSABILITY TYPE STRING,
INSUREDOBJ_SUBCL TYPE STRING,
SUBCL_COVTYPE TYPE STRING,
PARTICIPANT TYPE STRING,
CHIND_PARTOCC TYPE STRING,
SUBOBJCAT TYPE STRING,
SUBOBJECT TYPE STRING,
ROLE TYPE STRING,
PARTICIPANT_OLD TYPE STRING,
CHIND_PART TYPE STRING,
REFERENCE TYPE STRING,
RELTYPE TYPE STRING,
PART_TEXT01 TYPE STRING,
FILE_REQUESTED TYPE STRING,
PARTTYPE TYPE STRING,
SEAT TYPE STRING,
XSALESTAX TYPE STRING,
GUILTRATE TYPE STRING,
XINTRACOMPANY TYPE STRING,
XNOINS TYPE STRING,
WIREPTYPE TYPE STRING,
XCONFIRM TYPE STRING,
JUDGEMENT TYPE STRING,
XKNOWN2DRIVER TYPE STRING,
DRV_AGE TYPE STRING,
ISSUEDATE_DRVL TYPE STRING,
BIRTHDATE TYPE STRING,
CHIND_ITEM TYPE STRING,
ITEM TYPE STRING,
SUBCLAIM_ITEM TYPE STRING,
PROC_ITEM TYPE STRING,
SUBCLTYPE_ITEM TYPE STRING,
BENTYPE TYPE STRING,
ITEMTYPE TYPE STRING,
COVTYPE_ITEM TYPE STRING,
EVALBASE TYPE STRING,
PERDAY TYPE STRING,
EVAMOUNT TYPE STRING,
EVCURR TYPE STRING,
EVAMTPERUNIT TYPE STRING,
EVQUANTITY TYPE STRING,
EVQUANUNIT TYPE STRING,
TAXCODE_INV TYPE STRING,
ISTAT TYPE STRING,
DAILY TYPE STRING,
WEEKLY TYPE STRING,
MONTHLY TYPE STRING,
REJREASON TYPE STRING,
TOTAL TYPE STRING,
VALIDFROM TYPE STRING,
VALIDTO TYPE STRING,
DISCOUNTPERCENT_ITEM TYPE STRING,
ACV TYPE STRING,
ACVPERCENT TYPE STRING,
ITEMCAT TYPE STRING,
EVALUATION TYPE STRING,
ITEM_REF TYPE STRING,
MATGROUP TYPE STRING,
PRICE_UNIT TYPE STRING,
VENDOR_CATALOG TYPE STRING,
VENDORMAT TYPE STRING,
MANUFACTCODE TYPE STRING,
MANUFACTMAT TYPE STRING,
SERVICE TYPE STRING,
XGENEROS TYPE STRING,
ITEMUSE TYPE STRING,
XDISCOUNTUSED TYPE STRING,
XDISCOUNTPERCENT TYPE STRING,
CUST_FIELD1 TYPE STRING,
CUST_FIELD2 TYPE STRING,
CUST_FIELD3 TYPE STRING,
CUST_FIELD4 TYPE STRING,
CUST_FIELD5 TYPE STRING,
SERVCAT TYPE STRING,
SC_VARIANT TYPE STRING,
SCPOSID_EXT TYPE STRING,
SCPOSID_INT TYPE STRING,
SCPOS_NEGATIVE_VALPERUNIT TYPE STRING,
DNUMBER TYPE STRING,
RCOVTYPE TYPE STRING,
XWAITPERIOD TYPE STRING,
DAMAGEDOBJ_ITEM TYPE STRING,
XDISC_2B_APPLIED TYPE STRING,
EVDATE TYPE STRING,
STARTDATE TYPE STRING,
ENDDATE_ITEM TYPE STRING,
FACTOR TYPE STRING,
DESCRIPTION TYPE STRING,
REFNO TYPE STRING,
PDREF TYPE STRING,
PDPOS TYPE STRING,
ADDITIONAL_ITEM TYPE STRING,
ADDIT_ITEM_SUM TYPE STRING,
GROSS_NET TYPE STRING,
REMUN_TYPE TYPE STRING,
COVERAGE_ITEM TYPE STRING,
PERFORM_CALCULATION TYPE STRING,
XLIABCLMD TYPE STRING,
LIABRATE_ITEM TYPE STRING,
CLMDAMOUNT_ITEM TYPE STRING,
CHIND_PAY TYPE STRING,
SUBCLAIM_PAY TYPE STRING,
PAYMENT_DI TYPE STRING,
STATUS TYPE STRING,
ADDRNUMBER TYPE STRING,
BKID TYPE STRING,
BPARTNER TYPE STRING,
TAXROLE TYPE STRING,
CHECKNUMBER TYPE STRING,
CURR TYPE STRING,
INVOICEREF TYPE STRING,
METHOD TYPE STRING,
PAYTYPE TYPE STRING,
XALREADYPAID TYPE STRING,
PAYCAT TYPE STRING,
XBULK TYPE STRING,
AMTDONE TYPE STRING,
REFCLAIM TYPE STRING,
REFSUBCLAIM TYPE STRING,
REFPAYMENT TYPE STRING,
BP_PUSH TYPE STRING,
BPARTNER2 TYPE STRING,
TAXROLE2 TYPE STRING,
BP_PUSH2 TYPE STRING,
BPARTNER3 TYPE STRING,
TAXROLE3 TYPE STRING,
BP_PUSH3 TYPE STRING,
OWNERTYPE_GRP TYPE STRING,
OWNER_GRP TYPE STRING,
TAX_RPT TYPE STRING,
XTAXRPTCT TYPE STRING,
MTAXRPTCT TYPE STRING,
POSTDATE TYPE STRING,
PAY_DUEDATE TYPE STRING,
NOTE TYPE STRING,
REASONREJ TYPE STRING,
MOS TYPE STRING,
CRECADDR TYPE STRING,
SERV_FROM TYPE STRING,
SERV_TO TYPE STRING,
DAMAGEDOBJ_PAY TYPE STRING,
PAYMENTITEM TYPE STRING,
ITEMSUBCL TYPE STRING,
BENTYPE_P TYPE STRING,
PAMPAID TYPE STRING,
PAYTYPEI TYPE STRING,
PAYITEMCAT TYPE STRING,
ITEM_PAY TYPE STRING,
PYMTYPE TYPE STRING,
TREASON TYPE STRING,
TREASONSET TYPE STRING,
COVTYPE TYPE STRING,
PAYVALIDFROM TYPE STRING,
PAYVALIDTO TYPE STRING,
GROSS_NET_PAY TYPE STRING,
TXCOD TYPE STRING,
PAMTYPE TYPE STRING,
PHCODI TYPE STRING,
DAMAGEDOBJ TYPE STRING,
SUBCLAIM_DOBJ TYPE STRING,
INSUREDOBJ TYPE STRING,
DAMAGECAT TYPE STRING,
CLAIMANT_DOBJ TYPE STRING,
PROPCAT TYPE STRING,
PROPERTY TYPE STRING,
IOBTYPE TYPE STRING,
SEVERITY TYPE STRING,
XLIAB TYPE STRING,
DAMDESCRIP TYPE STRING,
EC TYPE STRING,
ECCURR TYPE STRING,
PROPMAKE TYPE STRING,
PROPMODEL TYPE STRING,
CONSTYEAR TYPE STRING,
LOCATION TYPE STRING,
WHENSEEN TYPE STRING,
XDAM TYPE STRING,
XPVENDOR TYPE STRING,
XTOTDAMAGE TYPE STRING,
XSTOLEN TYPE STRING,
XRECOVERED TYPE STRING,
LOSSTYPE_DOBJ TYPE STRING,
XNOINSOBJDATA TYPE STRING,
DRIVER TYPE STRING,
MODELTY TYPE STRING,
VIN TYPE STRING,
PLATECOUNTRY TYPE STRING,
PLATEREGION TYPE STRING,
PLATENO TYPE STRING,
FIRSTREG TYPE STRING,
CAPACITY TYPE STRING,
CAPUNIT TYPE STRING,
COLOR TYPE STRING,
GEAR TYPE STRING,
INSPDATE TYPE STRING,
PURPTRIP TYPE STRING,
LEASING TYPE STRING,
XPERM TYPE STRING,
XVEHICIT TYPE STRING,
XDRIVCIT TYPE STRING,
XPARKED TYPE STRING,
XPRE TYPE STRING,
DRIVABLE TYPE STRING,
MILEAGE TYPE STRING,
MILEAGEUNIT TYPE STRING,
TREADF TYPE STRING,
TREADR TYPE STRING,
TREADUNIT TYPE STRING,
PCV TYPE STRING,
PCVCURR TYPE STRING,
OWPHREL TYPE STRING,
RECOVERDATE TYPE STRING,
MONTH_FROM TYPE STRING,
MONTH_TO TYPE STRING,
OWNERCHANGE TYPE STRING,
GENERALINSP TYPE STRING,
XFATALITY TYPE STRING,
XINJURIES TYPE STRING,
AGE TYPE STRING,
PERCENT_IMPAIR TYPE STRING,
SERIALNO TYPE STRING,
PROPUSE TYPE STRING,
XRENTAL TYPE STRING,
OPERABLE TYPE STRING,
ESTREPAIRDATE TYPE STRING,
ACTREPAIRDATE TYPE STRING,
RESTATEN TYPE STRING,
REMATERIAL TYPE STRING,
ADDRESS TYPE STRING,
DATEADDR TYPE STRING,
DD1 TYPE STRING,
DD2 TYPE STRING,
DD3 TYPE STRING,
DD4 TYPE STRING,
DD5 TYPE STRING,
DD6 TYPE STRING,
DD7 TYPE STRING,
DD8 TYPE STRING,
DD9 TYPE STRING,
DD10 TYPE STRING,
DD11 TYPE STRING,
DD12 TYPE STRING,
DD13 TYPE STRING,
DD14 TYPE STRING,
DD15 TYPE STRING,
DD16 TYPE STRING,
DD17 TYPE STRING,
DD18 TYPE STRING,
DD19 TYPE STRING,
DD20 TYPE STRING,
STRUCNAME TYPE STRING,
DATA TYPE STRING,
FACTSCAT TYPE STRING,
SFCSUBOBJ TYPE STRING,
QUESTION TYPE STRING,
ANSWER TYPE STRING,
QUESEQ TYPE STRING,
AVARIANT TYPE STRING,
CHIND_PROC TYPE STRING,
SUBCLAIM_PROC TYPE STRING,
PROCUREMENT TYPE STRING,
PDOCTYPE TYPE STRING,
PDOCCAT TYPE STRING,
ISSUEDATE TYPE STRING,
RECEIVEDATE TYPE STRING,
DATEFROM TYPE STRING,
TIMEFROM TYPE STRING,
DATETO TYPE STRING,
TIMETO TYPE STRING,
ISSUEDATE_PRESCR TYPE STRING,
ACQUISITIONDATE TYPE STRING,
INVOICEREF_PROC TYPE STRING,
INVOICEREF_BULK TYPE STRING,
AMOUNT1 TYPE STRING,
CURRENCY TYPE STRING,
EXTERNALREF TYPE STRING,
EXTDOCUMENT TYPE STRING,
EXTCASENO TYPE STRING,
EXTFILENO TYPE STRING,
CCEVENT TYPE STRING,
CURRENCY_PROC TYPE STRING,
PROC_REF TYPE STRING,
DISCOUNTAMOUNT TYPE STRING,
DISCOUNTPERCENT TYPE STRING,
ACCIDENT TYPE STRING,
SUBROGATION TYPE STRING,
DUEDATE TYPE STRING,
DUEDATE_ORIG TYPE STRING,
OWNCONTRIB TYPE STRING,
REASON TYPE STRING,
CAUSE TYPE STRING,
PDOCCATTYPE TYPE STRING,
DATASOURCE TYPE STRING,
SETORDERDATE TYPE STRING,
COMPLETIONDATE TYPE STRING,
MATLABCOST TYPE STRING,
POINTVALUE TYPE STRING,
SUBSIDYPERCENT TYPE STRING,
SUBSIDYAMOUNT TYPE STRING,
SENTUTC TYPE STRING,
XCLINICCARD TYPE STRING,
CANCEL TYPE STRING,
REJECTED TYPE STRING,
INSUSPENSE TYPE STRING,
INPROCESS TYPE STRING,
RELEASED TYPE STRING,
XFINISHED TYPE STRING,
ORDERED TYPE STRING,
TRANSFERRED TYPE STRING,
TOBEAPPROVED TYPE STRING,
COMPPER_DATEFROM TYPE STRING,
COMPPER_DATETO TYPE STRING,
PAYFREQPLAN TYPE STRING,
PAYOUT_SCENARIO TYPE STRING,
FEE TYPE STRING,
PDOCAT_COVTYPE TYPE STRING,
PROC_GUID TYPE STRING,
CHIND_DIAG TYPE STRING,
INJURED TYPE STRING,
DIAGNO TYPE STRING,
DIAGORDER TYPE STRING,
DIAG_SUBCL TYPE STRING,
DIAG_PROC TYPE STRING,
DIAG_ITEM TYPE STRING,
CATAID1 TYPE STRING,
DIAGID1 TYPE STRING,
CATAID2 TYPE STRING,
DIAGID2 TYPE STRING,
ENDDATE TYPE STRING,
DIAGTYPE TYPE STRING,
LOCALIZATION TYPE STRING,
LOCALIZATION2 TYPE STRING,
SEVERITYCODE TYPE STRING,
GUARANTEE TYPE STRING,
DEPARTMENT TYPE STRING,
DIAGDESCRIPTION TYPE STRING,
MORPHOLOGY TYPE STRING,
EXCORIATION TYPE STRING,
DIAGGROUPID TYPE STRING,
ASSIGN_GUID_DIAG TYPE STRING,END OF T_EKKO_STR.
DATA: WA_ICL_DI_SEND_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_ICL_DI_SEND_STR-AKTYP sy-vline 
WA_ICL_DI_SEND_STR-RLTP1 sy-vline 
WA_ICL_DI_SEND_STR-RLTP2 sy-vline 
WA_ICL_DI_SEND_STR-RLTP3 sy-vline 
WA_ICL_DI_SEND_STR-RLTP4 sy-vline 
WA_ICL_DI_SEND_STR-RLTP5 sy-vline 
WA_ICL_DI_SEND_STR-RLTP6 sy-vline 
WA_ICL_DI_SEND_STR-RLTP7 sy-vline 
WA_ICL_DI_SEND_STR-RLTP8 sy-vline 
WA_ICL_DI_SEND_STR-RLTP9 sy-vline 
WA_ICL_DI_SEND_STR-POLICY sy-vline 
WA_ICL_DI_SEND_STR-POLREIMPORT sy-vline 
WA_ICL_DI_SEND_STR-POLPROD sy-vline 
WA_ICL_DI_SEND_STR-PLINEOFBUS sy-vline 
WA_ICL_DI_SEND_STR-LOSSTYPE sy-vline 
WA_ICL_DI_SEND_STR-DATELOSS sy-vline 
WA_ICL_DI_SEND_STR-XDATEESTIM sy-vline 
WA_ICL_DI_SEND_STR-TIMELOSS sy-vline 
WA_ICL_DI_SEND_STR-CLAIM sy-vline 
WA_ICL_DI_SEND_STR-EXCLAIMNOCAT sy-vline 
WA_ICL_DI_SEND_STR-EXCLAIMNO sy-vline 
WA_ICL_DI_SEND_STR-EXHANDLE sy-vline 
WA_ICL_DI_SEND_STR-LOCKOBJ sy-vline 
WA_ICL_DI_SEND_STR-XSKIPDUPLCHECK sy-vline 
WA_ICL_DI_SEND_STR-XDUMMCLAIM sy-vline 
WA_ICL_DI_SEND_STR-MIGCONTROL sy-vline 
WA_ICL_DI_SEND_STR-LTIMEZONE sy-vline 
WA_ICL_DI_SEND_STR-CHIND_CLAIM sy-vline 
WA_ICL_DI_SEND_STR-VIEWFAULTPH sy-vline 
WA_ICL_DI_SEND_STR-XAUTHREP sy-vline 
WA_ICL_DI_SEND_STR-CLSTATUS sy-vline 
WA_ICL_DI_SEND_STR-LOSSCAUSE sy-vline 
WA_ICL_DI_SEND_STR-REPORTER sy-vline 
WA_ICL_DI_SEND_STR-POLICE sy-vline 
WA_ICL_DI_SEND_STR-STREET_L sy-vline 
WA_ICL_DI_SEND_STR-HOUSE_NUM1_L sy-vline 
WA_ICL_DI_SEND_STR-POST_CODE1_L sy-vline 
WA_ICL_DI_SEND_STR-CITY1_L sy-vline 
WA_ICL_DI_SEND_STR-COUNTRY_L sy-vline 
WA_ICL_DI_SEND_STR-REGION_L sy-vline 
WA_ICL_DI_SEND_STR-XINJURED sy-vline 
WA_ICL_DI_SEND_STR-XWITNESS sy-vline 
WA_ICL_DI_SEND_STR-XMATCH_COVERAGE sy-vline 
WA_ICL_DI_SEND_STR-STATREASON sy-vline 
WA_ICL_DI_SEND_STR-AUTHCLM sy-vline 
WA_ICL_DI_SEND_STR-COMPLEX sy-vline 
WA_ICL_DI_SEND_STR-XDUMMYCLAIM sy-vline 
WA_ICL_DI_SEND_STR-OPENDATE sy-vline 
WA_ICL_DI_SEND_STR-LOSSREPCOMPA sy-vline 
WA_ICL_DI_SEND_STR-LOSSREPAGENT sy-vline 
WA_ICL_DI_SEND_STR-STHANDLER sy-vline 
WA_ICL_DI_SEND_STR-OWNER sy-vline 
WA_ICL_DI_SEND_STR-CLAIM_PROC_TIME sy-vline 
WA_ICL_DI_SEND_STR-STATUSCHG sy-vline 
WA_ICL_DI_SEND_STR-XSENSITIVE sy-vline 
WA_ICL_DI_SEND_STR-COVERED sy-vline 
WA_ICL_DI_SEND_STR-INVSTG_STATUS sy-vline 
WA_ICL_DI_SEND_STR-EFFECTIVE_DT sy-vline 
WA_ICL_DI_SEND_STR-FOLLOWUP_DT sy-vline 
WA_ICL_DI_SEND_STR-LOSSREP_DT sy-vline 
WA_ICL_DI_SEND_STR-CHIND_CLA sy-vline 
WA_ICL_DI_SEND_STR-SUBOBJCAT_CLA sy-vline 
WA_ICL_DI_SEND_STR-SUBOBJECT_CLA sy-vline 
WA_ICL_DI_SEND_STR-OBJCAT sy-vline 
WA_ICL_DI_SEND_STR-CLOBJECT sy-vline 
WA_ICL_DI_SEND_STR-CHIND_SUBCL sy-vline 
WA_ICL_DI_SEND_STR-SUBCLAIM sy-vline 
WA_ICL_DI_SEND_STR-SUBCLTYPE sy-vline 
WA_ICL_DI_SEND_STR-COVERAGE sy-vline 
WA_ICL_DI_SEND_STR-XCOMPLETE sy-vline 
WA_ICL_DI_SEND_STR-XSALVAGE sy-vline 
WA_ICL_DI_SEND_STR-XOTHERINSURE sy-vline 
WA_ICL_DI_SEND_STR-XSUBRO sy-vline 
WA_ICL_DI_SEND_STR-XLITIGATION sy-vline 
WA_ICL_DI_SEND_STR-XNEGOTIATION sy-vline 
WA_ICL_DI_SEND_STR-XFRAUD sy-vline 
WA_ICL_DI_SEND_STR-XCOVCONFIRMED sy-vline 
WA_ICL_DI_SEND_STR-SUBCL_STHANDLER sy-vline 
WA_ICL_DI_SEND_STR-CLAIMHANDLER sy-vline 
WA_ICL_DI_SEND_STR-SUBCL_PROC_TIME sy-vline 
WA_ICL_DI_SEND_STR-SUBCL_STATREASON sy-vline 
WA_ICL_DI_SEND_STR-SUBCL_STATUS sy-vline 
WA_ICL_DI_SEND_STR-SUBCL_STATUSCHG sy-vline 
WA_ICL_DI_SEND_STR-SUBCL_COMPLEX sy-vline 
WA_ICL_DI_SEND_STR-OVERRULEREASON sy-vline 
WA_ICL_DI_SEND_STR-COMPENSABILITY sy-vline 
WA_ICL_DI_SEND_STR-INSUREDOBJ_SUBCL sy-vline 
WA_ICL_DI_SEND_STR-SUBCL_COVTYPE sy-vline 
WA_ICL_DI_SEND_STR-PARTICIPANT sy-vline 
WA_ICL_DI_SEND_STR-CHIND_PARTOCC sy-vline 
WA_ICL_DI_SEND_STR-SUBOBJCAT sy-vline 
WA_ICL_DI_SEND_STR-SUBOBJECT sy-vline 
WA_ICL_DI_SEND_STR-ROLE sy-vline 
WA_ICL_DI_SEND_STR-PARTICIPANT_OLD sy-vline 
WA_ICL_DI_SEND_STR-CHIND_PART sy-vline 
WA_ICL_DI_SEND_STR-REFERENCE sy-vline 
WA_ICL_DI_SEND_STR-RELTYPE sy-vline 
WA_ICL_DI_SEND_STR-PART_TEXT01 sy-vline 
WA_ICL_DI_SEND_STR-FILE_REQUESTED sy-vline 
WA_ICL_DI_SEND_STR-PARTTYPE sy-vline 
WA_ICL_DI_SEND_STR-SEAT sy-vline 
WA_ICL_DI_SEND_STR-XSALESTAX sy-vline 
WA_ICL_DI_SEND_STR-GUILTRATE sy-vline 
WA_ICL_DI_SEND_STR-XINTRACOMPANY sy-vline 
WA_ICL_DI_SEND_STR-XNOINS sy-vline 
WA_ICL_DI_SEND_STR-WIREPTYPE sy-vline 
WA_ICL_DI_SEND_STR-XCONFIRM sy-vline 
WA_ICL_DI_SEND_STR-JUDGEMENT sy-vline 
WA_ICL_DI_SEND_STR-XKNOWN2DRIVER sy-vline 
WA_ICL_DI_SEND_STR-DRV_AGE sy-vline 
WA_ICL_DI_SEND_STR-ISSUEDATE_DRVL sy-vline 
WA_ICL_DI_SEND_STR-BIRTHDATE sy-vline 
WA_ICL_DI_SEND_STR-CHIND_ITEM sy-vline 
WA_ICL_DI_SEND_STR-ITEM sy-vline 
WA_ICL_DI_SEND_STR-SUBCLAIM_ITEM sy-vline 
WA_ICL_DI_SEND_STR-PROC_ITEM sy-vline 
WA_ICL_DI_SEND_STR-SUBCLTYPE_ITEM sy-vline 
WA_ICL_DI_SEND_STR-BENTYPE sy-vline 
WA_ICL_DI_SEND_STR-ITEMTYPE sy-vline 
WA_ICL_DI_SEND_STR-COVTYPE_ITEM sy-vline 
WA_ICL_DI_SEND_STR-EVALBASE sy-vline 
WA_ICL_DI_SEND_STR-PERDAY sy-vline 
WA_ICL_DI_SEND_STR-EVAMOUNT sy-vline 
WA_ICL_DI_SEND_STR-EVCURR sy-vline 
WA_ICL_DI_SEND_STR-EVAMTPERUNIT sy-vline 
WA_ICL_DI_SEND_STR-EVQUANTITY sy-vline 
WA_ICL_DI_SEND_STR-EVQUANUNIT sy-vline 
WA_ICL_DI_SEND_STR-TAXCODE_INV sy-vline 
WA_ICL_DI_SEND_STR-ISTAT sy-vline 
WA_ICL_DI_SEND_STR-DAILY sy-vline 
WA_ICL_DI_SEND_STR-WEEKLY sy-vline 
WA_ICL_DI_SEND_STR-MONTHLY sy-vline 
WA_ICL_DI_SEND_STR-REJREASON sy-vline 
WA_ICL_DI_SEND_STR-TOTAL sy-vline 
WA_ICL_DI_SEND_STR-VALIDFROM sy-vline 
WA_ICL_DI_SEND_STR-VALIDTO sy-vline 
WA_ICL_DI_SEND_STR-DISCOUNTPERCENT_ITEM sy-vline 
WA_ICL_DI_SEND_STR-ACV sy-vline 
WA_ICL_DI_SEND_STR-ACVPERCENT sy-vline 
WA_ICL_DI_SEND_STR-ITEMCAT sy-vline 
WA_ICL_DI_SEND_STR-EVALUATION sy-vline 
WA_ICL_DI_SEND_STR-ITEM_REF sy-vline 
WA_ICL_DI_SEND_STR-MATGROUP sy-vline 
WA_ICL_DI_SEND_STR-PRICE_UNIT sy-vline 
WA_ICL_DI_SEND_STR-VENDOR_CATALOG sy-vline 
WA_ICL_DI_SEND_STR-VENDORMAT sy-vline 
WA_ICL_DI_SEND_STR-MANUFACTCODE sy-vline 
WA_ICL_DI_SEND_STR-MANUFACTMAT sy-vline 
WA_ICL_DI_SEND_STR-SERVICE sy-vline 
WA_ICL_DI_SEND_STR-XGENEROS sy-vline 
WA_ICL_DI_SEND_STR-ITEMUSE sy-vline 
WA_ICL_DI_SEND_STR-XDISCOUNTUSED sy-vline 
WA_ICL_DI_SEND_STR-XDISCOUNTPERCENT sy-vline 
WA_ICL_DI_SEND_STR-CUST_FIELD1 sy-vline 
WA_ICL_DI_SEND_STR-CUST_FIELD2 sy-vline 
WA_ICL_DI_SEND_STR-CUST_FIELD3 sy-vline 
WA_ICL_DI_SEND_STR-CUST_FIELD4 sy-vline 
WA_ICL_DI_SEND_STR-CUST_FIELD5 sy-vline 
WA_ICL_DI_SEND_STR-SERVCAT sy-vline 
WA_ICL_DI_SEND_STR-SC_VARIANT sy-vline 
WA_ICL_DI_SEND_STR-SCPOSID_EXT sy-vline 
WA_ICL_DI_SEND_STR-SCPOSID_INT sy-vline 
WA_ICL_DI_SEND_STR-SCPOS_NEGATIVE_VALPERUNIT sy-vline 
WA_ICL_DI_SEND_STR-DNUMBER sy-vline 
WA_ICL_DI_SEND_STR-RCOVTYPE sy-vline 
WA_ICL_DI_SEND_STR-XWAITPERIOD sy-vline 
WA_ICL_DI_SEND_STR-DAMAGEDOBJ_ITEM sy-vline 
WA_ICL_DI_SEND_STR-XDISC_2B_APPLIED sy-vline 
WA_ICL_DI_SEND_STR-EVDATE sy-vline 
WA_ICL_DI_SEND_STR-STARTDATE sy-vline 
WA_ICL_DI_SEND_STR-ENDDATE_ITEM sy-vline 
WA_ICL_DI_SEND_STR-FACTOR sy-vline 
WA_ICL_DI_SEND_STR-DESCRIPTION sy-vline 
WA_ICL_DI_SEND_STR-REFNO sy-vline 
WA_ICL_DI_SEND_STR-PDREF sy-vline 
WA_ICL_DI_SEND_STR-PDPOS sy-vline 
WA_ICL_DI_SEND_STR-ADDITIONAL_ITEM sy-vline 
WA_ICL_DI_SEND_STR-ADDIT_ITEM_SUM sy-vline 
WA_ICL_DI_SEND_STR-GROSS_NET sy-vline 
WA_ICL_DI_SEND_STR-REMUN_TYPE sy-vline 
WA_ICL_DI_SEND_STR-COVERAGE_ITEM sy-vline 
WA_ICL_DI_SEND_STR-PERFORM_CALCULATION sy-vline 
WA_ICL_DI_SEND_STR-XLIABCLMD sy-vline 
WA_ICL_DI_SEND_STR-LIABRATE_ITEM sy-vline 
WA_ICL_DI_SEND_STR-CLMDAMOUNT_ITEM sy-vline 
WA_ICL_DI_SEND_STR-CHIND_PAY sy-vline 
WA_ICL_DI_SEND_STR-SUBCLAIM_PAY sy-vline 
WA_ICL_DI_SEND_STR-PAYMENT_DI sy-vline 
WA_ICL_DI_SEND_STR-STATUS sy-vline 
WA_ICL_DI_SEND_STR-ADDRNUMBER sy-vline 
WA_ICL_DI_SEND_STR-BKID sy-vline 
WA_ICL_DI_SEND_STR-BPARTNER sy-vline 
WA_ICL_DI_SEND_STR-TAXROLE sy-vline 
WA_ICL_DI_SEND_STR-CHECKNUMBER sy-vline 
WA_ICL_DI_SEND_STR-CURR sy-vline 
WA_ICL_DI_SEND_STR-INVOICEREF sy-vline 
WA_ICL_DI_SEND_STR-METHOD sy-vline 
WA_ICL_DI_SEND_STR-PAYTYPE sy-vline 
WA_ICL_DI_SEND_STR-XALREADYPAID sy-vline 
WA_ICL_DI_SEND_STR-PAYCAT sy-vline 
WA_ICL_DI_SEND_STR-XBULK sy-vline 
WA_ICL_DI_SEND_STR-AMTDONE sy-vline 
WA_ICL_DI_SEND_STR-REFCLAIM sy-vline 
WA_ICL_DI_SEND_STR-REFSUBCLAIM sy-vline 
WA_ICL_DI_SEND_STR-REFPAYMENT sy-vline 
WA_ICL_DI_SEND_STR-BP_PUSH sy-vline 
WA_ICL_DI_SEND_STR-BPARTNER2 sy-vline 
WA_ICL_DI_SEND_STR-TAXROLE2 sy-vline 
WA_ICL_DI_SEND_STR-BP_PUSH2 sy-vline 
WA_ICL_DI_SEND_STR-BPARTNER3 sy-vline 
WA_ICL_DI_SEND_STR-TAXROLE3 sy-vline 
WA_ICL_DI_SEND_STR-BP_PUSH3 sy-vline 
WA_ICL_DI_SEND_STR-OWNERTYPE_GRP sy-vline 
WA_ICL_DI_SEND_STR-OWNER_GRP sy-vline 
WA_ICL_DI_SEND_STR-TAX_RPT sy-vline 
WA_ICL_DI_SEND_STR-XTAXRPTCT sy-vline 
WA_ICL_DI_SEND_STR-MTAXRPTCT sy-vline 
WA_ICL_DI_SEND_STR-POSTDATE sy-vline 
WA_ICL_DI_SEND_STR-PAY_DUEDATE sy-vline 
WA_ICL_DI_SEND_STR-NOTE sy-vline 
WA_ICL_DI_SEND_STR-REASONREJ sy-vline 
WA_ICL_DI_SEND_STR-MOS sy-vline 
WA_ICL_DI_SEND_STR-CRECADDR sy-vline 
WA_ICL_DI_SEND_STR-SERV_FROM sy-vline 
WA_ICL_DI_SEND_STR-SERV_TO sy-vline 
WA_ICL_DI_SEND_STR-DAMAGEDOBJ_PAY sy-vline 
WA_ICL_DI_SEND_STR-PAYMENTITEM sy-vline 
WA_ICL_DI_SEND_STR-ITEMSUBCL sy-vline 
WA_ICL_DI_SEND_STR-BENTYPE_P sy-vline 
WA_ICL_DI_SEND_STR-PAMPAID sy-vline 
WA_ICL_DI_SEND_STR-PAYTYPEI sy-vline 
WA_ICL_DI_SEND_STR-PAYITEMCAT sy-vline 
WA_ICL_DI_SEND_STR-ITEM_PAY sy-vline 
WA_ICL_DI_SEND_STR-PYMTYPE sy-vline 
WA_ICL_DI_SEND_STR-TREASON sy-vline 
WA_ICL_DI_SEND_STR-TREASONSET sy-vline 
WA_ICL_DI_SEND_STR-COVTYPE sy-vline 
WA_ICL_DI_SEND_STR-PAYVALIDFROM sy-vline 
WA_ICL_DI_SEND_STR-PAYVALIDTO sy-vline 
WA_ICL_DI_SEND_STR-GROSS_NET_PAY sy-vline 
WA_ICL_DI_SEND_STR-TXCOD sy-vline 
WA_ICL_DI_SEND_STR-PAMTYPE sy-vline 
WA_ICL_DI_SEND_STR-PHCODI sy-vline 
WA_ICL_DI_SEND_STR-DAMAGEDOBJ sy-vline 
WA_ICL_DI_SEND_STR-SUBCLAIM_DOBJ sy-vline 
WA_ICL_DI_SEND_STR-INSUREDOBJ sy-vline 
WA_ICL_DI_SEND_STR-DAMAGECAT sy-vline 
WA_ICL_DI_SEND_STR-CLAIMANT_DOBJ sy-vline 
WA_ICL_DI_SEND_STR-PROPCAT sy-vline 
WA_ICL_DI_SEND_STR-PROPERTY sy-vline 
WA_ICL_DI_SEND_STR-IOBTYPE sy-vline 
WA_ICL_DI_SEND_STR-SEVERITY sy-vline 
WA_ICL_DI_SEND_STR-XLIAB sy-vline 
WA_ICL_DI_SEND_STR-DAMDESCRIP sy-vline 
WA_ICL_DI_SEND_STR-EC sy-vline 
WA_ICL_DI_SEND_STR-ECCURR sy-vline 
WA_ICL_DI_SEND_STR-PROPMAKE sy-vline 
WA_ICL_DI_SEND_STR-PROPMODEL sy-vline 
WA_ICL_DI_SEND_STR-CONSTYEAR sy-vline 
WA_ICL_DI_SEND_STR-LOCATION sy-vline 
WA_ICL_DI_SEND_STR-WHENSEEN sy-vline 
WA_ICL_DI_SEND_STR-XDAM sy-vline 
WA_ICL_DI_SEND_STR-XPVENDOR sy-vline 
WA_ICL_DI_SEND_STR-XTOTDAMAGE sy-vline 
WA_ICL_DI_SEND_STR-XSTOLEN sy-vline 
WA_ICL_DI_SEND_STR-XRECOVERED sy-vline 
WA_ICL_DI_SEND_STR-LOSSTYPE_DOBJ sy-vline 
WA_ICL_DI_SEND_STR-XNOINSOBJDATA sy-vline 
WA_ICL_DI_SEND_STR-DRIVER sy-vline 
WA_ICL_DI_SEND_STR-MODELTY sy-vline 
WA_ICL_DI_SEND_STR-VIN sy-vline 
WA_ICL_DI_SEND_STR-PLATECOUNTRY sy-vline 
WA_ICL_DI_SEND_STR-PLATEREGION sy-vline 
WA_ICL_DI_SEND_STR-PLATENO sy-vline 
WA_ICL_DI_SEND_STR-FIRSTREG sy-vline 
WA_ICL_DI_SEND_STR-CAPACITY sy-vline 
WA_ICL_DI_SEND_STR-CAPUNIT sy-vline 
WA_ICL_DI_SEND_STR-COLOR sy-vline 
WA_ICL_DI_SEND_STR-GEAR sy-vline 
WA_ICL_DI_SEND_STR-INSPDATE sy-vline 
WA_ICL_DI_SEND_STR-PURPTRIP sy-vline 
WA_ICL_DI_SEND_STR-LEASING sy-vline 
WA_ICL_DI_SEND_STR-XPERM sy-vline 
WA_ICL_DI_SEND_STR-XVEHICIT sy-vline 
WA_ICL_DI_SEND_STR-XDRIVCIT sy-vline 
WA_ICL_DI_SEND_STR-XPARKED sy-vline 
WA_ICL_DI_SEND_STR-XPRE sy-vline 
WA_ICL_DI_SEND_STR-DRIVABLE sy-vline 
WA_ICL_DI_SEND_STR-MILEAGE sy-vline 
WA_ICL_DI_SEND_STR-MILEAGEUNIT sy-vline 
WA_ICL_DI_SEND_STR-TREADF sy-vline 
WA_ICL_DI_SEND_STR-TREADR sy-vline 
WA_ICL_DI_SEND_STR-TREADUNIT sy-vline 
WA_ICL_DI_SEND_STR-PCV sy-vline 
WA_ICL_DI_SEND_STR-PCVCURR sy-vline 
WA_ICL_DI_SEND_STR-OWPHREL sy-vline 
WA_ICL_DI_SEND_STR-RECOVERDATE sy-vline 
WA_ICL_DI_SEND_STR-MONTH_FROM sy-vline 
WA_ICL_DI_SEND_STR-MONTH_TO sy-vline 
WA_ICL_DI_SEND_STR-OWNERCHANGE sy-vline 
WA_ICL_DI_SEND_STR-GENERALINSP sy-vline 
WA_ICL_DI_SEND_STR-XFATALITY sy-vline 
WA_ICL_DI_SEND_STR-XINJURIES sy-vline 
WA_ICL_DI_SEND_STR-AGE sy-vline 
WA_ICL_DI_SEND_STR-PERCENT_IMPAIR sy-vline 
WA_ICL_DI_SEND_STR-SERIALNO sy-vline 
WA_ICL_DI_SEND_STR-PROPUSE sy-vline 
WA_ICL_DI_SEND_STR-XRENTAL sy-vline 
WA_ICL_DI_SEND_STR-OPERABLE sy-vline 
WA_ICL_DI_SEND_STR-ESTREPAIRDATE sy-vline 
WA_ICL_DI_SEND_STR-ACTREPAIRDATE sy-vline 
WA_ICL_DI_SEND_STR-RESTATEN sy-vline 
WA_ICL_DI_SEND_STR-REMATERIAL sy-vline 
WA_ICL_DI_SEND_STR-ADDRESS sy-vline 
WA_ICL_DI_SEND_STR-DATEADDR sy-vline 
WA_ICL_DI_SEND_STR-DD1 sy-vline 
WA_ICL_DI_SEND_STR-DD2 sy-vline 
WA_ICL_DI_SEND_STR-DD3 sy-vline 
WA_ICL_DI_SEND_STR-DD4 sy-vline 
WA_ICL_DI_SEND_STR-DD5 sy-vline 
WA_ICL_DI_SEND_STR-DD6 sy-vline 
WA_ICL_DI_SEND_STR-DD7 sy-vline 
WA_ICL_DI_SEND_STR-DD8 sy-vline 
WA_ICL_DI_SEND_STR-DD9 sy-vline 
WA_ICL_DI_SEND_STR-DD10 sy-vline 
WA_ICL_DI_SEND_STR-DD11 sy-vline 
WA_ICL_DI_SEND_STR-DD12 sy-vline 
WA_ICL_DI_SEND_STR-DD13 sy-vline 
WA_ICL_DI_SEND_STR-DD14 sy-vline 
WA_ICL_DI_SEND_STR-DD15 sy-vline 
WA_ICL_DI_SEND_STR-DD16 sy-vline 
WA_ICL_DI_SEND_STR-DD17 sy-vline 
WA_ICL_DI_SEND_STR-DD18 sy-vline 
WA_ICL_DI_SEND_STR-DD19 sy-vline 
WA_ICL_DI_SEND_STR-DD20 sy-vline 
WA_ICL_DI_SEND_STR-STRUCNAME sy-vline 
WA_ICL_DI_SEND_STR-DATA sy-vline 
WA_ICL_DI_SEND_STR-FACTSCAT sy-vline 
WA_ICL_DI_SEND_STR-SFCSUBOBJ sy-vline 
WA_ICL_DI_SEND_STR-QUESTION sy-vline 
WA_ICL_DI_SEND_STR-ANSWER sy-vline 
WA_ICL_DI_SEND_STR-QUESEQ sy-vline 
WA_ICL_DI_SEND_STR-AVARIANT sy-vline 
WA_ICL_DI_SEND_STR-CHIND_PROC sy-vline 
WA_ICL_DI_SEND_STR-SUBCLAIM_PROC sy-vline 
WA_ICL_DI_SEND_STR-PROCUREMENT sy-vline 
WA_ICL_DI_SEND_STR-PDOCTYPE sy-vline 
WA_ICL_DI_SEND_STR-PDOCCAT sy-vline 
WA_ICL_DI_SEND_STR-ISSUEDATE sy-vline 
WA_ICL_DI_SEND_STR-RECEIVEDATE sy-vline 
WA_ICL_DI_SEND_STR-DATEFROM sy-vline 
WA_ICL_DI_SEND_STR-TIMEFROM sy-vline 
WA_ICL_DI_SEND_STR-DATETO sy-vline 
WA_ICL_DI_SEND_STR-TIMETO sy-vline 
WA_ICL_DI_SEND_STR-ISSUEDATE_PRESCR sy-vline 
WA_ICL_DI_SEND_STR-ACQUISITIONDATE sy-vline 
WA_ICL_DI_SEND_STR-INVOICEREF_PROC sy-vline 
WA_ICL_DI_SEND_STR-INVOICEREF_BULK sy-vline 
WA_ICL_DI_SEND_STR-AMOUNT1 sy-vline 
WA_ICL_DI_SEND_STR-CURRENCY sy-vline 
WA_ICL_DI_SEND_STR-EXTERNALREF sy-vline 
WA_ICL_DI_SEND_STR-EXTDOCUMENT sy-vline 
WA_ICL_DI_SEND_STR-EXTCASENO sy-vline 
WA_ICL_DI_SEND_STR-EXTFILENO sy-vline 
WA_ICL_DI_SEND_STR-CCEVENT sy-vline 
WA_ICL_DI_SEND_STR-CURRENCY_PROC sy-vline 
WA_ICL_DI_SEND_STR-PROC_REF sy-vline 
WA_ICL_DI_SEND_STR-DISCOUNTAMOUNT sy-vline 
WA_ICL_DI_SEND_STR-DISCOUNTPERCENT sy-vline 
WA_ICL_DI_SEND_STR-ACCIDENT sy-vline 
WA_ICL_DI_SEND_STR-SUBROGATION sy-vline 
WA_ICL_DI_SEND_STR-DUEDATE sy-vline 
WA_ICL_DI_SEND_STR-DUEDATE_ORIG sy-vline 
WA_ICL_DI_SEND_STR-OWNCONTRIB sy-vline 
WA_ICL_DI_SEND_STR-REASON sy-vline 
WA_ICL_DI_SEND_STR-CAUSE sy-vline 
WA_ICL_DI_SEND_STR-PDOCCATTYPE sy-vline 
WA_ICL_DI_SEND_STR-DATASOURCE sy-vline 
WA_ICL_DI_SEND_STR-SETORDERDATE sy-vline 
WA_ICL_DI_SEND_STR-COMPLETIONDATE sy-vline 
WA_ICL_DI_SEND_STR-MATLABCOST sy-vline 
WA_ICL_DI_SEND_STR-POINTVALUE sy-vline 
WA_ICL_DI_SEND_STR-SUBSIDYPERCENT sy-vline 
WA_ICL_DI_SEND_STR-SUBSIDYAMOUNT sy-vline 
WA_ICL_DI_SEND_STR-SENTUTC sy-vline 
WA_ICL_DI_SEND_STR-XCLINICCARD sy-vline 
WA_ICL_DI_SEND_STR-CANCEL sy-vline 
WA_ICL_DI_SEND_STR-REJECTED sy-vline 
WA_ICL_DI_SEND_STR-INSUSPENSE sy-vline 
WA_ICL_DI_SEND_STR-INPROCESS sy-vline 
WA_ICL_DI_SEND_STR-RELEASED sy-vline 
WA_ICL_DI_SEND_STR-XFINISHED sy-vline 
WA_ICL_DI_SEND_STR-ORDERED sy-vline 
WA_ICL_DI_SEND_STR-TRANSFERRED sy-vline 
WA_ICL_DI_SEND_STR-TOBEAPPROVED sy-vline 
WA_ICL_DI_SEND_STR-COMPPER_DATEFROM sy-vline 
WA_ICL_DI_SEND_STR-COMPPER_DATETO sy-vline 
WA_ICL_DI_SEND_STR-PAYFREQPLAN sy-vline 
WA_ICL_DI_SEND_STR-PAYOUT_SCENARIO sy-vline 
WA_ICL_DI_SEND_STR-FEE sy-vline 
WA_ICL_DI_SEND_STR-PDOCAT_COVTYPE sy-vline 
WA_ICL_DI_SEND_STR-PROC_GUID sy-vline 
WA_ICL_DI_SEND_STR-CHIND_DIAG sy-vline 
WA_ICL_DI_SEND_STR-INJURED sy-vline 
WA_ICL_DI_SEND_STR-DIAGNO sy-vline 
WA_ICL_DI_SEND_STR-DIAGORDER sy-vline 
WA_ICL_DI_SEND_STR-DIAG_SUBCL sy-vline 
WA_ICL_DI_SEND_STR-DIAG_PROC sy-vline 
WA_ICL_DI_SEND_STR-DIAG_ITEM sy-vline 
WA_ICL_DI_SEND_STR-CATAID1 sy-vline 
WA_ICL_DI_SEND_STR-DIAGID1 sy-vline 
WA_ICL_DI_SEND_STR-CATAID2 sy-vline 
WA_ICL_DI_SEND_STR-DIAGID2 sy-vline 
WA_ICL_DI_SEND_STR-ENDDATE sy-vline 
WA_ICL_DI_SEND_STR-DIAGTYPE sy-vline 
WA_ICL_DI_SEND_STR-LOCALIZATION sy-vline 
WA_ICL_DI_SEND_STR-LOCALIZATION2 sy-vline 
WA_ICL_DI_SEND_STR-SEVERITYCODE sy-vline 
WA_ICL_DI_SEND_STR-GUARANTEE sy-vline 
WA_ICL_DI_SEND_STR-DEPARTMENT sy-vline 
WA_ICL_DI_SEND_STR-DIAGDESCRIPTION sy-vline 
WA_ICL_DI_SEND_STR-MORPHOLOGY sy-vline 
WA_ICL_DI_SEND_STR-EXCORIATION sy-vline 
WA_ICL_DI_SEND_STR-DIAGGROUPID sy-vline 
WA_ICL_DI_SEND_STR-ASSIGN_GUID_DIAG sy-vline      INTO ld_text SEPARATED BY SPACE.

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