SAP Reports / Programs | Financial Services | Claims Management(FS-CM) SAP FS

comments icon Comments

ICL_CLAIM_FREETEXT_LIB SAP ABAP Report - INTERNAL: Form Class Library







ICL_CLAIM_FREETEXT_LIB is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.

If you would like to execute this report or see the full code listing simply enter ICL_CLAIM_FREETEXT_LIB into the relevant SAP transactions such as SE38 or SE80


ABAP code to call this SAP report using the submit statement

This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.






SUBMIT ICL_CLAIM_FREETEXT_LIB. "Basic submit
SUBMIT ICL_CLAIM_FREETEXT_LIB AND RETURN. "Return to original report after report execution complete
SUBMIT ICL_CLAIM_FREETEXT_LIB VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


Text pool values


Title: INTERNAL: Form Class Library
Text Symbol: 105 = BP Role of Recipient
Text Symbol: 104 = Role of Recipient
Text Symbol: 103 = BP Role of Claimant
Text Symbol: 102 = Role of Claimant
Text Symbol: 101 = Recipient
Text Symbol: 100 = Enter Claim Number


INCLUDES used within this REPORT ICL_CLAIM_FREETEXT_LIB

INCLUDE EMSG.
INCLUDE IEFGMAC3.
INCLUDE IEFGMAC4.


TABLES used within REPORT and the associated SELECT statement:





No SAP DATABASE tables are accessed within this REPORT code!


Function Modules used within report and the associated call statement:

POPUP_GET_VALUES
  CALL FUNCTION 'POPUP_GET_VALUES'
    EXPORTING
*     NO_VALUE_CHECK  = ' '
      popup_title     = lv_title
      start_column    = '20'
      start_row       = '8'
    IMPORTING
      returncode      = lv_rc
    TABLES
      fields          = lt_sval
    EXCEPTIONS
      error_in_fields = 1
      OTHERS          = 2.

ICL_CORR_GET
  CALL FUNCTION 'ICL_CORR_GET'
    IMPORTING
      e_claim        = wa_claim
      e_loss_address = ls_loss_address.

ADDR_COMPOSE_STREET_LINE
    CALL FUNCTION 'ADDR_COMPOSE_STREET_LINE'
      EXPORTING
        street        = ls_loss_address-street
        house_number  = ls_loss_address-house_num1
        house_number2 = ls_loss_address-house_num2
        country       = ls_loss_address-country
        language      = ls_loss_address-langu
      IMPORTING
        street_line   = ls_loss_address-street.

ICL_CORR_GET
    CALL FUNCTION 'ICL_CORR_GET'
      TABLES
        t_icldamobj = yt_damagedobj.

ICL_ICLDAMOBJ_SELECT_WITH_CL
      CALL FUNCTION 'ICL_ICLDAMOBJ_SELECT_WITH_CL'
        EXPORTING
          i_active    = xt_claim-active
          i_claim     = xt_claim-claim
        TABLES
          t_icldamobj = lt_damobj
        EXCEPTIONS
          not_found   = 1
          OTHERS      = 2.

ICL_CORR_GET
    CALL FUNCTION 'ICL_CORR_GET'
      TABLES
        t_iclitemau = lt_auto.

ICL_ICLITEMAU_SELECT_SINGLE
      CALL FUNCTION 'ICL_ICLITEMAU_SELECT_SINGLE'
        EXPORTING
          i_damagedobj = xt_damagedobj-damagedobj
          i_claim      = xt_damagedobj-claim
          i_active     = xt_damagedobj-active
        IMPORTING
          e_iclitemau  = wa_auto
        EXCEPTIONS
          not_found    = 1
          OTHERS       = 2.

ICL_CORR_GET
  CALL FUNCTION 'ICL_CORR_GET'
    TABLES
      t_iclitemre = lt_re.

ICL_CORR_GET
  CALL FUNCTION 'ICL_CORR_GET'
    TABLES
      t_iclitemeq = lt_eq.

ICL_CORR_GET
    CALL FUNCTION 'ICL_CORR_GET'
      IMPORTING
        et_polh         = lt_bpartner
        et_polh_address = lt_bp_address.

ICL_CORR_GET
      CALL FUNCTION 'ICL_CORR_GET'
        TABLES
          t_participants = lt_partici.

ICL_PARTNER_GET
        CALL FUNCTION 'ICL_PARTNER_GET'
          EXPORTING
            i_partner        = -bpartner
          IMPORTING
            e_but000         = ls_but000
            e_but000_address = ls_but000_address
          EXCEPTIONS
            not_found        = 1
            wrong_parameters = 2
            OTHERS           = 3.

ICL_PARTNER_GET
  CALL FUNCTION 'ICL_PARTNER_GET'
    EXPORTING
      i_partner        = gv_addressee
    IMPORTING
      e_but000         = ls_addressee
      e_but000_address = ls_address
    EXCEPTIONS
      not_found        = 1
      OTHERS           = 2.

ADDR_COMPOSE_STREET_LINE
    CALL FUNCTION 'ADDR_COMPOSE_STREET_LINE'
      EXPORTING
        street        = ls_address-street
        house_number  = ls_address-house_num1
        house_number2 = ls_address-house_num2
        country       = ls_address-country
        language      = ls_address-langu
      IMPORTING
        street_line   = ls_address-street.

ADDR_COMPOSE_STREET_LINE
  CALL FUNCTION 'ADDR_COMPOSE_STREET_LINE'
    EXPORTING
      street        = y_bp_address-street
      house_number  = y_bp_address-house_num1
      house_number2 = y_bp_address-house_num2
      country       = y_bp_address-country
      language      = y_bp_address-langu
    IMPORTING
      street_line   = y_bp_address-street.

ICLC_CLAIMOWNER_NAME_GET
    CALL FUNCTION 'ICLC_CLAIMOWNER_NAME_GET'
      EXPORTING
*       OWNERTYPE           = 'US'
        owner               = x_claim-owner
*       DATE                = SY-DATUM
      IMPORTING
        owner_name          = gv_claimhandler
        owner_name_title    = gv_claimhandler_title
        owner_title         = gv_owner_title
        owner_tel_number    = gv_owner_tel_number
        owner_tel_extens    = gv_owner_tel_extens
      EXCEPTIONS
        user_does_not_exist = 1
        OTHERS              = 2.

ICL_CLAIM_GET
    CALL FUNCTION 'ICL_CLAIM_GET'
      IMPORTING
        e_cdc_reporting = ls_reporting.

ICL_CDC_REPORTING_GET
      CALL FUNCTION 'ICL_CDC_REPORTING_GET'
        EXPORTING
          is_claim         = xt_claim
        IMPORTING
          es_cdc_reporting = ls_reporting.

ICL_CORR_GET
















    CALL FUNCTION 'ICL_CORR_GET'
      IMPORTING
        t_pol = lt_pol.

ICL_ICLPOL_SELECT_SINGLE
      CALL FUNCTION 'ICL_ICLPOL_SELECT_SINGLE'
        EXPORTING
          i_active = xt_claim-active
          i_claim  = xt_claim-claim
        IMPORTING
          e_iclpol = ls_polh.

CONVERT_DATE_TO_EXTERNAL
  CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
    EXPORTING
      date_internal            = gv_inc_date
    IMPORTING
      date_external            = gv_inception
    EXCEPTIONS
      date_internal_is_invalid = 1
      OTHERS                   = 2.

CONVERT_DATE_TO_EXTERNAL
  CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
    EXPORTING
      date_internal            = gv_exp_date
    IMPORTING
      date_external            = gv_expiry
    EXCEPTIONS
      date_internal_is_invalid = 1
      OTHERS                   = 2.

CONVERT_DATE_TO_EXTERNAL
  CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
    EXPORTING
      date_internal            = gv_iss_date
    IMPORTING
      date_external            = gv_issued
    EXCEPTIONS
      date_internal_is_invalid = 1
      OTHERS                   = 2.

ICL_PART_GET_SELM
*    call function 'ICL_PART_GET_SELM'
*         tables
*              t_partocc = lt_partici.

ICL_CORR_GET
    CALL FUNCTION 'ICL_CORR_GET'
      TABLES
        t_participants = lt_partici.

ICL_PARTNER_GET
    CALL FUNCTION 'ICL_PARTNER_GET'
      EXPORTING
        i_partner          = xt_partici-bpartner
      IMPORTING
*       E_BUT000           =
        e_but000_address   = ls_partner
*       E_DESCRIPTION      =
*       E_DESCRIPTION_NAME =
*       E_DESCRIPTION_ADDR =
      EXCEPTIONS
        not_found          = 1
        OTHERS             = 2.

ICL_PART_GET_SELM
*    call function 'ICL_PART_GET_SELM'
*         exporting
*              i_role    = gc_dri1
*         importing
*              e_partocc = ls_partocc.

ICL_CORR_GET
    CALL FUNCTION 'ICL_CORR_GET'
      TABLES
        t_participants = lt_partocc.

ICL_PARTOCC_SELECT
      CALL FUNCTION 'ICL_PARTOCC_SELECT'
        EXPORTING
          i_claim   = xt_claim-claim
        TABLES
          t_partocc = lt_partocc.

ADDR_GET
    CALL FUNCTION 'ADDR_GET'
      EXPORTING
        address_selection       = ls_address_sel
        read_texts              = 'X'
      IMPORTING
        address_value           = ls_location
        address_additional_info = ls_addr_add
*       RETURNCODE              =
        address_text            = ls_addr_text
        sadr                    = ls_sadr
      EXCEPTIONS
        parameter_error         = 1
        address_not_exist       = 2
        version_not_exist       = 3
        internal_error          = 4
        OTHERS                  = 5.

ADDR_COMPOSE_STREET_LINE
      CALL FUNCTION 'ADDR_COMPOSE_STREET_LINE'
        EXPORTING
          street        = ls_location-street
          house_number  = ls_location-house_num1
          house_number2 = ls_location-house_num2
          country       = ls_location-country
          language      = ls_location-langu
        IMPORTING
          street_line   = ls_location-street.

ICL_CORR_GET
    CALL FUNCTION 'ICL_CORR_GET'
      TABLES
        t_iclpay = yt_payment.

BUP_BANK_GET
        CALL FUNCTION 'BUP_BANK_GET'
          EXPORTING
            i_partner        = t_payment-bpartner
            i_bkvid          = t_payment-bkid
            i_xmemory        = 'X'
          IMPORTING
            e_but0bk         = ls_but0bk
          EXCEPTIONS
            bkvid_not_found  = 1
            wrong_parameters = 2
            OTHERS           = 3.

ICL_PART_GET_SELS
  CALL FUNCTION 'ICL_PART_GET_SELS'
    EXPORTING
      i_participant = gv_addressee
    IMPORTING
      e_part        = ls_part
    EXCEPTIONS
      OTHERS        = 0.

ICL_CORR_GET
  CALL FUNCTION 'ICL_CORR_GET'
    TABLES
      t_iclpayi = yt_paymenitem.

ICL_CREATE_OBJKEY
  CALL FUNCTION 'ICL_CREATE_OBJKEY'
    EXPORTING
      i_claim     = lv_claim
      i_subobjcat = lv_tdid
      i_subobject = lv_subobject
    IMPORTING
      e_objkey    = lv_objkey.

ISU_S_PRINTACT_SEARCH_UPDATE
  CALL FUNCTION 'ISU_S_PRINTACT_SEARCH_UPDATE'
    EXPORTING
      x_formclass   = c-formkey  " c-formclass
      x_obj_type    = 'CLAIMSUBOB'
      x_obj_key     = lv_objkey
      x_update      = c-pa_update
    TABLES
      yt_eprintact  = lt_printact
    EXCEPTIONS
      not_found     = 1
      not_qualified = 2
      failed        = 3
      OTHERS        = 4.

ICL_CREATE_OBJKEY
  CALL FUNCTION 'ICL_CREATE_OBJKEY'
    EXPORTING
      i_claim     = x_damagedobj-claim
      i_subobjcat = lv_tdid
      i_subobject = lv_subobject
    IMPORTING
      e_objkey    = lv_objkey.




ISU_S_PRINTACT_SEARCH_UPDATE
  CALL FUNCTION 'ISU_S_PRINTACT_SEARCH_UPDATE'
    EXPORTING
      x_formclass   = c-formkey  " c-formclass
      x_obj_type    = 'CLAIMSUBOB'
      x_obj_key     = lv_objkey
      x_update      = c-pa_update
    TABLES
      yt_eprintact  = lt_printact
    EXCEPTIONS
      not_found     = 1
      not_qualified = 2
      failed        = 3
      OTHERS        = 4.

ICL_CREATE_OBJKEY
  CALL FUNCTION 'ICL_CREATE_OBJKEY'
    EXPORTING
      i_claim     = x_payment-claim
      i_subobjcat = lv_tdid
      i_subobject = lv_subobject
    IMPORTING
      e_objkey    = lv_objkey.

ISU_S_PRINTACT_SEARCH_UPDATE
  CALL FUNCTION 'ISU_S_PRINTACT_SEARCH_UPDATE'
    EXPORTING
      x_formclass   = c-formkey  " c-formclass
      x_obj_type    = 'CLAIMSUBOB'
      x_obj_key     = lv_objkey
      x_update      = c-pa_update
    TABLES
      yt_eprintact  = lt_printact
    EXCEPTIONS
      not_found     = 1
      not_qualified = 2
      failed        = 3
      OTHERS        = 4.

ICL_CREATE_OBJKEY
  CALL FUNCTION 'ICL_CREATE_OBJKEY'
    EXPORTING
      i_claim     = x_paymenitem-claim
      i_subobjcat = lv_tdid
      i_subobject = lv_subobject
    IMPORTING
      e_objkey    = lv_objkey.

ISU_S_PRINTACT_SEARCH_UPDATE
  CALL FUNCTION 'ISU_S_PRINTACT_SEARCH_UPDATE'
    EXPORTING
      x_formclass   = c-formkey  " c-formclass
      x_obj_type    = 'CLAIMSUBOB'
      x_obj_key     = lv_objkey
      x_update      = c-pa_update
    TABLES
      yt_eprintact  = lt_printact
    EXCEPTIONS
      not_found     = 1
      not_qualified = 2
      failed        = 3
      OTHERS        = 4.

ICL_CREATE_OBJKEY
  CALL FUNCTION 'ICL_CREATE_OBJKEY'
    EXPORTING
      i_claim     = x_claim-claim
      i_subobjcat = 'C'
      i_subobject = ''
    IMPORTING
      e_objkey    = lv_objkey.

ISU_S_PRINTACT_SEARCH_UPDATE
  CALL FUNCTION 'ISU_S_PRINTACT_SEARCH_UPDATE'
    EXPORTING
      x_formclass   = c-formclass
      x_obj_type    = 'CLAIMSUBOB'
      x_obj_key     = lv_objkey
      x_update      = c-pa_update
    TABLES
      yt_eprintact  = lt_printact
    EXCEPTIONS
      not_found     = 1
      not_qualified = 2
      failed        = 3
      OTHERS        = 4.

ICL_CORR_GET
  CALL FUNCTION 'ICL_CORR_GET'
    IMPORTING
      et_rbp = lt_rbp.


Contribute (Add Comments)

Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.

The contribute/comments section below therefore offer's an opportunity for anyone to add additional information. This can be anything from useful hints, tips and screen shots to relevant SAP notes or anything else you feel is relevant to this report.

This will then be available for everyone to easily find by simply searching on the report name ICL_CLAIM_FREETEXT_LIB or its description.


   
 

ICL_CLAIM_FREETEXT_LIB - INTERNAL: Form Class Library
ICL_CLAIM_FREETEXT_LIB - INTERNAL: Form Class Library
ICL_CLAIM_FILE_WCOMP_LIB - ICLCLAIMFILEWCOMPLIB
ICL_CLAIM_FILE_WCOMP_LIB - ICLCLAIMFILEWCOMPLIB
ICL_CLAIM_FILE_MEDDEVICE_LIB - ICLCLAIMFILEMEDDEVICELIB
ICL_CLAIM_FILE_MEDDEVICE_LIB - ICLCLAIMFILEMEDDEVICELIB