customer exit is not functioning after ECC upgrade/support package

[Former Member]

It seems our customer exit is not functioning after ECC upgrade/support package. I tried to activate the project again, no use. please help. Thanks! (see below for the enhancement info)

COZF0002 Change purchase req. for externally procured component

EXIT_SAPLCOZF_002

INCLUDE ZXCOZU02

&----

---

*

*& Include ZXCOZU02

&----

---

CONSTANTS: lcc_eban(25) TYPE c VALUE '(SAPLCOBC)EBAN'.

FIELD-SYMBOLS: <fs_eban> TYPE eban.

DATA: l_fkstl TYPE prps-fkstl.

• Move values from the LUW to the Internal Table

ASSIGN (lcc_eban) TO <fs_eban>.

• If the field symbol is "NOT' empty then proceed

IF ( <fs_eban> IS ASSIGNED ).

• if WBS work order, get cost center from PRPS

IF ( caufvd_imp-auart = 'ZM05' ).

SELECT SINGLE fkstl INTO l_fkstl FROM prps

WHERE pspnr = caufvd_imp-pspel.

IF ( sy-subrc = 0 ).

WRITE l_fkstl TO <fs_eban>-zzfistl.

ENDIF.

• if not WBS WO, move cost center minus leading zeros to funds center

ELSE.

WRITE caufvd_imp-kostl TO <fs_eban>-zzfistl.

ENDIF.

ENDIF.

[former_member376453]

You are trying to get data from stack '(SAPLCOBC)EBAN'. Check after upgrade, the program name is still the same or it has changed. I think this has changed, thats why ur custom exit is not working.

Kuntal

[Former Member]

Thanks you for your quick answer.

Which program did you mean?

I checked the program for IW32, it's SAPLCOIH, is that what you mean?

[former_member376453]

I mean to say, check in the stack structure in code, whether the required value is available or not. - Kuntal

[Former Member]

How to check? could you please provide the steps in detail? Thanks!

[former_member376453]

Keep a break point and run the t-code IW32. It will stop at your break point. check the field symbol after assignment, whether it has received any value or not.

[Former Member]

Did you mean set a break point in the follow code?(Include ZXCOZU02), I tried set a break point in this code, but It didn't stop .

&----

---

*

*& Include ZXCOZU02

&----

---

CONSTANTS: lcc_eban(25) TYPE c VALUE '(SAPLCOBC)EBAN'.

FIELD-SYMBOLS: <fs_eban> TYPE eban.

DATA: l_fkstl TYPE prps-fkstl.

• Move values from the LUW to the Internal Table

ASSIGN (lcc_eban) TO <fs_eban>.

• If the field symbol is "NOT' empty then proceed

IF ( <fs_eban> IS ASSIGNED ).

• if WBS work order, get cost center from PRPS

IF ( caufvd_imp-auart = 'ZM05' ).

SELECT SINGLE fkstl INTO l_fkstl FROM prps

WHERE pspnr = caufvd_imp-pspel.

IF ( sy-subrc = 0 ).

WRITE l_fkstl TO <fs_eban>-zzfistl.

ENDIF.

• if not WBS WO, move cost center minus leading zeros to funds center

ELSE.

WRITE caufvd_imp-kostl TO <fs_eban>-zzfistl.

ENDIF.

ENDIF.