Regarding problem in Function Module

[Former Member]

Hi experts,

I have created a function module .But in epc check list I am founding 2 warnings

1.No RAISE for EXCEPTION NOTHING_ACTIVE in the Exception Group

2.No RAISE for EXCEPTION ERROR_COUNTRY_CODE in the Exception Group

can you please help me to solve this?(I have given the code in below)

Regards,

Sarkar

FUNCTION Z_bte_00003410.

*"----

---

""Local Interface:

*" IMPORTING

*" REFERENCE(IM_MLDLA) TYPE MLDPARAM-MLDLA

*" REFERENCE(IM_MLDEM) TYPE MLDPARAM-MLDEM

*" REFERENCE(IM_MLZLA) TYPE MLDPARAM-MLZLA

*" REFERENCE(IM_SPRAS) TYPE T002-SPRAS DEFAULT SY-LANGU

*" REFERENCE(IM_TABNAME) TYPE DFIES-TABNAME

*" REFERENCE(IM_RECORD)

*" CHANGING

*" REFERENCE(CH_INTCA) TYPE T005-INTCA

*" REFERENCE(CH_LANDA) TYPE T005-LANDA

*" REFERENCE(CH_LKVRZ) TYPE T005-LKVRZ

*" REFERENCE(CH_LANDX) TYPE T005T-LANDX

*" REFERENCE(CH_LANDX50) TYPE MLDPARAM-LANDX50

*" REFERENCE(CH_IDTYP) TYPE MLDPARAM-IDTYP

*" EXCEPTIONS

*" ERROR_COUNTRY_CODE

*" NOTHING_ACTIVE

*"----

---

************************************************************************

************************************************************************

*Local Variable Declaration:

DATA : l_v_landa TYPE landa_005z,

l_v_landx TYPE landx,

l_v_lkvrz TYPE lkvrz_005z,

l_v_landx50 TYPE landx50_005z.

• Check if an entry exists in T005Z

SELECT SINGLE t005z~landa

t005zt~landx

t005zt~lkvrz

t005zt~landx50

FROM t005z INNER JOIN t005zt "#EC CI_BUFFJOIN

ON t005z_{mldla = t005zt}mldla

AND t005z_{mldem = t005zt}mldem

AND t005z_{intca = t005zt}intca

INTO (l_v_landa,l_v_landx,l_v_lkvrz,l_v_landx50)

WHERE t005z~mldla EQ im_mldla

AND t005z~mldem EQ im_mldem

AND t005z~intca EQ im_mlzla

AND t005zt~spras EQ im_spras .

IF sy-subrc EQ 0.

ch_intca = im_mlzla.

ch_landa = l_v_landa.

ch_lkvrz = l_v_lkvrz.

ch_landx = l_v_landx.

ch_landx50 = l_v_landx50.

ENDIF.

ENDFUNCTION.

[Former Member]

Hi,

Raise proper exceptions based on the value of SY-SUBRC.

Add your code for raising exception in the ELSE condition of IF SY-SUBRC EQ 0, like

case sy-subrc.
    when 0.
     ch_intca = im_mlzla.
     ch_landa = l_v_landa.
     ch_lkvrz = l_v_lkvrz.
     ch_landx = l_v_landx.
      ch_landx50 = l_v_landx50. 
    when 4.
      raise nothing_active.
    when others.
      raise error_company_code.
  endcase.

Regards

Vinod

[Former Member]

Thanks a Lot Vinod.....

[Former Member]

Sarkar,

Since you have declared some exceptions you may need to raise them somewhere in the code otherwise it may give warning.

Thanks

Bala Duvvuri