ABAP Select data from SAP table ICL_DI_MAIN 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_MAIN 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_MAIN. 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_MAIN 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_MAIN TYPE STANDARD TABLE OF ICL_DI_MAIN,
      WA_ICL_DI_MAIN TYPE ICL_DI_MAIN,
      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_MAIN> TYPE ICL_DI_MAIN.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM ICL_DI_MAIN
*  INTO TABLE @DATA(IT_ICL_DI_MAIN2).
*--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_MAIN INDEX 1 INTO DATA(WA_ICL_DI_MAIN2).


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

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

ENDLOOP.

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

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


*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_MAIN-POLICY
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_MAIN-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_MAIN-CLAIM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_MAIN-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_MAIN-REPORTER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_MAIN-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_MAIN-POLICE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_MAIN-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_MAIN-CLOBJECT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_MAIN-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_MAIN-PARTICIPANT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_MAIN-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_MAIN-PARTICIPANT_OLD
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_MAIN-PARTICIPANT_OLD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field HANDLE
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_ICL_DI_MAIN-HANDLE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_MAIN-HANDLE.
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_MAIN-VENDOR_CATALOG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_MAIN-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_MAIN-ADDRNUMBER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_MAIN-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_MAIN-BPARTNER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_MAIN-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_MAIN-REFCLAIM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_MAIN-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_MAIN-BPARTNER2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_MAIN-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_MAIN-BPARTNER3
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_MAIN-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_MAIN-CRECADDR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_MAIN-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_MAIN-CLAIMANT_DOBJ
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_MAIN-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_MAIN-LOCATION
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_MAIN-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_MAIN-DRIVER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_MAIN-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_MAIN-GENERALINSP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_MAIN-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_MAIN-ADDRESS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_DI_MAIN-ADDRESS.
WRITE:/ 'New Value:', ld_input.

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

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